🚀 go-pugleaf

> Private Sub AplicaFiltro()
> Dim tFiltro As String
>      tFiltro = ""
>
>      If Trim(Form_Fld_Run) <> "" Then
>        tFiltro = tFiltro & "(Fld_PRORUN =" & Form_Fld_Run & ") AND "
>    End If
> //porq los signos asteriscos q funcion cumplen aca y las comillas simples.
>     If Form_Fld_Nombre <> "" Then
>        tFiltro = tFiltro & "(Fld_PRONOMBRE LIKE '*" & Form_Fld_Nombre &
> "*') AND "
>    End If

La comilla simple es el limitador de strings...el asterisco quiere ser un 
comodin, pero est� mal por que al menos en SQL Server el simbolo correcto es 
el %

>
>  //Aca no entiendo a causa de que esta haciendo un LEN(parametro) > a 5
> �porque? sera q hay espacios en el tfiltro o algo por el estilo.
>
>    If Len(tFiltro) > 5 Then
>        tFiltro = UCase(Trim(Mid(tFiltro, 1, Len(tFiltro) - 5)))
>    Else
>        tFiltro = ""
>    End If

La idea del len es eliminar el ") AND " cuando exista al menos un filtro, 
para evitar un error de sintaxis

>
>    If tFiltro <> "" Then
>        registros.Filter = tFiltro
>    Else
>        registros.Filter = ""
>        registros.Requery
>    End If
>
>    carga_grilla
>
> End Sub
>
> De antemano se agradece cualquier ayuda e informacion.
>
> Atte
>
> Claudio T.
>
>