MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Botão de sorteio

    avatar
    Efsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 02/05/2013

    [Resolvido]Botão de sorteio Empty [Resolvido]Botão de sorteio

    Mensagem  Efsilva 18/1/2014, 03:18

    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

    avatar
    Convidado
    Convidado


    [Resolvido]Botão de sorteio Empty Re: [Resolvido]Botão de sorteio

    Mensagem  Convidado 18/1/2014, 12:07

    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.
    avatar
    Efsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 02/05/2013

    [Resolvido]Botão de sorteio Empty Botão de sorteio

    Mensagem  Efsilva 18/1/2014, 20:58

    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?
    Anexos
    [Resolvido]Botão de sorteio AttachmentJOGO- SABE TUDO__.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (417 Kb) Baixado 34 vez(es)
    avatar
    Convidado
    Convidado


    [Resolvido]Botão de sorteio Empty Re: [Resolvido]Botão de sorteio

    Mensagem  Convidado 19/1/2014, 00:27

    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.
    avatar
    Efsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 02/05/2013

    [Resolvido]Botão de sorteio Empty Botão de sorteio

    Mensagem  Efsilva 19/1/2014, 13:03

    Coloquei o codigo, mas nao altera minha codpergunta

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


    Abçs
    avatar
    Convidado
    Convidado


    [Resolvido]Botão de sorteio Empty Re: [Resolvido]Botão de sorteio

    Mensagem  Convidado 20/1/2014, 00:58

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

    Cumprimentos.
    avatar
    Convidado
    Convidado


    [Resolvido]Botão de sorteio Empty Re: [Resolvido]Botão de sorteio

    Mensagem  Convidado 20/1/2014, 01:07

    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.
    avatar
    Efsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 02/05/2013

    [Resolvido]Botão de sorteio Empty Botão de sorteio

    Mensagem  Efsilva 20/1/2014, 11:12

    Bom dia. Valeu pela ajuda.

    Deu tudo certo.

    Obrigado
    avatar
    Convidado
    Convidado


    [Resolvido]Botão de sorteio Empty Re: [Resolvido]Botão de sorteio

    Mensagem  Convidado 20/1/2014, 11:54

    O Fórum agradece o Retorno.

    Conteúdo patrocinado


    [Resolvido]Botão de sorteio Empty Re: [Resolvido]Botão de sorteio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 09:10