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

    Campos Duplicados

    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 26/06/2013

    Campos Duplicados Empty Campos Duplicados

    Mensagem  rogeriorcds 16/1/2016, 11:48

    Bom dia Pessoal

    Mas uma vez recorro aos mestres de plantão, eu enviei anexo um BD onde eu faço o lançamento da minha produção, vamos ver se eu consigo explicar o que não estou conseguindo fazer.

    no formulário lançamento eu lanço os trabalhos das equipes de locação de estradas, as estrada são por km então a equipe 01 trabalho no dia x do Km 0 ao km 0+500 e no dia y do Km 0+500 ao Km 1+0 até ai ok. mas se algum dia vir uma produção do km 0+900 ao Km 1+400 aí vai existir uma duplicidade de informação prq no dia y a equipe trabalho do km 0+500 ao Km 1+0 e não deixa eu lançar a produção e filtra pra mim na lista abaixo este trabalho já executado.

    espero ter sido claro e agradeço desde já a atenção dos amigos.

    Rogério.
    Anexos
    Campos Duplicados AttachmentLocacoes.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (544 Kb) Baixado 20 vez(es)
    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 26/06/2013

    Campos Duplicados Empty Re: Campos Duplicados

    Mensagem  rogeriorcds 19/1/2016, 12:08

    Bom dia Mestes,

    Alguém poderia me ajudar?

    Obrigado.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Campos Duplicados Empty Re: Campos Duplicados

    Mensagem  FabioPaes 19/1/2016, 13:23

    Provavelmente tera que colocar esse campo para permitir Duplicacao... Na tabela, no campo onde vc lanca os km, na propriedade Indexado, coloque Sim Duplicacao autorizada.


    Como to no celular nao da pra eu ver sua situacao...
    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 26/06/2013

    Campos Duplicados Empty Re: Campos Duplicados

    Mensagem  rogeriorcds 19/1/2016, 13:36

    Bom dia amigo,

    Mas eu não quero que duplique a informação ele tem que alertar que ja foi lançado e não deixar lançar este intervalo novamente.

    Obrigado.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Campos Duplicados Empty Re: Campos Duplicados

    Mensagem  FabioPaes 19/1/2016, 14:10

    Neste exemplo o Mestre Avelino Sampaio, ensina como fazer a verificacao do Nome do Cliente. Da uma Lida e adapte pra o seu campo....
    http://www.usandoaccess.com.br/dicas/como-saber-se-cliente-ja-cadastrado.asp?id=1


    O que precisará fazer basicamente é isso:
    No Formulário, no evento no atual coloque:
    Código:

    Option Compare Database
    'Variável criada para armazenar o nome do cliente original
    Dim NomeOriginal As String
     
    Private Sub Form_Current()
         NomeOriginal = Nz(Me!NomeDoCampoOndeArmazenaaKM, "")
    End Sub

    No evento antes de Atualizar do seu campo: NomeDoCampoOndeArmazenaaKM coloque:
    Código:

    If NomeOriginal = Me!NomeDoCampoOndeArmazenaaKM Then Exit Sub
    '---------------------------------------------------------------------
     
    If DCount("ID","NomedaTabela","NomeDoCampoOndeArmazenaaKM =""" & Me!NomeDoCampoOndeArmazenaaKM & """") > 0 Then
       'A função DCount() contou um ou mais registros existentes
       MsgBox "O Trecho " & Me!NomeDoCampoOndeArmazenaaKM & " já Foi Lançado"
       Me.Undo
       Cancel = True
    End If
    End Sub

    ID é a chave Primaria
    NomedaTabela é o nome da Sua tabela
    NomeDoCampoOndeArmazenaaKM é aqui que voce armazena os trecho que citou no exemplo...
    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 26/06/2013

    Campos Duplicados Empty Re: Campos Duplicados

    Mensagem  rogeriorcds 19/1/2016, 14:54

    Obrigado fábio,

    Eu vi o tópico é muito bom, mas o que eu preciso na verdade é assim:

    eu tenho um intervalo entre o Kminicial e final exemplor:
    Kminicial kmfinal total
    0+0 1+500 1.500
    e depois outro intervalo
    Kminicial kmfinal total
    2+200 2+900 700

    o BD não pode deixar eu lançar dentro do intervalo 0+0 ao 1+500 e 2+200 ao 2+900, eu posso lançar apenas no intervalo de 1+501 à 2+199 ou acima de 2+901.

    Obrigado.
    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 26/06/2013

    Campos Duplicados Empty Re: Campos Duplicados

    Mensagem  rogeriorcds 21/1/2016, 12:30

    Fabio bom dia,

    estou tentando mas esta dano erro em tempo de execução '3464': Tipo de dados incompatível na expressão de critério.

    O que pode ser ?

    Obrigado Mestre.

      Data/hora atual: 25/1/2022, 16:59