Boucle sur Access

Fermé
Eglam - 6 juil. 2012 à 11:16
Bonjour,

Je dois récupérer le département à partir d'adresses contenues dans des registres, cependant ces adresses sont souvent saisies n'importe comment et ne contiennent même pas forcément le code postale.

Sur Excel j'utilisais la fonction suivante :

Dim CP
'on enregistre l'adresse comme une chaine de caractere
chaine = (Cells(i, 3))

'pour chaque caractere de cette chaine
For j = 1 To Len(chaine)
    'on définit le CP comme la chaine qui commence au caractere j et de longueur 5
    CP = Mid(chaine, j, 5)
    'si c'est bien un nombre,
    If IsNumeric(CP) Then
        Cells(i, 4) = Mid(CP, 1, 2)
    'alors on inscrit les deux premiers chiffres dans la case de la colonne 4
        Exit For  'et on sort de la boucle For
    Else
        Cells(i, 4) = ""
    'si on ne trouve pas de chaine de 5 chiffres, on ne met rien dans la case colonne 4
    End If
Next j


Désormais les données des registres sont réunies dans une base de données Access et je cherche un moyen de faire une manipulation équivalente.

Je ne maîtrise pas trop ce logiciel et pour le moment mes essais sont infructueux.
J'ai cru lire qu'il n'était pas possible de faire de boucle en SQL et je suis un peu perdu car je ne vois pas comment résoudre mon problème.

Quelqu'un pourrait-il m'indiquer comment faire pour obtenir un champ avec les départements ? Est-il par exemple tout simplement possible d'utiliser la fonction vba dans le champ ?

Merci d'avance