[Resolvido]Códico para botão

Amigos boa tarde...
estou com um problema....é que coloquei um botão que faz um evento e tudo bem, so que se o usuario não entra com a data por exemplo ele manda depurar e não gostaria que ele fizese isso , gostaria que ele mandase o usuario entra com a data.....preciso de um códco que faça isso ou feche essa opção....ele tem que impedir a depuração


obrigado pela atenção

A depuração é sinal de algo errado. Mas se quer que o usuário não saia sem preenchar os campos.

No evento por exemplo de um botão ao guardar os dados, no evento do próximo campo ao receber foco, etc:

If IsNull(Me.MeuCampo) Or MeuCampo="" Then
Call MsgBox("Este campo deve ser prenchido",vbCritical,"Erro")
Me.MeuCampo.SetFocus
End If

oi amigo obrigado pela resposta....rapaz o evento do botão esta ok....so aparece o erro se a pessoa não entra com a data ai ele manda depura, se a pessoa entra com a data tudo ok...então acho que so no final tem alguma coisa q não coloquei para não mostra esse erro a pessoa entrando com a data ou não teria q fecha essa tela sem mostra esse erro...testei sei códico mas não funciona....obrigado....

Amigo

Só manda depurar se houver erro no código. caso contrário diria que o campo não pode ser nulo ou outro erro. Coloque aqui a bd para eu ver.

Amigo aqui esta o códico....faz tudo o que tem q fazer so q se não entra com a data....ele vai depura , ele funciona no click de um botão....


Private Sub Comando65_Click()
Dim TheDate As Date ' Declare variables.
Dim Msg
TheDate = InputBox("Data de Vencimento")
Msg = "São : " & DateDiff("d", Now, TheDate) * 0.41 * -1 + [Mesalidade]
MsgBox Msg
End Sub

Só uma pequena dica: sempre coloque a mensagem de erro para sabermos a que exatamente se refere o mesmo e o que pode o estar causando. Coloque tambem a linha para onde a depuração aponta. Isso ajuda muito na solução.

Faça o tratamento de erros;

Dim TheDate As Date ' Declare variables.
On Error GoTo 1:
TheDate = InputBox("Data de Vencimento")

Msg = "São : " & DateDiff("d", Now, TheDate) * 0.41 * -1 + [Mesalidade]
MsgBox Msg

1:
If Err.Number = 13 Then
MsgBox "Você não informou a Data...", vbCritical
Exit Sub
End If

Oi amigo....obrigado pela dica...resolvi o problema....até....

Obrigado pelo retorno o forum agradece.