Dim Filtro As String
Filtro = "Carrera = '" & Me.Cuadro_combinado332 & "' and Nota 1 > " & 3 & " and Nota 2 > " & 3 & " and Nota 3 > " & 3 & " and Nota 4 > " & 3 & " and Egresado = 0"
Me.Filter = Filtro
Me.FilterOn =True
Private Sub DBCombo1_Change()
Dim C As String
C = "NOMBRE'" + DBCombo1 + "'"
DatClientes.Recordset.FindFirst C "Aquí es donde me sale el error"
DBGrid1.Visible = False
If DatClientes.Recordset.NoMatch = 6 Then
FmaDatos.Visible = False
Else
FmaDatos.Visible = True
End If
End Sub
Private Sub DBCombo1_Change()
Dim C As String
C = "NOMBRE = '" + DBCombo1 + "'"
DatClientes.Recordset.FindFirst C "Aquí es donde me sale el error"
DBGrid1.Visible = False
If DatClientes.Recordset.NoMatch = 6 Then
FmaDatos.Visible = False
Else
FmaDatos.Visible = True
End If
End Sub