Prikazi cijelu temu 17.02.2013 19:21
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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):
  1. Private Sub Form_Unload(Cancel As Integer)
  2. Dim db As Database
  3. Dim rs As Recordset
  4. Dim rs2 As Recordset
  5. Dim R
  6. Dim SQLDatum As String
  7. Dim SQL As String
  8. Dim SQLloc As String
  9. On Error GoTo Kraj
  10. Set db = CurrentDb
  11. SQLDatum = Format(Me.Tag)
  12. SQL = "SELECT * FROM A_Logiranje " _
  13.      & "WHERE VrijemeLog=" & SQLDatum
  14. SQLloc = "SELECT * FROM A_LogiranjeLoc " _
  15.      & "WHERE VrijemeLog=" & SQLDatum
  16. Set rs = db.OpenRecordset(SQL)
  17. If rs.RecordCount = 0 Then GoTo Kraj
  18. rs.Edit
  19. rs!VrijemeOdlg = Now()
  20. rs.Update
  21. Set rs2 = db.OpenRecordset(SQLloc)
  22. If rs2.RecordCount = 0 Then GoTo Kraj
  23. rs2.Edit
  24. rs2!VrijemeOdlg = Now()
  25. rs2.Update
  26. Kraj:
  27. Exit Sub
  28. End Sub

Pozdrav