[Resolvido]Exibir todos os Reg. no Form Desacoplado.

Bom dia! Boa tarde! Boa noite! meus amigos.

Estou utilizando o Script abaixo em um formulário no modo folha de dados, porem ele só me retorna o primeiro registro, o que tenho que fazer para que ele retorne todos os registros. Esse formulário está com os campos desacoplados e ele será para a pesquisa de registros do formulário principa.

Código:


Private Sub Form_Load()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * From Tabela ")

    Me.txtCampo1.Value = rs![Campo1 da tabela].Value
    Me.txtCampo2.Value = rs![Campo2 da tabela].Value

rst.Close
db.Close

Set rst = Nothing
Set db = Nothing

End Sub


Olá Victor,

Para ficar mais fácil e rápido, por gentileza, envie uma cópia do seu bd para análise e solução do problema.

Att,

Alexandre Fim

Opa, Alexandre, segue um exemplo do que estou tentando fazer.

Olá Victor,
Fiz algumas alterações no sistema, inclusive mudei a conexão DAO para ADO.
Com este tipo de conexão vc pode utilizar para conectar outros bancos de dados (SQL Server, MySql, SQLite e etc.) também, sem precisar mudar a estrutura de programação dos formulários e etc.
Eu separei o banco de dados para armazenar somente a tabela e outro somente para front-end e demais objetos(consultas/modulos/relatorios e etc).

O front-end ficou assim:


É necessário assinalar a referência ADO no sistema. No código, vá em Ferramentas>Referência e assinale:



É isso.

Segue versão atualizada

Espero ter ajudado

Att,

Alexandre Fim

Fala ai, Alexandre blz, estudei o seu script e conseguir aplicar o problema é que ele está fechando o access logo depois, pensei que era devido a quantidade de registro ai coloquei um Select top mais o problema ainda continua, tem alguma ideia do que possa ser.

Olá Victor,

Quantos registros tem na tabela?
É necessário filtrar somente os dados que deseja, ou então carregar o formulário vazio e depois filtrar o que deseja.

Pelo teste que eu fiz, a rotina está rodando normalmente.

Você alterou alguma no código?
Está fechando e limpando da memória os recordsets corretamente?


Att

Alexandre

A única mudança que fiz foi no caminho do banco e no Provider.

Código:

Public Function fnConecta()
On Error GoTo trata_erro

    '-- Se a conexão estiver aberta, finaliza a function
    If cnn.State = 1 Then Exit Function
   
'    strPathDB = CurrentProject.Path & "\dbteste.accdb"
    strPathDB = "C:\ZS\Servidor\ZS_DatabaseBkp.accdb"
   
    With cnn
'        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPathDB & ";Persist Security Info=False;"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPathDB & ";Jet OLEDB:Database Password=123456789;"
        .Open
    End With
   
 
    Exit Function

trata_erro:
    If cnn.State = 1 Then
        cnn.Close
        Set cnn = Nothing
    End If

    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Function
   

End Function

Outra, devido a quantidade de registros coloquei um Select Top.

Código:

Option Explicit
Option Compare Database

Private Sub Form_Close()

    Call fnDesconecta

End Sub

Private Sub Form_Load()

    Call CarregaDados

End Sub

'-- Procedimento para carregar dados no form
Public Sub CarregaDados()
On Error GoTo trata_erro

    '-- Executa função de conexão com bd
    Call fnConecta
   
    '-- Se recordset estiver aberto, então feche e limpe da memoria
    If rst.State = 1 Then
        rst.Close
        Set rst = Nothing
    End If
   
    '-- Instrução SQL
    sSQL = "SELECT top 100 * FROM tabela"
    'rst.Open sSQL, cnn, adOpenKeyset, adLockReadOnly
   
    Set rst.ActiveConnection = cnn
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenKeyset
    rst.LockType = adLockOptimistic
    rst.Open sSQL
    Set Me.Recordset = rst
    Set rst.ActiveConnection = Nothing
   
    Exit Sub

trata_erro:
    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
    Exit Sub

End Sub

Private Sub Form_Unload(Cancel As Integer)

    Call fnDesconecta

End Sub

Aparentemente, a sintaxe de conexão está correta.

Mude o CursorLocation.

De: rst.CursorLocation = adUseClient
Para: rst.CursorLocation = adUseServer

ou melhor, ajuste as linhas abaixo:

Set rst.ActiveConnection = cnn
rst.CursorLocation = adUseServer
rst.CursorType = adOpenKeyset
rst.LockType = adLockReadOnly
rst.Open sSQL
Set Me.Recordset = rst
'Set rst.ActiveConnection = Nothing



Tente isso.

Se não funcionar, compartilhe uma copia do sistema e o db para análise e solução

Valeu

Att,

Alexandre Fim

Alexandre descobri onde estava o problema, tinha um campo com formula nesse formulário, assim que excluir o campo o Access parou de fechar, obrigado pela ajuda, vou implantar esse método em todo o sistema.

Ok Victor...boaz sorte!!
O fórum agradece!!!