BiH



#1 24.08.2012-13:00
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,412


Subject: Greška u kodu
U nekoliko aplikacija koristim formu za logiranje koja na Unload ima slijedeći kod:
DownloadIzvorni kod (vb.net):
  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
DownloadIzvorni kod (vb.net):
  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 Offline
Clan
Registrovan/a od: 07.04.2011-18:28
Komentari: 234


Subject: 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 Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,412


Subject: 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 Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,010


Subject: 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.
Pozdrav
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 19.01.2020-03:23.