SoloCodigo

Hola de nuevo.

Tengo el siguiente problema, quiero imprimir tres registros por página  cumplen una condicion hasta que la condicion acabe. Bueno intento emplear bucle por contador For Next pero no encuentro la forma de que de el resultado que quiero.
Agradeceria buestra ayuda..
Adjunto el siguiente codigo

Do Until campo.EOF
 
    For I = 0 To 3
 
   Printer.Font.Size = 8
   Printer.Print Tab(10); "Nombre:    "; campo!nom & ", (" & campo!nif & ")"
   Printer.Print Tab(10); "Dirección:  "; campo!dire
   Printer.Print Tab(10); "Localidad:  "; campo!cp & " - " & campo!loca & " (" & _
                         campo!prov & ")"
   Printer.Print Tab(10); "Total:    "; Format(campo!total, "###,##0.00") & " €"
   
   campo.MoveNext
   Printer.NewPage
   
   Next
 Loop

  FontName = oldfont
  FontSize = oldsize
  Printer.EndDoc

esta condicion for next solo imprime un registro por página, echarme una mano
Gracias........

Hola de nuevo.

Tengo el siguiente problema a la hora de filtrar unase serie de datos de una DB

El problema es el siguiente: Necesito filtrar todos los registros de una DB cuyo valor sea superior a 3000, para ello uso la siguiente instruccion:

AW = "3000"
Set db = OpenDatabase(App.Path & "\prueba.mdb")
tira = "Select * From clientes WHERE TOTAL >= """ & AW & """ "
notal: TOTAL es el nombre del campo donde se hallan los valores que quiero filtrar
Set campo = db.OpenRecordset(Tira)

  If campo.RecordCount > 0 Then
    campo.MoveFirst
    campo.MoveLast
        With campo
            .MoveFirst
            While Not .EOF
                List1.AddItem campo(1) & Space(15) & Format(campo(10), "###,##0.00") _
                & Space(19) & campo(0)  
                 .MoveNext
            Wend
        End With
       
  Else
    MsgBox "Base  Vacia", vbInformation, "¡MENSAJE!"
     
    Me.Hide
  End If

toda esta instruccion funciona pero el caso es que tambien localiza registros con valores inferiores a 3000

por cierto el campo donde estan almacenados los valores es del tipo text

agradecería mucho vuestra ayuda, estoy bloqueado en este tema varios dias

Gracias por todo un saludo

Hola foro.

Miproblema es el siguiente: Quiero realizar un listado comprendido entre dos fechas pasadas por dos dtpicker. Tengo realizado el código pero el problema es que no me lo ejecuta os adjunto el código haber si he cometido algún error

Set db = OpenDatabase(App.Path & "\facturacion.mdb")

Tira = "select * from factura WHERE [fec] >= """ & DTPicker1 & """ and [fec] <= """ & DTPicker2 & """ "

Set campo = db.OpenRecordset(Tira)
If campo.RecordCount > 0 Then
   
 
        With campo
            .MoveFirst
            While Not .EOF
                List1.AddItem campo(0) & Space(10) & campo(1) _
                & Space(18) & Format(campo(13), "###,##0.00") & Space(29) &     campo(3)
                 .MoveNext
            Wend
        End With
       

End If

no me ejecuta nada en cambio si cambio la variable Tira por la siguiente

Tira = "select * from factura WHERE [fec] >= """ & DTPicker1 & """ "

entonces si ejecuta el list1.

Es urgente bueno hacer lo que podais.
Gracias a todos

Hola de nuevo Foro

Primero agradecer a Hurrycrack por su respuesta a mi pregunta anterior, la cual me fue de gran ayuda.

Mi pregunta es la siguiente:

Tengo un formulario con textbox donde en ellos visualizo los recordset de una tabla, hasta ahí todo correcto. El problema surge cuando desde este formulario llamo a otro para localizar a un determido recordset y luego pasarlo al primero, hasta ahí bien, ahora surge el problema, cuado desde este ultimo formulario de doy a commado modificar el registro lo modifica y cuando le doy al comando guardar lo que hace es borralo de la tabla y duplicar otro recordset ya esistente en la tabla, ¿porque ocurre?.

Ayuda porfavor.........

gracias Ccortes, tu ejemplo me ha sido de mucha ayuda, al principio me hacia un lio pero despues de tu segunda explicación he conseguido realizar mi pretension, Gracias de nuevo por responder.

Un saludo cuidate

Hola de nuevo.

Quisiera saber como puedo sacar la suma total del contenido de todos los recordset de una tabla para colocar el resultado de la suma en un textbox, espero haberme explicado..

P.D. Gracias Brroz por tu respuesta sobre los formularios.

Un saludo

Gracias brroz por tu respuesta pero no comprendo su contenido, debo decirte que soy novel en este tipo de programación, en principio entiendo el contenido de código que me has facilitado, pero no encuentro la forma de retornar los datos del formulario llamado al llamante, quizas no expuse bien la pregunta, le formularé de este modo:
tengo 3 formularios, form1, form2, form3, y un cuarto llamado form4. los tres primeros llaman al form4 para que este realize una busqueda en una base de datos y cuando encuentra los datos solicitados mediante un boton command los pase al formulario que lo llamó bien sea el form1 o el form2 etc. entonces la duda que tengo es como decirle al form4 que reconozca el form que lo llamo para que le pueda traspasar los datos de la busqueda son solo tres recordset, agradecería código para poder comprender las rutinas empleadas. hasta ahora tengo creada una rutina que me hace esto que pido pero el problema es que siempre me saca de la aplicacion de vb, siempre me da error y me lo cierra todo. Bueno de todas formas gracias por haberte molestado en contestar.

Gracias por responderme tan rapido

he probado tu codigo, pero lo que yo necesito es poder llamar siempre a un formulario en el cual realizo una busqueda para sacar datos y estos datos pasarlos al formulario que lo llamo, y desde otro formulario tambien llamarlo para lo mismo, entonces el formulario llamado (siempre llamo al mismo) sepa cual es el formulario que lo llamo para pasarle los datos