Da ne otvaram novu temu ovdje ću postaviti problem koji me muči.
Naime, imam jednu formu na kojoj se nalazi listbox sa koga biram štampanje računa i na event AfterUpdate imam sledeći kod:
Code:
Private Sub ListRacPrint_AfterUpdate()
Dim rst1 As Recordset
Dim varX As Variant
Dim strsql As String
Dim strsql1 As String
Dim SQL As String
DoCmd.SetWarnings False
strsql = "DELETE * FROM tmpFiskal;"
DoCmd.RunSQL strsql
DoCmd.SetWarnings True
Set baza = OpenDatabase("C:\Starsoft\Farma_Grabovac_dat.mdb")
Set rst1 = baza.OpenRecordset("tmpFiskal", dbOpenDynaset)
If Me.Opcija = 1 Then
Me.txtFisk = Me.ListRacPrint.Column(0)
Me.txtUplata = Me.ListRacPrint.Column(3)
Me.txtBrFakture = Me.ListRacPrint.Column(5)
Me.txtProvjera = Me.ListRacPrint.Column(6)
Me.Refresh
DoCmd.SetWarnings False
strsql1 = "INSERT INTO tmpFiskal ( FBROJ, Model, kol, MPC, Sifra, Popust )" & _
"SELECT qryFiskal1.FBROJ, qryFiskal1.Model, qryFiskal1.kol, qryFiskal1.MPC, qryFiskal1.Sif, qryFiskal1.popust " & _
"FROM qryFiskal1; "
DoCmd.RunSQL strsql1
'DoCmd.OpenQuery "UpisFiskal", acViewNormal
DoCmd.SetWarnings True
If IsNull(Me.txtProvjera) = True Or Me.txtProvjera = "" Then
'aa
Else
MsgBox "Fiskalni račun sa ovim brojem je već otštampan ! ", vbCritical, "Upozorenje"
Exit Sub
End If
If Me.txtUplata > 0 Then
Open "C:\Temp\Prodaja.inp" For Output As #1
rst1.MoveFirst
Do Until rst1.EOF
Print #1, "S,1,______,_,__;"; rst1!Model; ";"; Format(rst1!MPC, "##0.00"); ";"; Format(rst1!kol, "##0.00"); ";1;1;2;0;"; Format(rst1![Sifra], "0"); ";"; Format(rst1![popust], "Percent")
rst1.MoveNext
Loop
Print #1, "T,1,______,_,__;3;"
rst1.Close
Close #1
Close #1
DoCmd.OpenForm "FormFiskal", acNormal, , , acFormEdit
Else
DoCmd.OpenForm "FormReklam", acNormal, , , acFormEdit
End If
ElseIf Me.Opcija = 4 Then
DoCmd.OpenReport "RacunPrint", acViewPreview
DoCmd.Close acForm, "FormIzborRac"
End If
Set rst1 = Nothing
Set baza = Nothing
End Sub
na mjestu "rst1.MoveFirst" dobijem poruku "no current record" a kad otvorim tabelu tmpFiskal postoje zapisi u njoj.
Molim ljude dobre volje da mi pomognu oko otklanjaja greške.
Pozdrav.