Error al utilizar filtro
Publicado por Mariano (14 intervenciones) el 13/04/2012 01:35:44
Hola: tengo un adodc enlazado a una tabla donde tengo cargado todas las licencias de conducir de las personas. Tengo un formulario donde se generan las actas y lo que quiero es que de acuerdo el dni de la persona a la que se le hace el acta, a la hora de ver las licencias que tiene (ya que una persona puede tener varias), para autos, motos etc, me filtre solo las licencias de esa persona según el dni y no me aparezcan todas. Yo hice lo sig:
esto lo tengo en el formulario actas cuando tengo que cargar la licencia de un conductor
public filtro as long (declarado en el módulo)
Private Sub cmdlic_Click()
If (frmlicencias.adolicencia.Recordset.BOF = True And frmlicencias.adolicencia.Recordset.EOF = True) Then
MsgBox "No hay datos cargados", vbInformation, "Atención"
Else
If (txtdni.Text <> "") Then
filtro = txtdni.Text
frmlicencias.adolicencia.Recordset.Filter = "lic_perdni = filtro"
frmlicencias.Show
Else
MsgBox "Ingrese datos de la persona", vbInformation, "Atención"
Exit Sub
End If
End If
End Sub
pero en la linea del filter me sale Error 3001 en tiempo de ejecución.
Argumentos incorrectos, fuera de intervalo permitido o conflicto con otros.
Pero pruebo poniendo lo siguiente: frmlicencias.adolicencia.Recordset.Filter = "lic_perdni = 24645855" es decir reemplazando la variable por una constante y anda perfecto.
esto lo tengo en el formulario actas cuando tengo que cargar la licencia de un conductor
public filtro as long (declarado en el módulo)
Private Sub cmdlic_Click()
If (frmlicencias.adolicencia.Recordset.BOF = True And frmlicencias.adolicencia.Recordset.EOF = True) Then
MsgBox "No hay datos cargados", vbInformation, "Atención"
Else
If (txtdni.Text <> "") Then
filtro = txtdni.Text
frmlicencias.adolicencia.Recordset.Filter = "lic_perdni = filtro"
frmlicencias.Show
Else
MsgBox "Ingrese datos de la persona", vbInformation, "Atención"
Exit Sub
End If
End If
End Sub
pero en la linea del filter me sale Error 3001 en tiempo de ejecución.
Argumentos incorrectos, fuera de intervalo permitido o conflicto con otros.
Pero pruebo poniendo lo siguiente: frmlicencias.adolicencia.Recordset.Filter = "lic_perdni = 24645855" es decir reemplazando la variable por una constante y anda perfecto.
Valora esta pregunta
0