[Resolvido]Popular Form.Desacoplado

Usando o DAO.Recordset, como popular um formulário contínuo desacoplado, com os registros da tabela ???

Mais uma vez recorro aos membros fórum, estou começando com formulários desacoplados e confesso que está dificil.

Abraços,

http://maximoaccess.forumeiros.com/t268-formulario-desvinculado

http://maximoaccess.forumeiros.com/t1004-resolvidonavegacao-em-formulario-desacoplado-em-registros-por-recordset

Ricardo,

Os exemplos que me passou foram:

1) Para popular Formulário MODO Simples
2) Para navegar entre os registros de um formulário

O que preciso é como popular um Formulário MODO Continuo ou folha de dados.


Abraços,

Vou lhe deixar uma dica que talvez possa ajudar: olhe em um formulário acoplado, como está a "Fonte de registro" na guia "Dados". Talvez lhe ajude a escrever a sintaxe que necessitas.

Dim rs2 As DAO.Recordset
Set rs2 = CurrentDb.OpenRecordset("SELECT cdTit, mVlrE FROM tb5FlxA")
Do While Not rs2.EOF
cdTit = rs2!cdTit
mVlrE = rs2!mVlrE
rs2.MoveNext
Loop
rs2.Close
Set rs2 = Nothing

Essa rotina faz o Loop pelos registros da tabela e joga no formulário.
O que acontece é que joga SEMPRE no primeiro registro do Form.
Preciso que jogue o primeiro registro da tabela no primeiro registro do Form., o segundo da tabela no segundo do Form., e assim sucessivamente.

Não tô conseguindo...

Uma forma de se fazer isso pode ser colocando no evento "Ao carregar" do formulário:


Me.RecordSource = "SELECT [Tabela1].[Código], [Tabela1].[Nome], [Tabela1].[Sobrenome] FROM [Tabela1] ORDER BY [Código], [Nome];"

E na origem dos campos você coloca os nomes dos campos das tabelas.

Criquio,

Com o RecordSource a Tabela fica aberta e é justamente isso que preciso evitar, com o Formulário desvinculado a tabela fica livre.

Boa Tarde Walter,

Acredito que o topico que você solicitou seja este.

Hoje em dia quando preciso apresentar um formulario em forma de Lista eu uso o controle

ListView do Visual Basic.

Estou em viagem mas vou disponibilizar um exemplo de um listView desacoplado usando

DAO.

Marque no seu projeto a Referência "Microsoft Windows Common Controls 6.0(SP6)"

Altere o caminho do Banco de Dados no modulo do projeto, e altere o nome
da tabela no evento Load do Formulário.

Link

Para saber mais sobre as propriedades deste controle, procure a
documentação no site do Macoratti, tem muita coisa boa lá Valeu?

Sds,

Boa noite, Jr.Wano

Eu criaria uma tabela a partir do seu código e colocava-a como origem do formulário.
Cumprimentos,

Charles,

O tópico é esse mesmo, agradeço pela disponibilidade.

Baixei o exemplo de ListView e vou estuda-lo (é o exemplo mais enxuto que já tinha visto).
Mas, minha necessidade é popular um Formulário contínuo desacoplado com os registros da tabela usando DAO:

Dim rs2 As DAO.Recordset
Set rs2 = CurrentDb.OpenRecordset("SELECT cdTit, mVlrE FROM tb5FlxA")
Do While Not rs2.EOF
'AQUI DEFINE OS REGISTROS DA TABELA NO FORMULÁRIO
cdTit = rs2!cdTit
mVlrE = rs2!mVlrE

'O QUE ACONTECE: Faz o laço pelos registros da tabela, e joga um em cima do outro no primeiro registro do formulário.
'O QUE PRECISO É:
'O PRIMEIRO registro da tabela no PRIMEIRO registro do Formulário
'O SEGUNDO ... no SEGUNDO ..., e assim sucessivamente


rs2.MoveNext
Loop
rs2.Close
Set rs2 = Nothing

Alexandre,

Realmente, criar uma tabela temp seria uma alternativa, vou usa-la se todos as alternativas de fazer com o DAO se esgotarem.

Por enquanto, continuo tentando...

Se possível, veja o código que postei, o que falta nele é ir para o próximo (novo) registro do FORMULÁRIO, após cada laço pelo registro da TABELA.


Abraços,

Boa noite, Jr.Wano

Eu quase não utilizo sub-formulários.
Pode criar tabela TdfTemp e utilizar essa tabela como origem do sub-formuário

'criar tabela TdfTemp
CurrentDb.Execute "INSERT INTO TblTemp SELECT cdTit, mVlrE FROM tb5FlxA"
Cumprimentos,

Galera, tenho um exemplo bem simples e prático onde o formulário é populado a partir de uma conexão via DAO.
Ele pega o caminho atribuído à tabela vinculada para acessar as informações.
Acho que vai te ajudar.

Private Sub Form_Open(Cancel As Integer)
Dim cn As ADODB.Connection
Dim Rs As ADODB.Recordset

'Use the ADO connection that Access uses 'Use a ligação ADO que o Access utiliza
Set cn = CurrentProject.AccessConnection

'Create an instance of the ADO Recordset class, and 'Criar uma instância da classe Recordset ADO, e
'set its properties 'Definir suas propriedades
Set Rs = New ADODB.Recordset
With Rs
Set .ActiveConnection = cn
.Source = "SELECT * FROM TblFuncionarios"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With

'Set the form's Recordset property to the ADO recordset "Defina a propriedade Recordset do formulário para o conjunto de registros ADO
Set Me.Recordset = Rs

Set Rs = Nothing
Set cn = Nothing
End Sub

Encontrado em: http://support.microsoft.com/kb/281998

Para que a caixa de texto exiba os dados é só atribuir à propriedade "Fonte do Controle" o nome do campo.

Abrç!

Obrigado pelo retorno. O fórum agradece.

Pode ser feito assim tambem:

Dim db As Database, rs As RecordSet, strSql As String

Set db = CurrentDb
strSql = "SELECT * FROM NomeDaTabela"
Set rs = db.OpenRecordset(strSql)

Me.Campo1DoForm.ControlSource = "Campo1DaTabela"
Me.Campo2DoForm.ControlSource = "Campo2DaTabela"
Me.Campo3DoForm.ControlSource = "Campo3DaTabela"

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

Viva
O problema de usar este código é que os filtros do access não funcionam

Private Sub Form_Open(Cancel As Integer)
Dim cn As ADODB.Connection
Dim Rs As ADODB.Recordset

'Use the ADO connection that Access uses 'Use a ligação ADO que o Access utiliza
Set cn = CurrentProject.AccessConnection

'Create an instance of the ADO Recordset class, and 'Criar uma instância da classe Recordset ADO, e
'set its properties 'Definir suas propriedades
Set Rs = New ADODB.Recordset
With Rs
Set .ActiveConnection = cn
.Source = "SELECT * FROM TblFuncionarios"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With

'Set the form's Recordset property to the ADO recordset "Defina a propriedade Recordset do formulário para o conjunto de registros ADO
Set Me.Recordset = Rs

Set Rs = Nothing
Set cn = Nothing
End Sub

Boa noite,
Coloque o filtro na cláusula WHERE
.Source = "SELECT * FROM TblFuncionarios WHERE ..."

Boa noite Alexandre
Colocar na cláusula where não é viável porque o filtro varia de acordo com as necessidades do utilizador e que pode ter vários filtros em simultaneo das diferentes colunas.
Uma solução que me surge é criar uma tabela offline via ado com dados do sql server mas ainda não consegui por a funcionar.
Tenho um exemplo com código semelhante ao referido e funcionava com filtros no 2007, desde que os PCs foram atualizados para o win7 e office 2010 deixou de funcionar

O filtro pode ser manipulado dinamicamente, como por exemplo acrescentando os campos selecionados em uma listbox que contenha a lista dos campos e/ ou acrescentando os valores de campos de pesquisa.

Sim isso pode ser feito, mas para cobrir todas as alternativas dos filtros do access era muito trabalhoso e ainda mais quando se tem dezenas de formularios