Dlookup - Ajuda

[Ramon.Onix]

E ai Galera da Pesada...

Primeiramente agradeço por todos tenho acompanhado o Forum e tenho sanado as minhas dúvidas.

Porém, me deparei com uma que ainda não tinha visto...

é o seguinte:

Tenho uma tabela e um Formulário "Cad Trei" nestes os registros não podem ser duplicados.

Eu já bloqueei a duplicação, mas a menssagem só aparece no fim, quando você salva. certo?

Beleza, o que tenho tentado fazer é usar o Dlookup pra me ajudar e fazer com que ele não deixe a "data inicio" e o "camarada" sejam iguais!

O Código é este

Private Sub Inicio_BeforeUpdate(Cancel As Integer)

If IsNull(DLookup("Inicio", "Agenda Trein", "([inicio] = '" & Forms![Agenda Trein]![inicio] & "')")) Then

GoTo Saida

End If

ele diz que os tipos são incompativeis na expressão do critério...

Ficou bem esclarecido?

Poderiam me ajudar?

Teriam outra idéia para evitar essa duplicidade?

Desde já fico agradecido mais uma vez ao GIGANTESCO FORUM SCRIPTBRASIL!!!!

[MrMALJ]

Retire as aspas simples do critério, a expressão abaixo deve resolve

DLookup("[inicio]", "Agenda Trein", "[inicio] = " & Forms![Agenda Trein]![inicio]")

[Leandro Abbade]

Boa noite amigo,

Verifique este exemplo:

http://www.professorlar.com/contarcliques3...ltaneamente.zip

[Ramon.Onix]

Opá Leandro,

É o seguinte onde trabalho [empresa pública] não é permitido o down.

Mas ai eu tenho outra dúvida...

Qual seria o Valor de "InicioI"? Na expressão a baixo...

InicioI = DLookup("Inicio", "Agenda Trein", "([inicio] = " & Forms![Agenda Trein]![inicio] & ")")

Editado Abril 13, 2009 por Ramon.Onix

[Ramon.Onix]

Galera surgiu um novo problema aki...

If IsNull(DLookup("[user]", "Agenda", "[inicio]=#" & Forms![Agenda]![inicio] & "#" And [user] = " & Forms![Agenda]![user] & ")) Then GoTo Saida End If

"Tipos incompativeis"

Aonde está errado?

Sendo que Inicio é data e User é Texto.

O que eu quero é apenas usar os dois campos para evitar uma duplicidade, tipo:

se fulano iniciar um curso no dia 0/01/09 o mesmo não poderá entrar no mesmo dia em outro curso...

Obs: Já travei na tabela para isso não acontecer[Claro], eu apenas queria uma menssagem mais amigavel para o usuário Final

Alguém saberia me dizer?