18/11/2004, 22:41
|
| | | Fecha de Ingreso: junio-2004 Ubicación: ica, demasiado sol
Mensajes: 76
Antigüedad: 20 años, 8 meses Puntos: 0 | |
| Probleas al generar codigo autoincrementable en basic 6.0
hola a todos, tengoo un sistema ke me genera facturas por lo tanto, genera su numeracion correlativa, yo utilizaba este kodigo, pero ke me funciono hasta un dia atras luego no me kieres funcinar:
Set rscod = New Recordset
cn.CursorLocation = adUseClient
With rscod
.ActiveConnection = cn
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "SELECT max(val(id_movimiento)) AS mov FROM movimiento"
End With
Text1 = rscod!mov
Dim cad As Integer
If rscod.RecordCount <= 0 Then
txtcodmov.Text = "000001"
Else
cad = Val(Text1.Text) + 1
txtcodmov.Text = Right("00000" + Trim(Str(cad)), 6)
End If
text1: aki kopia el valor maximo del recordset
txtcodmov: aki se genra el codigo
me sale un error de uso no valido de NULL en la linea
text1= rscod!mov
ya ke al no haber valor, me lo transforma en NULL, komo puedo solucionar esto???
lo mas raro es ke hasta hace unos dias si funcionaba
espero me puedan ayudar
__________________
El Moche :pensando:
Es mejor arrepentirse de lo ke hiciste, mas no de lo ke nunka te animaste a hacer. :arriba:
Última edición por moche_67; 18/11/2004 a las 22:44 |