Gennemløb af data

Beskrivelse

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

Øvelse

Opret en kopi af en af de tidligere databaser og kald den "Gennemløb.mdb".

Lav en procedure, der flytter alle de kunder, der har købt for under 100.000,- fra kunde tabellen over i en anden tabel, som du har oprettet på forhånd.

Pak databasen sammen eller omdøb den og send den til mig.

Løsning

Hent mit forslag til løsning her.

Koden ser sådan her ud:

Sub FlytSmåKunder()     Dim db As Database     Dim rsKunder As Recordset     Dim rsSmå As Recordset     Dim Grænse As String     Set db = CurrentDb     Set rsKunder = db.OpenRecordset("Kunder")     Set rsSmå = db.OpenRecordset("SmåKunder")          Grænse = InputBox("Indtast beløbsgrænse", "Beløbsgrænse")     If IsNumeric(Grænse) Then         Do While Not rsKunder.EOF             If CCur(rsKunder("Købialt")) <= CCur(Grænse) Then                 rsSmå.AddNew                 rsSmå("KundeNr") = rsKunder("KundeNr")                 rsSmå("Firma") = rsKunder("Firma")                 rsSmå("Adresse1") = rsKunder("Adresse1")                 rsSmå("Adresse2") = rsKunder("Adresse2")                 rsSmå("PostNr") = rsKunder("PostNr")                 rsSmå("By") = rsKunder("By")                 rsSmå("Tlf") = rsKunder("Tlf")                 rsSmå("Fax") = rsKunder("Fax")                 rsSmå("KøbIalt") = rsKunder("KøbIalt")                 rsSmå("OprettetDato") = rsKunder("OprettetDato")                 rsSmå("BilledeURL") = rsKunder("BilledeURL")                 rsSmå.Update                 rsKunder.Delete                 rsKunder.MoveNext             Else                 rsKunder.MoveNext             End If         Loop     End If     rsKunder.Close     rsSmå.Close     Set rsKunder = Nothing     Set rsSmå = Nothing     Set db = Nothing End Sub

Forrige Opret post

Næste Sortering af data

Brug for hjælp til VBA, VSTO eller SQL?

Scient Data tilbyder professionel IT-konsulentbistand

Kontakt Scient Data →