Boa tarde
If IsNull(DLookup("Email", "DadosProprietario")) Then
Queria por aqui uma MsgBox "Quer digitar Agora? com YesNo
DoCmd.openForm "DadosProprietario"
Else
DoCmd.openForm "Menu" ' acNormal
End If
MsgBox = yes ..... abre o form "DadosProprietario"
Msgbox = No ...... Docmd.Quit
Se o If não acontecer abre o form "Menu"
Obrigado
If IsNull(DLookup("Email", "DadosProprietario")) Then
Queria por aqui uma MsgBox "Quer digitar Agora? com YesNo
DoCmd.openForm "DadosProprietario"
Else
DoCmd.openForm "Menu" ' acNormal
End If
MsgBox = yes ..... abre o form "DadosProprietario"
Msgbox = No ...... Docmd.Quit
Se o If não acontecer abre o form "Menu"
Obrigado