Visual Basic - COMBOBOX

EN UN COMBOBOX QUIERO QUE AL DAR UN \"CLICK\" APAREZCAN LOS DATOS DE 1 TABLA EN OTRO COMBOBOX O LISTBOX PERO QUE SEA CONDICIONADA EJEMPLO: LA TABLA TIENE 2 CAMPOS EMPRESA Y EMPLEADO, AL DAR LE CLICK AL COMBOBOX APARECEN LAS EMPRESAS Y EN OTRO COMBOBOX O LISTBOX QUE ME APAREZCAN LOS EMPLEADOS DE LA EMPRESA QUE SE SELECCIONA EN EL COMBO1. SALUDOS Y GRACIAS DE ANTEMANO

Suponiendo dos tablas con los siguientes campo

TABLA: Empresa - CAMPOS: idEmpresa, nombreEmpresa, ...
TABLA: Empleados - CAMPOS: idEmpleado, empresa, nombreEmpleado, ...

En el formulario deben haber dos comobox:
- cboxEmpresas
- cboxEmpleados

En las declaraciones del formulario poner:

Dim dbBaseDeDatos as Database

Hacer un procedimiento:

Private Sub cargarEmpresas()
Dim rsEmpresas as Recordset

set rsEmpresas=dbBaseDeDatos.OpenRecorset("Empresas", dbOpenSnapShot)

cboxEmpresas.Clear
while not rsEmpresas.EOF
cboxEmpresas.AddItem rsEmpresas!nombreEmpresa
cboxEmpresas.MoveNext
wend

cboxEmpresas.Close
end

Hcer otro procedimiento:

Private sub cargarEmpleados(nombreEmpresa as string)
Dim rsEmpleados as Recordset
Dim SQL as string

SQL="SELECT nombreEmpleado FROM Empresas, Empleados WHERE idEmpresa=empresa AND nombreEmpresa='" & nombreEmpresa & "'"

set rsEmpleados=bdBaseDeDatos.OpenRecorset(SQL, dbOpenSnapShot)

cboxEmpleados.Clear
while not rsEmpleados.EOF
cboxEmpleados.AddItem rsEmpleados!nombreEmpleado
cboxEmpleados.MoveNext
wend
cboxEmpleados.Close
wend

En el evento Form_Load poner:

set dbBaseDeDatos=OpenDatabase("NombreDeLaBD")

cargarEmpresas

En el evento cboxEmpresas_Click poner:

cargarEmpleados cboxEmpresas.Text

Y eso es todo. Es posible que tenga agunos errores porque no tenia el VB a la mano.

NOTA: El proyecto debe tener en Referencias las librerias Microsoft DAO.

lo que tienes que hacer es darle un sql al datacontrol de donde sacas los datos de empleados, segun su empresa ejemplo:
data1.recorsourse="SELECT * FROM EMPLEADOS WHERE EMPRESA=" & "'" DATACOMBO1.TEXT & "'"

lo que tienes que hacer es darle un sql al datacontrol de donde sacas los datos de empleados, segun su empresa ejemplo:
data1.recorsourse="SELECT * FROM EMPLEADOS WHERE EMPRESA=" & "'" DATACOMBO1.TEXT & "'" AL DAR CLICK EN EL COMBO DE EMPRESA