Discussion :

[Jean.Alexis]

Voila j ai monte un formulaire "FrmRecherche" a partir duquele je souhaite alimenter un table comptoire "T_BeforePrint" en vu d une impression.
Je souhaite passer par un formulaire "F_BeforePrint" qui est la representation de cette table comptoir.
Malheureusement, quand je tente d executer ce code, cela me met un:

"Rune time error 3346:
Number of query values and destinations fields are not the same"

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
Private Sub Command34_Click()
'Annule le message de validation
 
DoCmd.SetWarnings False
    Dim VarLr As Integer
    Dim bo As Boolean
    bo = False
    For VarLr = 0 To Me.lstResults.ListCount - 1
        If Me.lstResults.Selected(VarLr) Then
            DoCmd.RunSQL "INSERT INTO T_BeforePrint (ID, [Company], [Industry], [Account],  " & _
            "[City], [Country], Website, [E-Mail], [Phone], [Account Manager],  " & _
            "[Gender], [First Name], [Last Name], [Direct Number], [Title]) " & _
            "SELECT Customers.ID, Customers.[Company Name], Customers.[Industry Type],  " & _
            "Customers.[Acount Type], Customers.[City], Customers.[Country],  " & _
            "Customers.Website, Customers.[E-Mail], Customers.[Phone 1], Customers.[Account Manager], Contact.[Contact Gender], Contact.[Contact First Name], Contact.[Contact Last Name], Contact.[Contact Title]  " & _
            "FROM Customers  " & _
            "INNER JOIN Contact ON Customers.ID = Contact.[Contact's Company]  " & _
            "WHERE (((Customers.[ID]) = " & Me.lstResults.ItemData(VarLr) & "));"
            bo = True
 
        'on incrémente le compteur
        End If
 
    Next VarLr
 
    If bo Then
        DoCmd.OpenForm "BeforePrint", acNormal
        'Rafrechir le tableau
        DoCmd.Requery "List4"
    End If
 
End Sub

J ai deja chercher un peux sur le forum, mais ne comprends pas l explication de ce lien:
http://www.developpez.net/forums/d45...erreur-3346-a/

Si je pouvais avoir une reponse cette apreme ca serait bien je fini mon stage vendredi et il ne me reste plus que ca a faire et a former des gens..

Merci par avance

[argyronet]

Bonjour,

Tu n'as pas le même nombre de champs dans la clause INSERT et dans ton SELECT... Quand une requête en VBA ne fonctionne pas, il est de réflexe que de la tester dans le QBE d'Access.

Par ailleurs, ta convention de nommage est plus que curieuse.
Un nom de champ ne doit comporter ni espace, ni caractère spécial et qui plus est la simple quote .
Te voilà condamné à user de crochets à profusion, dans tes pages VBA...

Il en est de même pour tes noms de contrôle (Command34, List4) !

Enfin, un Run-Time Error n'a rien à voir avec le Runtime...

Argy

[Jean.Alexis]

Je te remercie pour ta reponse, je suis un peu debutant a vrai dire et j avais commence ma base avec des titres espaces... ( pas super efficace ^^)

Merci ca marche du tonnerre! comme quoi reflechir avant d agir!

Je tiens a remercier tous les gens de ce forum pour l aide apportee durant mon stage, y compris sur le chat.

Je pars de rien (ecole de commerce) et j ai reussi a realiser une base de donnee avec des options tres utiles pour une compagnie!

Merci a vous les gars!