Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Erro no Código


davidctba

Pergunta

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....

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

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!

Link para o comentário
Compartilhar em outros sites

  • 0

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..

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...