Code om naar record te gaan in VB2008

[bonnowagt]

Ik heb een database in VBA deze heb ik nu opgezet in VB 2008. In deze database zitten rond de 4000 vragen.

Ik heb een randomize die willekeurig een ID pakt en daarna toe gaat met de volgende code:

id2 = Int(Rnd * totaal + 1)
ID = id2  
DoCmd.GoToRecord , , acGoTo, ID

Ik heb nu in VB 2008 de code staan:
 Dim opgave : Dim id2:dim id
        Randomize 
        opgave = CInt(Int((450 * Rnd()) + 1))
        id = opgave

Dit werkt prima alleen hoe is nu in VB 2008 de code om ook daadwerkelijk naar dit record te gaan dus ipv:
DoCmd.GoToRecord , , acGoTo, ID
Hoe luidt die code nu?

Bendakt

 

[Pizara]

je zal het met een SQL statement en een random voor .NET kunnen oplossen

Dim MijnRandom as New Random
MijnRandom.Next(1,4000)

"SELECT * FROM [JOUW TABEL] WHERE Id = '" & MijnRandom & "';"

 

[ik951m]

Ik heb een database in VBA deze heb ik nu opgezet in VB 2008. In deze database zitten rond de 4000 vragen.

Ik heb een randomize die willekeurig een ID pakt en daarna toe gaat met de volgende code:

id2 = Int(Rnd * totaal + 1)
ID = id2
DoCmd.GoToRecord , , acGoTo, ID

Ik heb nu in VB 2008 de code staan:
Dim opgave : Dim id2:dim id
Randomize
opgave = CInt(Int((450 * Rnd()) + 1))
id = opgave

Dit werkt prima alleen hoe is nu in VB 2008 de code om ook daadwerkelijk naar dit record te gaan dus ipv:
DoCmd.GoToRecord , , acGoTo, ID
Hoe luidt die code nu?

Bendakt

ik zou ff hier kijiken zo je verder kunnen helpen http://www.intertet.org/?post_id=165785

 

[huijb]

@bonnowagt code dient tussen codetags te staan. Tevens titel aangepast. VB zegt niets over je probleem.

 

[bonnowagt]

Dim opgave : Dim id2

Ik heb de volgende cpode geschreven. Op welke wijze pas ik de door jou opgegeven code hier.

Dim opgave : Dim id2

        Randomize 
        opgave = CInt(Int((450 * Rnd()) + 1))
        id2 = opgave
        id=id2
Mijn tabel = woordtabel

Alvast bedankt

Bonno Wagt

 

[huijb]

Wanneer je een code in een topic wil toevoegen, plaats deze dan tussen de code-tags (

 en

) oftewel selecteer je code en klik op het # icoontje.