Discussion :

[revemane]

bonsoir le forum

je rencontre un probleme avec le transfert de mes données d'un sous formulaire à un autre sous formulaire depuis un bouton

je m'explique , j'ai un formulaire 1 avec un sous formulaire 1 dans lequel je récolte les données et les copies dans un formulaire 2 avec un sous formulaire 2

je recopie mes donnée avec ce type de code sur le clic du bouton qui se trouve sur mon formulaire 1 mon probleme se situe au niveau du sous formulaire

Code :

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

Forms![Formulaire2]![sous-formulaire2]![champformulaire2] = [s-Items sous-formulaire1]![champsousformulaire1]

cela recopie que la derniere ligne de mon sous formulaire et je souhaiterai que cela copie toute les ligne de mon sous formulaire 1

comment dois je faire merci de votre aide
requete d'ajout ou pas ? si oui un exemple svp

merci

[vodiem]

salut revemane,

un exemple avec requete d'ajout:

Code VBA :

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

1
2
3
4
5
 
DoCmd.SetWarnings False    'désactive les messages confirmation et erreur
monSql="INSERT INTO Facture (designation, prix, quantite) SELECT designation, prix, quantite FROM devis WHERE numDevis=" & forms![monForm]!numDevis"
DoCmd.RunSql monSql
Forms![monForm2]![monSousForm2].Requery   'rafraichi l'affichage

[revemane]

merci pour ta réponse mais j'ai un message d'erreur comme quoi "erreur de syntaxe dans l'instruction INSERT INTO"

Code :

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

1
2
3
4
5
6
7
INSERT INTO [transition Facture]
SELECT;
 
DoCmd.SetWarnings False    'désactive les messages confirmation et erreur
monSql="INSERT INTO tbl_transition Facture (id_produit, quantite) SELECT id_produit, quantite FROM transition Commandes WHERE id_commande=" & forms![Commandes]!id_commande"
DoCmd.RunSql monSql
Forms![Facture]![RFactures-Items sous-formulaire].Requery   'rafraichi l'affichage

je joint ma base de donnée ce sera peut etre plus simple

donc c'est du formulaire commande que je souhaite transformer en facture

merci pour aide

[vodiem]

voilà le code pour Commande20_Click à remplacer:

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
Private Sub Commande20_Click()
On Error GoTo Err_Commande20_Click
 
 
   Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Facture"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
 
 ' Main mise sur le numéro du client visé
    Client = Forms![Commandes]![id_commande]
 
    ' Ici vous pouvez récupérer les valeurs dont vous souhaitez
 
Forms![Facture]![codeclient] = codeclient
Forms![Facture]![TCommande] = id_commande
Forms![Facture].Refresh    'actualise l'affichage
 
DoCmd.SetWarnings False    'désactive confirmation
monsql = "INSERT INTO [RFactures-Items] (id_facture, id_produit, quantite) SELECT " & Forms![Facture].id_facture & ",id_produit, quantite FROM [transition Commandes] WHERE id_commande=" & Forms![Commandes]!id_commande
DoCmd.RunSQL monsql
Forms![Facture]![RFactures-Items sous-formulaire].Requery   'rafraichi l'affichage
DoCmd.SetWarnings True
 
Exit_Commande20_Click:
    Exit Sub
 
Err_Commande20_Click:
    MsgBox Err.description
    Resume Exit_Commande20_Click
 
End Sub

[revemane]

1000 merci
problème résolu

[Yannick971]

Bonjour

j'ai trouver cette discussion, et elle a la reponse a mon probleme, apres avoir telecharger la BD1 et simuler avec la derniere version de programmation du BP20, c'est nickel
par contre je comprends pas du tout pourquoi vous avez mis cette ligne la :

Client = Forms![Commandes]![id_commande]

parce que je ne trouve aucun champs "Client" nul part, et j'aimerai comprendre a quoi sert cette ligne

Merci en tout cas, ce forum m'a toujours dépanner de mes petits problèmes en developpement