[Resolvidos]Abrir formulário com subformulário e alterar valor do campo do subform

Fala galera do fórum ... boa noite!

Vê se algum fera pode me ajudar ...

Possuo 2 Formulários ("FINANCEIRO" e "CADCHEQUES") e 1 Subformulário ("GERENCIAMENTOSUB", que no caso esta acoplado ao formulário "FINANCEIRO"). Dentro do subform "GERENCIAMENTOSUB"existe uma combox chamada "FormaPgto" e inseri um código VBA que quando fosse selecionar o ítem "Cheque" na combox "FormaPgto" o código abre o formulário "CADCHEQUES" e é daí que parte a minha dúvida. Dentro deste formulário "CADCHEQUES" coloquei um botão Fechar. Eu queria inserir no evento "Ao clicar" deste botão o seguinte código:

===============================================================

1º ==> Se o formulário CadCheques estiver sem nenhum dado;

2º ==> Mensagem: Nenhum cheque foi cadastrado!

3º ==> Abra o formulário "FINANCEIRO" e coloque o foco no campo "FormaPgto" do Subformulário "GERENCIAMENTOSUB" do cliente que foi selecionado como forma de pagamento "cheque" e altere para "A Vista".

Else

4º ==> Docmd.close

5º ==> FIM.

===============================================================

Qualquer coisa posto um BD demonstrando a minha dúvida. No mais valeu pela atenção pessoal! FUIZZZ ...

Veja se é isso:

If IsNull(Me.Campo1) Or Me.Campo1.Value = "" Or IsNull(Me.Campo2) Or Me.Campo2.Value = "" Or IsNull(Me.Campo3) Or Me.Campo3.Value = "" Or ... Then

MsgBox "Nenhum cheque foi cadastrado!", , "Sem dados"
DoCmd.OpenForm "Financeiro"
Forms!Financeiro!GerenciamentoSub!FormaPgto.SetFocus
Forms!Financeiro!GerenciamentoSub!FormaPgto.Value = "A vista" ' Se não for esse o campo que vai ficar com o valor A vista, altere para o nome do campo certo
Else
DoCmd.Close
End If

Fala Criquio,

Obrigado pela sua atenção e pela dica. ... Consegui implantar a sua dica mas infelizmente não consegui mudar o valor do campo "FormaPgto" para "A vista". Abaixo postei o código que estou usando mas não sei se escrevi certo. No mais obrigado pela sua atenção. Valeu!

===========================================================

Private Sub Fechar_Click()

Dim strMsg As String
Dim strTitle As String
Dim intRetVal As Integer

If IsNull(CadChequesSub) Then

strMsg = "Nenhum cheque cadastrado!"
strTitle = "Sistema CMC"
intRetVal = MsgBox(strMsg, vbExclamation + vbOKOnly, strTitle)

DoCmd.OpenForm "Financeiro"
Forms!cadcursos2!GerenciamentoSub!FormaPgto.SetFocus 'O código funciona até aqui.
Forms!cadcursos2!GerenciamentoSub!FormaPgto.Value = "A vista" 'Mas não chega a mudar o valor do campo.

Else

DoCmd.Close

End If

End Sub

===========================================================

Fala Criquio! Consegui ver o porque esta falhando ... ... na verdade esqueci de colocar o nome do "campo" e não o nome do "subformulário" dentro do parenteses. Só não prestei atenção na dica que você mandastes mas FUNFOU ... ... valeu mais uma vez ae ... fuizzz!