
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.
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.
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


0