Discussion :

[denisw95]

Bonjour,

Après avoir défini des zones de texte dans un formulaire composé lui-même de plusieurs sous-formalaires, je voudrais exécuter la fonction "INSERT" pour intégrer mes différentes saisies dans une table.

Pour tous les champs présents dans le formulaire principale, je n'ai pas de problème pour l'insertion en utilisant en VB l'option ME.NomDuChamp. Mais comment faire pour les champs des différents formulaires non reconnus par l'option ME.

Merci d'avance pour vos réponses.

Cdlt

[mout1234]

Il faut aller chercher les contrôles dans la collection des controles du sous-formulaire.

Si ton sous formulaire s'appelle est placé dans un controle de sousformulaire nommé MonSF :

Code :

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

ME!MonSF.Form!MonControle

[denisw95]

Merci pour ta réponse.
Voilà ce que j'ai mis dans mon code VB

Code :

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

1
2
3
4
5
    strSql = "INSERT INTO Devis (NumDevis,IdProjetSPC,Taille,Ind-BTW) VALUES (" & _
              "'" & Me.NumDevis & "'" & "," & _
              "'" & Me.idProjet & "'" & "," & _
              "'" & Me.Taille & "'" & _
              "'" & Me!sfProjet.Form!BTW & "');"

NumDevis, IdProjetSPC, Taille : contrôle de la feuille principale
BTW : contrôle du sous-formulaire sfProjet, sous-formulaire placé dans un onglet du formulaire principale

J'ai une erreur m'indiquant de pas trouver le champ sfProjet

En requête SQL pur (via le générateur d'expression) et compte-tenu des formulaires, sous-formulaires et onglet, j'obtiens :

Code :

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

INSERT INTO Devis ( NumDevis, IdProjetSPC, Taille, Ind-BTW) VALUE Formulaires!DevisC!NumDevis, Formulaires!DevisC!IdProjet, Formulaires!DevisC!Taille, Formulaires!DevisC![Onglet Projet].Formulaire!BTW;"

[denisw95]

ça y est, j'ai trouvé.

Il fallait identifier l'onglet et non le sous formulaire

Code :

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

1
2
3
4
5
strSql = "INSERT INTO Devis (NumDevis,IdProjetSPC,Taille,Ind_BTW) VALUES (" & _
              "'" & Me.NumDevis & "'" & "," & _
              "'" & Me.idProjet & "'" & "," & _
              "'" & Me.Taille & "'" & "," & _
              Me![Onglet Projet].Form!BTW & ");"

Merci pour votre aide