Atualizar textItem

[MaryJane 0]

Pessoal...

alguem sabe (nao eh possivel q nao dessa vez), como q faço pra traze um valor num campo do formulario..

Dexa eu explica melhor...

Tenho um campo funcionario, uma combobox, escolho o funcionario. O proximo campo eh o pai do funcionario, mas esse ja esta cadastrado, kero apenas q mostre ou seje.. q venha por osmose qndo eu escolho o funcionario...

Assim::::

 

Funcionario: Fulano de Tal

Funcionario Pai: Cicrano de Coisa -------> mas esse tem q vir junto com o funcionario, assim q atualizo o funcionario

 

Se nao entenderam, se nao explikei bem.. me qustionem, mas por favor me ajudem

grata :rolleyes:

[Jack% 0]

Oi MaryJane,

 

Isso é bem simples basta colocar uma busca no evento click de sua combobox, vou te passar um exemplo que pode se basear, neste quando seleciono uma cidade busco na tabela "tb_CIDADE", poderia ser uma query, sua descrição para preencher uma caixa de texto e ainda aproveito a mesma para preencher a sigla do país. Espero que ajude!!

 

Private Sub cmbCidade_Click()

Dim db As Database

Set db = CurrentDb

 

If Not IsNull(cmbCidade) Then

'Busca DESCRICAO da Cidade

strCriterio = "[COD_CIDADE] = " & cmbCidade

 

Set rs = db.OpenRecordset("tb_CIDADE", dbOpenDynaset)

rs.FindFirst strCriterio

 

'Se o Cidade for encontrado no BD o campo txtDESCRICAO é preenchido

If Not rs.NoMatch Then

txtDescricao = rs.Fields("DESCRICAO")

cmbPais = rs.Fields("COD_ISO")

Else

DoCmd.Beep

MsgBox "Cidade não cadastrado.", 48, "Banco de Dados"

cmbCidade.SetFocus

Exit Sub

End If

End If

 

db.Close

Set db = Nothing

End Sub

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[MaryJane 0]

hmmm...

nao testei ainda, mas vai ser de grande ajuda..

Me ajudou tbm para resolver uma questao parecida....

valeu http://forum.imasters.com.br/public/style_emoticons/default/clap.gif