RE:Problemas con combos en Access
Hola
Creo que estas hablando de combos en cascada , por ejemplo , sin en un formulario tienes un campo combo donde hay nombre de colegios , al escojer un cololegio en el siguiente campo que es estudiantes solo esten los estuduantes de ese colegio seleccionado ,aca pego un codigo general para que todo los del foro lo vean, pero el ejemplo te lo envio(va comprimido) al correo que esta que aparece aqui , es un ejemplo que yo mismo encontre en internet y es muy claro , el asunto del correo es Combo Cascadas.
Espero te ayude.
Private Sub cboColumnField_AfterUpdate()
Dim strSQL As String
Dim strSQLSF As String
cboNumericField = Null
strSQL = " SELECT DISTINCT tblDemo.NumericField FROM tblDemo "
strSQL = strSQL & " WHERE tblDemo.RowField = '" & cboRowField & "' And "
strSQL = strSQL & " tblDemo.ColumnField = '" & cboColumnField & "'"
strSQL = strSQL & " ORDER BY tblDemo.NumericField;"
cboNumericField.RowSource = strSQL
strSQLSF = " SELECT * FROM tblDemo2 "
strSQLSF = strSQLSF & " WHERE tblDemo2.RowField = '" & cboRowField & "' And "
strSQLSF = strSQLSF & " tblDemo2.ColumnField = '" & cboColumnField & "'"
Me!sfrmForm.LinkChildFields = ""
Me!sfrmForm.LinkMasterFields = ""
Me!sfrmForm.LinkChildFields = "RowField;ColumnField"
Me!sfrmForm.LinkMasterFields = "RowField;ColumnField"
Me.RecordSource = strSQLSF
Me.Requery
End Sub
Private Sub cboNumericField_AfterUpdate()
Dim strSQLSF As String
strSQLSF = " SELECT * FROM tblDemo2 "
strSQLSF = strSQLSF & " WHERE tblDemo2.RowField = '" & cboRowField & "' And "
strSQLSF = strSQLSF & " tblDemo2.ColumnField = '" & cboColumnField & "' And "
strSQLSF = strSQLSF & " tblDemo2.NumericField = " & cboNumericField
Me!sfrmForm.LinkChildFields = ""
Me!sfrmForm.LinkMasterFields = ""
Me!sfrmForm.LinkChildFields = "RowField;ColumnField;NumericField"
Me!sfrmForm.LinkMasterFields = "RowField;ColumnField;NumericField"
Me.RecordSource = strSQLSF
Me.Requery
End Sub