Access
Tengo dos cuadros combinados uno con ciudades y otro con países, como enlazar los dos cuadros para que cuando se seleccione un país solo salgan las ciudades de esos países y viceversa.
1 respuesta
Respuesta de skie
1
Private Sub Cuadro_combinado0_Click()
Dim tabla As String
Cuadro_combinado2.Value = ""
If Cuadro_combinado0.Value <> "" Then
tabla = "SELECT ciudad FROM Mundo WHERE pais='"
tabla = tabla + Cuadro_combinado0.Value + "'"
Cuadro_combinado2.RowSource = tabla
End If
End Sub
Private Sub Cuadro_combinado2_Click()
Dim tabla2 As String
Cuadro_combinado0.Value = ""
If Cuadro_combinado2.Value <> "" Then
tabla2 = "SELECT pais FROM Mundo WHERE ciudad ='"
tabla2 = tabla2 + Cuadro_combinado2.Value + "'"
Cuadro_combinado0.RowSource = tabla2
End If
End Sub
Dim tabla As String
Cuadro_combinado2.Value = ""
If Cuadro_combinado0.Value <> "" Then
tabla = "SELECT ciudad FROM Mundo WHERE pais='"
tabla = tabla + Cuadro_combinado0.Value + "'"
Cuadro_combinado2.RowSource = tabla
End If
End Sub
Private Sub Cuadro_combinado2_Click()
Dim tabla2 As String
Cuadro_combinado0.Value = ""
If Cuadro_combinado2.Value <> "" Then
tabla2 = "SELECT pais FROM Mundo WHERE ciudad ='"
tabla2 = tabla2 + Cuadro_combinado2.Value + "'"
Cuadro_combinado0.RowSource = tabla2
End If
End Sub
