Hop til teksten

IT FJERNUNDERVISNING
- IT kurser når Du har tid!

Gennemløb af data

Nedenstående kodestump løber kundetabellen igennem og skriver kundenummeret:

Public Sub Gennemloeb()
    Dim db As Database
    Dim rs As Recordset
    Dim intAntal As Integer

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Kunder")
    Do While Not rs.EOF
        Debug.Print rs("Kundenr")
        rs.MoveNext
    Loop
    rs.Close
End Sub

Når du har betalt for kurset får du adgang til øvelser til hver lektion. Og når du har fået godkendt din besvarelse får du desuden adgang til mine løsningsforslag med ekstra tips og trix.