pcdesignerce 16/6/2016, 16:53
ruggerib voltei depois de tanto tempo pra sanar minhas duvida por problemas clinico.
Fiz aqui um resumo simplificando pra vc e quem mais interessar ajudar:
Tenho o form1 com os controles (txtDados1 e bt_adicionar)
Private Sub bt_adicionar _Click()
Dim Dados As String
Dados = Nz(Me. txtDados1.Value, "0")
If Dados = "0" Then
'ativo o controle txtDados1 do form1
Me. txtDados1.SetFocus
'capturo o nome do controle ativado
Controle = Screen.ActiveControl.Name
'abri o form2
DoCmd.OpenForm "Form2"
'E adiciona o nome do controle txtDados1 do form1 como valor do controles txtControle no form2
[Forms]![Form2].[txtControle] = Controle
'essa primeira parte do script está funcionando
Else
End If
End Sub
Tenho o form2 com os controles (txtControle, txtDados e bt_salvar)
txtControle = recebe dados sem problemas o nome do controle txtDados1 conforme bt_adicionar.
txtDados = Insiro algumas informações
Private Sub bt_salvar _Click()
Dim Controle As String
'Variavel Controle com o valor do campo txtControle (até aqui funciona)
Controle = Me. txtControle.Value
'O problema esta aqui, não consigo concatenar a variável Controle para aparecer o se valor que neste exemplo txtDados1 que é o nome do campo no form1, em vez disso reconhece a Variável Controle como nome no campo, que da uma mensagem de campo não encontrado, pois não existe no Form1 o campo Controle. Já tentei de diversas formas e algumas vezes na depuração até aparece o valor da variável e mesmo assim da erro.
Forms("Form1")!Controle = Me. txtDados.Value
End Sub
desde já agradeço a atenção