[Resolvido]Selecionar arquivo aleatoriamente numa tabela access

Boa tarde amigos!

Estou montando um QUIZ e preciso que me ajudem a fazer com que o Access selecione um arquivo numa tabela aleatóriamente.

Por exemplo, o participante do Quiz irá selecionar um TEMA e um NÍVEL de dificuldades de uma pergunta que estarão previamente armazenados numa tabela chamada PERGUNTAS.

Esta tabela tem os seguintes campos: CÓDPERGUNTA/ TEMA/ NÍVEL/ PERGUNTA/ RESPOSTA A/ RESPOSTA B/ RESPOSTA C/ RESPOSTA D/ RESPOSTA CORRETA/ EXPLICAÇÃO.

O participante irá clicar num botão que irá selecionar uma pergunta dentro as várias armazenadas nesta Tabela Perguntas, filtrando o Tema e o Nível.

O participante depois terá de selecionar qual a resposta ele acha que é a certa, dentro das quatro opções oferecidas (A/B/C/D).

Após selecionar, o sistema confere se a resposta está certa, mostra a resposta correta e a explicação da resposta e pontua o participante.

Preciso saber como buscar aleatóriamente essa pergunta na tabela.

Aguardo o Help dos amigos.

Obrigado!

Luciel

Olá Luciel,

Procure na ajuda do access pela função Rnd ou Randomize.
Essa função faz exatamente o que você quer (Dá uma misturada nos registros).

Em que fase está o seu projeto?? Pergunto porque devo ter em meus arquivos um exemplo do Jogo do Milhão desenvolvido pelo Sames.
Caso queira é um excelente banco para estudo e aprendizado.

Nivaldo.

Oi Nivaldo, obrigado pelo retorno.

Estou no começo do programa, como sou iniciante e não conheço todas as ferramentas, fico limitado no desenvolvimento do sistema.

Eu já busquei essas informações do RND e Randomize, até já usei numa situação em que o programa escolhia uma "frase do dia" dentre muitas armazenadas no Módulo, mas não sei usá-lo para escolher um arquivo numa tabela.

Ficarei feliz se puder me enviar a estrutura desde Jogo do Milhão, vai-me ser útil, acredito.

Abraços;

No evento ao abrir de seu form:

Randomize
Dim Rs As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("SuaTabela", dbOpenDynaset)
With Rs
If .EOF Then
Exit Sub
Else
.MoveLast
.AbsolutePosition = CLng(Rnd() * .RecordCount)
Me.cxMensagem = !CampoTabela
End If
.Close
End With
Set Rs = Nothing

Bom dia Luciel,

Segue o bd que lhe falei.

Bom proveito e estudo.

Nivaldo.

Oi Topbr...

Obrigado pelos códigos:

Randomize
Dim Rs As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("SuaTabela", dbOpenDynaset)
With Rs
If .EOF Then
Exit Sub
Else
.MoveLast
.AbsolutePosition = CLng(Rnd() * .RecordCount)
Me.cxMensagem = !CampoTabela
End If
.Close
End With
Set Rs = Nothing

Pouca coisa do que está escrito ai em cima eu tenho conhecimento. Vou ver se consigo adptar ao meu sistema. Como disse sou bem novato. rs

Valeu, obrigado!

Oi Nivaldo, obrigado pela ajuda... neste fim de semana vou dar uma olhada neste programa e ver o que posso aproveitar. Depois posto aqui minha experiência.

Obrigado!

Luciel

O código está bem fácil:
Basta inserir o nome de sua tabela e o nome do campo que deseja.

Me.cxMensagem é um campo desacoplado no formulario.

Obrigado TopBr.

Está dando certo, mas me dê mais uma ajuda. Fiz o teste usando uma tabela, só que na verdade eu vou extrair as perguntas de uma Consulta que irá filtrar as perguntas por Nível de Dificuldades e Tema.

Como faço para fazer a pesquisa em cima desta Consulta ao em vez da Tabela?

Agradeço se puder me ajudar.

Grato;

Luciel

Você pode passar os critérios no select
Set Rs = CurrentDb.OpenRecordset("Select * From SuaTabela where...", dbOpenDynaset)

Desculpe mas não entendi.

A tabela se chama PERGUNTAS e a consulta se chama CON_SELEÇÃO, como devo escrever esta linha de código que você me passou?:

Set Rs = CurrentDb.OpenRecordset("Select * From SuaTabela where...", dbOpenDynaset)

Tentei algumas alternativas mas não deu certo.

Obrigado pela paciência. rs

Nesse tópico vc aprende sobre filtragens:
http://maximoaccess.forumeiros.com/t1594-instrucoes-sql-como-utilizar

ou

Se puder anexar parte do banco, ajudaremos.

Pois basicamente os mesmos critérios de sua consulta devem estar na instrução que lhe passei

Set Rs = CurrentDb.OpenRecordset("Select * From PERGUNTAS where...", dbOpenDynaset)

Oi TopBr, segue anexo o esqueleto do meu sistema.

Veja que está bem no início, quando terminar postarei ele completo para repartir com os amigos.

Se puder me ajudar, fico grato.

Abraços;

Luciel

Amigo, posso lhe dar uma dica preciosa?

Utilize meu sistema CongregaFacil Online, a batalha bíblica está gratuíta, basta após instalar o sistema, desabilitar a internet, e entrar na batalha bíblica, garanto que não vai se arrepender.

Segue o link:
www.congregafacil.com/setupCFOnline.exe

Mas de qualquer forma assim que possivel vou dar uma olhada em seu banco!!!

Segue seu banco, apenas mudei o campo Nível para Nivel.

Olá amigo TopBr!

Deixa eu ver se entendi. Na instrunção abaixo vc já fez a filtragem do nível e do tema, substituindo a consulta?

Set Rs = CurrentDb.OpenRecordset("Select * from Perguntas where Nivel='" & strNivel & "' and Tema ='" & strTema & "'", dbOpenDynaset)

Ou seja, não precisarei mais usar a consulta?

Muito interessante. Vivendo e aprendendo. rs

Obrigado pela atenção. Quando eu terminar o programa, vou posta-lo na íntegra.

Abraços;

Luciel

Isso mesmo amigo, esquece a consulta, a filtragem é na instrução Select

Mas experimente minha batalha bíblica, esta ficando cada vez melhor.

Me envie ou me passe o link onde posso ver seu sistema Batalha Bíblica.

Abraços;

Luciel

Segue o link:
www.congregafacil.com/setupCFOnline.exe
Código de cliente: congregafacil

Está no cadastro!!!

Aos amigos que me ajudaram e os outros que tenham interesse, segue o sistema que estou desenvolvendo para que possam aperfeiçoa-lo e ou usá-lo como necessitarem.

O sistema não está 100% ainda, mas já dá para brincar um pouco.

Abraços e mais uma vez obrigado.

Luciel

Parabéns amigo, gostei muito, nessa semana irei disponibilizar minha batalha bíblica que desmembrei do Congrega Fácil assim você terá mais idéias para implementar seu projeto!