Visual Basic - Filtro mediante InputBox

Life is soft - evento anual de software empresarial
   
Vista:

Filtro mediante InputBox

Publicado por alex (1 intervención) el 11/11/2010 21:44:49
No me sale el filtro, abre el formulario pero no encuentra el o los registros filtrados, siendo que si existen en la tabla.

principiante. Gracias.....

Private Sub Comando11_Click()
Dim Cliente As String
Dim filtro As String

Do

Cliente = InputBox("Ingrese el número de cliente a buscar:", "BÚSQUEDA")

If Cliente = "" Then Exit Do 'Si pulsa en cancelar que salga
Loop Until IsNumeric(Cliente) 'Obligar a q sea numérico

On Error Resume Next

Cliente = "CANELADOS 2010" = base.OpenRecordset(Cliente, dbOpenDynaset) 'es una funcion que me enseña todos los campos en sus txts correspondientes

filtro = "[Cliente] = 'Cliente'"
stDocName = "CANCELADOS 2010"
DoCmd.OpenForm stDocName, , , filtro

If Err Then
MsgBox "No se ha encontrado ningun registro", vbInformation, "NO EXISTE"

End If

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Filtro mediante InputBox

Publicado por Pedro Luis (128 intervenciones) el 12/11/2010 08:27:04
Obtienes la variable Cliente en un Input y despues la pierdes porque haces cliente= "CANELADOS 2010" etc
También me da impresion de que no estás en el foro adecuado.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar