Prikazi cijelu temu 24.08.2012 14:00
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Greška u kodu
U nekoliko aplikacija koristim formu za logiranje koja na Unload ima slijedeći kod:
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 SQL2 As String
  9.  
  10. r = MsgBox("Izlazis iz aplikacije", vbYesNo)
  11.  
  12. If r = vbNo Then
  13.     DoCmd.CancelEvent
  14. End If
  15.  
  16. If r = vbYes Then
  17.     Set Db = CurrentDb
  18.     SQLDatum = Format(Me.Tag)
  19.     SQL = "SELECT * FROM A_Logiranje WHERE VrijemeLog=" & SQLDatum
  20.     SQL2 = "SELECT * FROM A_LogiranjeLoc WHERE VrijemeLog=" & SQLDatum
  21.     Set Rs = Db.OpenRecordset(SQL)
  22.     Set Rs2 = Db.OpenRecordset(SQL2)
  23. If Rs.RecordCount = 0 Then GoTo Kraj
  24.     Rs.Edit
  25.     Rs!VrijemeOdlg = Now()
  26.     Rs.Update
  27.     If Rs2.RecordCount = 0 Then GoTo Kraj
  28.     Rs2.Edit
  29.     Rs2!VrijemeOdlg = Now()
  30.     Rs2.Update
  31. End If
  32.  
  33. Kraj:
  34. End Sub

problem je dio koda
PreuzmiIzvorni kôd (vbnet):
  1. r = MsgBox("Izlazis iz aplikacije", vbYesNo)
  2.  
  3. If r = vbNo Then
  4.     DoCmd.CancelEvent
jer i kada u poruci izaberem 'No' aplikacija mi se opet zatvori i izađe iz accessa.
Pozdrav