necesito una ayuda
Publicado por adrian (6 intervenciones) el 24/08/2014 18:21:42
buenas
tengo un formulario con 2 subformularios y uno de ellos en "eventos al cargar" me hace lo que puse abajo el tema es que tengo un boton que me abre un informe y las variables se me pierden tengo que poner en un cuadro de texto lo que esta entre ------ msgbox("imprir") r1 ......
espero su ayuda . gracias
tengo un formulario con 2 subformularios y uno de ellos en "eventos al cargar" me hace lo que puse abajo el tema es que tengo un boton que me abre un informe y las variables se me pierden tengo que poner en un cuadro de texto lo que esta entre ------ msgbox("imprir") r1 ......
espero su ayuda . gracias
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
Option Compare Database
Dim r1
Dim r2
Dim r3
Dim r4
Dim r5
Dim w
Private Sub Form_Load()
w = Recordset.RecordCount
'MsgBox ("cuanto ") & x
Dim x
'Primero llevas el cursor del recorset al ultimo registro
Recordset.MoveLast'luego lo recorres
x = 0Do While Not Recordset.BOF And x < w
'aqui imprimes en patalla lo que necesitas mostrar
r1 = totalr2 = en_letrasr3 = diasr4 = "Art."
r5 = inciso------MsgBox ("imprir ") & r1 & " " & r2 & " " & r3 & " " & r4 & r5---------
'Ahora retrocedes un registro
Recordset.MovePreviousx = x + 1
Loop
End Sub
Valora esta pregunta
0
