Discussion :

[alainb]

Bonjour,
Je veux copier tous les choix de ma liste dans une table tblResponsable
la requête suivante alimente ma liste,

Code :

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

sqlResponsable = "SELECT responsable FROM tblSource GROUP BY responsable ORDER BY responsable "

le reste de ce code est incomplet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
a = 0
Dim Resp As DAO.Recordset
Set Resp = CurrentDb.OpenRecordset(sqlResponsable)
Resp.MoveLast
 
    If Resp.RecordCount > 0 Then
 
    Resp.MoveFirst
        For a = 0 To Resp.RecordCount
        var= ???
            DoCmd.RunSQL ("INSERT INTO tblResponsable (libResponsable) VALUES ('" & var & " ')")
        Next a
End If

Pouvez-vous me donner quelques pistes ou des solutions SVP ?
Alain

[nico84]

Bonsoir,

Le plus simple :

Code :

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

1
2
3
If Resp.RecordCount > 0 Then
  DoCmd.RunSQL ("INSERT INTO tblResponsable (libResponsable) " & sqlresponsable)
End If

[alainb]

Bonsoir,
Le plus simple :

Bonjour Nicot,
Effectivement ta solution est nettement plus simple
Merci
Alain