[Resolvido]Mensagem confirmação parametros obrigatorios

Ola a todos.

Venho ver se alguém me ajuda aqui numa linha de codigo que nao consigo resolver.

tenho o seguinte código que é executado no momento que carrego num botao de SAVE:

Private Sub Comando62_Click()

If IsNull(QT) Or Me.QT = "" Then
MsgBox "Preenchimento obrigatório da QUANTIDADE!"
DoCmd.CancelEvent
End If
If IsNull(StartDate) Or Me.StartDate = "" Then
MsgBox "Preenchimento obrigatório da DATA!"
DoCmd.CancelEvent
End If
If IsNull(NomeTrabalhador) Or Me.NomeTrabalhador = "" Then
MsgBox "Preenchimento obrigatório do Nome do Trabalhador!"
DoCmd.CancelEvent
End If
End Sub


Queria colocar uma mensagem de (Gravado com Sucesso)e que o Form fosse depois fechado se os parametros acima fosse preenchidos.

Alguma sujestao??

coloque esse código após o teste de validação de campos nulos, desde que o formulario seja acoplado.

Private Sub Comando62_Click()

If IsNull(QT) Or Me.QT = "" Then
MsgBox "Preenchimento obrigatório da QUANTIDADE!"
DoCmd.CancelEvent
End If
If IsNull(StartDate) Or Me.StartDate = "" Then
MsgBox "Preenchimento obrigatório da DATA!"
DoCmd.CancelEvent
End If
If IsNull(NomeTrabalhador) Or Me.NomeTrabalhador = "" Then
MsgBox "Preenchimento obrigatório do Nome do Trabalhador!"
DoCmd.CancelEvent
End If
MSGBOX"Gravado com sucesso"
Docmd.close

End Sub

Esse codigo eu ja tinha colocado mas leva a que em caso de faltar um dos campos, aparece logo a mensagem de gravado com sucesso e fecha sem ter sido salvo.

Amigo

Falta no Else na instrução

Teste assim (não testei aqui foi um pouco à pressa)

If IsNull(QT) Or Me.QT = "" Then
MsgBox "Preenchimento obrigatório da QUANTIDADE!"
Me.QT.SetFocus
ElseIf IsNull(StartDate) Or Me.StartDate = "" Then
MsgBox "Preenchimento obrigatório da DATA!"
Me.StartDate.SetFocus
ElseIf IsNull(NomeTrabalhador) Or Me.NomeTrabalhador = "" Then
MsgBox "Preenchimento obrigatório do Nome do Trabalhador!"
Me.NomeTrabalhador.SetFocus
Else
MsgBox "Gravado com sucesso"

End If
DoCmd.Close

obrigado mas ja consegui, agarrei a dica do vieirasoft do else.
Experimentei o codigo dele mas nao deu, depois agarrei o codigo que tinha e com o else e trabalhou na perfeição

E eu que matei a cabeça e a solução era tao simples, enfim , quem nao sabe e como quem nao ve.

Obrigado, ca fica o codigo a trabalhar.

Private Sub Comando62_Click()

If IsNull(QT) Or Me.QT = "" Then
MsgBox "Preenchimento obrigatório da QUANTIDADE!"
DoCmd.CancelEvent
End If
If IsNull(StartDate) Or Me.StartDate = "" Then
MsgBox "Preenchimento obrigatório da DATA!"
DoCmd.CancelEvent
End If
If IsNull(NomeTrabalhador) Or Me.NomeTrabalhador = "" Then
MsgBox "Preenchimento obrigatório do Nome do Trabalhador!"
DoCmd.CancelEvent
Else
MsgBox "Gravado com sucesso"
DoCmd.Close
End If
End Sub

Obrigado pelo retorno e bom trabalho

Nao e fácil por vezes resolver problemas simples, quando so se complica.

Ha precisamente 10 meses fui a uma entrevista de trab, perg se sabia Acess e a minha resposta foi nao, fiquei com o trabalho embora em funções diferentes e passado 10 meses e com muito esforço ja consigo ter alguma autonomia mas por vezes nao consigo mesmo.
Digamos que la me desenrasco tendo em conta que a minha formação nao é propriamente Eng Informática mas Eng Mecanica la vou fazendo os meus programitas que muito me ajudam e depois vocês são uma grande ajuda.

Obrigado

É tentando e fuçando (com o perdão da palavra) que se aprende. Muito sucesso e sempre que precisar, já sabe.