Discussion :

[chartreuse]

Bonsoir,

j'ai créé une base fenwick. Sur mon champ Date j'ai indexé Oui - Sans doublons.
Je voudrais un message d'alerte sur mon formulaire quand je saisie une date qui a déjà été saisie.
J'ai placé ce code sur mon champ Date.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Date_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("[Date]", "fenwick", "[Date]=" & Me.Date)) Then
MsgBox "blabla"
End If
End Sub

Aucun message n'apparait.
Merci.

[marot_r]

Bonjour.

C'est probablement une histoire de délimiteurs, essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 "[Date]=#" & format(Me.Date, "yyyy-mm-dd") & "#"

Aussi si tu as un index unique tu pourrais utiliser l'événement On Error du formulaire pour gérer le problème.

Ici une explication sur comment faire :
Replacing a Standard Microsoft Access Error Message with a Custom Error Message
http://www.databasedev.co.uk/custom-error-message.html

A+

[chartreuse]

La ligne je là place où sur mon code ?
Merci

[marot_r]

Bonjour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not IsNull(DLookup("[Date]", "fenwick", "[Date]=#" & format(Me.Date, "yyyy-mm-dd") & "#")) Then

A+

[marot_r]

Aussi, je n'y avait pas pensé mais je te suggère de changer le nom de ton champ date pour dateQuelqueChose (ex : DateFenwick), date est une fonction de Access et cela peut provoquer des confusions.

A+

[chartreuse]

Ok merci marot_r.