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


3 participantes

    [Resolvido]Sorteio escolhendo a quatidade

    avatar
    fermoraisc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/08/2017

    [Resolvido]Sorteio escolhendo a quatidade Empty [Resolvido]Sorteio escolhendo a quatidade

    Mensagem  fermoraisc 29/9/2017, 18:52

    Pessoal, estou criando um sistema que realize sorteio aleatório de peças, as peças são classificadas de A até E, serão sempre sorteadas 100 peças por mes, sendo que dessas peças 51 precisam ser A e B e 49 C, D e E, as peças só podem ser repetidas se todas da mesma classificação já tiverem sido sorteadas, já pesquisei nas perguntas anteriores mas não achei nada parecido, e não consegui abrir o exemplo de bingo do JPaulo. Segue o código que estou tentando adaptar. Obrigada a todos.




    Código:
    Option Compare Database
    Option Explicit
    ' Essa função será chamada quando todas as peças tiverem sido sorteadas
    Private Function MudaSorteada()

    Dim db As Database, rs As Recordset, rx As Recordset

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("AB", dbOpenDynaset)
    Set rx = db.OpenRecordset("CDE", dbOpenDynaset)
    db.Execute "UPDATE AB SET Sorteada='" & "Não" & "'" 'Muda o campo Sorteada de todas as peças para "Não"
    db.Execute "UPDATE CDE SET Sorteada='" & "Não" & "'"

    rs.Close
    rx.Close
    Set rs = Nothing
    Set db = Nothing
    Set rx = Nothing

    End Function

    Private Sub Form_Load()

    Dim Alea As Long, Cond As String

    If DCount("*", "AB", "Sorteada='" & "Sim" & "'") < 51 Then

    Do
    Alea = Int(Rnd() * DMax("COD", "AB")) + 1
    If DLookup("Sorteada", "AB", "COD=" & Alea) = "Sim" Then
    Cond = "False"
    Else
    Cond = "true"
    End If
    Loop Until Cond = "true"
    txtID_ITEM = DLookup("ID_ITEM", "AB", "COD=" & Alea)
    TxtABC = "Classe " & DLookup("ABC", "AB")


    If DCount("*", "CDE", "Sorteada='" & "Sim" & "'") < 49 Then

    Do
    Alea = Int(Rnd() * DMax("COD", "CDE")) + 1
    If DLookup("Sorteada", "CDE", "COD=" & Alea) = "Sim" Then
    Cond = "False"
    Else
    Cond = "true"
    End If
    Loop Until Cond = "true"
    ID_ITEM = DLookup("ID_ITEM", "CDE", "COD=" & Alea)
    ABC = "Classe " & DLookup("ABC", "CDE")



    Dim db2 As Database, rs2 As Recordset, db3 As Database
    Set db2 = CurrentDb()
    Set db3 = CurrentDb()

    db2.Execute "UPDATE AB SET Sorteada='" & "Sim" & "' WHERE COD = " & Alea & ";"
    db3.Execute "UPDATE CDE SET Sorteada='" & "Sim" & "' WHERE COD = " & Alea & ";"


    Set rs2 = Nothing
    Set db2 = Nothing
    Set db3 = Nothing

        If DCount("*", "AB", "Sorteada='" & "Sim" & "'") = DCount("*", "AB") Then
            Call MudaSorteada
            
        End If
        
        If DCount("*", "CDE", "Sorteada='" & "Sim" & "'") = DCount("*", "CDE") Then
        Call MudaSorteada
        
        End If
        

    Else
    Exit Sub
    End If
    End If

    End Sub





    Última edição por fermoraisc em 6/3/2018, 11:32, editado 3 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Sorteio escolhendo a quatidade Empty Re: [Resolvido]Sorteio escolhendo a quatidade

    Mensagem  JPaulo 2/10/2017, 09:22



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Sorteio escolhendo a quatidade Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Sorteio escolhendo a quatidade Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Sorteio escolhendo a quatidade Folder_announce_new Instruções SQL como utilizar...
    avatar
    fermoraisc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/08/2017

    [Resolvido]Sorteio escolhendo a quatidade Empty Re: [Resolvido]Sorteio escolhendo a quatidade

    Mensagem  fermoraisc 2/10/2017, 12:10

    Obrigada J.Paulo, pelo que eu entendi estes números são gerados pelo próprio sistema, como eu poderia fazer para ele sortear números que estão em uma tabela ? Obrigada

    Este código que eu anexei já está realizando os sorteios, porém está realizando apenas de uma peça, gostaria que aparecessem as 51 peças.


    Última edição por fermoraisc em 2/10/2017, 15:14, editado 1 vez(es)
    avatar
    jntrindade
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 277
    Registrado : 07/12/2009

    [Resolvido]Sorteio escolhendo a quatidade Empty Re: [Resolvido]Sorteio escolhendo a quatidade

    Mensagem  jntrindade 2/10/2017, 12:38

    boa dia, JPaulo aproveitando a oportunidade como colocar os números gerados em um campo de texto em sequencia separados por virgula na tabela.

    desde já obrigado.

    Conteúdo patrocinado


    [Resolvido]Sorteio escolhendo a quatidade Empty Re: [Resolvido]Sorteio escolhendo a quatidade

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 08:57