Discussion :

[KevinA4]

Bonjour,

Je souhaite ajouter tout les enregistrements d'un sous-formulaire à une table. Une requête INSERT ça va, mais quel est le meilleur moyen pour passer tout les enregistrements et les ajouter dans une table.

Dois-je utiliser un recordset ? (si oui je suis dans la mauvais forum).

Merci d'avance!

[hyperion13]

Salut
Je suppose que ton sform est lié au form via les champs Pere/Fils (id_pk = champ Pere - id_fk = champ Fils)

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 btncopy_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSql As String
 
Set dbs = CurrentDb
'requete source du sform
strSql = "SELECT * FROM tbl_source WHERE id_fk = " & Me.id_pk
Set rst = dbs.OpenRecordset(strSql)
'on test si le recorset n est pas vide
If Not rst.EOF Then
    'tant qu il n est pas vide
    Do While Not rst.EOF
        'recuperation des valeurs des contrôles qui composent ton sform
        sId_fk = rst.Fields("id_fk").Value
        sChamp1 = rst.Fields("Champ1").Value
        sChamp2 = rst.Fields("Champ2").Value
 
        'execution requete insertion
        dbs.Execute "INSERT INTO tbl_cible ([id_fk], [Champ1], [Champ2])" _
        & " VALUES ( " & sId_fk & " , '" & sChamp1 & "', #" & sChamp2 & "# )", dbFailOnError
    'tu passes a l'enregistrement suivant
    rst.MoveNext
    Loop
End If
End Sub

Rappel :
" & sChamp1 & " si numérique'" & sChamp1 & "' si string#" & sChamp1 & "# si date

[KevinA4]

Wow merci beaucoup

Code :

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

1
2
3
sId_fk = rst.Fields("id_fk").Value
sChamp1 = rst.Fields("Champ1").Value
sChamp2 = rst.Fields("Champ2").Value

sID_fk, sChamp1, sChamp2 ce sont des variables string ?

[hyperion13]

Sont des variables sans distinction de type.
L21 de la proc
sId_fk pas de symboles qui l'encadre, donc numérique
sChamp1 encadré par de simples cotes, donc string
sChamp2 encadré par des dièses, donc date

[KevinA4]

Merci de la précision!

[KevinA4]

Salut Hyperion,

J'ai quelques complications ...

Code :

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

1
2
3
4
5
6
 
Set dbs = CurrentDb
'requete source du sform
'strSql = "SELECT * FROM tbl_source WHERE id_fk = " & Me.id_pk
'Set rst = dbs.OpenRecordset(strSql)
'on test si le recorset n est pas vide

La requête source de mon formulaire est basée sur une requête et non une table, comment dois-je procéder ?

Code :

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

1
2
3
4
 
strSql = "SELECT * FROM Animal-Medaille WHERE RefProprio = " & Me.RefProprio & ""
 
Set rst = dbs.OpenRecordset(strSql)

J'obtiens Erreur de syntaxe dans la clause FROM.

[KevinA4]

Code :

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

1
2
3
 
'requete source du sform
Set rst = CurrentDb.OpenRecordset("Animal-Medaille", dbOpenDynaset)

tout simplement.. je remet RÉSOLU