A voir également:
- {Access} Traitement des données VBA Access
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Acer quick access - Forum logiciel systeme
- Controller access network - Télécharger - Contrôle parental
- Recovery access - Télécharger - Récupération de données
- Port access - Forum Réseau
1 réponse
Adrastée
Messages postés
3
Date d'inscription
mercredi 16 mai 2007
Statut
Membre
Dernière intervention
15 février 2010
15 févr. 2010 à 23:49
15 févr. 2010 à 23:49
Bonjour,
Tu vas pouvoir scanner à l'aide des fonction :
InStr
mid
left
right
len
Sur le web il y a beaucoup d'information, voici un site avec quelques exemples:
https://dominiquemaniez.developpez.com/access/fonctionsVBA/
Pour placer dans plusieurs champ les informations, tu peux le coder en VBA à l'aide de "l'Aide Access" sur la librairie DAO ou tout simplement dans une requête ajout.
Pour le scanne dans une requête ajout:
Pour chacun des champs tu crées ta contrainte de la partie du code entré qu'il devrait contenir.
Si tu as la certitude que tes chiffres sont toujours 2 ce sera plus facile, mais sinon :
Exemple:
Champ1 :mid(leCode; 3, iif(instr(leCode;'E')>0;Instr(leCode;'E'))-3)
Champ2: iff(instr(leCode;'E')>0; mid(leCode;instr(leCode;'E'); iif(instr(leCode;'B')>0;Instr(leCode;'B'))-instr(leCode;'E'))
Champ3: iif(instr(leCode;'B')>0;right(leCode;instr(leCode;'B')))
Je ne l'ai pas tester, mais c'est approximativement ça.
Au pire, ajouter des ±1, si les positions ne sont pas exacte.
Bonne chance!
Tu vas pouvoir scanner à l'aide des fonction :
InStr
mid
left
right
len
Sur le web il y a beaucoup d'information, voici un site avec quelques exemples:
https://dominiquemaniez.developpez.com/access/fonctionsVBA/
Pour placer dans plusieurs champ les informations, tu peux le coder en VBA à l'aide de "l'Aide Access" sur la librairie DAO ou tout simplement dans une requête ajout.
Pour le scanne dans une requête ajout:
Pour chacun des champs tu crées ta contrainte de la partie du code entré qu'il devrait contenir.
Si tu as la certitude que tes chiffres sont toujours 2 ce sera plus facile, mais sinon :
Exemple:
Champ1 :mid(leCode; 3, iif(instr(leCode;'E')>0;Instr(leCode;'E'))-3)
Champ2: iff(instr(leCode;'E')>0; mid(leCode;instr(leCode;'E'); iif(instr(leCode;'B')>0;Instr(leCode;'B'))-instr(leCode;'E'))
Champ3: iif(instr(leCode;'B')>0;right(leCode;instr(leCode;'B')))
Je ne l'ai pas tester, mais c'est approximativement ça.
Au pire, ajouter des ±1, si les positions ne sont pas exacte.
Bonne chance!
16 févr. 2010 à 11:07
je te tiens au courant !!!