2 problemas valor null y datareport

[analoyra]

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]

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]

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]

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]

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]

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]

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