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 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