[VBA] aide sur Recordset

**clao260** · 09/08/2007, 14h28

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

**mout1234** · 09/08/2007, 15h29

Bonjour,

Quelques pistes:

Code :

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

enr.Movefirst

Je n'ai pas vu de recordset enr déclaré dans ton code...

Code :

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

Loop

Que viennent-il faire ici ? ça passe à la compilation ça?

While ... wend ne nécessite pas de Loop pourtant

As-tu posé uin point d'arrêt et exécuté en pas à pas? afin de voir s'il rentre dans tes while.... peut être que ta requête ReqMoisMmoins1 ne revoient aucune ligne....

**clao260** · 09/08/2007, 17h02

en ce qui concerne le :

Code :

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

enr.Movefirst

tu as parfaitement raison j'ai oublié de le modifier, cela donne

Code :

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

TabNew.MoveFirst

J'ai retiré les Loop et à vrai dire je ne peux pas executé en pas à pas car à la compilation la ligne :

Code :

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

TabNew.EditMode

sort en anomalie. Le message d'erreur est "Erreur de Compilation, Utilisation incorrect de la propriété.

Merci pour ton aide

**mout1234** · 09/08/2007, 17h09

Code :

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

TabNew.EditMode

D'où sort-tu cette méthode

? Je suppose que tu confonds avec un autre langage....

Code :

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

TabNew.Edit

Prends donc le temps de compiler tout ton code avant de le tester..

Bon courage

**clao260** · 09/08/2007, 17h15

le soucis etant que j'ai utiliser EditMode parce que VB me le proposait lors de ma saisi.
J'avais et je viens de ré-essayer avec TabNew.Edit et le resultat est mot pour mot le meme.

Merci pour ta disponibilité

**mout1234** · 09/08/2007, 17h28

Envoyé par clao260

le soucis etant que j'ai utiliser EditMode parce que VB me le proposait lors de ma saisi.
J'avais et je viens de ré-essayer avec TabNew.Edit et le resultat est mot pour mot le meme.

Merci pour ta disponibilité

Autant pour moi, EditMode est une propriété (et non une méthode) reconnue l'objet DAO.Recordset mais elle ne correspond pas à ton besoin.

Au fait... TabNew.... tu veux faire un ajout ou une mise à jour?

Si oui, il te faut faire un

Code :

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