Bonjour,
Je voudrais à partir d'un code composé de plusieurs éléments saisi dans des
controles , crééer dan une tables un nombre d'enregistrements correspondant:
exemple:
1er controle: 12345
2ème controle: A
3ème controle: 49
je voudrai alors créer 49 enregistrements, ayant comme N° 12345-A-001,
12345-A-002, 12345-A-003.....jusqu'à.....12345-A-049.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Buddy
Salut
une petite boucle avec un insert into et le tour est joué
Dim i as Integer, v_cle As String DoCmd.StWarnings False For i = 1 To 3EmeControl v_cle = 1ErControl & "-" & 2EmeControl & "-" & String(3 - Len(CStr(i)), "0") & i DoCmd.RunSQL "INSERT INTO TaTable (Cle) VALUES ('" & v_cle & "');" Next DoCmd.StWarnings True
Ouala Bye Buddy
Bonjour, Je voudrais à partir d'un code composé de plusieurs éléments saisi dans des controles , crééer dan une tables un nombre d'enregistrements correspondant: exemple: 1er controle: 12345 2ème controle: A 3ème controle: 49
je voudrai alors créer 49 enregistrements, ayant comme N° 12345-A-001, 12345-A-002, 12345-A-003.....jusqu'à.....12345-A-049.
Merci pour vos réponses
-- Ouala Bye Buddy
PS : retirer 123 pour m'envoyer un email.
Salut
une petite boucle avec un insert into et le tour est joué
Dim i as Integer, v_cle As String
DoCmd.StWarnings False
For i = 1 To 3EmeControl
v_cle = 1ErControl & "-" & 2EmeControl & "-" & String(3 - Len(CStr(i)), "0") & i
DoCmd.RunSQL "INSERT INTO TaTable (Cle) VALUES ('" & v_cle & "');"
Next
DoCmd.StWarnings True
Ouala
Bye
Buddy
Bonjour,
Je voudrais à partir d'un code composé de plusieurs éléments saisi dans des
controles , crééer dan une tables un nombre d'enregistrements correspondant:
exemple:
1er controle: 12345
2ème controle: A
3ème controle: 49
je voudrai alors créer 49 enregistrements, ayant comme N° 12345-A-001,
12345-A-002, 12345-A-003.....jusqu'à.....12345-A-049.
une petite boucle avec un insert into et le tour est joué
Dim i as Integer, v_cle As String DoCmd.StWarnings False For i = 1 To 3EmeControl v_cle = 1ErControl & "-" & 2EmeControl & "-" & String(3 - Len(CStr(i)), "0") & i DoCmd.RunSQL "INSERT INTO TaTable (Cle) VALUES ('" & v_cle & "');" Next DoCmd.StWarnings True
Ouala Bye Buddy
Bonjour, Je voudrais à partir d'un code composé de plusieurs éléments saisi dans des controles , crééer dan une tables un nombre d'enregistrements correspondant: exemple: 1er controle: 12345 2ème controle: A 3ème controle: 49
je voudrai alors créer 49 enregistrements, ayant comme N° 12345-A-001, 12345-A-002, 12345-A-003.....jusqu'à.....12345-A-049.