[Resolvidos]Direcionar valor de uma combox para um outro fomrulário

Boa noite galera,

É a minha primeira vez aqui neste fórum e gostaria de postar a minha 1º dúvida ...

Possuo 2 formulários e um subformulário. Os formulários chamam-se "CadCursos" e "CadCheques" e o subformulário se chama "Gerenciamento" ( que esta dentro do formulário "CadCursos" e que possui 2 campos: um se chama "Aluno" e o outro se chama "FormaPgto" que no caso é uma caixa de listagem e possui uma opção de escolha chamada "Cheque" ). Eu gostaria que quando fosse selecionado as opções "Aluno" e em seguida no campo "FormaPgto" selecionasse "Cheque" no subformulário "Gerenciamento", automaticamente o formulário "CadCheques" Abrisse com o nome do "Aluno" que foi selecionado no subformulário gerenciamento. A minha dúvida ficou meio grande mas qualquer coisa tento explicar melhor ... desde já agradeço pela atenção ... valeu !!!

Ola seja bem vindo ao fórum;

Veja este post;
http://maximoaccess.forumeiros.com/formularios-f11/localizar-t521.htm

Boa tarde Jpaulo,

Obrigado pelas boas vindas e pela resposta.
No caso estou tentando adaptar a minha necessidade baseado no exemplo que me indicou. Achei bem interessante mas estou apanhando um pouco. Abaixo, no evento ao abrir do formulário "CadCheques", inseri o seguinte código:

Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.OpenArgs) Then
Exit Sub
Else
Me.DataEntry = False

Dim x As Integer
x = Forms!gerenciamento.aluno
If (x) = aluno Then
DoCmd.GoToControl "codigoaluno"
DoCmd.FindRecord x, , True, , True, , True
End If
End If

End Sub

E no evento Após Atualizar da combox "FormaPgto", que esta no subformulário "Gerenciamento", inseri o seguinte código:

if formapgto="cheque" then
DoCmd.OpenForm "cadcheques", OpenArgs:=Me.aluno
end if

É possível eu adaptar este código? Obrigado pela atenção.

Boa noite mestres,

Consegui resolver o problema através de uma pesquisa que fiz neste fórum e na dica do amigo JPaulo. ... adaptei o seguinte código abaixo de acordo com a minha necessidade:

No AfterUpdate() da combox FormaPgto do subformulário "Gerenciamento":

Private Sub FormaPgto_AfterUpdate()

If Not IsNull([NomeAluno]) And FormaPgto = "Cheque" Then

DoCmd.OpenForm "cadcheques", , , , acFormedit, OpenArgs:=Me.NomeAluno

End If

End Sub

E no openform do formulário "CadCheques":

Private Sub Form_Open(Cancel As Integer)

Dim rs As DAO.Recordset
Dim VarNomeAlu As Variant

'Verifica se foi passado um código de cliente
VarNomeAlu = Me.OpenArgs
If IsNull(VarNomeAlu) Then Exit Sub

'Abre uma cópia do recordset origem do Formulário.
Set rs = Me.RecordsetClone
With rs
.FindFirst "codigoAluno = " & VarNomeAlu & ""

'Move para o registro porventura encontrado.
If Not .NoMatch Then
Me.Bookmark = .Bookmark
End If
End With

rs.Close 'Libera memória.
Set rs = Nothing
Exit Sub

End Sub

Valeu!

Amigão bom dia;

Não cheguei a tempo, mas resolvido é resolvido, parabêns pelo esforço.

Fala Jpaulo,

Valeu pela atenção aqui e lá no expert. ... "póbrema" resolvido ... em breve postarei mais dúvidas por aqui se possível ... grande abraço ... valeu!

Valew;

Precisando é só dar um grito.