Discussion :

[Pwouaro]

Bonjour à tous,

J'ai, dans une base de données Access 2003, une table :

Table1 : id, nom, prénom

ainsi qu'un formulaire contenant plusieurs champ texte indépendant.

J'ai crée un bouton exécutant une requête SQL:
Voici le code

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Commande28_Click()
 
   DoCmd.RunSQL ("INSERT INTO Table1 (nom, prenom) VALUES (Texte1, Texte2)")
 
Exit_Commande28_Click:
    Exit Sub
End Sub

Tout fonctionne très bien, mais j'aimerai pouvoir ajouter du code afin de faire plusieurs enregistrement d'un coup en fonction du nombre de champ texte affiché dans le formulaire (à la guise de l'utilisateur, 2x5 maximum)

Je pensais faire une boucle FOR par exemple, mais je ne sais pas du tout comment la construire. Avez-vous d'autres pistes, de meilleures idées?

Merci.

[Pwouaro]

J'ai trouvé une solution qui fonctionne.

Voilà le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Commande28_Click()
 
    If IsNull(Texte1.Value) Or Texte1.Value = "" Or IsNull(Texte4.Value) Or Texte4.Value = "" Then
            Exit Sub
        Else
            DoCmd.RunSQL ("INSERT INTO Table1 (nom, prenom) VALUES (Texte1, Texte4)")
    End If
 
 
    If IsNull(Texte2.Value) Or Texte2.Value = "" Or IsNull(Texte5.Value) Or Texte5.Value = "" Or Cocher30.Value = False Then
            Exit Sub
        Else
            DoCmd.RunSQL ("INSERT INTO Table1 (nom, prenom) VALUES (Texte2, Texte5)")
    End If
 
 
    If IsNull(Texte3.Value) Or Texte3.Value = "" Or IsNull(Texte6.Value) Or Texte6.Value = "" Or Cocher32.Value = False Then
           Exit Sub
        Else
            DoCmd.RunSQL ("INSERT INTO Table1 (nom, prenom) VALUES (Texte3, Texte6)")
    End If
 
    If IsNull(Texte7.Value) Or Texte7.Value = "" Or IsNull(Texte8.Value) Or Texte8.Value = "" Or Cocher34.Value = False Then
           Exit Sub
        Else
            DoCmd.RunSQL ("INSERT INTO Table1 (nom, prenom) VALUES (Texte7, Texte8)")
    End If
 
    If IsNull(Texte9.Value) Or Texte9.Value = "" Or IsNull(Texte10.Value) Or Texte10.Value = "" Or Cocher36.Value = False Then
            Exit Sub
        Else
            DoCmd.RunSQL ("INSERT INTO Table1 (nom, prenom) VALUES (Texte9, Texte10)")
    End If
 
End Sub

Si vous avez des idées pour améliorer tout ça, je suis preuneur, mes connaissances en VBA sont vraiment faibles.

A bientôt