Qual o codigo que devo usar para avisar-me que o produto cadastrado ?
3 participantes
[Resolvido]avisar produto ja cadastrado
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
- Mensagem nº1
avisar produto ja cadastrado
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
- Mensagem nº2
Re: [Resolvido]avisar produto ja cadastrado
Tente assim:
If Not IsNull("Nome", "Tabela", "Nome='" & Me!Nome & "'") Then
MsgBox "Ítem já cadastrado", vbOkOnly + vbCritical, "Atenção"
Else
Exit Sub
End If
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº3
Re: [Resolvido]avisar produto ja cadastrado
Já o fiz no form produtos. Experimente, pois ainda não havia apagado a sua BD.
http://dl.dropbox.com/u/8157744/Agravina2003.rar
http://dl.dropbox.com/u/8157744/Agravina2003.rar
Convidad- Convidado
- Mensagem nº4
Re: [Resolvido]avisar produto ja cadastrado
ou aproveitando os códigos já existentes no fórum
Deteta e Mostra Registros Duplicados
http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access
Deteta e Mostra Registros Duplicados
http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
- Mensagem nº5
Re: [Resolvido]avisar produto ja cadastrado
estou fazendo assim no evento após atualizar para achar enquanto digito,
Private Sub descrição_AfterUpdate()
Me.Descrição = AlternaCaps(Me.ActiveControl)
If (Not IsNull(DLookup("[descrição]", "produtos", _
"[descrição] ='" & Me!Descrição & "'"))) Then
MsgBox " Produto já cadastrado..." & Descrição.Text, _
vbInformation, "Aviso"
Cancel = True 'cancela o evento.
Me!Descrição.Undo 'desfaz a digitação.
End If
End Sub
nome tabela é produtos ,nome do campo na tabela é descrição por não da certo?
Private Sub descrição_AfterUpdate()
Me.Descrição = AlternaCaps(Me.ActiveControl)
If (Not IsNull(DLookup("[descrição]", "produtos", _
"[descrição] ='" & Me!Descrição & "'"))) Then
MsgBox " Produto já cadastrado..." & Descrição.Text, _
vbInformation, "Aviso"
Cancel = True 'cancela o evento.
Me!Descrição.Undo 'desfaz a digitação.
End If
End Sub
nome tabela é produtos ,nome do campo na tabela é descrição por não da certo?
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº6
Re: [Resolvido]avisar produto ja cadastrado
Pois e o resto? Código do artigo também lá existe, como campo obrigatório e indexado. Esse form está cheio de erros.
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
- Mensagem nº7
Re: [Resolvido]avisar produto ja cadastrado
Vieira estou trabalhando com outro form
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº8
Re: [Resolvido]avisar produto ja cadastrado
Então mande isso para eu ver
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
- Mensagem nº9
Re: [Resolvido]avisar produto ja cadastrado
Veja o campo descrição do form
http://www.speedyshare.com/files/28576021/Banco_de_Dados1.mdb
http://www.speedyshare.com/files/28576021/Banco_de_Dados1.mdb
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº10
Re: [Resolvido]avisar produto ja cadastrado
Mas este subform não é para cadastro.
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
- Mensagem nº11
Re: [Resolvido]avisar produto ja cadastrado
Desculpa vieira link errado,estou em casa agora ,vou ver se tenho o bd aqui.
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº12
Re: [Resolvido]avisar produto ja cadastrado
Tudo bem, amigão
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
- Mensagem nº13
Re: [Resolvido]avisar produto ja cadastrado
Vieira fiz um exemplo aqui rapidinho,veja se pode me ajudar
http://www.speedyshare.com/files/28577366/Bd2003.mdb
http://www.speedyshare.com/files/28577366/Bd2003.mdb
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº14
Re: [Resolvido]avisar produto ja cadastrado
Recebido, vou ver
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº15
Re: [Resolvido]avisar produto ja cadastrado
Simples
O código está mal colocado, está no evento afterupdate() e tem que estar no evento beforeupdate(), ou seja no evento antes de actualizar. E tudo funciona às mil maravilhas.
___________________________________________________________________________________
Se mandarem os Reis embora, hão-de tornar a chama-los (A. Herculano)
O código está mal colocado, está no evento afterupdate() e tem que estar no evento beforeupdate(), ou seja no evento antes de actualizar. E tudo funciona às mil maravilhas.
___________________________________________________________________________________
Se mandarem os Reis embora, hão-de tornar a chama-los (A. Herculano)
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
- Mensagem nº16
Re: [Resolvido]avisar produto ja cadastrado
Puxa eu ja tinha alterado ,mesmo assim não funcionava ,mas obrigado amanha vou no bd ,pois pode ter algo em conflito
Valeu Vieira
Valeu Vieira
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº17
Re: [Resolvido]avisar produto ja cadastrado
Espere que eu envio-lhe isto a funcionar. Eu experimentei antes.
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº18
Re: [Resolvido]avisar produto ja cadastrado
Aí vai
http://dl.dropbox.com/u/8157744/Agravina2003.rar
http://dl.dropbox.com/u/8157744/Agravina2003.rar
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
- Mensagem nº19
Re: [Resolvido]avisar produto ja cadastrado
Como ficaria neste codigo abaixo ,ao informa que o produto ja cadastrado tem com informar tambem o nome do fornecedor ?
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº20
Re: [Resolvido]avisar produto ja cadastrado
Agravina
Você deve utilizar uma combo para seleccionar o Fornecedor primeiro (pois este já deve estar inserido na BD) e depois introduzir o produto. Assim não faz sentido complicar o que é simples.
Você deve utilizar uma combo para seleccionar o Fornecedor primeiro (pois este já deve estar inserido na BD) e depois introduzir o produto. Assim não faz sentido complicar o que é simples.
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº21
Re: [Resolvido]avisar produto ja cadastrado
Agravina,continuação de bom trabalho