[Resolvido]preenchimento automático de campos no formulário

A paz de Deus para todos.

Amigos:

Alguém pode me dar alguma dica sobre como fazer preenchimento automático de campos de formulários? Gostaria que quando fosse preenchido um determinado campo no formulário os demais fossem automaticamente preenchidos.

Estou tentando fazer um controle para escritório de advocacia, mas não sei nada além de criar tabelas e formulários. Estou começando a assistir as aulas de VBA/Access do Prof. Plínio Mabesi, mas ainda é cedo para conseguir fazer o que pretendo.

Que Deus abençoe a todos.

O nada com DEUS é muito; o muito sem DEUS é nada.

Bom dia Pedro... Ja deu uma pesquisada sobre o coamando Dlookup?

Encontrará vários exemplos nas salas de repositório.

Cumprimentos.

Veja estes tópicos:

http://maximoaccess.forumeiros.com/search?mode=searchbox&search_keywords=dlookup&show_results=topics

Cumprimentos

com sua licença mestre HARYSOHN

no evento ao sair do campo do formulario

Dim strSql As String, rstTemp As DAO.Recordset

'ao preencher o campo "txtcampoform, verifica se ele tem informação
If txtcampoform <> "" Then
'se o campo estiver preenchido executa linha de baixo
'vai na tabela e pega toda linha se for igual ao txtcampoform
strSql = "Select * from tabela where campotabela = '" & txtcampoform & "'"
Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot)
If Not rstTemp.EOF Then
'encontrando a linha com as informações joga nos campos do form em relação a tabela
campoformulario = rstTemp("campotabela")
.....

rstTemp.Close
Set rstTemp = Nothing
End If
End If


não sei se me expliquei bem.

São várias opções para isto... depende-se muito da utilização....

Como o formulário já estã carregado pode-se utilizar tambem a opção clone para setar o recordset.

Dim strSql As String, rstTemp As DAO.Recordset

'ao preencher o campo "txtcampoform, verifica se ele tem informação
If txtcampoform <> "" Then
'se o campo estiver preenchido executa linha de baixo
'vai na tabela e pega toda linha se for igual ao txtcampoform
strSql = "Select * from tabela where campotabela = '" & txtcampoform & "'"
Set rstTemp = Me.RecordsetClone
If Not rstTemp.EOF Then
'encontrando a linha com as informações joga nos campos do form em relação a tabela
campoformulario = rstTemp("campotabela")

Pedro

Conseguiu alguma coisa por ai?

A Paz de Deus para todos.

Caros Ifahidalgo e Harysohn:

Vou dar como resolvido esse tópico para que não fique desnecessariamente em aberto. Na verdade preciso aprender muito mais para poder aproveitar essas dicas. Estou assistindo às aulas do Prof. Plínio Mabesi (Access/VBA) e, depois, volto a carga.

Muito grato pela simpatia, tempo e disposição.

Deus abençoe a todos nós.




O nada com Deus é muito, mas o tudo sem Deus é nada.