Access - Problema con consultas y VB

   
Vista:

Problema con consultas y VB

Publicado por Palisandro David (7 intervenciones) el 14/04/2014 17:31:39
Buenas tardes!

Estoy teniendo problemas con un codigo que herede ya echo y no entiendo el por que no acaba de funcionar bien.

Tengo una consulta con registros del tipo xxxx-pvp, con esta opción separo el "-pvp" para que solo quede el numero
L4: Izq([referencia];"4")

Entonces entro un listado de registros en un campo, que me imprime automaticamente,
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Imprimir_Click()
Dim StrSQL As String, pun As Integer, hay As Boolean
Dim stDocName As String, donde As String
 
If Left(Selecs.Caption, 21) = "Fitxes selecionades: " Then
    Selecs.Caption = Mid(Selecs.Caption, 22)
End If
Selecs.Caption = Trim(Selecs.Caption)
stDocName = "Grupos92 Seguits PVP"
donde = ""
Do While Len(Selecs.Caption) > 0
    pun = InStr(Selecs.Caption, " ")
    If pun = 0 Then
        StrSQL = Selecs.Caption
        Selecs.Caption = ""
    Else
        StrSQL = Left(Selecs.Caption, pun)
        Selecs.Caption = Mid(Selecs.Caption, pun + 1)
    End If
    'StrSQL = Right("0000" & Trim(StrSQL), 4)
    donde = donde & "L4 = '" & StrSQL & "' or "
Loop
If Len(donde) = 0 Then
    MsgBox "No hay datos para listar.", vbInformation
Else
    donde = Left(donde, Len(donde) - 4)
    DoCmd.OpenReport stDocName, acViewNormal, , donde
End If
 
Selecs.Caption = "Fitxes selecionades: "
Texto2 = ""
 
End Sub

El problema reside que no me imprime los numeros por debajo del 1000, osea de 4 cifras. He visto paso por paso y coge bien el numero de 3 cifras en VB pero no sale. Alguna ayudita??

Muchas gracias!!
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