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


2 participantes

    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos!

    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos! Empty Opção do usuário incluir dados duplicados em tabela com dois campos!

    Mensagem  Lupércio 2/4/2012, 10:01

    Companheiros bom dia!


    Eis o código do Norberto
    ficou assim:

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    On Error GoTo Trato
    Dim QuantDestaData As Integer
    QuantDestaData = Nz(DCount("*", "TabelaPedidos", "DataDoPedido = Forms!FormPedidos.DataDoPedido"), 0)
    If QuantDestaData > 0 Then
    If Not Confirmar("Já existe(m) " & QuantDestaData & " pedido(s) com esta data." & vbCrLf & _
    "Deseja manter a data?") Then
    Cancel = True
    Else
    End If
    End If
    Exit Sub
    Trato: MsgBox Err.Description
    End Sub

    Surgiu outro problema:

    Acontece que nesta tabela "TabelaPedidos",
    tenho um campo chamado "maquina"
    que adiciono dois equipamentos por data,
    "Gerador - 001" e "Gerador - 002".

    Exemplo:
    1º registro "Gerador - 001" com data 02/04/2012.
    2º registro "Gerador - 002" com data 02/04/2012.
    Obs:"Datas iguai mas equipamentos diferentes".

    eis a questão:

    Precisaria que quando o usuário fosse adicionar
    por exemplo o segundo registro com a mesma data só que equipamentos
    Diferente do campo "maquina" o código disparasse, mas não enxergasse.
    Pois é datas iguais porem com equipamentos diferentes.
    Que o código só enxergasse quando o usuário
    lançar registros duplicados com datas iguais e equipamentos iguais!

    Alguém pode me ajudar?

    Obs: o código do Norberto está funcionando perfeito!
    só que preciso adaptar para essa circunstância.

    Sou muito grato á todos do fórum!
    Anexado bd!


    abraços Lupércio!

    Anexos
    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos! Attachment2 CAMPOS OPÇÃO DE EXCLUSÃO ATUAL.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 17 vez(es)
    avatar
    Convidad
    Convidado


    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos! Empty Re: [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos!

    Mensagem  Convidad 2/4/2012, 10:38


    Private Sub Form_BeforeUpdate(Cancel As Integer)
    On Error GoTo Trato
    Dim QuantDestaData As Integer
    Dim stLinkCriteria As String
    Dim stJuntaCriteriosData As Date, stJuntaCriteriosTexto As String

    stJuntaCriteriosData = Me.DataDoPedido.Value
    stJuntaCriteriosTexto = Me.Combinação10.Column(1)

    stLinkCriteria = "DataDoPedido= #" & stJuntaCriteriosData & "# AND Maquina= '" & stJuntaCriteriosTexto & "'"

    QuantDestaData = Nz(DCount("*", "TabelaPedidos", stLinkCriteria), 0)

    If QuantDestaData > 0 Then
    If Not Confirmar("Já existe(m) " & QuantDestaData & " pedido(s) com esta data." & vbCrLf & _
    "Deseja manter a data?") Then
    Cancel = True
    Else
    End If
    End If
    Exit Sub
    Trato: MsgBox Err.Description
    End Sub
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos! Empty Re: [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos!

    Mensagem  Lupércio 2/4/2012, 10:54

    Bom dia Ricardo!
    Agradeço por estar me ajudando!

    É o seguinte está dando esse erro!

    Erro de síntaxe na data na expressão de consulta ‘DatadoPedido = #01/04/2012#
    AND Maquina=&’ Gerador – 001”.
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos! Empty Re: [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos!

    Mensagem  Lupércio 2/4/2012, 11:17

    Não fiz mais nenhuma alteração,
    e testei agora aqui não estão dando a mensagem de erro
    mas tambem não está disparando o código!
    os registros está sendo inserido na tabela duplicadamente.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos! Empty Re: [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos!

    Mensagem  JPaulo 2/4/2012, 11:42

    O mais simples é deixar como você tinha, apenas adicionar o operador AND

    QuantDestaData = Nz(DCount("*", "TabelaPedidos", "DataDoPedido = Forms!FormPedidos.DataDoPedido AND Maquina = Forms!FormPedidos.Maquina"), 0)



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos! Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos! Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos! Folder_announce_new Instruções SQL como utilizar...
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos! Empty Re: [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos!

    Mensagem  Lupércio 2/4/2012, 11:56

    Tópico encerrado.

    Funcionou 100%!
    Obrigado J Paulo, tenha uma boa semana á você e todos.

    Vocês são feras!
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos! Empty Re: [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos!

    Mensagem  Lupércio 2/4/2012, 11:57

    Resolvido!

    Conteúdo patrocinado


    [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos! Empty Re: [Resolvido]Opção do usuário incluir dados duplicados em tabela com dois campos!

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 12:17