Predmet:Re: Access program i touch screen monitor

---

Uspio sam ovako riješiti:

Public Sub FiskalniRacunMaloprodaja(ByVal Storno As Integer)
On Error GoTo Err_FiskalniRacunMaloprodaja_Click

Dim rst As ADODB.Recordset
Dim I, j As Integer
Dim a As String
a = "Konobar:" & DLookup("KorisnickoIme", "RacuniFisk")

Set rst = New ADODB.Recordset

rst.CursorLocation = adUseClient
rst.Open "Select * From RacuniFisk order by korisnikid", CurrentProject.Connection, adOpenKeyset, adLockOptimistic


rst.MoveFirst
If Storno < 0 Then
Open "C:\temp\" & Replace(rst!KorisnikID, "/", "$") & ".inp" For Output As #1
Else
Open "C:\temp\" & Replace("r" & rst!KorisnikID, "/", "$") & ".inp" For Output As #1
End If


Do Until rst.EOF

If Storno < 0 Then
Print #1, "S,0,______,_,__;"; rst!Naziv; ";"; Format(rst!Cijena, "##0.0000"); ";"; Format(rst!Kolicina, "##0.000"); ";1;1;2;0;"; Format(rst!Sifra, "0"); ";;"; Format(rst!Rabat, "##0.00")
Else
Print #1, "S,0,______,_,__;"; rst!Naziv; ";"; Format(rst!Cijena, "##0.0000"); ";"; Format(rst!Kolicina, "##0.000"); ";1;1;2;0;"; Format(rst!Sifra, "0"); ";;"; Format(rst!Rabat, "##0.00")
End If


rst.MoveNext

Loop

If Storno < 0 Then
Print #1, "Q,0,______,_,__;"; a; " "
Print #1, "T,0,______,_,__;"
Else
Print #1, "Q,0,______,_,__;"; a; " "
Print #1, "T,0,______,_,__;0"
End If
Close #1

rst.Close


Set rst = Nothing

Exit_FiskalniRacunMaloprodaja_Click:
Exit Sub

Err_FiskalniRacunMaloprodaja_Click:
MsgBox err.Description
Resume Exit_FiskalniRacunMaloprodaja_Click

End Sub