Problème de boucle dabs VBA Access
Résolu
elavibo
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
elavibo Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
elavibo Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
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
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Acer quick access - Forum logiciel systeme
- Access appdata - Guide
- Quick Access service ✓ - Forum PC portable
- Désinstaller ACER QUICK ACCESS - Forum Logiciels