Soy bastante inexperta en access, pero me estoy atreviendo con un programa de compra-venta y necesito urgente ayuda

Tengo un programa de compra-venta y necesito que la clave sea con el formato letra "V" o "C" seguido del numero y año.

Ejemplo=V-0001-2015

De tal forma que delante del numero hubiese siempre 3 ceros.

Tengo un campo "numped" numero entero largo en la tabla "ventas" y en el formulario tengo el evento siguiente:

Private Sub...
Dim vNum As Variant
    vNum = Me.[numped].Value
        'Si el campo no está en blanco sale del proceso
    If Not IsNull(vNum) Or vNum <> "" Then Exit Sub
        'Buscamos el valor máximo de la tabla de origen
    Dim vMax As Variant
    vMax = Nz(DMax("[numped]", "ventas"))
        'Si el valor máximo es cero por Nz porque no haya registros
'le asigna el valor uno. Si no añade una unidad al número
'más alto
    If vMax = 0 Then
        vMax = 1
    Else
        vMax = vMax + 1
    End If
        'Asignamos el nuevo valor al número
    Me.[numped].Value = vMax
End Sub

Por favor no se que poner ni donde ponerlo para que me salga lo que necesito

Muchas gracias

1 Respuesta

Respuesta
2

Suponiendo:

1º/ que tienes un formulario para compras y otro para ventas,

2º/ que tienes en ambos los campos "numped" (que simula un autonumérico con el código que has puesto arriba) y "clave", que quieres que sea automático con el formato que indicas,

al código del firmulario compras le tienes que añadir antes del End Sub esta línea lo siguiente:

Me.clave="C-" & Format(Me.numped,"0000") & "-" & Year(Date)

y al de ventas, esto otro:

Me.clave="V-" & Format(Me.numped,"0000")  & "-" & Year(Date)

Muchísimas ¡Gracias! Sveinbjorn El Rojo, funciona perfectamente.

Continuo con el programa y a lo mejor tengo que volver a incordiarte con alguna duda

Un saludo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas