Preencher campos à partir de um combobox

[Richardson Nogueira 0]

Bem, eu já vi muitos scripts por ae mostrando como se carrega um combobox à partir de outro... mas como faço pra carregar um formulário inteiro à partir de um combobox? É que na parte de edição do meu sistema, eu quero que o usuário selecione um Produto (no combobox carregado do banco) e venham todas as informações do produto para serem alteradas. como? eu não sei.

comofas?

 

T+

[Daniel LM Costa 2]

Bem, eu já vi muitos scripts por ae mostrando como se carrega um combobox à partir de outro... mas como faço pra carregar um formulário inteiro à partir de um combobox? É que na parte de edição do meu sistema, eu quero que o usuário selecione um Produto (no combobox carregado do banco) e venham todas as informações do produto para serem alteradas. como? eu não sei.

comofas?

 

T+

 

Não sei qual o campo chave primária da fonte de dados do seu form

Você deve criar o combo e colocar o código abaixo no evento afterUpdate do combo

 

 

 

 

	Dim strCriteria As String
	Dim rstPesquisa As Recordset
	strCriterio = "[campo] = '" & Me.combo & "'"
 
	Set rstPesquisa = Me.RecordsetClone
 

	rstPesquisa .FindFirst strCriterio 
 
	If rstPesquisa.NoMatch Then
	MsgBox "Registro não encontrado"
	Else
	me.Bookmark = rstPesquisa.Bookmark
	End If