hi,
i had this problem and it is possible to solve with any receipt printer
the problem is that access works with pages and the receipt dont grow as you need ( receipt size is the size that you have defined )
please contact me : paulobar@esoterica.pt
i have the code in another computer - i...
try this
remove the autonumber and put number in the key fild
in the form put this
onopen
me!"nameoffiledinform"=dmax("fieldontable";"table")+1
When you open the form the access will sum +1 to the higest nunber in the table
with this you can delete the last...
Private Sub Comando202_Click()
On Error GoTo Err_Comando202_Click
Dim objword As Object
Set objword = CreateObject("word.Application")
With objword
.Visible = True
.Documents.Open ("d:\pasta\pauloaccess.doc")
Function ConvertCurrencyToportugues(ByVal MyNumber)
Dim Temp
Dim Escudos, Centavos
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Mil "
Place(3) = " Milh)es "
Place(4) = " Bili)es "...
u can use an subquery
1º select your data from principal query
2º now u have consecutives records
3º use another query in principal query
4º use your formula in the second query and u will have
what you want
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.