Ola pessoal, bom dia!
Por favor, vejam se conseguem me ajudar
tenho um formulario chamado frmFicha, que possui alguns campos de texto, dentre eles um listBox com alguns nomes. Quando digitado um nome não cadastrado, ele reconhece e pergunta se deseja cadastrar. dessa forma, abriria um formulário de cadastro "frmCadastroAnestesista", ja no modo de adição, definia o foco para o campo NOME ANESTESISTA, e ja traz pra esse controle, o nome digitado no formulário anterior, que não estava cadastrado.
porem, não consigo fazer o foco funcionar, e nao tenho nem ideia de como trazer o texto digitado de um form pra outro..
podem ajudar??
o código esta assim no evento "se não estiver na lista"
If MsgBox("O Anestesista: " & UCase(NewData) & " não está cadastrado. Deseja Cadastrar?", vbYesNo, "Anestesista não cadastrado") = vbYes Then
DoCmd.OpenForm "formCadastroAnestesista", acNormal, , , acFormAdd, acDialog, UCase(NewData)
Forms!formCadastroAnestesista!nomeAnestesista.SetFocus
Response = acDataErrContinue
Else
Response = acDataErrContinue
Me.listBoxAnestesista.SetFocus
End If
Por favor, vejam se conseguem me ajudar
tenho um formulario chamado frmFicha, que possui alguns campos de texto, dentre eles um listBox com alguns nomes. Quando digitado um nome não cadastrado, ele reconhece e pergunta se deseja cadastrar. dessa forma, abriria um formulário de cadastro "frmCadastroAnestesista", ja no modo de adição, definia o foco para o campo NOME ANESTESISTA, e ja traz pra esse controle, o nome digitado no formulário anterior, que não estava cadastrado.
porem, não consigo fazer o foco funcionar, e nao tenho nem ideia de como trazer o texto digitado de um form pra outro..
podem ajudar??
o código esta assim no evento "se não estiver na lista"
If MsgBox("O Anestesista: " & UCase(NewData) & " não está cadastrado. Deseja Cadastrar?", vbYesNo, "Anestesista não cadastrado") = vbYes Then
DoCmd.OpenForm "formCadastroAnestesista", acNormal, , , acFormAdd, acDialog, UCase(NewData)
Forms!formCadastroAnestesista!nomeAnestesista.SetFocus
Response = acDataErrContinue
Else
Response = acDataErrContinue
Me.listBoxAnestesista.SetFocus
End If