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,
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!!
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 StringIf 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 ThenStrSQL = 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
0