(Resolvido) Erro no Código

[davidctba]

Ola senhores, estou criando uma rotina para verificação se existe ou não o pedido cadastrado na tabela...

Tenho um formulario chamado "Defeitos" onde ele pega alumas informações da tabela "Pedidos" e os mesmos são salvos apos sofrerem as devidas atualizações na tabela "Defeitos"...

Bom ate ai esta OK, a dificuldade que estou enfrentando talvez pela minha inexperiencia com VBA é o seguinte: preciso criar uma rotina de verificação para que quando o usuário digite o número de pedido no campo, seja verificado a existencia dele na Tabela "Pedidos", caso não ai ele dispara uma menssagem informando e cancela a operação...

PS: Tabela chama-se "Pedidos" / campo chama-se "Pedido"

E seria interessante colocar em qual evento?

codigo:

If Me.pedidos.pedido = Me.pedido Then

MsgBox "Pedido não cadastrado no Sistema.", vbCritical, "Violação do Sistema"

DoCmd.CancelEvent

Me.Undo

End If

mais uma vez obrigado....

[MrMALJ]

utilize a função dlookup() para realizar a busca na tabela algo assim:

If not isnull(dlookup("[pedido]","pedidos","pedido=" & Me.pedido)) then

MsgBox "Pedido não cadastrado no Sistema.", vbCritical, "Violação do Sistema"

DoCmd.CancelEvent

Me.Undo

End If

Isso deve resolver!

[davidctba]

MrMALJ, usei e não funcionou ai a segunte alteração no código:

DE: If not IsNull(DLookup("[pedido]", "pedidos", "pedido=" & Me.pedido)) Then

PARA: If IsNull(DLookup("[pedido]", "pedidos", "pedido=" & Me.pedido)) Then

removi somente o "NOT" e voltou a funcionar, porem se eu ele esta conflitando com uma outra linha de codigo que estou usando para limitar os caracteres digitados em apenas 4..

comando: LimitFieldSize KeyAscii, 4 -> esse esta no evendo "Ao pressionar tecla" e o de verificação de pedidos esta no evento "Ao perder o foco"

agora esta assim, se eu uso o comando para limitar o número de caracteres digitados, ele não funciona a verirficação, como faco para resolver isso?

sera que eu estou colocando os codigos nos eventos errados???

obrigado..

[MrMALJ]

Não entendi muit do que explicou, entendi que você quer limitar a quantidade digitados, dessa forama aconselho você a utilizar mascara em vez de tentar fazer códigos de valaidação.

[davidctba]

sim.. pensei em usar mascara para limitar o número de caracteres digitados, porem o campo do formulario é numerico...

e mascara so da para usar em campos tipo texto ou data certo? ou eu estou fazendo errado?

[MrMALJ]

Na propriedade mascara do objeto em questão digite 9999.

Isso resolve a questão da mascara númerica!

[davidctba]

Cara... mais um vez obrigado... deu certinho aqui !!!

:D