Passando Um Valor De 1 Form P/ Outro

[ClaudioX]

Iae pessoal!!!

Fiz esta pergunta lá no Access, mas ninguém respondeu, navegando atras de resposta vim parar aqui,e assim pedir a ajuda de vocês. Acho que é em VBA que vo resolver isso.

Tenho um Form A (pai), e um Form B que é chamado apartir de A, saca? por meio de um botao.

A ideia é a seguinte: Em um Form A tenho uma Caixa de combinação ai o usuario escolhe algo, depois, clicando em um botao tem acesso ao Form B, e em uma caixa de texto do Form B tem que estar escrito o conteudo da Caixa de combinação.

Mas não consigo levar essa informacao pra lá! :ph34r:

o codigo do botao que tentei fico assim...

Private Sub BtnParecer62_Click()
On Error GoTo Err_BtnParecer62_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "FormParecer"
    
    stLinkCriteria = "FormExibeCADASTRO_GERAL.Combinação64 = FormParecer.CodEstudo" 
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_BtnParecer62_Click:
    Exit Sub

Err_BtnParecer62_Click:
    MsgBox Err.Description
    Resume Exit_BtnParecer62_Click
    
End Sub

mas como não manjo nada de VBA, ele pedia pra digitar as os dois dados novamente :angry:

Me ajudeeem por favor!! ;)

Se qualquer coisa ficou mal explicada é só falar que eu detalho como for necessario..

Obrigado de novo! Valews!!

[RenatoMejias]

Use um módulo e declare a variável nele.

[ClaudioX]

Eu vi lá perto dos dos Forms apertando o botao direito que tem Criar Modulo,

tentei o seguinte no Modulo:

Option Compare Database

Dim GuardaCadGeral As String

GuardaCadGeral = FormExibeCADASTRO_GERAL.Combinação64

Mas ao tentar clicar no botao da um erro de Invalido fora de um Procedimento O codigo do botao é esse, mas a comparacao nem esta sendo usada porque quando criei o Form achei que ela fosse fazer isso pra mim... mas quando vi de que se tratava, abandonei.

Private Sub BtnParecer62_Click()
On Error GoTo Err_BtnParecer62_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "FormParecer"
    
    stLinkCriteria = "[CodEstudo]=" & Me![NUMER0_DO_ESTUDO]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_BtnParecer62_Click:
    Exit Sub

Err_BtnParecer62_Click:
    MsgBox Err.Description
    Resume Exit_BtnParecer62_Click
    
End Sub

Tem como explica como seria esse modulo, por favor?

Desculpe se estou abusando.. se alguém tiver uma apostila, passe o link por favor, ou me mande via e-mail, clsources"arroba"gmail.com

Mas Já agradeço a atencao!! valeu aí mano!!!

[RenatoMejias]

Eu vi lá perto dos dos Forms apertando o botao direito que tem Criar Modulo,

tentei o seguinte no Modulo:

Option Compare Database

Dim GuardaCadGeral As String

GuardaCadGeral = FormExibeCADASTRO_GERAL.Combinação64

Para declarar uma váriavel pública faça assim:

Public GuardaCadGeral As String

GuardaCadGeral = FormExibeCADASTRO_GERAL.Combinação64

Você não pode fazer essa atribuição no módulo, faça-a em sua respectiva função, no módulo deixe APENAS a variável e veja se resolve.

[ClaudioX]

AEE mano deu certo!!!

=***

xD

Po mano, muuuito obrigado mesmo, VALEWWWW

vocês são OS CARAS ^^

T prox (por haverá HAueaehUEHaUHae)

valeu

[Guest --Fabiano --]

AEE mano deu certo!!!

=***

xD

Po mano, muuuito obrigado mesmo, VALEWWWW

vocês são OS CARAS ^^

T prox (por haverá HAueaehUEHaUHae)

valeu