Problème de boucle dabs VBA Access

Résolu/Fermé

elavibo Messages postés 2 Date d'inscription dimanche 26 septembre 2010 Statut Membre Dernière intervention 27 septembre 2010 - 26 sept. 2010 à 22:05
elavibo Messages postés 2 Date d'inscription dimanche 26 septembre 2010 Statut Membre Dernière intervention 27 septembre 2010 - 27 sept. 2010 à 07:34

Bonjour,

J'ai un problème dans Access VBA : sur le code suivant, j'ai une erreur de compilation Wend sans While :

Dim MaRequete As Recordset
Set MaRequete = CurrentDb.OpenRecordset("R_EcritureNonDebite", dbOpenDynaset)
On Error Resume Next

With MaRequete
.MoveFirst
While .EOF = False

If !chkCloture = 0 Then
!DateBanque = Null
Else
!DateBanque = Forms![F_ClotureEcriture]![Calendar].Value
.Update
.MoveNext

Wend
.Close
End With
End Sub

J'ai essayé avec des DO et des Loop et j'ai exacgtement le meme problème. QQ'un a-t-il une idée ? C'est certainement une erreur de débutant.?
D'avance merci,

XP via parallèle desktop sous OS10

A voir également:

Problème de boucle dabs VBA Access
Access appdata - Guide
Acer quick access - Forum Logiciels
Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
Excel compter cellule couleur sans vba - Guide
Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi

1 réponse

Réponse 1 / 1

elavibo Messages postés 2 Date d'inscription dimanche 26 septembre 2010 Statut Membre Dernière intervention 27 septembre 2010
27 sept. 2010 à 07:34

J'ai trouvé mon erreur,
j'avais oublié mon end if... je le savais que c'était une erreur de débutant...

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

C'est quoi le runtime Access ?

Acer quick access

tele s'eteind et s'allume en boucle