Prezados, boa noite!!!!
Estou com um problema para carregar uma DLL no meu sistema, ela sempre acaba fechando o Access e abrindo novamente.
Segue abaixo o código que estou utilizando:
Private Declare Function GeraTNs Lib "C:\...\TNMais.dll" (ByVal CodC As Long, ByVal CodTip As Long, ByVal NumPed As String, ByVal cpfcnpj As String, ByVal QntCPFCNPJ As Long, ByVal TipS As Long, ByVal Protocol As Long, ByVal TipoAcao As Long, ByVal DataHora As String, ByVal ChaveD As String) As String
Private Sub Comando12_Click()
Dim codcat As Long
Dim codato As Long
Dim nmped As String
Dim cpfcnpj As String
Dim qtdcpfcnpj As Long
Dim tpsel As Long
Dim proto As Long
Dim tpacao As Long
Dim dat As String
Dim chave As String
codcat = 18380
codato = 7
nmped = "KEqod.2N7I7"
cpfcnpj = "12345678901"
qtdcpfcnpj = 1
tpsel = 4
proto = 0
tpacao = 0
dat = "01/01/2013 10:30:40"
chave = "9jw0K.ESA67"
Me.Texto0 = GeraTNs(codcat, codato, nmped, cpfcnpj, qtdcpfcnpj, tpsel, proto, tpacao, dat, chave)
End Sub
Alguém pode me ajudar, já tentei de várias formas e nada.
Desde já agradeço.
Obrigado.
Estou com um problema para carregar uma DLL no meu sistema, ela sempre acaba fechando o Access e abrindo novamente.
Segue abaixo o código que estou utilizando:
Private Declare Function GeraTNs Lib "C:\...\TNMais.dll" (ByVal CodC As Long, ByVal CodTip As Long, ByVal NumPed As String, ByVal cpfcnpj As String, ByVal QntCPFCNPJ As Long, ByVal TipS As Long, ByVal Protocol As Long, ByVal TipoAcao As Long, ByVal DataHora As String, ByVal ChaveD As String) As String
Private Sub Comando12_Click()
Dim codcat As Long
Dim codato As Long
Dim nmped As String
Dim cpfcnpj As String
Dim qtdcpfcnpj As Long
Dim tpsel As Long
Dim proto As Long
Dim tpacao As Long
Dim dat As String
Dim chave As String
codcat = 18380
codato = 7
nmped = "KEqod.2N7I7"
cpfcnpj = "12345678901"
qtdcpfcnpj = 1
tpsel = 4
proto = 0
tpacao = 0
dat = "01/01/2013 10:30:40"
chave = "9jw0K.ESA67"
Me.Texto0 = GeraTNs(codcat, codato, nmped, cpfcnpj, qtdcpfcnpj, tpsel, proto, tpacao, dat, chave)
End Sub
Alguém pode me ajudar, já tentei de várias formas e nada.
Desde já agradeço.
Obrigado.