Discussion :

[maringot]

Bonjour,

Je souhaite créer un bouton qui envoi des infos de mon formulaire "demande de prix" à "commande". J'ai déjà réalisé ce type de transfert avec d'autres formulaires et ça fonctionne.
Donc je me suis basé sur le code VBA d'un de ces formulaires qui fonctionnent pour créer ce nouveau bouton mais, au moment du transfert,
j'ai un message qui dit :"Le nombre de valeurs de la requête doit coïncider avec le nombre de champs de destination".

Voici 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
36
37
38
39
40
41
Private Sub Commande113_Click()
On Error GoTo Err_Commande113_Click
 
Dim NumFAC As String
Dim stDocName As String
 
    stDocName = "FORM-COMMANDE"
    DoCmd.OpenForm stDocName, acNormal, "", "", acAdd, acNormal
 
    Forms![FORM-COMMANDE]![IDClient] = IDClient
    Forms![FORM-COMMANDE]![IDSites] = IDSites
    Forms![FORM-COMMANDE]![IDCatégorie] = IDCatégorie
    Forms![FORM-COMMANDE]![Analytique] = Analytique
    Forms![FORM-COMMANDE]![IDFournisseurs] = IDFournisseurs
    Forms![FORM-COMMANDE].Refresh
 
    'Récupérer le numéro de demande de prix en cours
    NumCde = Forms![FORM-COMMANDE]!IDCommande
 
    monsql = "INSERT INTO [RQ-DETAIL CDE] ([dESIGNATION])" _
        & " SELECT [Formulaires]![FORM-COMMANDE]![IDCommande] AS NumCDE,[RQ-DETAIL CDE].IDCommande," _
        & " [T-DetailDemandePrix].[Designation]" _
        & " From [T-DetailDemandePrix]" _
        & " WHERE [T-DetailDemandePrix].IDDemandePrix ='" & Me.IDDemandePrix _
        & "' AND [T-DetailDemandePrix].[Selectdp]=-1 AND [T-DetailDemandePrix].Commandédp=0;"
 
    DoCmd.RunSQL monsql
    monsql = "UPDATE [T-DetailDemandePrix] SET [T-DetailDemandePrix].Commandédp = -1" _
        & " WHERE [T-DetailDemandePrix].IDDemandePrix ='" & Me.IDDemandePrix _
        & "' AND [T-DetailDemandePrix].[Selectdp]=-1 AND [T-DetailDemandePrix].Commandédp=0;"
 
     DoCmd.RunSQL monsql
     Forms![FORM-COMMANDE].[S/FORM-DETAIL CDE].Form.Requery
Exit_Commande113_Click:
    Exit Sub
 
Err_Commande113_Click:
    MsgBox Err.Description
    Resume Exit_Commande113_Click
 
End Sub

Toute la première partie fonctionne, c'est dans le sous/formulaire demande de prix que rien ne s'affiche.

Pourriez-vous me dire où je me suis trompé ?

Cordialement

[madefemere]

Bonjour,

Ton expression SQL ci-dessous :

Code :

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

1
2
3
4
    monsql = "INSERT INTO [RQ-DETAIL CDE] ([dESIGNATION])" _
        & " SELECT [Formulaires]![FORM-COMMANDE]![IDCommande] AS NumCDE,[RQ-DETAIL CDE].IDCommande," _
        & " [T-DetailDemandePrix].[Designation]" _
        & " From [T-DetailDemandePrix]" _

se traduit par :
Insérer les valeurs de [Formulaires]![FORM-COMMANDE]![IDCommande] AS NumCDE - [RQ-DETAIL CDE].IDCommande - [T-DetailDemandePrix].[Designation] (3 valeurs) de la table [T-DetailDemandePrix] dans la table [RQ-DETAIL CDE] sur le champ [dESIGNATION] (1 seul champ) ??

Je te conseille de créer une requête ajout dans le QBE d'Access pour "simuler" ta requête et de récupérer ainsi le code SQL créé et de modifier après les arguments.

Cordialement,