Início
Ronie 23/1/2016, 03:37Pessoal, preciso da ajuda de vocês. Tenho a seguinte situação:
Dois Forms, o Form1 irá chamar o Form2 através de um botão passando um valor de variável para o Txt1 que está no Form2. Preciso fazer desta forma porque o Form2 será multifunção e poderá ser chamado por vários outros forms (sempre recebendo a variável do form que está chamando). Porém, com o código que fiz, a variável do Form2 não está recebendo o valor. Segue o código que estou usando e em anexo o arquivo do Ms Access. Peço uma luz para resolver este problema. Desde já agradeço a todos.
*** CÓDIGO DO FORM1 ***
Private Sub botao1_Click()
Dim objNome As New Form_Form2
objNome.nome = "Beltrano da Silva"
DoCmd.OpenForm "Form2"
End Sub
*** CÓDIGO DO FORM2 ***
Private strNome As String
Property Let nome(argNome As String)
strNome = argNome
End Property
Property Get nome() As String
nome = strNome
End Property
Private Sub Form_Load()
Me.txt1.Value = nome()
End Sub
Dois Forms, o Form1 irá chamar o Form2 através de um botão passando um valor de variável para o Txt1 que está no Form2. Preciso fazer desta forma porque o Form2 será multifunção e poderá ser chamado por vários outros forms (sempre recebendo a variável do form que está chamando). Porém, com o código que fiz, a variável do Form2 não está recebendo o valor. Segue o código que estou usando e em anexo o arquivo do Ms Access. Peço uma luz para resolver este problema. Desde já agradeço a todos.
*** CÓDIGO DO FORM1 ***
Private Sub botao1_Click()
Dim objNome As New Form_Form2
objNome.nome = "Beltrano da Silva"
DoCmd.OpenForm "Form2"
End Sub
*** CÓDIGO DO FORM2 ***
Private strNome As String
Property Let nome(argNome As String)
strNome = argNome
End Property
Property Get nome() As String
nome = strNome
End Property
Private Sub Form_Load()
Me.txt1.Value = nome()
End Sub
- Anexos
Teste_POO.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (72 Kb) Baixado 3 vez(es)
