Campos Duplicados

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.

Bom dia Mestes,

Alguém poderia me ajudar?

Obrigado.

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

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.

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

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.

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.