Discussion :

[jmde]

Bonsoir,

Comment adapter cette ligne de code pour que le DLookup compare les quatres derniers chiffres de "Numéro" aux quatres chiffres de Me.txtNuméro.

Ex:
Numéro=980012890
txtNuméro = 2890

Code :

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

If IsNull(DLookup("Numéro", "tbl Adhérents", "[Numéro] = " & Me.txtNuméro & "")) Then

Merci pour votre aide.

Salutations

[Heureux-oli]

Code :

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

1
2
 
right( Numéro;4)

te donera les quatre dernières positions de ton string.

[jmde]

Bonjour Heureux-Oli,

Merci pour ta réponse ça marche.

Une autre petite question, lorsque le Numéro est identique je voudrais retourner sur le même champ, avec le code suivant j'ai l'erreur:

"2108 Vous devez enregistrer le champ avant d'executer l'action atteidre contrôle".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub txtNuméro_BeforeUpdate(Cancel As Integer)

If IsNull(DLookup(Right(Numéro, 4), "tbl Adhérents", "right(Numéro, 4) = " & Me.txtNuméroL & "")) Then
   'MsgBox "Le Numéro" & Me.txtNuméro & " n'existe pas"
Else
   MsgBox "Le Numéro" & Me.txtNuméro & " existe déja"
End If

Me.txtNuméro.SetFocus

End sub

Salutations

[Arkham46]

Bjr,

au lieu du Setfocus :

Code :

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

Cancel = True

pour annuler la mise à jour

[jmde]

Bonjour Arkham46,

Merci pour ta réponse ça marche.

Mais le curseur se positionne sur le dernier chiffre, comment faire pour qu'il se repositionne sur le premier chiffre ?

Salutations

[Arkham46]

bjr,

essaye avec ça :
http://access.developpez.com/faq/?pa...orm#PosCursZdt

pense également à consulter la FAQ avant de poser une question

[Tofalu]

Je ne sais pas si ça va être possible dans cet événement.

A tester :

txtNuméro.selstart=0

[jmde]

Bonjour Arkham46, Bonjour Tofalu,

Merci pour votre aide ça marche.

Salutations