[Resolvido]Botão de sorteio

Ola pessoal.

Estou tentando criar um banco com perguntas e respostas.
gostaria que a pergunta fosse sorteada atraves de um botão ou seja, quando eu apertar o botão ele muda todos os campos. sendo:

Botão - Sorteio aleatório

campo - codigopergunta
campo - Pergunta
campo - resp1
campo - resp2
campo - resp3

eu consegui fazer o botão de sorteio porem nao consigo fazer mudar a pergunta..

alguem pode me ajudar?


Obrigado

Imagine que você tenha 100Perguntas.... Cada pergunta tenha um registro de chave primária na tabela
de 01 a 100...

Podes utilizar o comando Randomize para selecionar um número, encontrando este número podes remeter o formulário ao registro condizente:

Em um botão coloque o código abaixo e teste:

Private Sub Comando26_Click()
Dim alfanumerico As String, sequencia As String
Dim i As Byte
Dim x As Byte
alfanumerico = "1234567890"
Continuar:
For i = 1 To 2
Randomize
x = Int(Rnd * Len(alfanumerico)) + 1
If InStr(1, sequencia, Mid(alfanumerico, x, 1)) Then
i = i - 1
Else
sequencia = sequencia & Mid(alfanumerico, x, 1)
If Left(sequencia, 1) = 9 Or Left(sequencia, 1) = 8 Then GoTo Continuar
If Left(sequencia, 1) = 7 And Left(sequencia, 2) > 0 Then GoTo Continuar
End If
Next
MsgBox sequencia
End Sub


A variável que conterá este número é a variável: Sequencia


Cumprimentos.

Ola, HARYSOHN


obrigado pela ajuda,

Estou enviando o banco para voce comprender melhor,
nele ja tenho criado o formulario com um botão que esta gerando o numero aleatorio, mas preciso que [codpergunta] seja mudado conforme seja sorteado um novo numero.

tenho 2230 perguntas e cada pergunta com um ID diferente.

é possivel desta forma?

Para remeter o formulário para a devida pergunta condizente com o número aleatório:

 ' Localizar o registo que corresponde ao controlo.
    Dim Rs As Object
    Set Rs = Me.Recordset.Clone

    Rs.FindFirst "[ID_Pergunta] = " & Str(Nz(" & Sequencia & ", 0))
    If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark

Cumprimentos.

Coloquei o codigo, mas nao altera minha codpergunta

Não sei o que esta errado. mas ela nao muda.


Abçs

Envie-nos um modelo para que possamos ver isto pra ti.

Cumprimentos.

Não havia percebido que tinha postado, eis:

    Dim arr1(1 To 1)
    'sorteia os numeros de A a Z e coloca-os numa array
    PreencheArray arr1(), 1, 2230 'Primeira linha sorteada de 1 a 15
    
    
    'preencher as caixas de texto com os valores sorteados, sem os repetir
    PreencheCaixas arr1(), 1, 1
    PreencheCaixas arr1(), 1, 2
    PreencheCaixas arr1(), 1, 3
    'Localizar o registo que corresponde ao controlo.
    Dim Rs As Object
    Set Rs = Me.Recordset.Clone

    Rs.FindFirst "[CodPergunta] = " & Str(Nz(Me.Text0, 0))
    If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark

   

Cumprimentos.

Bom dia. Valeu pela ajuda.

Deu tudo certo.

Obrigado

O Fórum agradece o Retorno.