[Resolvido]Codigo para campo obrigatório

Pessoal, uso esse código para salvar o meu registro.

Private Sub Salvar_OS_Click()

MsgBox "Gravado com sucesso", vbInformation, "Gravado"
DoCmd.Save acForm, "Ordem de Serviço"
[Usuário] = getUsuarioAtual
[Datar] = Date
[Tempo] = Time
Me.Refresh

End Sub

Preciso colocar junto do botão de salvar a mensagem de campo com preenchimento obrigatório para varios campos mas não estou conseguindo fazer, alguem pode me ajudar.

Fala ae blz?

Bem a forma mais simples de se fazer isso e encadeando alguns IF's veja o exemplo:

Código:


Private Sub Salvar_OS_Click()
If isnull(Me.SeuCampo) or Me.SeuCampo = "" then 'Testa o campo
MsgBox "Preencha o campo tal!",vbinformation,"Atenção" 'Exibe a mensagem
Me.Seucampo.SetFocus 'Move o foco para o controle
  exit sub
 
        elseIf isnull(Me.SeuCampo) or Me.SeuCampo = "" then 'Testa o campo
MsgBox "Preencha o campo tal!",vbinformation,"Atenção" 'Exibe a mensagem
Me.Seucampo.SetFocus 'Move o foco para o controle
      exit sub

          else

MsgBox "Gravado com sucesso", vbInformation, "Gravado"
DoCmd.Save acForm, "Ordem de Serviço"
[Usuário] = getUsuarioAtual
[Datar] = Date
[Tempo] = Time
Me.Refresh

End If

End Sub


Falow,

Use o If, assim:
Digamos que você tem o campo cliente e o campo cpf que são obrigatórios.
No botão Salvar:


Private Sub Salvar_OS_Click()
If IsNull(Me.cliente) Then
MsgBox "O cliente deve ser informado", vbInformation, "Aviso"
Me.cliente.SetFocus
Exit Sub
End If

If IsNull(Me.cpf) Then
MsgBox "O CPF do cliente deve ser informado", vbInformation, "Aviso"
Me.cpf.SetFocus
Exit Sub
End If

MsgBox "Gravado com sucesso", vbInformation, "Gravado"
DoCmd.Save acForm, "Ordem de Serviço"
[Usuário] = getUsuarioAtual
[Datar] = Date
[Tempo] = Time
Me.Refresh

End Sub

Amigos,

Obrigado pela resposta mas infelismente não funcionou, ao clicar no botão Salvar, não acontece nada.
Vou enviar todos os condigos que estão nesse form pois algum pode estar criando um conflito e esta passando despercebido.

Mais uma vez muito obrigado.



Option Compare Database

Private Sub OS_Em_Aberto_Click()

DoCmd.Open acReport, "Os Em Aberto"

End Sub

Private Sub Comando229_Click()
Shell "CALC.EXE"
End Sub

Private Sub Imprimir_OS_Click()
DoCmd.OpenForm "Ordem de Serviço", acLayout
End Sub

Private Sub Comando87_Click()
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPrintSelection
End Sub

Private Sub Form_Load()
DoCmd.GoToRecord , , acLast
End Sub

Private Sub Salvar_OS_Click()

If IsNull(Me.Cliente) Or Me.Cliente = "" Then 'Testa o campo
MsgBox "Preencha o campo tal!", vbInformation, "Atenção Cliente" 'Exibe a mensagem
Me.Cliente.SetFocus 'Move o foco para o controle
Exit Sub

ElseIf IsNull(Me.DatadeEntrada) Or Me.DatadeEntrada = "" Then 'Testa o campo
MsgBox "Preencha o campo tal!", vbInformation, "Atenção Data" 'Exibe a mensagem
Me.DatadeEntrada.SetFocus 'Move o foco para o controle
Exit Sub

Else

MsgBox "Gravado com sucesso", vbInformation, "Gravado"
DoCmd.Save acForm, "Ordem de Serviço"
[Usuário] = getUsuarioAtual
[Datar] = Date
[Tempo] = Time
Me.Refresh

End If

End Sub

Quais os nomes dos campos do seu form, quer deseja o preenchimento obrigatório ????

O código funciona perfeitamente.

Obrigado, pelo auxílio!

Realmente, penso que voce não está referindo corretamente os seus controles...

Jpaulo,

Gostaria dos seguintes campos como obrigatório.

DatadeEntrada
PrevisãodeEntrega
ValordoServiço
Técnico
situacao_os


Gostaria de usar esse código de obrigatório em outros forms tmb, como no cadastro de clientes que tem uma quantidade expressiva de campos, vou testar a sua solução no form Ordem de Serviço, se funcionar testo no outro form e vejo se funciona tmb.

Segue imagem da tela de quando eu clico no modo de edição para testar o botão salvar


Abraços.

Vejo que seus controles tem caracteres especiais com "ç" e "~", isso é desaconselhavel, pois complica um pouco o código. Mas se os controles (campos) que voce deseja que seja obrigatório forem devidamente os que voce informou acima, apenas cole o código abaixo no botão salvar. Lembrando que sempre devemos fazer testes em cópias ou mantermos um backup do bd original. Caso não consiga, poste aqui seu banco, mesmo sendo grande, basta excluir os dados desnecessários a solução e usar o compactar e reparar.

Private Sub Salvar_OS_Click()
If IsNull(Me.cliente) Then
MsgBox "O cliente deve ser informado", vbInformation, "Aviso"
Me.cliente.SetFocus
Exit Sub
End If

If IsNull(Me.DatadeEntrada) Then
MsgBox "A data da entrega deve ser informado", vbInformation, "Aviso"
Me.DatadeEntrada.SetFocus
Exit Sub
End If
If IsNull(Me![PrevisãodeEntrega]) Then
MsgBox "A previsão de entrega deve ser informado", vbInformation, "Aviso"
Me![PrevisãodeEntrega].SetFocus
Exit Sub
End If
If IsNull(Me![ValordoServiço]) Then
MsgBox "O valor do serviço deve ser informado", vbInformation, "Aviso"
Me![ValordoServiço].SetFocus
Exit Sub
End If
If IsNull(Me![Técnico]) Then
MsgBox "O técnico deve ser informado", vbInformation, "Aviso"
Me![Técnico].SetFocus
Exit Sub
End If

MsgBox "Gravado com sucesso", vbInformation, "Gravado"
DoCmd.Save acForm, "Ordem de Serviço"
[Usuário] = getUsuarioAtual
[Datar] = Date
[Tempo] = Time
Me.Refresh

End Sub

O erro da imagem que voce postou é nome de controle errado, como ja falei antes.

Marcelo,

Fiz como me orientou, dei uma melhorada no nome dos campos.

Esta funcionando perfeitamente agora, do modo que estava precisando.

Obrigado mais uma vez muito obrigado e até a proxima dúvida ! rs

Abraços

Obrigado pelo retorno!