Senhores boa noite estou fazendo um modulo para carregar outra tabela e a minha consulta sempre retorno o mesmo registro se alguem puder dar uma olhada agradeço...
Public Function GeraNfe(Venda As String)
strVen = "Select * From Tbl_Vendas where 'NUMEROPEDIDO=" & Venda & "'"
Set strvend = CurrentDb.OpenRecordset(strVen)
'MsgBox "o número do pedido é" & strvend("numeropedido")
strCon = strvend("numeroPedido")
strProd = strvend("numeronf")
strCli = strvend("codcli")
strvend.Close
End Function
vai o codigo ai, para executar so abrir a janela de verificação imediata e digitar GeraNfe(000098) 'este ultimo é o número do pedido. No aguardo
Public Function GeraNfe(Venda As String)
strVen = "Select * From Tbl_Vendas where 'NUMEROPEDIDO=" & Venda & "'"
Set strvend = CurrentDb.OpenRecordset(strVen)
'MsgBox "o número do pedido é" & strvend("numeropedido")
strCon = strvend("numeroPedido")
strProd = strvend("numeronf")
strCli = strvend("codcli")
strvend.Close
End Function
vai o codigo ai, para executar so abrir a janela de verificação imediata e digitar GeraNfe(000098) 'este ultimo é o número do pedido. No aguardo
- Anexos
- teste.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (56 Kb) Baixado 5 vez(es)