Preencher uma tabela com os dados de outra

[Jeck]

Galera, minha bronca é a seguinte:

Estou criando um sistema que irá escalar obreiros para os cultos de uma igreja, para cada culto deve ser escalados dois obreiros: Onde o sistema obedecerá a alguns critérios, como: veriicar se o obreiro está ativo e disponível, veriicar a hierarquia do obreiro, etc... Qual seria a melhor orma de implementar?

ex:

CULTO OBREIRO1 OBREIRO2

-cultoA João André

-cultoB Paulo José

-cultoC Tiago Pedro

Obs.: O sistema deve escalar aleatoriamente, a cada vez que o usuario clicar em ESCALAR.

Desde já, grato pela atenção.

[kuroi]

pra pegar um registro random, no access (não sei qual bd você usa), o codigo seria esse:

Select Top 1 * From Tabela Order By Sin(Rnd() * id)

onde id seria um campo chave numerico (teria q ser um campo q não se repete na tabela toda, de preferencia um campo autonumeracao).

pra fazer essas checagens, se esta disponivel etc, você pode por um where na query para checar.

se essa checagens so forem possiveis de serem feitas no visual basic, você pode tirar o top 1 da query, o q vai fazer com q ele traga todos os registros ordenados randomicamente. ai você vai testando um por um ate achar um disponivel.

[Jeck]

Massa!

Só quando eu tento setar o recordset ele dá o Erro 3061: "Parâmetros Insulficientes eram Esperados 1" Que bronca é essa?

estou jogando o código dessa forma:

Dim RSassoc As Recordset

Set RSassoc = CurrentDb.OpenRecordset("select * from assoc Order By Sin(Rnd() * id)

Valeu ai!

[Jeck]

Funcionou!!!!

Valeu mesmo cara! abç!

Não sei se dava pra azer algo mais funcional. Implementei dessa forma. Abraço a todos.

Obs. Ainda não estou veirificando critérios, apenas preenchendo.

Dim RSculto As Recordset
Dim RSassoc As Recordset


Set RSculto = CurrentDb.OpenRecordset("select * from culto")
Set RSassoc = CurrentDb.OpenRecordset("select * from assoc Order By Sin(Rnd() * id)")


      Do While Not RSculto.EOF
            If Not RSassoc.EOF Then
            RSculto.Edit
            RSculto.Fields("assoc_id").Value = RSassoc.Fields("id").Value
            RSculto.Update
            RSculto.MoveNext
            RSassoc.MoveNext
            Else
                RSassoc.MoveFirst
            End If
       Loop

Editado Março 7, 2010 por Jeck