Boa tarde pessoal.
estou com uma dúvida que não sei resolver e com certeza vcs já tiverão essa situação.
Criei um formulário que tem dados de transferência.
Lança no contas a pagar e vai para o contas a receber.
Até ai tudo bem.
Mas quando abrir esse campo eu queria criar um botão que fizesse o seguinte.
Ele fecha esse formulário e abre o outro de receber colando alguns dados específicos.
Gostaria que ao abrir ele cola-se em alguns campos dados específicos exemplo;
Private Sub Comando232_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "REFORCO_CAIXA_RECEB"
On Error GoTo Err_Comando232_Click
DoCmd.GoToRecord , , acNewRec
Forms!REFORCO_CAIXA_RECEB.descricao = canta de reforço caixa (nesses é que não sei oque falta para sair essa frase no campo que coloquei)
Forms!REFORCO_CAIXA_RECEB.tipo_conta = BancoX
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Comando232_Click:
Exit Sub
Err_Comando232_Click:
MsgBox Err.Description
Resume Exit_Comando232_Click
End Sub
Espero que tenha conseguido explicar.
Muito obrigado pela ajuda
estou com uma dúvida que não sei resolver e com certeza vcs já tiverão essa situação.
Criei um formulário que tem dados de transferência.
Lança no contas a pagar e vai para o contas a receber.
Até ai tudo bem.
Mas quando abrir esse campo eu queria criar um botão que fizesse o seguinte.
Ele fecha esse formulário e abre o outro de receber colando alguns dados específicos.
Gostaria que ao abrir ele cola-se em alguns campos dados específicos exemplo;
Private Sub Comando232_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "REFORCO_CAIXA_RECEB"
On Error GoTo Err_Comando232_Click
DoCmd.GoToRecord , , acNewRec
Forms!REFORCO_CAIXA_RECEB.descricao = canta de reforço caixa (nesses é que não sei oque falta para sair essa frase no campo que coloquei)
Forms!REFORCO_CAIXA_RECEB.tipo_conta = BancoX
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Comando232_Click:
Exit Sub
Err_Comando232_Click:
MsgBox Err.Description
Resume Exit_Comando232_Click
End Sub
Espero que tenha conseguido explicar.
Muito obrigado pela ajuda