Predmet:Greška u kodu
U nekoliko aplikacija koristim formu za logiranje koja na Unload ima slijedeći kod:
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 SQL2 As String
r = MsgBox("Izlazis iz aplikacije", vbYesNo)
If r = vbNo Then
DoCmd.CancelEvent
End If
If r = vbYes Then
Set Db = CurrentDb
SQLDatum = Format(Me.Tag)
SQL = "SELECT * FROM A_Logiranje WHERE VrijemeLog=" & SQLDatum
SQL2 = "SELECT * FROM A_LogiranjeLoc WHERE VrijemeLog=" & SQLDatum
Set Rs = Db.OpenRecordset(SQL)
Set Rs2 = Db.OpenRecordset(SQL2)
If Rs.RecordCount = 0 Then GoTo Kraj
Rs.Edit
Rs!VrijemeOdlg = Now()
Rs.Update
If Rs2.RecordCount = 0 Then GoTo Kraj
Rs2.Edit
Rs2!VrijemeOdlg = Now()
Rs2.Update
End If
Kraj:
End Sub
problem je dio koda
PreuzmiIzvorni kôd (vbnet):r = MsgBox("Izlazis iz aplikacije", vbYesNo)
If r = vbNo Then
DoCmd.CancelEvent
jer i kada u poruci izaberem 'No' aplikacija mi se opet zatvori i izađe iz accessa.
Pozdrav