Predmet:Re: Access radi u pozadini iako sam ga zatvorio
U alikaciji ima jako puno koda. Na početku imama formu za logiranje koju sam jednom od tebe pokupio.
Dali možda tu ima kakav problem ili da tražim dalje.
PreuzmiIzvorni kôd (vbnet):Private Sub Form_Unload(Cancel As Integer)
Dim db As Database
Dim rs As Recordset
Dim rs2 As Recordset
Dim R
Dim SQLDatum As String
Dim SQL As String
Dim SQLloc As String
On Error GoTo Kraj
Set db = CurrentDb
SQLDatum = Format(Me.Tag)
SQL = "SELECT * FROM A_Logiranje " _
& "WHERE VrijemeLog=" & SQLDatum
SQLloc = "SELECT * FROM A_LogiranjeLoc " _
& "WHERE VrijemeLog=" & SQLDatum
Set rs = db.OpenRecordset(SQL)
If rs.RecordCount = 0 Then GoTo Kraj
rs.Edit
rs!VrijemeOdlg = Now()
rs.Update
Set rs2 = db.OpenRecordset(SQLloc)
If rs2.RecordCount = 0 Then GoTo Kraj
rs2.Edit
rs2!VrijemeOdlg = Now()
rs2.Update
Kraj:
Exit Sub
End Sub
Pozdrav