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.