Discussion :

[hydre2006]

Bonjour à tous,

J'ai créé cette fonction dans une base Access 2007 pour un projet de 3ème année de fac :

Code :

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

1
2
3
4
5
6
7
Private Sub Ville_AfterUpdate()
Dim Resultat
Resultat = DLookup("Ville", "Cl", "CodePostal='" & CodePostal & "' AND Ville & '',<> '' AND [Cl]<>'" & [Cl] & "'")
If (Resultat <> "" And Ville & "" = "") Then
    Ville = Resultat
End If
End Sub

Je voulais savoir pourquoi elle ne fonctionne pas. En fait rien ne se passe quand je mets un code postal puis que je valide dans mon formulaire.
Je ne connais presque rien en visual basic, l'essentiel de mon projet étant censé être fait uniquement par des requêtes, mais là je crois qu'il n'y avait pas le choix.

Je vous remercie pour votre aide !

[Didier71]

Bonsoir..

Je ne connais pas Access 2007, mais la syntaxe VBA ne doit pas être différente des autres Access.
Et pour le moins, la tienne me parait curieuse..

Que sont "ville" et "code postal" et "C1'" ? Je suppose des champs venant de ton formulaire ?
Auquel cas, ne faut-il pas devant ME. (me designant le formulaire appelant )

De plus, la syntaxe de DBlookup est bizarre
Comme tu l'as écrite, tu cherches La Ville dans la table ou requete dont code postal est égal à ton code postal tapé dans le formulaire..
Mais tout ce qui vient après ? c'est pourquoi ?

ainsi que

Code :

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

If (Resultat <> "" And Ville & "" = "")

aussi..Pourquoi ajouter une chaine vide "" à la variable VILLE ???

Je ne suis pas expert, mais si tu pouvais en dire plus sur ce que tu veux faire, ce serait mieux...

Bon courage

Didier71

[hydre2006]

Bonjour,

Merci pour ta réponse.
J'ai résolu mon problème, il y avait juste une virgule en trop... Classique...

Code :

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

Resultat = DLookup("Ville", "Cl", "CodePostal='" & CodePostal & "' AND Ville & '',<> '' AND [Cl]<>'" & [Cl] & "'")