[Resolvido]Campo obrigatório

Convidado 3/2/2017, 14:52

Convidado: Convidado

Mensagem nº1

[Resolvido]Campo obrigatório

Mensagem Convidado 3/2/2017, 14:52

boas

No seguinte código esta a escapar-me algo... verifica se o campo foi registado, se não foi ele da o alerta/ informa dando o Ok vai para o respetivo campo, mas se o campo estiver preenchido da na mesma a informação, o objetivo não era esse, mas sim se estiver preenchido tranquilo passa para a gravação.

Private Sub Gravar_frmCadNotaEcomenda_Click()
If IsNull(Me.DataNE) Or Me.DataNE.Value = "" Then
MsgBox "O campo ""Data Encomenda"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.DataNE.SetFocus
If MsgBox("Deseja Guardar a Guia de Encomenda?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Me.frmCadDNotaEncomenda.SetFocus
DoCmd.GoToRecord , , acNewRec
Me.cbo_PesquisaNE.SetFocus
End If
End If
End Sub

Obrigado

caiosouza 3/2/2017, 15:22

caiosouza

caiosouza: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 419
Registrado : 05/12/2016

Mensagem nº2

Re: [Resolvido]Campo obrigatório

Mensagem caiosouza 3/2/2017, 15:22

Código:: Private Sub Gravar_frmCadNotaEcomenda_Click() If IsNull(Me.DataNE) Or Me.DataNE.Value = "" Then MsgBox "O campo ""Data Encomenda"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção" Me.DataNE.SetFocus Else MsgBox "Deseja Guardar a Guia de Encomenda?", vbQuestion + vbYesNo, "Atenção" DoCmd.RunCommand acCmdSaveRecord Me.frmCadDNotaEncomenda.SetFocus DoCmd.GoToRecord , , acNewRec Me.cbo_PesquisaNE.SetFocus End If End Sub