[Resolvido]Avisar se não cadastrado

Avisar se o produto não está cadastrado

Estou fazendo desta forma o qual retorna erro

Private Sub CodBarras_BeforeUpdate(Cancel As Integer)

If DCount("[códigoproduto]", "tab_Produto", "[CódigoBarras]= " & Me.Códigoproduto & "") = 0 Then

MsgBox "Produto Não Cadastrado", vbCritical, "Aviso"
Me.Undo
Else
End Sub

campo no form= codbarras
campo na tabela =códigobarras
campo id =códigoproduto
nome tabela tab_produto

Onde está o erro?

Olá Agravina,

O código correto seria com a função DLookup.

If IsNull(DLookup("[códigoproduto]", "tab_Produto", "[CódigoBarras]= " & Me.Códigoproduto & "") )
MsgBox "Produto Não Cadastrado", vbCritical, "Aviso"
Me.Undo
Else
End Sub

Erro metado ou menbro não encontrado

If IsNull(DLookup("[códigoproduto]", "tab_Produto", "[CódigoBarras]= " & Me.Códigoproduto & "") )
MsgBox "Produto Não Cadastrado", vbCritical, "Aviso"
Me.Undo
Else
End Sub

Olá Agravina,

Verifique se o nome do campo em seu formulário é esse mesmo CódigoProduto, sem acento, talvez. O código do produto pode ser igual ao código de barras? Cheque aí os possíveis erros, mas a função está correta.

erro tipos incontatáveis

minha tabela está assim
tab_produto
chave códigoproduto
campo que deve verificar códigobarras
campo no form codbarras

Olá Agravina,

Você quer dizer, erro de tipos incompatíveis.

Exemplo:

Uma variável deveria receber só valores do tipo Integer, Double ou Long, mas você inseriu valores do tipo String.

Caso tenha dificuldade de resolver o problema, posta aí o bd.

Vê aqui:

http://maximoaccess.forumeiros.com/t7709-resolvidoavisar-se-o-produto-esta-cadastrado-ou-nao


E ao contrário, se existir avisar não pode ser???

Em todo o caso vê isto pode ser que ajude em algo:

http://maximoaccess.forumeiros.com/t17982-resolvidoajuda-com-conexao-a-bd-access-usando-vba#133567

good guy
segue o bd
veja frmpontovenda campo codbarras

tenta:

Private Sub códigoProduto_BeforeUpdate(Cancel As Integer)
If DCount("[códigoproduto]", "tab_Produto", "[CodigoBarras]= " & Me.códigoproduto & "") = 0 Then

MsgBox "Produto Não Cadastrado", vbCritical, "Aviso"
Me.Undo
Else
Me.Produto = DLookup("Produto", "tab_Produto", "CodigoBarras=" & Me.códigoproduto)
Me.Vrl = DLookup("PrecoVenda", "tab_Produto", "CodigoBarras=" & Me.códigoproduto)

End If

No teu erro tens Me.Códigoproduto e não Me.códigoproduto em minusculas

erro de compilação método ou membro não encontrado

If DCount("[códigoproduto]", "tab_Produto", "[CodigoBarras]= " & Me.códigoproduto & "") = 0 Then

MsgBox "Produto Não Cadastrado", vbCritical, "Aviso"
Me.Undo
Else
Me.Codproduto = DLookup("descricao", "tab_Produto", "CodigoBarras=" & Me.códigoproduto)
Me.texto52 = DLookup("Precounitario", "tab_Produto", "CodigoBarras=" & Me.códigoproduto)

End If

A sintaxe correta é assim?

If DCount("[campochavetabela]", "nometabela", "[Campotabelaaserpesquisado]= " & Me.eaquiqual & "")

Olá Agravina,

Falta o back-end do seu arquivo dividido.

segue bd

Olá Agravina,

Tente agora. Insira o valor 777 e depois ou outro número qualquer tal como 4, 5 ou 1.

A ideia é avisar quando entrar com um código de barras que não está no sistema.

Como fica a sintaxe

If IsNull(DLookup("]qualcampovaiaqui]", "minhatabela", "]qualcampovaiaqui]= " & Me.qualcampovaiaqui)) Then

Olá Agravina,

O valor da variável deve ser do tipo String para código de barras porque contém pontos. No teu formulário vc atribuiu o nome codBarras para um campo com fonte de cotrole o código do produto. Está meio confuso, onde está o código de barras na tabela produto?

Tab_produtos códigobarras

Amigos me entrometendo um pouquinho.Veja esse bd é praticamente o mesmo do Agravina,pode ajudar.


https://dl.dropboxusercontent.com/u/90217826/PDV.zip

Olá Agravina,

Tente assim:

Private Sub CodBarras_BeforeUpdate(Cancel As Integer)
If IsNull(DLookup("[CódigoBarras]", "tab_Produto", "[CódigoBarras]= Forms!Frmpontodevenda!codBarras")) Then
MsgBox "Produto Não Cadastrado", vbCritical, "Aviso"
Me.Undo
Else
End If
End Sub

Agora funfa !
Valeu a todos pela ajuda.

Ops esqueci Resolvido.

O fórum todo agradece.

Agravina, se puder passe lá no Facebook e curta a minha página e me ajude a promover o meu trabalho. Faça comentários para melhorar a divulgação. Desde já obrigado.

https://www.facebook.com/EduardoMachado

Meu site: www.goodguyaccessvba.com.br

Se quiser aprender mais, adquira os meus dois livros DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA e você vai aprender isto e muito mais.

Editora Livrorama(DOMINE ...):
www.livrorama.com.br

Editora Ciência Moderna(TÉCNICAS...):
www.lcm.com.br


Um grande abraço.

"O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)