Olá Pessoal!
eu tenho uma variável no Open de um botão.
Eu consigo fazer a variável aparecer em uma caixa de dialogo.
Só que eu gostaria de saber se eu consigo fazer a variável ser inserida na tabela em uma coluna chamada maquina.
------------------------------------------------------------------------------------------
No botão:
------------------------------------------------------------------------------------------
Private Sub Comando0_Click()
DoCmd.Close
DoCmd.OpenForm "form2", acNormal, , , , , "carro1"
End Sub
------------------------------------------------------------------------------------------
Ao abrir o Formulário:
------------------------------------------------------------------------------------------
Private Sub Form_Load()
If IsNull(Me.OpenArgs) Then
MsgBox "OpenArgs está vazio"
Else
MsgBox Me.OpenArgs
End If
carro = OpenArgs
End Sub
------------------------------------------------------------------------------------------
Obrigado!
eu tenho uma variável no Open de um botão.
Eu consigo fazer a variável aparecer em uma caixa de dialogo.
Só que eu gostaria de saber se eu consigo fazer a variável ser inserida na tabela em uma coluna chamada maquina.
------------------------------------------------------------------------------------------
No botão:
------------------------------------------------------------------------------------------
Private Sub Comando0_Click()
DoCmd.Close
DoCmd.OpenForm "form2", acNormal, , , , , "carro1"
End Sub
------------------------------------------------------------------------------------------
Ao abrir o Formulário:
------------------------------------------------------------------------------------------
Private Sub Form_Load()
If IsNull(Me.OpenArgs) Then
MsgBox "OpenArgs está vazio"
Else
MsgBox Me.OpenArgs
End If
carro = OpenArgs
End Sub
------------------------------------------------------------------------------------------
Obrigado!
- Anexos
- OpenArgs_Teste.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (21 Kb) Baixado 10 vez(es)
Última edição por edersantana em 11/6/2013, 09:11, editado 1 vez(es)