Visual Basic - Error de compilacion: se esperaba una funcion o una variable

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Carlos

Error de compilacion: se esperaba una funcion o una variable

Publicado por Carlos (4 intervenciones) el 28/04/2017 06:27:32
Hola a todos! Gracias por tomarse la molestia de tratar de ayudarme.

Estoy desarrollando un sistema que me genera números de tickets, incrementándose uno por uno...
Cada vez que doy click al boton "Imprimir", me debería imprimir el ultimo ticket registrado mas 1, e irlos guardando en la base de datos. Algo parecido a como funciona un sistema de números de factura.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub cmdImprimir_Click()
 
    Set RcSet = New ADODB.Recordset
    With RcSet
    .Open "Select * from Ticket", Cnx, adOpenDynamic, adLockOptimistic
    While Not (.EOF)
    Me.txtTicket.Text = .Fields("NumTicket")
    Me.txtSerial.Text = Int(-99999998 * Rnd + 99999999)
    .MoveNext
    Wend
    .AddNew!NumTicket = Format$(Val(RcSet!NumTicket) + 1, "0000000")
    End With
    Set RcSet = Nothing
 
Ticket = Val(Me.txtTicket.Text)
Serial = Val(Me.txtSerial.Text)
 
Imprimir_ListView ListView
End Sub

El problema es que al hacer clic me manda el error de compilacion: se esperaba una funcion o una variable.

Me marca en amarillo el: "Private Sub cmdImprimir_Click()"
Y me sombrea en azul el: ".AddNew!"

Ahora, si elimino el .AddNew! funciona bien, pero lo que hace es actualizar un unico registro, mas no guarda registros diferentes... es decir, el id_ticket no se incremente, sino que el id_ticket = 1, se actualiza constantemente... Esto no es lo que se quiere, lo que deseo es que se incremente y se guarde uno diferente cada vez que imprima un ticket.

El detalle es que no no entiendo porque me salta ese error si ya antes he usado el mismo metodo para guardar otros registros!

Adicionalmente, la tabla que utilizo es asi:
ID: Autoincremental
NumTicket: texto
Serial: texto

Utilizo Vb6 y Acces.

Gracias a quien pueda aportarme alguna posible solución.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 4.022
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error de compilacion: se esperaba una funcion o una variable

Publicado por Andres Leonardo (1671 intervenciones) el 28/04/2017 15:37:27
Intenta asi
1
.AddNew!NumTicket = Format(Val(RcSet!NumTicket) + 1, "0000000")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Carlos

Error de compilacion: se esperaba una funcion o una variable

Publicado por Carlos (4 intervenciones) el 28/04/2017 16:48:57
Intente así, pero continua el mismo error de compilación! Esto me tiene algo frustrado :/

Gracias por el apoyo hermano!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 55
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error de compilacion: se esperaba una funcion o una variable

Publicado por Christian (712 intervenciones) el 29/04/2017 02:42:43
Intenta asi ...

.AddNew
!NumTicket = Format$(Val(RcSet!NumTicket) + 1, "0000000")
.Update

Saludos .-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar