Boas galera,
Estou tendo problemas com um campo de tipo numero.
Nele posso acrescentar apenas números mas caso alguém tente digitar uma letra gera um erro pois ele é de relação com chave primaria: O valor que você inseriu não é valido para este campo.
Tentei colocar um tratamento de erro mas ainda apresenta a mensagem, por fim tentei adicionar um IsNumeric() mas não resolveu também. Segue caso alguém saiba como resolver agradeço.
Estou tendo problemas com um campo de tipo numero.
Nele posso acrescentar apenas números mas caso alguém tente digitar uma letra gera um erro pois ele é de relação com chave primaria: O valor que você inseriu não é valido para este campo.
Tentei colocar um tratamento de erro mas ainda apresenta a mensagem, por fim tentei adicionar um IsNumeric() mas não resolveu também. Segue caso alguém saiba como resolver agradeço.
- Código:
Dim Msg As String
On Error GoTo 1
If IsNumeric(txtIdCardapio) Then
Call txtIdentCardapio_AfterUpdate
Me.txtQuant.SetFocus
Else
MsgBox "Informe a identificação do cardápio ou selecione o produto"
Me.txtIdCardapio.Value = ""
End If
Exit_1:
DoCmd.Hourglass False
DoCmd.Echo True
Exit Sub
1 a:
DoCmd.Hourglass False
DoCmd.Echo True
Msg = "Erro # " & Str(Err.Number) & " gerado na " & Err.Source _
& vbNewLine & vbNewLine & "Descrição: " & Err.Description _
& vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
Resume Exit_1