VBA ACCESS Résolu/Fermé

Question

Bonjour,

Je suis en train d'établir un programme sur VBA mais je débute et je rencontre pas mal de difficultés.
La j'ai un gros problement avec les "MoveFirst" et "MoveNext" dans ma fonction. Un message d'erreur apparait: "Aucun enregistrement en cours". 

Voici ma fonction:
_________________________________________________________________________________________
Sub MeF_Gale()

DoCmd.SetWarnings False

Dim CSQL As String
Dim ReqTemp As Recordset
Dim TableTemp As Recordset
Dim CsqlTemp As Recordset
Dim VarID As String
Dim VarClasse As Integer

Set db = DBEngine(0)(0)
Set ReqTemp = db.OpenRecordset("R_Import_Vols_MaJ_Classe_2")
Set TableTemp = db.OpenRecordset("T_Import_Temp_4_Classe")

    ReqTemp.MoveFirst        '''-----C'est ici que ca bloq

'''ETC.----------------------


End sub
____________________________________________________________________________________________

Voila, si vous pouvez m'aider, je vous en remercie d'avance

Polux31 · Answer

Bonjour,

As-tu essayé avec un "Select *" sur une table ?

;o)

polux

amigo · Answer

Bonjour

jec rois que la syntaxe est:
Set ReqTemp = db.OpenRecordset("R_Import_Vols_MaJ_Classe_2", dbOpenTable)
Set TableTemp = db.OpenRecordset("T_Import_Temp_4_Classe",  dbOpenTable)

Ciao

PacomeBAD · Answer

OK. j vais essayer ta syntaxe pour voir si ca marche.
Sinon j ai pas essayé avec un select*, mais ca sert a quoi?

Ect ce que mon probleme peut venir du fait que ma table est vide?

PacomeBAD · Answer

Ca marche pas...

Polux31 · Answer

lol ben oui si ta table est vide .... ta requete ne retourne rien :os

PacomeBAD · Answer

Merci  lol

Polux31 · Answer

il faut plutôt faire : On Error Resume Next et gérer l'erreur:

On Error Resume Next
.....
....

If Err.Number <> 0 Then
  'code en cas d'erreur ex: un message d'alerte
  Exit Sub  ' on sort de la procédure
Else     'sinon
  'code à exécuter si pas d'erreur
End If

;o)

Polux31 · Answer

ça veut dire qu'il faut que tu fasses une récursive ... et enlever Exit Sub ... tu peux également tester le recordset par RecordSet.Count qui renvoie le nombre d'enregistrement. Si = 0 alors élément ="" ...

;o)

Polux31 · Answer

fait :
Dim nb As Long

et après l'exécution de la requête :

nb = rst5.RecordSet.Count
If nb = 0 then
....


;o)

pistol · Answer

Sujet ancien mais pour répondre, la syntaxe est du type: 

dim ReqTemp as recordset

Set ReqTemp = db.OpenRecordset("R_Import_Vols_MaJ_Classe_2")

if(ReqTemp.RecordCount>0)then
    ReqTemp.MoveFirst
    'code ici
else

end if

VBA ACCESS

10 réponses

Discussions similaires