[Resolvido]erro em tempo de execucao 2105

Liberar novo pedido apenas quando todo o formulario estiver preenchido

Estou utilizando a seguinte fucao

Private Sub BtaoNovoFrmPedido_Click()
If Form.Dirty Then
Me.BtaoNovoFrmPedido.SetFocus

MsgBox "Obrigatório o preenchimento de todos os campos antes de salvar o registro"

If MsBox = vbOK Then

Form.Dirty = True


End If
Else

If Form.Dirty = False Then
Me.BtaoNovoFrmPedido.SetFocus



DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
MsgBox "Registro Salvo"


End If


End If

End Sub

Ajudaria se postasse um pequeno exemplo para que possamos ver isto pra ti.

Cumprimentos.