Estoy haciendo un formulario con vba en excel con unos combo box dependientes, tengo uno que muestra las empresas con su id y su nombre y lo que quiero es que cuando seleccione la empresa en el combo box pase solo el id de la empresa a otro combo box para que me muestre solo los resultados que le pertenecen a esa empresa, este es mi godigo:
Código combo box empresa:
Private Sub comboEmpresa_Enter()
Me.comboEmpresa.Clear
sql = "select id_empresa, nombre_empresa from cat_empresas where empresa_activo = 1 order by 1 asc;"
Call conn 'aqui llamo mi conexion a la bd
Dim cmd As ADODB.command
Set cmd = New ADODB.command
Set rs = New ADODB.Recordset
With cmd
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = sql
Set rs = .Execute(adOpenDynamic, adLockOptimistic, adCmdText)
End With
Set cmd = Nothing
Do While Not rs.EOF()
valor1 = rs.Fields("id_empresa").Value
valor2 = rs.Fields("nombre_empresa ").Value
Me.comboEmpresa.Object.AddItem valor1 & " - " & valor2
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
Este es el código del otro combo box que es dependiente del de empresa:
Private Sub comboCultivo_Enter()
Me.comboCultivo.Clear
sql = "select id_cultivo, nombre_cultivo from cat_cultivos_erp where id_empresa = " & (valor del id_empresa del otro combo) & " and activo_cultivo = 1 order by 2 asc;"
Call conn 'aqui llamo mi conexion a la bd
Dim cmd As ADODB.command
Set cmd = New ADODB.command
Set rs = New ADODB.Recordset
With cmd
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = sql
Set rs = .Execute(adOpenDynamic, adLockOptimistic, adCmdText)
End With
Set cmd = Nothing
Do While Not rs.EOF()
valor1 = rs.Fields("id_cultivo").Value
valor2 = rs.Fields("nombre_cultivo").Value
Me.comboCultivo.Object.AddItem valor1 & " - " & valor2
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
Intente varias formas de pasar ese valor separado pero no me muestra nada. En el primer combo box si me muestra datos de esta forma:
1 - Empresa1 2 - Empresa2 3 - Empresa3