[Access/VBA] slide schow in acces, wat doe ik verkeerd

[MoNo79]

Ik wil een soort slideschow maken in acces maar ik heb te weinig VB kennis om het probleem op te lossen.

Dit is wat ik zelf geprogrammeerd heb.

Private Sub Form_Timer()

Dim aantalRecords, teller

Teller = 0
aantalRecords = "SELECT Count(*) FROM artikel"


If (teller < aantalRecords) Then DoCmd.GoToRecord , , acNext

teller = teller + 1

If (teller = aantalRecords) Then
Teller = 0
DoCmd.GoToRecord , , acFirst
End if


End Sub

Wat gaat nu fout:

De variabelen mag ik niet deklaren in deze methode, maar waar kan ik dat wel doen, als ik deze buiten de methode doe kan hij ze niet vinden.
Nu komt wordt de teller niet opgehoogd, omdat de variabelen opnieuw geinialiseerd worden.

En ik had nog een vraagje hoe doe je een != vergelijking is in acces, bv if(iets != nogIets) zoals Java of C++.

Ik hoop dat het een beetje duidelijk is.


met vriedelijke groet,

Bas

[gorgi_19]

En ik had nog een vraagje hoe doe je een != vergelijking is in acces, bv if(iets != nogIets) zoals Java of C++.

Visual Basic:

If not iets = "melp" Then
    ' Voer actie uit
End if

[MoNo79]

gorgi_19 schreef op 23 november 2003 @ 16:21:
[...]

Visual Basic:

If not iets = "melp" Then
    ' Voer actie uit
End if

Bedankt, 1 probleem minder

[ATS]

Je kan Teller static maken, dan houdt hij zijn waarde.

[Boss]

variabelen kan je ook buiten je sub declareren, bovenaan in de code. Ik geloof dat je het dan met Global moet doen, staat ook allemaal in de help.

[OZ-Gump]

Je hoeft global niet eens te gebruiken. Dim een variabele net onder de options in je code-module en you're good to go.

Het is overigens een show, geen schow

[Verwijderd]

-de != operator is in vb(a) <>
dus if a<>b then

-is het niet beter met een record set te werken
>> wordt ingeladen bij het starten van je formulier (publieke variable )
>> je hebt de volgende methodes: next,previous,first,last, eof (boolean)
>> je hebt geen teller meer nodig
vb (syntax kan incorrect zijn, te lang geleden)
dim rs as new adodb.adodbRecordset(myproject.connection)
rs.recordsource = "select... from ..."
rs.next
enzoverder enzovoort

[Verwijderd]

Boss schreef op 23 november 2003 @ 20:25:
variabelen kan je ook buiten je sub declareren, bovenaan in de code. Ik geloof dat je het dan met Global moet doen, staat ook allemaal in de help.

private bovenin je code en public in een module

[MoNo79]

Thx voor de tips, ik heb hem nu aan de praat.

Ik heb de variabelen nu in een module, boven aan declareren gaf hij een fout melding dat hij hem niet kan vinden, zal wel wat fout doen

Maar ik bijf proberen om alle andere manieren ook aan de praat te krijgen, want dat moet toch werken

[ Voor 32% gewijzigd door MoNo79 op 24-11-2003 19:00 ]

[MoNo79]

OZ-Gump schreef op 23 november 2003 @ 23:12:
Het is overigens een show, geen schow

Tja spelen is niet mijn stekte punt