TEngo este codigo para la autogeneracion de codigo pero el problema

************************************
Dim rsx As ADODB.Recordset
Set rsx = New ADODB.Recordset

Dim rsx0 As ADODB.Recordset
Set rsx0 = New ADODB.Recordset

sql = "select max(nro) from averia where cod_operador= '" + xoper + "'"
rsx.Open sql, cn_av_man_tups, adOpenDynamic, adLockBatchOptimistic
If Not rsx.EOF Then
StatusBar1.Panels(3).Text = rsx.Fields(0)
Else
sql0 = "select c2 from autogen where c1= '" + xoper + "'"
rsx0.Open sql0, cn_av_man_tups, adOpenDynamic, adLockBatchOptimistic
If Not rsx0.EOF Then
StatusBar1.Panels(3).Text = "AM" + rsx0.Fields(0)
End If
End If
************************************

Lo que deseo es que cuando un operador no tiene registros no me detecta y me sale un error donde esta la linea roja... A ver si pueden ayudarme con esto

__________________
Ikki

Prueba con esta condición:


If rsx.RecordCount<>0 Then
StatusBar1.Panels(3).Text = rsx.Fields(0)
Else
...

:smt004

__________________
Angeles
-------------------------------------
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

ikki_26 Tambien puedes realizarlo de esta forma:

If Not (rsx.EOF and rsx.BOF) Then

StatusBar1.Panels(3).Text = rsx.Fields(0)

else

endif

Suerte!

PERO NO FUNCIONO APARECE SIEMPRE EL SIGUIENTE ERROR
ALLI LO ADJUNTO EN IMAGEN

Imágenes Adjuntas

error_834.jpg (10,7 KB, 76 visitas)

__________________
Ikki

Ikki

yo pondría lo siguiente en lugar de:

StatusBar1.Panels(3).Text = rsx.Fields(0)

pondría:

StatusBar1.Panels(3).Text = iif(isnull(rsx.Fields(0) ),"",rsx.Fields(0) )

y de esa manera salvo algún posible nulo

y antes de comenzar pondría:
en lugar de:
If Not rsx.EOF Then
pondría:

if rsx.recourdcount > 0 Then
StatusBar1.Panels(3).Text = iif(isnull(rsx.Fields(0) ),"",rsx.Fields(0) )
else

.....



Saludos, Julio

LES MANDO EL PROGRAMA PARA Q VERIFIQUEN MI PROBLEMA....

LO QUE PASA ES Q POR CADA OPERADOR QUIERO Q ME GENERE UN CODIGO DIFERENTE CHEQUENLO Y A VER SI ME AYUDAN GRACIAS

EJ:
EL OPERADOR 4052 TIENE DEL 4001 AL 5001
EL OPERADOR 6500 TIENE DEL 11001 AL 12001
ETC ETC

ANALISENLO BIEN PLEASE , CHEQUEEN LA BD Y EL PROGRAMA Y SE DARAN CUENTA DEL ERROR

Archivos Adjuntos

averias_manuales.zip (41,6 KB, 11 visitas)

__________________
Ikki

Ikki

Traté de analizar tu problema, mas allá abstraerme de la forma en que solicitas ayuda, sería conveniente que precises, si el problema del nulo persiste, tema inicial del problema, y puntualizar bien el problema que te aqueja y su ubicación, es decir en que momento de aparece dicho problema, como asi tambien cual es la clave, para no tener que urgar en la base de datos y ganar tiempo de analisis.

Julio

Ikki

Traté de analizar tu problema, mas allá abstraerme de la forma en que solicitas ayuda, sería conveniente que precises, si el problema del nulo persiste, tema inicial del problema, y puntualizar bien el problema que te aqueja y su ubicación, es decir en que momento de aparece dicho problema, como asi tambien cual es la clave, para no tener que urgar en la base de datos y ganar tiempo de analisis.

Julio

CUANDO TRATO DE INGRESAR UN REGISTRO O UNA AVERIA A UN OPERADOR QUE NO TIENE REGISTROS OSEA ES EL PRIMERO. EN CODIGO MANUAL ME SALE 0001, COSA Q ES ERRONEO TIENE QUE SALIR EL CODIGO Q LE CORRESPONDE. POR EJEMPLO: AL OPERADOR 4052 TIENE Q SALIR EL CODIGO MANUAL AM4001. PERO SI FUNCIONA CUANDO POR EJEMPLO INGRESO CON EL CODIGO 6500 APARECE EN CODIGO MANUAL AM11003, Q ES CORRECTO, YA QUE SE ENCUENTRA CON REGISTROS .

PARA ESTO YO USO 2 TABLAS UNA DONDE RGISTRO EL CODIGO DEL OPERADOR Y EL PRIMER REGISTRO Y OTRA TABLA DONDE INGRESO TODOS LOS DATOS DE LA AVERIA

EJ:
*********************
TABLA: AUTOGEN
CAMPO1: C1 CODIGO DEL OPERADOR
CAMPO2: C2 PRIMER NRO

0505 | 0001
0856 | 1001
.....
EN LA BASE DE DATOS PODRAN DARSE CUENTA DE LOS DATOS----

__________________
Ikki

Hola IKKI

Private Sub Form_Load()
Dim rsx As ADODB.Recordset
Set rsx = New ADODB.Recordset

Dim rsx0 As ADODB.Recordset
Set rsx0 = New ADODB.Recordset

sql = "select max(nro) from averia where cod_operador= '" + xoper + "'"
rsx.Open sql, cn_av_man_tups, adOpenDynamic, adLockBatchOptimistic
If Not rsx.EOF Then
Creo que aki esta el problema si no hay registros lo tomara como vacio no?? lo que probe es lo siguiente
Text12.Text = IIf(IsNull(rsx.Fields(0)), "AM", rsx.Fields(0))

StatusBar1.Panels(3).Text = Left(Text12.Text, 2) + Format(Val(Mid(Text12.Text, 3)) + 1, "0000")
Else
sql0 = "select c2 from autogen where c1= '" + xoper + "'"
rsx0.Open sql0, cn_av_man_tups, adOpenDynamic, adLockBatchOptimistic
If Not rsx0.EOF Then
StatusBar1.Panels(3).Text = "AM" & rsx0.Fields(0)
End If
End If


Combo3.AddItem "LIMA"
faveria.Mask = " "
faveria.Mask = "##/##/20##"
Text3 = Format(Date, "dd/mm/yyyy")
listar
End Sub[/code]

__________________
Claudia Rossmery Chumpitaz Torres