Bueno he estado haciendo algunas pruebas mas y creo que estoy mejor encaminado por otro lado, pero estoy teniendo un error, primero les dejo el codigo para que le hechen un ojo y me digan que puede ser:
Código:
Dim TickNum As String
Dim tNum As String
TickNum = "select max(Id_head_venta) as MaxNum from head_venta"
If TickNum = "" Then
tNum = 1
Else
tNum = TickNum + 1
End If
Text6.Text = tNum
Tengo que llevar el control de un tiket y que a medida que le pican al boton se incremente el numero esto lo jalo desde una DB access como lo comente antes.
El problema es que me esta dando run-time error 13: type mismatch sobre la linea de codigo
tNum = TickNum + 1
si la comen to ya no tengo el error pero tampoco veo nada en text6.text
Todo esto tomando en cuenta que la tabla esta vacia y todabia no hay registros