Discussion :

[mouam]

Bonjour,

je débute en VBA..
Je voudrais remplir automatiquement le champ "Fed_ref" d'un formulaire en fonction du code postal saisidans le champ "Adh_CodePostal".
J'ai utilisé (en reprenant un code trouvé dans une autre base access) la fonction mid pour reprendre les premiers chiffres rentrés dans Adh_CodePostal (donc le département) et en fonction du département, remplir le champ Fed_ref.

Voilà le début de mon code (je ne l'ai pas mis en entier !) :

Code :

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

1
2
3
4
5
6
Private Sub Adh_CodePostal_Exit(Cancel As Integer)
[departement] = Mid([Adh_CodePostal], 1, 2)
If [departement] = "67" Then
[Fed_ref] = "19"
End If
End Sub

quand je teste en rentrant un code postal, l'erreur renvoyée est :

Erreur d'exécution '2465' :
Impossible de trouver le champ "|" auquel il est fait référence dans votre expression

quelqu'un pour m'aiguiller sur l'erreur que j'ai faite ?

merci d'avance !

[Heureux-oli]

Salut,

Pour utiliser une fonction Mid commençant au premier caractère, il est plus simple d'utiliser la fonction Left. http://heureuxoli.developpez.com/off...page13#L13-A-4

Perso, je n'utiliserais pas l'évènement Exit mais AfterUpdate du contrôle.

Code :

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

1
2
3
4
5
6
Private Sub Adh_CodePostal_AfterUpdate()
Me.departement = Left(Me.Adh_CodePostal,2)
If Left(Me.Adh_CodePostal,2) = "67" Then
Me.Fed_ref = "19"
End If
End Sub

[mouam]

merci beaucoup je vais regarder ça tout de suite !!

[mouam]

Re...
testé hier soir donc : j'ai juste enlevé une ligne de ton code qui ne fonctionnait pas, et en fait il y avait juste une redondance, et ça marche merci beaucoup !