Discussion :

[cabonegro]

Bonjour,

je suis entrain de bâtir une base de donnée pour gérer des effets et des chèques. Une des questions qui m'a était poser et si c'est possible d'avoir un formulaire a partir duquel on peut entrer par tous les numéros des carnets de chèque qu'on reçoit.
Je m'explique, le comptable veut entrer dans la base les numéros que contient le carnet de chèque une fois le carnet est reçu sans devoir insérer a chaque fois un numéro.
Je me demande si cette fonction est faisable par VBA et si oui si quelqu'un pourra m'aider a le faire je suis nouveau dans le domaine VBA/Access.

Merci infiniment pour votre aide

[Tofalu]

Un champ n'a pas vocation à stocker plusieurs données.

[cabonegro]

Desole, je me corrige ca sera sur plusieurs champs

[Tofalu]

Erreur de modélisation

Un chequier est constitué de n cheques :

Une table

tblChequier(IdChequier, DateReceptionCheque, Banque, etc)

Une table

tblCheque(IdCheque, NumeroCheque)

Un formulaire permettra même l'ajout automatique des cheque de X à Y dans la table tblCheque lorsque les cheques sont numérotés dans l'ordre.

[cabonegro]

Merci pour la reponse, ce que je cherche vraiment est de concevoir un petit formulaire avec deux champs "Date du premier chèque" et "Date du dernier chèque" le premier peux avoir par exemple le numéro 10000121 et le dernier 10000290 donc le comptable n'aura pas a entrer tous ces numéros a la main.
Donc, la solution peut être sera de développer du code VBA pour automatiser cette fonction.

Votre aide sera grandement appréciée

[random]

il faut créer une petite table que nous nommerons scalaire par exemple avec un champ que nous baptiserons ordinal

ce champ recevra les valeurs de 0 à 24 si les chéquiers contiennent 25 chéques, mais on peut entrer par exemple les nombres de 0 à 1000
(utiliser un copier-coller excel pour éviter une longue saisie)


on peut ensuite faire une requête utilisant le produit cartésien
à titre d'exemple cela donnerait ceci

Code :

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

1
2
3
4
5
 
PARAMETERS [premiernum] Long, [derniernum] Long;
SELECT [ordinal]+[premiernum] AS numcheq
FROM scalaire
WHERE ([ordinal]+[premiernum])<=[derniernum];

[cabonegro]

Merci pour la réponse, si je comprends bien ta requête me permettra d'entrer que des numéros comme tu venais de le mentionne! Le problème c'est que les carnets de chèques diffèrent donc quelque uns commencent par 20098901 et d'autres commencent par 10148789 (ces numéros sont que des exemples) c'est la ou se pose le problème.
Je ne sais pas si ca sera faisable par un petit formulaire en VBA pour entrer le premier num du carnet de chèque et le un autre champs pour entrer le dernier num!!!!

Merci

[random]

essaye la requête et tu verras qu'à partir du premier numéro elle crée tous les numéros

[cabonegro]

Merci encore une fois, j'ai exécute ton exemple et c'est un bon travail. Malheureusement ca résoudra pas mon problème. Je chercher a faire la même chose mais saisir de l'information dans une table et non une dans une requête! Le comptable aura a faire cette saisie.

Grand merci

[random]

il suffit de modifier la requête selection en ajout pour ne rien avoir à saisir