Foros del web, para los que viven de bits

analoyra · 22-abr-2008, 20:16

Otra vez yo....

tengo 2 problemas.. el primero es que tengo un form que no son obligatorios todos los campos... hasta ahi todo bien..... el problema es cuando busco y trae los datos, porque los campos vacios cuando los quiero mostrar me salta error...
aca esta mi busqueda
aux = InputBox("Ingrese clave a buscar")
txtClave.Text = Format(aux, "00")
Rs.Open "SELECT * FROM comprobante WHERE comp_clave like '" & txtClave.Text & "'", cn, adOpenStatic, adLockOptimistic

If Rs.RecordCount < 1 Then
m = MsgBox("cliente no encontrado, desea ingresarlo?", vbYesNo, "Tipo Comprobante")
If m = vbYes Then
txtClave.SetFocus
Else
Cancel = True

End If
Else
txtClave.Text = Rs(0)
TxtDesc.Text = Rs(1)
If Rs(3) = "" Then
Txtsigno.Text = ""
Else
Txtsigno.Text = Rs(3)

If Rs(2) = "" Then
TxtSigla.Text = ""
Else
TxtSigla.Text = Rs(2)
End If
End If
End If
Rs.Close

Y el segundo problemas es que cuando hago un report me quedan los campos que trae de la tabla muy separados unos de otros, como se configura??
gracias a todos por la ayuda!!!!

ginitofl · 23-abr-2008, 07:59

Hola Analoyra prueba de esta manera:

Código PHP:


			
aux = InputBox("Ingrese clave a buscar")

txtClave.Text = Format(aux, "00")

Rs.Open "SELECT * FROM comprobante WHERE comp_clave like '" & txtClave.Text & "'", cn, adOpenStatic, adLockOptimistic



If Rs.RecordCount < 1 Then

m = MsgBox("cliente no encontrado, desea ingresarlo?", vbYesNo, "Tipo Comprobante")

If m = vbYes Then

txtClave.SetFocus

Else

Cancel = True



End If

Else

txtClave.Text = "" & Rs(0)

TxtDesc.Text = "" & Rs(1)

If Rs(3) = "" Then

Txtsigno.Text = ""

Else

Txtsigno.Text = "" & Rs(3)



If Rs(2) = "" Then

TxtSigla.Text = ""

Else

TxtSigla.Text = "" & Rs(2)

End If

End If

End If

Rs.Close

Saludos.

analoyra · 23-abr-2008, 10:05

BUENISIMO!!! anduvo!! muuchas gracias...

ahora me queda lo del datareport....... estuve tratando con el crystal pero me resulta muy dificil... salvo que alguien conozca algun otro

saludos

Avellaneda · 23-abr-2008, 11:01

Cita:

Iniciado por analoyra

Y el segundo problemas es que cuando hago un report me quedan los campos que trae de la tabla muy separados unos de otros, como se configura??
gracias a todos por la ayuda!!!!

A qué te refieres con separados...?

Los campos (rptTextBox) los puedes poner del tamaño que quieras en diseño, igual que con control TextBox en un Form.

Un saludo

analoyra · 23-abr-2008, 11:37

Cita:

Iniciado por Avellaneda

A qué te refieres con separados...?

Los campos (rptTextBox) los puedes poner del tamaño que quieras en diseño, igual que con control TextBox en un Form.

Un saludo

Avellaneda. me refiero a que cuando me lista los items uno debajo del otro, tienen una separacion de 3 o 4 cm c/u, si yo necesitara listar 100 articulos por ejemplo me llevaria como 15 hojas.. no se si me explico ahora...

Avellaneda · 23-abr-2008, 11:50

Ah, entendido!

Mira en el diseño del DataReport, debajo de la Sección1 (detalle) hay una barra (normalmente dice "Pié de página-Seccion3), te posicionas en la parte superior de esta barra y cuando el ratón muestre una cruz (sin soltarlo) te desplazas hacia arriba y verás que va disminuyendo el alto de la sección detalle, lo sueltas cuando esté a tu gusto.. y ya está.

Un saludo.

analoyra · 23-abr-2008, 13:52

Gracias Avellaneda, era una pavada!! nunca se me hubiera ocurrido...y bue...el que sabe sabe!!!

22-abr-2008, 20:16	#1 (permalink)
analoyra Fecha de Ingreso: abril-2008 Mensajes: 108	2 problemas valor null y datareport Otra vez yo.... tengo 2 problemas.. el primero es que tengo un form que no son obligatorios todos los campos... hasta ahi todo bien..... el problema es cuando busco y trae los datos, porque los campos vacios cuando los quiero mostrar me salta error... aca esta mi busqueda aux = InputBox("Ingrese clave a buscar") txtClave.Text = Format(aux, "00") Rs.Open "SELECT * FROM comprobante WHERE comp_clave like '" & txtClave.Text & "'", cn, adOpenStatic, adLockOptimistic If Rs.RecordCount < 1 Then m = MsgBox("cliente no encontrado, desea ingresarlo?", vbYesNo, "Tipo Comprobante") If m = vbYes Then txtClave.SetFocus Else Cancel = True End If Else txtClave.Text = Rs(0) TxtDesc.Text = Rs(1) If Rs(3) = "" Then Txtsigno.Text = "" Else Txtsigno.Text = Rs(3) If Rs(2) = "" Then TxtSigla.Text = "" Else TxtSigla.Text = Rs(2) End If End If End If Rs.Close Y el segundo problemas es que cuando hago un report me quedan los campos que trae de la tabla muy separados unos de otros, como se configura?? gracias a todos por la ayuda!!!!

23-abr-2008, 07:59	#2 (permalink)
ginitofl Fecha de Ingreso: diciembre-2006 Ubicación: Lima Mensajes: 188	Re: 2 problemas valor null y datareport Hola Analoyra prueba de esta manera: Código PHP: aux = InputBox("Ingrese clave a buscar") txtClave.Text = Format(aux, "00") Rs.Open "SELECT * FROM comprobante WHERE comp_clave like '" & txtClave.Text & "'", cn, adOpenStatic, adLockOptimistic If Rs.RecordCount < 1 Then m = MsgBox("cliente no encontrado, desea ingresarlo?", vbYesNo, "Tipo Comprobante") If m = vbYes Then txtClave.SetFocus Else Cancel = True End If Else txtClave.Text = "" & Rs(0) TxtDesc.Text = "" & Rs(1) If Rs(3) = "" Then Txtsigno.Text = "" Else Txtsigno.Text = "" & Rs(3) If Rs(2) = "" Then TxtSigla.Text = "" Else TxtSigla.Text = "" & Rs(2) End If End If End If Rs.Close Saludos. Última edición por ginitofl; 23-abr-2008 a las 08:01. Razón: correccion

23-abr-2008, 10:05	#3 (permalink)
analoyra Fecha de Ingreso: abril-2008 Mensajes: 108	Re: 2 problemas valor null y datareport BUENISIMO!!! anduvo!! muuchas gracias... ahora me queda lo del datareport....... estuve tratando con el crystal pero me resulta muy dificil... salvo que alguien conozca algun otro saludos

23-abr-2008, 11:01	#4 (permalink)
Avellaneda Fecha de Ingreso: enero-2008 Ubicación: Madrid Mensajes: 804	Re: 2 problemas valor null y datareport Cita: Iniciado por analoyra Y el segundo problemas es que cuando hago un report me quedan los campos que trae de la tabla muy separados unos de otros, como se configura?? gracias a todos por la ayuda!!!! A qué te refieres con separados...? Los campos (rptTextBox) los puedes poner del tamaño que quieras en diseño, igual que con control TextBox en un Form. Un saludo

23-abr-2008, 11:37	#5 (permalink)
analoyra Fecha de Ingreso: abril-2008 Mensajes: 108	Re: 2 problemas valor null y datareport Cita: Iniciado por Avellaneda A qué te refieres con separados...? Los campos (rptTextBox) los puedes poner del tamaño que quieras en diseño, igual que con control TextBox en un Form. Un saludo Avellaneda. me refiero a que cuando me lista los items uno debajo del otro, tienen una separacion de 3 o 4 cm c/u, si yo necesitara listar 100 articulos por ejemplo me llevaria como 15 hojas.. no se si me explico ahora...

23-abr-2008, 11:50	#6 (permalink)
Avellaneda Fecha de Ingreso: enero-2008 Ubicación: Madrid Mensajes: 804	Re: 2 problemas valor null y datareport Ah, entendido! Mira en el diseño del DataReport, debajo de la Sección1 (detalle) hay una barra (normalmente dice "Pié de página-Seccion3), te posicionas en la parte superior de esta barra y cuando el ratón muestre una cruz (sin soltarlo) te desplazas hacia arriba y verás que va disminuyendo el alto de la sección detalle, lo sueltas cuando esté a tu gusto.. y ya está. Un saludo.

23-abr-2008, 13:52	#7 (permalink)
analoyra Fecha de Ingreso: abril-2008 Mensajes: 108	Re: 2 problemas valor null y datareport Gracias Avellaneda, era una pavada!! nunca se me hubiera ocurrido...y bue...el que sabe sabe!!!

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado