Centar za edukaciju-BiH



#1 24.08.2012 13:00
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
↑  ↓

#2 24.08.2012 13:40
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Greška u kodu
Taj dio koda ti nije problem. Ja kad sam zanemarila sve sto se desava ako izaberes Yes radi kako treba. Na "No" odustane od zatvaranja forme a na "Yes" zatvori istu.

Zakaci tabele koje koristis pa da pogledamo.
Pozdrav, Amela
↑  ↓

#3 24.08.2012 17:11
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Greška u kodu
Nažalost nemam sada kod kuće taj primjer. Baza mi je na kompjuteru na poslu pa ne mogu niÅ¡ta zakačiti do ponedeljka.
Pozdrav
↑  ↓

#4 24.08.2012 18:18
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Greška u kodu
da kako kaze Amelasar ovaj kod treba da radi bs kako pise.
Mozda imas jos kakav kod koji ometa ovaj.
DoCmd.CancelEvent Zavrsava proceduru odnosno skace na kraj pa prema tome
cancel ostaje 0.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 5: 30 pm.