[Resolvido]Modulo de Gerenciamento de RecordSet

Bom dia Mestres! desculpe minha ausência no fórum estava de férias mas já retornei a ativa!
meus companheiros quem puder me dar ou já tem uma idéia sobre a luz por favor me ajudem!

Tenho em mente gerenciar as recordsets por um módulo onde ele reconhece todos os campos do formulário e set automáticamente o rs!nomecampo como no exemplo abaixo!

Código:

Option Compare Database
Option Explicit
Private db As DAO.Database
Private rs As DAO.Recordset

Public Function caminho() As String
    caminho = Application.CurrentProject.Path & "\teste.accdb"
End Function

Public Function fecha()
On Error Resume Next
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
End Function

Public Function abre(SQL As String, frm As Form)
On Error Resume Next
    Dim ctl As Variant
    Set db = OpenDatabase(caminho, False, False)
    Set rs = db.OpenRecordset(SQL)
    Dim campo As Variant
   
    'Pega todos os controles
    For Each ctl In frm.Controls
        Select Case ctl.ControlType
            Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
            'Execução
                campo = frm.ctl.Name = rs!ctl.Name
                frm.ctl.Name = rs!ctl.Name
            'Fim de Execução
        End Select
    'Próximo controle
    Next ctl

End Function

Só que o access não reconhece o comando claro por que não usei alguns commandos para ler o record set como este aqui:

Código:

With rs
While Not .EOF
'Executar
.MoveNext
Loop
End With

O que estou tentando fazer e já tive alguma luz mas não sei como chegar lá é que cada vez que o for each achar o campo ele registrar em uma coleção e quando pegar todos os campos, executar algo como assim:

Supondo que achou 4 campos.

Código:

!ctlname(1) 'Código
!ctlname(2) 'Nome
!ctlname(3) 'Sobrenome
!ctlname(4) 'Idade

Como é que eu faço para gerenciar essas records set no formulário?

Tenho grandes idéias mas não sei como chegar lá...
Já bati a cabeça para todos os lados, só não sei pq ainda não saiu nada que funcione...

Você quer elaborar uma função que verifique todos os controles de um formulário e os anexe automaticamente a campos de uma tabela, é isso mesmo? Se for isso, acredito que uma das formas mais eficientes seria nomear formulários e tabelas de forma semelhante e os campos tambem. Exemplo:

tblClientes              frmClientes
Nome                     txtNome
Sobrenome                txtSobrenome
DataNascimento           txtDataNascimento

Dessa forma, com um Loop você percorre os campos do formulário e anexa aos da tabela sem o "txt" e tambem pega o nome do formulário mudando o "frm" para "tbl"

Bom dia Criquio!
Obrigado por dar uma mão a este problemão que arranjei...

então sobre isto eu já fiz, e está exatamente como o da tabela, agora não sei se isto não funciona...

na tabela e no formulári estão exatamente assim:
Tabela | Formtxt| FormSource
Código | Código | Código
cmp1 " "
cmp2 " "
cmp3 " "
cmp4 " "
cmp5 " "

todos estes campos estão exatamente como o da tabela, mas como é que o recordset seta no formulário? isto não está a funcionar... vou anexar para que você entenda melhor a minha idéia.

(obs, acabei de fazer um loop infinito sem querer e o banco de dados até travou, não sei mais o que fazer )

Olha consegui resolver com isto, será que é o correto a fazer? ou tem uma perca de desempenho nisto?

Olhe não sei por que razão também, sei que não há necessidade de usar o Do While Not .EOF mas pode ter certeza que usando ele o desempenho foi meramente percepitível, algo de microsegundos, mas sendo em questão de desempenho para grandes quantidade de registros, é uma boa questão a se pensar, os números do registros abaixo também aparecem instantaneamente já sem o Do while ele demora a aparecer questão de 400ms mais tarde...

veja os códigos ou anexo que postei:

Módulo:

Código:

Option Compare Database
Option Explicit
Private db As DAO.Database
Private rs As DAO.Recordset

Public Function caminho() As String
    caminho = Application.CurrentProject.Path & "\teste.accdb"
End Function

Public Function fecha()
On Error Resume Next
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
End Function

Public Function abre(SQL As String, frm As Form)
On Error Resume Next
    Dim ctl As Variant
    Set db = OpenDatabase(caminho, False, False)
    Set rs = db.OpenRecordset(SQL)
        With rs
            Do While Not .EOF
            'Do whatever here
            .MoveNext
            Loop
        End With

Set frm.Recordset = rs
End Function

Formulário:

Código:

Option Compare Database
Option Explicit
Dim SQL As New SQLX
Private rs As DAO.Recordset
Private db As DAO.Database
Private Sub form_load()
Call abre("SELECT * FROM tblSQL", Me)
End Sub

Private Sub Form_Unload(cancel As Integer)
Call fecha
End Sub

Resolvido mas não finalizado, como mudei a estrutura vou abandonar está. Fiz a abertura de um novo tópico já com as soluções e dúvidas diferênte!