Randomize sem Repetição

[programadorzenho 0]

pra deixar aleatoriovoce só poeORDER BY Rnd(Int(Now()*[iD])-Now()*[iD])no fim de sua sqlID é o nome do campo numerico

Mario ae ques está o problema..O Problema não esta no aleatório...e Sim q ta repetindo as perguntas...Eu queria que qndo desse as 10 questoes... MOstrasse o Resultado e acaba-se

Sub Perguntaselect case nivelcase "A" : SQL = "SELECT Count(cod) AS total FROM questoes WHERE tipo='A'"end selectSet rs = Con.execute(SQL)xtotal = rs("total")select case nivel'Isto no caso de quereres sortear 10 registos, se for outro numero, troca.case "A" : SQL = "SELECT * FROM questoes where tipo='A' ORDER BY Rnd(Int(Now()*[cod])-Now()*[cod]);"end selectSet rs = con.execute(SQL)randomize timerxrnd	= Int((xtotal * Rnd) + 0)rs.Move xrndSession("certa") = rs("certa")End SubSub FechaDBcon.closeset rs  = nothingset con = nothingEnd Sub

Ae onde eu mudei..mas continuou a mesma coisa..com Random porém repetindo as questoes!Surf_tibia@hotmail.comVlw Maro Mais uma vez pela ajuda..mas ta dificil isso mesmo

[Mário Monteiro 179]

tiozinhovoce tem que ter um controle sobre isso...primeiro voce marcar as perguntas que ja foram usadascom isso voce sabe quantas ja usou e quais ja usou assim não repete e termina na hora certa

[programadorzenho 0]

tiozinhovoce tem que ter um controle sobre isso...primeiro voce marcar as perguntas que ja foram usadascom isso voce sabe quantas ja usou e quais ja usou assim não repete e termina na hora certa

E como eu faria isso?! 0.o

[Mário Monteiro 179]

uma tabela extra poderia ser a solução ou até um cmapo extra