Discussion :

[fordiste]

Bonjour,
Dans une base de donnée, j'ai un fomulaire avec 1 champ "Premier n°" et 1 Champ "Dernier n°", je souhaiterai soit à l'aide d'une requête, soit en vb
incrémenter un champ "n°" d'une table en partant du premier n° jusqu'au dernier (de 1 en 1). Exemple: Premier n°: 255, Dernier n°:260 => dans le champ "n°" de ma table, je retrouve après incrémentation, une ligne avec le n°255,une ligne avec le n°256,une ligne avec le n°257,une ligne avec le n°258, une ligne avec le n°259 et une ligne avec le n°260.


J'èspere avoir été clair.


Par avance je vous remercie de votre aide.

[LedZeppII]

Bonsoir,

Essaie quelque chose dans ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim PremierNum As Long, DernierNum As Long
Dim i as Long, strSQL As String
 
PremierNum = [Forms]![NomDuFormulaire]![Premier N°]
DernierNum = [Forms]![NomDuFormulaire]![Dernier N°]
 
For i = PremierNum To DernierNum
  strSQL = "INSERT INTO MaTable(MonChamp) VALUES (" & CStr(i) & ")"
  DoCmd.RunSql strSQL
Next

Je viens de le taper. J'espère qu'il n'y a pas de fautes de frappe ou de syntaxe.

A+

Ajout : il faut placer le code ci-dessus dans la Procédure événementielle 'Sur Clic' d'un bouton.

[fordiste]

Excellent.

Là je vais bossé, mais j'essai dés ce soir.


Merci beaucoup.