[Resolvido] ListBox

[Einstein 0]

Ola pessoal, tentei procurar nesse forum , porem nao consegui achar.

 

Estou com um problema na caixa list box. Tenho uma tabela chamada tb_procedimento

criei um formulario e gostaria saber como faço para que quando eu seleciono um codigo na listbox, apareça a descricao na caixa de texto.

Sei que existe, mas nao estou conseguindo, alguem pode sanar essa duvida?

 

grato

Pasteur

[Julien.Sorel 0]

Olá,

 

Não sei se era isto, mas lá vai assim mesmo...

 

 

Option Compare Database
Option Explicit
Public DB As Database
Public RS1 As Recordset

Function Conectar()
    
    Set DB = CurrentDb

End Function

Private Sub lstLogin_LostFocus()

Call Conectar
Set RS1 = DB.OpenRecordset("tblUsuarios")
         
    Do While Not RS1.EOF
        If lstLogin = RS1("Login") Then
            txtLogin = RS1("Nome")
        End If
        RS1.MoveNext
    Loop
    RS1.Close

End Sub

 

* A idéia é que você tenha uma List Box - lstLogin - e quando a mesma perder o foco, a Text Box - txtLogin - informará o nome do usuário referente ao login selecionado. Era isto? Caso não, me enviar mais informações...

 

 

 

 

Sem mais,

 

Julien Sorel

[Einstein 0]

Olá,

 

Não sei se era isto, mas lá vai assim mesmo...

 

 

Option Compare Database
Option Explicit
Public DB As Database
Public RS1 As Recordset

Function Conectar()
    
    Set DB = CurrentDb

End Function

Private Sub lstLogin_LostFocus()

Call Conectar
Set RS1 = DB.OpenRecordset("tblUsuarios")
         
    Do While Not RS1.EOF
        If lstLogin = RS1("Login") Then
            txtLogin = RS1("Nome")
        End If
        RS1.MoveNext
    Loop
    RS1.Close

End Sub

 

* A idéia é que você tenha uma List Box - lstLogin - e quando a mesma perder o foco, a Text Box - txtLogin - informará o nome do usuário referente ao login selecionado. Era isto? Caso não, me enviar mais informações...

 

 

 

 

Sem mais,

 

Julien Sorel

 

 

Na verdade é quase isso.

 

Eu tenho uma tabela chamada tb_procedimento.

Nesse formulario criei um listbox chamdo cod_proced e na aba Dados eu coloquei no item Origem da linha, um select :

SELECT tb_procedimento.cod_procedimento, tb_procedimento.procedimento FROM tb_procedimento ORDER BY tb_procedimento1.cod_procedimento;

 

E gostaria que no textbox, aparecesse o nome do procedimento e fosse automatico, ou seja,

quado mudasse na hora de 1 para 2 , mostrasse o procedimento e assim sucessivamente,

porem nao estou sabendo onde colocar isso e qual evento.

 

grato

pasteur

[Julien.Sorel 0]

Olá,

 

Não estou conseguindo visualizar o processo - favor enviar um exemplo simples com valores; exemplo...

 

* Campo List Box perde o foco com a informação igual a 5;

 

* Campo Text Box recebe o foco, verifica que o código é 5, verifica na tb_Procedimento qual procedimento equivale ao codigo 5 e o executa.

 

 

PS: caso eu estaja muito longe do desejado, me envia uma mensagem com o seu e-mail...

 

 

 

 

Sem mais,

 

Julien Sorel

[Einstein 0]

Ola Julien,

 

Consegui fazer o processo..ufa..

 

Option Compare Database

Option Explicit

Public db As DAO.Database

Public rs As DAO.Recordset

 

Function conectar()

Set db = CurrentDb()

End Function

 

Private Sub cod_proced_AfterUpdate()

 

Call conectar

Set rs = db.OpenRecordset("tb_procedimento")

Do While Not rs.EOF

If Me.cod_proced = rs("cod_procedimento") Then

Me.desc_proced = rs("procedimento")

End If

rs.MoveNext

Loop

rs.Close

end sub

 

Na verdade ele funciona assim

 

Quando seleciono um numero da list box (cod_proced) ele me retorna no textbox a descricao e se eu mudar o codigo ele atualiza o textbox de acordo com o numero que selecionei no listbox. Ex:

 

cod_proced: 1

desc_proced: tratamento de fermur

 

cod_proced: 2

desc_proced: tratamento de braçao

 

cod_proced: 3

desc_proced: tratamento de pe

 

Ou seja eu mudando o cod_proce, ele automaticamente muda o desc_proced. Usei esse processo no Após Atualizar nas propriedades do cod_proced.

 

Obs.: VOce tem algum livro interessante de acces que trabalhe com esses codigo de VBA ?

 

Grato

Pasteur

[Julien.Sorel 0]

Olá Pasteur,

 

Espero ter ajudado de alguma forma; quanto ao livro, o unico que comprei até hoje foi o "Universidade do Access", da Digerati.

 

Um bom livro, com bons exemplos no CD-Rom, mas um pouco limitado; pesquisei a algum tempo atrás e encontrei o "Universidade VBA", também da Digerti, mas não cheguei a adquirí-lo.

 

O que realmente recomendo é o treinamento em alguma CT de alto nível - caso more em São Paulo, recomento a Impacta.

 

Em todo caso sempre existirão bons fóruns para exclarecer possíveis dúvidas...

 

 

 

 

Sem mais,

 

Julien Sorel