SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Bases de Datos => Mensaje iniciado por: est777 en Lunes 24 de Diciembre de 2007, 18:49
-
Hola, :hola:
es la primera vez que escribo en un foro, explicaré mi problema como pueda...
Tengo una base de datos en access 2000 conectada en visual basic 6.0 mediante el data environment. Tengo un formulario en visual que me muestra los datos de una tabla de access, pero cuando quiero que me agregue un nuevo registro, quiero que se genere automáticamente el código, ésto una vez elegido una opción desde un combobox. Por ejemplo: tengo en la lista del combobox CRGJ, CRGD,CRGF, etc. Cuando yo elija alguna opción se genere el código ej.: si yo elijo- CRGJ0001, cuando quiera agregar un nuevo registro sea: CRGJ0002,luego CRGJ0003,...
Por favor si alguien pueda darme algún ejemplo o algún código para poder lograrlo.
Gracias.
-
Te paso un pequeño ejemplo que puedes emplearlo. Esta rutina esta trabajando con un recordset.
Sub generar()
With rsclascartera
If .State = 1 Then .Close
.Open "select * from CLASECARTERA", bd, adOpenStatic, adLockOptimistic
If .BOF = True Then
Text1.Text = "Cl001"
Else
.MoveLast
Text1.Text = "Cl" + Right$(Str$(Val(Right$(.Fields(0), 3)) + 1001), 3)
End If
End With
End Sub
Cualquier Cosa me mandas un mensaje a mi correo y con gusto te Ayudo
Suerte!!!