PASSAR ARGUMENTO DE ROTINA DO ACCESS PARA VB6

LUCIANORW 21/10/2009 07:11:57
#325898
Bom dia!!!
Preciso passar um argumento de uma rotina do VBA do MS Access para um programa do VB6, mas não sei como fazer isso.
Vejam como chamo o EXE do vb6:

Function testando()
    Dim ARGUMENTO As String
    Call ShellWait(CurrentProject.Path & [Ô]\AUXILIAR.exe[Ô], , ARGUMENTO)
End Function

Como recebo argumento no vb?
[]s
Luciano
TECLA 21/10/2009 08:23:23
#325905 Resposta escolhida
Experimente usar a função COMMAND$.

Exemplo:
Private Sub Form_Load()
Dim cmd As String
cmd = Command$
Select Case cmd
    Case [Ô]ADM[Ô]
        MsgBox [Ô]Setor Administrativo[Ô]
    Case [Ô]RH[Ô]
        MsgBox [Ô]Recursos Humanos[Ô]
    Case [Ô]TI[Ô]
        MsgBox [Ô]Tecnologia da Informação[Ô]
    Case Else
        MsgBox [Ô]Parâmetro inválido[Ô]
End Select
End Sub


Chamando o EXE com passagem de argumento
Shell [Ô]C:\Temp\Project1.exe  ADM[Ô]


Deve resolver.
LUCIANORW 21/10/2009 10:04:38
#325913
Muito grato Tecla!!!
Funcionou legal.
Valeu
[]s
Luciano
Tópico encerrado , respostas não são mais permitidas
Voltar