Bonjour
Je voudrais effectuer une boucle du genre:
Dim Somme As Integer
If Option4.Value = True Then
With RS
Do While Not RS.EOF
Somme = RS! Somme
RS! Somme = Somme + 1
RS.Update
RS.MoveNext
Loop
End With
Else
Exit Function
End If
Mais dans le contexte ci-dessous en utilisant un fichier texte
au lieu d'utiliser une base de données
Merci pour votre aide
A+ Michèle
Private Type Enregistrement
Nom As String * 30
Prenom As String * 25
Somme As Integer
End Type
Dim NombreResultat As Integer
Dim NewResultat As Enregistrement
Dim Compteur As Integer
Dim CompteurPlus As Integer
Private Sub Form_Load()
Dim Chemin As String
Chemin = App.Path & "\Msvpd.dat"
Open Chemin For Random As #2 Len = Len(NewResultat)
NombreResultat = LOF(2) / Len(NewResultat)
Compteur = NombreResultat
End Sub
Private Sub Ajouter_Click()
NombreResultat = LOF(2) / Len(NewResultat)
CompteurPlus = NombreResultat + 1
NewResultat.Nom = TxtNom.Text
NewResultat.Prenom = TxtPrenom.Text
NewResultat.Somme = TxtSomme.Text
Put #2, Compteur + 1, NewResultat
msgAjoute = MsgBox("L'abbonné: '" & TxtPrenom.Text & " " & TxtNom.Text & "' à été ajouter à la liste des abbonnés!", vbOKOnly + vbInformation, "L'abonné à été ajouter!")
End Sub