|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Temas - BUHO
Páginas: [1]
1
« en: Miércoles 25 de Febrero de 2004, 21:30 »
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........
2
« en: Lunes 19 de Enero de 2004, 13:17 »
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
3
« en: Miércoles 3 de Diciembre de 2003, 20:06 »
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
4
« en: Miércoles 19 de Noviembre de 2003, 10:58 »
Hola Foro.
Me gustaría saber como hago para saber si la impresora está encendida o apagada para poder anticiparme al error, agradecería un poco de código.
Gracias por las respuestas a las preguntas anteriores.
5
« en: Domingo 26 de Octubre de 2003, 22:07 »
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.........
6
« en: Miércoles 1 de Octubre de 2003, 13:20 »
Hola de nuevo.
Ya se que os estoy mareando un poco con lo de las sumas, pero de verdad no tengo mas remedio que preguntaros.
La pregunta es: Como puedo sumar el contenido total o parcial de una columna de un Listbox para pasar su resultado a un textbox.
Agradezco de antemano la colaboración que prestais en este foro.
7
« en: Lunes 29 de Septiembre de 2003, 22:30 »
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
8
« en: Miércoles 24 de Septiembre de 2003, 00:47 »
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.
9
« en: Lunes 22 de Septiembre de 2003, 23:11 »
Ante todo agradecer tanto a "acalanto" y "chiaravel" la prontitud en sus respuestas y la amabildad mostrada, así como al resto de los componentes del foro.
Deciros que las respuestas que me enviasteis sobre la pregunta formulada me funcionan y realizan mi pretensión, el problema es que cada vez que las ejecuto me probocan un error grave y me echan de la aplicación de visual basic. No entiendo el por que.
Repetiré mi consulta:
Tengo un formulario con textbox y command mediante uno de los command llamo a otro formulario para de éste obtener unos datos y pasarlos a los textbox del formulario que lo llamo, esta secuencia la repito en otros formularios, pero lo que quiero es siempre llamar al mismo formulario donde tengo que obtener los datos para los textbox y que este sepa reconocer, sin que yo se lo indique, al formulario que lo llamo, de esta manera consiguiría ahorrar codigo, espero haberme explicado, muchas gracias.
10
« en: Martes 9 de Septiembre de 2003, 21:39 »
Queido foro....
Tengo un problema sobre formularios, que es el siguiente:
Tengo una aplicación en vb60, en la que hay un formulario con textbox, label, commandboton, etc, y desde este formulario hago una llamada a otro formulario para conseguir unos datos que automaticamente se pasan al formulario que lo llamó. Mi pregunta es:
como puedo hacer para que el formulario de donde tomo los datos para pasarlos al otro formulario sea del estilo "msgbox" es decir que reconozca al formulario llamante sin tener que identificarlo con form1.tex1. etc. No se si me he explicado bien os agradeceria buestra ayuda llevo 20 dias bloqueado con esto, agradeceria ejemplo de codigo, gracias por todo.
Páginas: [1]
|
|
|
Mostrar Mensajes
