Preciso que o campo Funci Responsavel se preencha sozinho, quando eu escolha um objeto na combobox Objeto, que teria uma consulta associando o Objeto com o Funci, porém não sei como puxar a segunda coluna do Combobox e Puxar a consulta para o Funci Responsável
- Código:
Private Sub txtObjeto_AfterUpdate()
Dim sqlResponsavel As String
Dim rstResp As Recordset
'Set rstResp = CurrentDb.OpenRecordset("consResp", dbOpenDynaset)
' Set sqlResponsavel = "SELECT tblEquipePBMS.numPBMS, tblFunciResponsavel.equipe, tblFunciResponsavel.funciResponsavel, tblFunciResponsavel.ChaveResponsavel FROM tblEquipePBMS INNER JOIN tblFunciResponsavel ON tblEquipePBMS.equipe = tblFunciResponsavel.equipe"
Me.txtFunciResponsavel = Me.txtObjeto.Column(1)
'fazer uma consulta que junte as tabelas equipePBMS e tblFunciResponsavel
'colocar o pbms selecionado como critério
'vai na tabela equipePBMS
'identifica funci responsável
End Sub
Última edição por Bernidios em 19/9/2017, 21:02, editado 1 vez(es)