[AC-2003] copier donnée d'un sous d'un formulaire vers un autre sous formulaire (transférer devis en facture) [Résolu]

[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 :

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 :

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 :

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 :

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