• Jueves 2 de Mayo de 2024, 23:18

Autor Tema:  Como Generar Código En Visual Basic 6.0  (Leído 4815 veces)

est777

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Como Generar Código En Visual Basic 6.0
« en: Lunes 24 de Diciembre de 2007, 18:49 »
0
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.

Jonathan_Vidal

  • Nuevo Miembro
  • *
  • Mensajes: 13
    • Ver Perfil
Re: Como Generar Código En Visual Basic 6.0
« Respuesta #1 en: Miércoles 2 de Enero de 2008, 17:23 »
0
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!!!