Tjeke database (VBA)

EOF er nok den nemmeste måde.. med der er andre, mere indviklede, måder..

F.eks.:

"Select Count(*) as antal ..."

Så har du antallet af poster i variablen "antal" (der vil være et tal..)

i = 0
Do while i < antal

' din kode her
i = i + 1 ' læg 1 til tallet i variablen "i", for hver post
Loop

Den burde så hoppe ud, når "i = antal"

PS: Opsætningen af SQL sætningen og COUNT, kommer an på hvilken database man arbejder med.. mener jeg.. dvs, SQL sætning til Access, virker muligvis ikke med MySQL osv..

Hmm skal nok bruge en anden løsning

Hvorfor?

Jeg har en loop. som køre en sub rutine.

I den subrutine køre den ".movenext" kommandoen 20 gange i en loop.. Kan du forstille dig at på et tidspunkt er der ikke flere dater i min database den kan hente.. Så når du har hentet det sidste data fra databasen, og du skriver "movenext", for du jo en fejl, for der er ikke flere i databasen.. Er du med?? :-)

Så gør du det jo forkert! Der skal jo ikke være 20x .movenext!

Der skal være .movenext, så mange gange som der er records.. og ikke mere..

Eksempel, med 12 records/poster/data/"kald de hvad du vil" i databasen..

"Select Count(*) as antal from DinTabel ..." ' ... = resten af din sætning

' antallet af records er nu gemt i variablen "antal". Dvs, hvis der er 20 records, så står der "20" i variablen "antal".

i = 0
Do while i < antal ' loopen kører så længe at tallet i variablen "i" er mindre end "12"

' din kode her
i = i + 1 ' læg 1 til tallet i variablen "i", for hver post

.movenext ' din .movenext-linie indsætter du her
Loop

1) Hvorfor skulle der være 20x .movenext? Det kan du jo ikke bruge til noget.. med mindre, at du 100% sikker på, at der ALTID vil være mindst 20 records i databasen..

2) Hvorfor kan du ikke bruge "do Until bla.EOF" ?

Det er meget svært at forklare hvad jeg skal lave.. så det bliver lidt svært med hjælpe?

Ja, det bliver svært at hjælpe.. for jeg kan måske finde 5, 10 eller 100 måder at gøre det på, hvor du så hver gang siger "skal nok bruge en anden løsning"..

1) Jeg kan ikke se, hvorfor du ikke kan bruge "EOF".. det er jo lavet specifikt til det her..

2) jeg kan ikke se, hvorfor du ikke kan bruge metoden fra 20/05-2005 13:27:27.. den burde virke (næsten) lige så godt..

Jeg har en mistanke om, at de der "20" kommer et eller andet sted fra, og kan være variable..?


Men hvis du vil have hjælp, må du lige smide noget kode, og et eksempel..

Do until rs.eof


rs.movenext
Loop

terry> Læs lige sprøgsmålet igen / Read the question again :-)

frede_manden> du kan jo også bruge "if not rs.eof then rs.movenext".. men svar lige på 20/05-2005 15:32:15

thesurfer hallo du siger noget med "if not rs.eof then rs.movenext" :D prøver lige :d

thesurfer Giv et svar så får du point det virker :D

Jeg troede at du overhovedet ikke ville bruge EOF :-)
Ellers havde jeg skrevet det noget før :-)

- Svar :-)

Hi thesurfer>
Ref your input 21/05-2005 14:29:48. I agree but I was suré that it was because frede_manden wasnt using it correctly. And "if if not rs.eof then rs.movenext" works then it looks as though my assumptions are correct

But as long as frede_manden gets it working now then that whats important

Og god søndag :o)

Jamen det var fordi jeg ikke kunne forstille mig at man kunne bruge EOF i den sammenhæng som du skrev... Tror kun man kunne skrive "do until rs.EOF"