MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Criar MsgBox para registro duplicado

    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Criar MsgBox para registro duplicado Empty Criar MsgBox para registro duplicado

    Mensagem  flasbc 14/6/2012, 18:51

    Galera boa noite!

    Preciso da ajuda de vocês para o seguinte problema:

    Tenho uma tabela onde registro todos os chamados diários da minha empresa, e estou tendo sérios problemas com chamados duplicados, gostaria de saber como criar um alerta de chamado duplicado se no mesmo dia um determinado cliente chamar mais de uma vez.

    O nome da tabela é chamados, e pode ser feito pelo campo cliente, assim se no mesmo dia o cliente ligar mais de uma vez o access alerta da duplicidade
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  criquio 14/6/2012, 20:39

    Já tentou utilizar o DCount ou o DLookup? Temos vários tópicos sobre, com diversas formas para diversos fins. Dê uma pesquisada para ver se encontra conforme precisa.


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

    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  flasbc 14/6/2012, 21:25

    Olá boa noite, obrigado pela atenção!
    Eu ainda não conheço muito módulos poderia me ajudar como fazer?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  criquio 14/6/2012, 22:55

    Dê uma pesquisada conforme mencionei na mensagem anterior. Vai ser melhor porque você vê as diferentes formas de se usar essas instruções e a que melhor se adaptar.


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

    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  flasbc 15/6/2012, 13:32

    Boa tarde!
    Fiz uma pesquisa e notei qua a DCount serve para contagens de registro não vi relação de como utiliza - la agora talvez a DLookup funcione melhor mais como não conheço bem as funções não consigo escrever este código.
    Veja os links que pesquisei:
    DCount

    DLookup
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  criquio 15/6/2012, 13:44

    Ambos podem ser utilizados. Com o DCount, você vai contar os registros que contenham um determinado dado. No seu caso, acredito que você tenha um campo aonde tem a data do chamado e tambem a ID da pessoa que chamou, certo? Supondo que sim, você pode contar os registros que contenham a mesma data e o mesmo ID da pessoa que chamou:

    Código:
    If DCount("*", "NomeDaTabela", "CampoDataDaTabela=#" & Format(CampoDataDoFormulário, "mm/dd/yyyy") & "#" And CampoIDDaTabela=" & CampoIDDoFormulário & "") > 0 Then
        MsgBox "Já existe um chamado para esse cliente", vbInformation + vbOKOnly, "Atenção"
    End If
    Nesse exemplo, a função DCount avalia os campos da data e da ID da pessoa na tabela e confronte com os do formulário. Se a contagem for maior que 0, envia uma mensagem avisando.


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

    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  flasbc 15/6/2012, 17:54

    Ola boa tarde!
    Sim tenho a tabela é chamados e o campo id é cliente no caso do campo data ta como data mesmo, por gentileza me informe se fica assim?

    If DCount("*", "chamados", "cliente=#" & Format(data, "mm/dd/yyyy") & "#" And cliente=" & cliente & "") > 0 Then
    MsgBox "Já existe um chamado para esse cliente", vbInformation + vbOKOnly, "Atenção"End If

    Se for eu coloco no evento ao atualizar?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  criquio 15/6/2012, 18:01

    No primeiro cliente tem que ser o nome do campo da data na tabela. E o evento é o que melhor atender. Aí você que tem que ver. "Após atualizar" do campo ou "Ao clicar" de um botão...


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

    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  flasbc 15/6/2012, 18:57

    OK ficou assim então:
    If DCount("*", "cliente", "data=#" & Format(data, "mm/dd/yyyy") & "#" And cliente=" & cliente & "")> 0 Then
    MsgBox "Já existe um chamado para esse cliente", vbInformation + vbOKOnly, "Atenção"

    Porém ao salvar o código ele alega o seguinte:
    Erro esperado separador de lista ou )

    Ai fazendo um teste colocando no evento após atualizar no campo cliente do formulário nada acontece ao cadastrar o mesmo cliente 2 vezes

    Lembrando que na tabela chamados e no formulário id esta como cliente e data.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  criquio 15/6/2012, 20:38

    Tente colocar Me. antes dos nomes dos controles do formulário para que o Access possa entender a diferença entre ambos. uma vez que os campos tem o mesmo nome da tabela. E se código for tipo texto, precisa tambem adicionar aspas simples no critério:

    If DCount("*", "chamados", "data=#" & Format(Me.data, "mm/dd/yyyy") & "#" And cliente='" & Me.cliente & "'") > 0 Then


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

    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  flasbc 15/6/2012, 21:54

    Ainda da erro posso postar o bd para dar uma olhada?
    Ainda ta acusando erro de compilação, eu tenho uma listbox vinculada a uma tabela de cadastro de clientes onde ela preenche automaticamente os dados do cliente cadastrado, acho que pode ser isso.

    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1145
    Registrado : 06/05/2011

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  Lupércio 16/6/2012, 09:41

    Bom dia mestre criquio, e bom dia flasbc, posta o bd!
    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  flasbc 16/6/2012, 11:11

    Bom dia Mestre Criquio e Lupercio agradeço pela atenção.

    Postei o BD nele esta postado o problema espero que possam me ajudar
    Embora ele esteja como 2003 eu uso o access 2007
    Anexos
    [Resolvido]Criar MsgBox para registro duplicado AttachmentBD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (48 Kb) Baixado 27 vez(es)


    Última edição por flasbc em 16/6/2012, 11:13, editado 1 vez(es) (Motivo da edição : Falta de conteúdo)
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1145
    Registrado : 06/05/2011

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  Lupércio 16/6/2012, 12:26

    Olá bom dia amigo.

    Veja se é isso!
    Anexos
    [Resolvido]Criar MsgBox para registro duplicado AttachmentBD4 MUDADO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (105 Kb) Baixado 72 vez(es)
    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  flasbc 17/6/2012, 10:39

    Grande Lupércio funcionou direitinho.
    Agora é possível deixar o campo fregues como cliente mesmo, pq eu tenho muitas consultas e formulários com o campo cliente.

    Aqui eu fiz as alterações mais ai o código não funciona, mesmo assim ja vai quebrar um galhão
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1145
    Registrado : 06/05/2011

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  Lupércio 17/6/2012, 12:46

    Alterei para fregues o nome do campo, pq o seu controle era não acoplado, e ai vc ve a melhor maneira de funcionar, para mudar os outros forms e tabelas para fregues é jogo rápido! Uma humilde opnião, se fosse você eu deixava como eu fiz, porque se não, não funcionará.

    Qualquer coisa da um grito que o ajudaremos.
    Um abraço!
    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  flasbc 17/6/2012, 16:56

    Sim com certeza, vai ficar como vc fez já ta show de bola

    Valeu mesmo ao mestre Criquio também agradeço muito pela atenção, acredito que por falta de conhecimento não consegui entender sua mensagem
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1145
    Registrado : 06/05/2011

    [Resolvido]Criar MsgBox para registro duplicado Empty Re: [Resolvido]Criar MsgBox para registro duplicado

    Mensagem  Lupércio 17/6/2012, 23:05

    Agradecemos o retorno!
    O forum agradece!
    Lembrando e agradecendo que usei a função confirmar do "Grande e amavel" Norberto!

    Um abraço Norberto!

      Data/hora atual: 10/8/2022, 15:11