Discussion :

[patgag78]

Bonjour,

Cette routine alimente un fichier temporaire. Les deux fichiers sont identique au niveau de format.

Les deux fichiers contiennent une clé primaire composée (sur deux champs)

Contient Tâches
Clé primaire = ID_FeuilleTemps (numérique mais pas Auto)
Clé primaire = ID_Tâche (numérique mais pas Auto)

TableTempo
Clé primaire = IDFeuilleTemps (numérique mais pas Auto)
Clé primaire = IDTâche (numérique mais pas Auto)

Dans mon formulaire, j'ai Me.TxtNoFeuilleTemps, j'aimerais que cette routine alimente mon fichier temporaire de tous les enregistrement du fichier Contient Tâches pour lequel le ID)_FeuilleTemps = Me.TxtNoFeuilleTemps

Est-ce que la commande FindFirst est la bonne commande ? À chaque fois que je vois un exemple de son utilisation c'est avec un champ texte.

Dans ma tête, je me positionnais sur le premier et de là je commençais ma boucle en me déplacant avec un moveNext

Merci de m'aider !

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
Sub AlimenterTaches()
 
    Dim CTâches As dao.Recordset
    Dim oDb As dao.Database
    Set oDb = CurrentDb
    Set CTâches = oDb.OpenRecordset("Contient Tâches", dbOpenTable)
    Dim Temp As dao.Recordset
    Dim oDb1 As dao.Database
    Set oDb1 = CurrentDb
    Set Temp = oDb.OpenRecordset("TableTempo", dbOpenTable)
 
 
 
     ' Se positionner et vérifier si Tâche existe
 
    CTâches.FindFirst ([ID_FeuilleTemps] = Me.TxtNoFeuilleTemps)
    If CTâches.NoMatch = False Then
        'Enregistrer dans le fichier temporaire
        Do While Me.TxtNoFeuilleTemps = CTâches("ID_FeuilleTemps")
            Temp.AddNew
            Temp("IDFeuilleTemps").Value = CTâches("ID_FeuilleTemps")
            Temp("IDTâche").Value = CTâches("ID_Tâche")
            Temp.Update
            Temp.MoveNext
        Loop
 
    End If
 
CTâches.Close
Set CTâches = Nothing
Temp.Close
Set Temp = Nothing
Set oDb = Nothing
Set oDb1 = Nothing

[patgag78]

J'ai oublié de mentionner que ça me donne l'erreur suivante:
Erreur d'exécution 2465: Microsoft Access ne trouve pas le champ «|1» auquel est fait référence dans votre expression.

Et, on surligne en jaune la ligne de mon FindFirst.

Merci.

[dumas.blr]

Bonjour patgag78,

Ne serait-ce pas plus simple de créer dynamiquement une requête de mise à jour
de type ?

Code :

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

1
2
3
4
5
6
 dim sqlinsert as string
sqlinsert = "Insert into TableTempo " & _
"(select ID_FeuilleTemps, ID_Tâche " & _
"from [Contient Tâches] " & 
"where [Contient Tâches].ID_FeuilleTemps =" & Me.TxtNoFeuilleTemps& ")"
docmd.runsql sqlinsert

[patgag78]

Merci beaucoup pour ton aide.

Effectivement, ça paraît moins compliqué: ton code est beaucoup moins long que le mien.

Je préfèrerais y aller avec ma logique. Mais l'important c'est que ça fonctionne. Donc, je l'ai essayé et ça n'a pas fonctionné: Erreur de Syntaxe.

Quand j'essai de modifier quelque chose dans la requête. Le programme affiche ceci. Attendu: numéro de ligne, etiquette ou instruction ou fin d'instruction

J'ai vérifié chaque variable, chaque nom mais je ne vois pas le problème. IL faut dire que je ne connaît pas vraiment le SQL.

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
Sub TestAlimenter()
 Dim sqlinsert As String
sqlinsert = "Insert into TableTempo " &_
"(select ID_FeuilleTemps, ID_Tâche " &_
"from [Contient tâches] " &_
"where [Contient tâches].ID_FeuilleTemps =" & Me.TxtNoFeuilleTemps& ")"
DoCmd.RunSQL sqlinsert
End Sub

[madefemere]

Bonjour,

Une petite coquille à la ligne 6 je pense (et dans le code initial), un espace avant le "&" :

Code :

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

1
2
3
4
........
"where [Contient tâches].ID_FeuilleTemps =" & Me.TxtNoFeuilleTemps & ")"
DoCmd.RunSQL sqlinsert
End Sub

Bonne continuation

[dumas.blr]

voici la requête telle qu'elle a été générée avec l'éditeur de requête

Code :

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

1
2
3
4
INSERT INTO TableTempo ( ID_FeuilleTemps, ID_Tâche )
SELECT [Contient Tâches].ID_FeuilleTemps, [Contient Tâches].ID_Tâche
FROM [Contient Tâches]
WHERE ((([Contient Tâches].ID_FeuilleTemps)=[Me].[TxtNoFeuilleTemps]));

en adaptant le VBA, tu devrais avoir

Code :

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

1
2
3
4
5
6
7
8
9
Sub TestAlimenter()
    Dim SQLInsert As String
    SQLInsert = "INSERT INTO TableTempo ( ID_FeuilleTemps, ID_Tâche ) " & _
                "SELECT [Contient Tâches].ID_FeuilleTemps, [Contient Tâches].ID_Tâche " & _
                "FROM [Contient Tâches] " & _
                "WHERE [Contient Tâches].ID_FeuilleTemps)=" & .TxtNoFeuilleTemps & ";"
 
    DoCmd.RunSQL SQLInsert
End Sub