preciso que ao gravar, se todos os campos não estiverem preenchidos, apareça a msg para preencher.
Consegui com todos, mas quando se trata de um OptionButton onde será selecionado apenas 1 dos dois, não está funcionando
Private Sub btngravar_Click()
If Me.boxempresas.Value = "" Then
MsgBox "Preencha o campo Empresa.", vbExclamation, "Aviso"
Me.boxempresas.SetFocus
Exit Sub
ElseIf Me.btnplo.Caption & Me.btn99.Caption = False Then
MsgBox "Preencha o campo Depósito", vbExclamation, "Aviso"
Me.btnplo.SetFocus
Me.btn99.SetFocus
End If
Postado : 02/10/2018 10:34 am