Discussion :

[rch05]

Bonjour,

J'essaye d'effectuer des ajouts dans une table, en employant la requête suivante:

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
 
Private Sub Commande42_Click()
Dim sql As String
Dim rst As DAO.Recordset, fields As DAO.fields
 
    DoCmd.OpenQuery "rqyPurgeTblADV"
    'DoCmd.OpenQuery "rqyRptAdv"
    'Ouverture du recordset
    Set rst = CurrentDb.OpenRecordset(Forms.frmConsultationADV.Sfrm.Form.RecordSource)
    If Not rst.EOF Then 'si il y a des enregistrements
        rst.MoveFirst 'positionnement sur le 1er
        While Not rst.EOF 'Boucle pour lire chaque enregistrement
        DoCmd.SetWarnings False
        'construire les sql d'une requête d'ajout
        sql = "INSERT INTO tblRptExcelADV ( ADV, [OF] )"
        sql = sql & " VALUES ('" & rst.fields(" & [v representant] & ").Value & "','" & rst.fields(" & [OF] & ").Value & "')"
 
        DoCmd.RunSQL (sql)
        rst.MoveNext
        Wend
        DoCmd.SetWarnings True
    End If
    Call CreateExcelChart
        Application.Quit
    End If
End Sub

Et j'ai l'erreur 3065: Elément non trouvé dans cette collection.
Le recordsource vient d'un sous formulaire

Quelqu'un a t-il une idée de mon erreur?
Merci d'avance de votre aide.

[micniv]

Bonjour,
Tu aimes la syntaxe compliquée :
1 - Déjà:

Code :

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

 Set rst = Forms.frmConsultationADV.Sfrm.Form.RecordsetClone

2 - ensuite :

... rst.fields(" & [v representant] & ").Value & "','" & rst.fields(" & [OF] & ").Value & "')"

les valeurs de [v representant] et OF sont des noms de colonnes de rst ???

3 - ensuite il faut blinder les valeurs par la fonction NZ en cas de valeur nulle

[rch05]

Bonjour,

J'ai trouvé la solution.
Au lieu de mettre le nom du champ, mettre le n° du champ.
En sachant que le 1er champ débute à 0
Donc la solution est:

Code :

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

1
2
 
rst.fields(0).value ' pour le 1er champ

Voilà.

[rch05]

Bonjour micniv,

Excuse moi, je n'ai pas vu ta réponse.
J'étais en train de mettre ma résolution.

Tu aimes la syntaxe compliquée :

J'ai appris a faire comme ça.
Le recordSource provient d'une autre requête, et le résultat se trouve dans le Sous Formulaire.

les valeurs de [v representant] et OF sont des noms de colonnes de rst ???

Effectivement, les valeurs des 2 champs sont des noms de colonnes de rst.
C'est comme ça que j'ai trouvé la solution.

Qu'entends-tu par

3 - ensuite il faut blinder les valeurs par la fonction NZ en cas de valeur nulle

Tu sais, je suis un jeune débutant (3 mois d'expérience), donc je ne comprends pas tout.
J'apprends grace à des sites comme celui-ci et de vos conseils qui me sont très précieux.

Merci
Christian

[micniv]

En clair, pour se mettre à l'abri des valeurs nulles:

Code :

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

1
2
3
4
...
 sql = "INSERT INTO tblRptExcelADV ( ADV, [OF] )" _
        & " VALUES ('" & Nz(rst(0)) & "','" & Nz(rst(1)) & "')"
...

[rch05]

Merci pour l'info.

Je vois que tu ne mets pas FIELDS.
Ce n'est pas une obligation par rapport à mon post?