|
| Sujet n°210 |
Générer une liste de N°
par satrob le 09/11/2008 : 11:45 |
Bonjour Je voudrai generé dansun champ d'une table une liste de N° Exemple: de 1 a 100 ; 200 a 250; 300 a 350 Je vous remercie de votre aide Satrob |
| Réponse n° 1 |
par 3Stone le 23/11/2008 : 01:02 |
Bonjour,
Dixit...Je voudrai generé dansun champ d'une table une liste de N°
Oui, mais c'est juste pour une fois, ou bien c'est quelque chose que tu dois faire régulièrement ?
Si c'est juste pour une fois, tu te la crées dans Excel et tu fais un simple copié/collé dans la table Access.
Si c'est une utilisation régulière, une petite fonction permet cela de façon simple.
Considérons que la table se nomme "TableX" et le champ "Numero". Donc, à adapter à tes besoins.
Function CreeNumero(Jusque As Long)
Dim NomTable As String
Dim NomChamp As String
Dim NumeroMin As Long
Dim i As Long
NomTable = "TableX"
NomChamp = "Numero"
NumeroMin = Nz(DMax(NomChamp, NomTable), 0) + 1
If NumeroMin >= Jusque Then
MsgBox "Valeur de " & Jusque & " est trop petite !"
Exit Function
End If
For i = NumeroMin To Jusque
CurrentDb.Execute "Insert Into [" & NomTable & "] " _
&nbs p; & "([" & NomChamp & "]) Values (" & i & ");"
Next i
End Function
Il suffit que tu appelles ce code par un bouton, par exemple en placant une zone de texte pour saisir la valeur supérieure...
ou alors, tu en fait une Sub() que tu places directement sous le bouton et hop... 
Cordialement,
Pierre(3stone)
|
[ Retour à la liste des sujets ]
| Recherche
Préférences
 1 membre
Connectés :
( personne )
|
visiteurs
© 2004-2013 
