Bonjour tous le monde,

Voila j'ai un soucis, j'utilise 2 recordset pour remplir les champs d'un recorset avec un ceux du deuxieme. Or lorsque je clique sur mon bouton rien ne se passe...

Si une âme charitable avait une idée pour moi...

Voici mon code

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Private Sub importMmoins1_Click()
 
On Error GoTo Err_importMmoins1_Click
 
If IsNull(Me![moisM-1]) Or IsNull(Me![anneeM-1]) Then
MsgBox "Merci de saisir l'année et le mois correspondant au mois dernier"
Exit Sub
End If
 
 
Dim fs As New Scripting.FileSystemObject
If Not fs.FileExists("C:\Temp\Depannage.xls") Then
MsgBox "Le Fichier Depannage.xls est inexistant dans le repertoire C:\Temp"
Exit Sub
End If
 
DoCmd.RunMacro "ImportTxt"
 
Dim TabOld  As Recordset
Dim TabNew  As Recordset
 
Set TabOld = CurrentDb.OpenRecordset("ReqMoisMmoins1")
Set TabNew = CurrentDb.OpenRecordset("TempAjout")
 
 
TabOld.MoveFirst
While Not (TabOld.EOF)
 
    enr.MoveFirst
    While Not (TabNew.EOF)
 
        If TabOld("N° PDC") = TabNew("N° PDC") Then
        TabNew.EditMode
        TabNew("Commentaire BICM") = TabOld("Commentaire BICM")
        TabNew("Etat de l'affaire") = TabOld("Etat de l'affaire")
        TabNew("Nbres Relance") = TabOld("Nbres Relance") + 1
        TabNew.Update
        End If
        TabNew.MoveNext
        Loop
        Wend
 
    TabOld.MoveNext
    Loop
    Wend
 
TabOld.Close
TabNew.Close
 
DoCmd.OpenQuery ("AjoutListeGen")
DoCmd.OpenQuery ("SupprAjoutTemp")
 
Exit_importMmoins1_Click:
    Exit Sub
 
Err_importMmoins1_Click:
    MsgBox Err.Description
    Resume Exit_importMmoins1_Click
 
End Sub
Par contre je suis certain que tout fonctionne bien jusqu'à la ligne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
DoCmd.RunMacro "ImportTxt"
parce que lorque je met en commentaire toute la partie concernant les recorset ma table est remplie mais sans les commentaires que je veux rajouter

Merci d'avance