[Resolvido]campo obrigatorio

boa noite,

Estou a tentar juntar dois códigos existentes aqui no forum, mas não estou a conseguir que produzam efeitos práticos que preciso..
então é o seguinte
criei um botao para salvar os registos inseridos mas quero que o mesmo antes de salvar verifique se já estão alguns campos preenchidos e caso contrario não salve o registo
os codigos :

Private Sub Comando37_Click()
Dim msg
DoCmd.RunCommand acCmdSaveRecord
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Foram efectuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo
End If
End Sub

funcionam na perfeição........mas não consigo encaixar esta verificação...

If IsNull(Me.ProcessoNº) Or Me.ProcessoNº.Value = "" Then
MsgBox "ProcessoNº é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.ProcessoNº.SetFocus

End If
End Sub


obrigado
abraços

Olá, o formato do campo ProcessoNº é texto ou número?

boa noite ...
é texto...

vc tem que colocar a verificação do campo em branco antes do evento salvar, ou seja no evento ao clicar do botão salvar:

If IsNull(Me.ProcessoNº) Or Me.ProcessoNº = "" Then
MsgBox "ProcessoNº é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção!"
Me.ProcessoNº.SetFocus
Else
Aqui o código que salva o registro

Xikutuga, tudo bem.

Ver se o código abaixo pode te ajudar.

Ele fica no evento ao clicar do botão de comando: cmdNovo

..............................................................................................................................

Private Sub cmdNovo_Click()
On Error Resume Next

Dim ctl As Control

For Each ctl In Me.Controls
  If IsNull(ctl) Then
       MsgBox "Existem campos vázios! " & vbCrLf & "Favor verifique!", vbInformation, "Atenção"
       Exit Sub
  End If
 
Next ctl

Dim strMsg As String
Dim resposta As String

strMsg = "Foram efectuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"

resposta = MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?")

If resposta = vbYes Then

DoCmd.GoToRecord , , acNewRec

DoCmd.RunCommand acCmdSaveRecord
MsgBox "As alterações foram salvas com sucesso!", vbInformation, "Atenção"

'Else

'DoCmd.RunCommand acCmdUndo

End If

End Sub

...........................................................................................................

Até mais....

RDuarte

Xikutuga.

Coloque abaixo do último "End If" a seguinte linha:

Forms![Cadastro de Clientes].Requery

Atenção: No lugar de Cadastro de Clientes, você deve colocar o nome do formulário que será atualizado, ok.

Até mais.

RDuarte

vc pode fazer o seguinte, no campo que vc quer deixar como obrigatório, no evento ao sair:
If IsNull(Me.ActiveControl) Then
MsgBox "Preenchimento obrigatório do campo...", vbCritical
SeuCampoObrigatório.SetFocus
Cancel = 1
End If
e no botão salvar deixa somente o comando para esse fim

ola boa tarde

antes de mais obrigado a todos pela solidariedade e pela brevidade das respostas...
caros colegas betogivoni e Rduarte, o codigo que me indicaram funca tanto um como o outro vou optar por usar o do betogivoni...


abraço.....

Xikutuga.

O Fórum agradece pelo retorno.

RDuarte