Form_Close cod za brisanje trenutnog zapisa

Pozdrav svima,
imam mali problem sa codom kod zatvaranja forme. Hteo bih da prilikom izlaska iz forme, a kad je status jednak nuli, da me upozori da dokument nije prihvacen i ukoliko nastavim dalje obrise taj zapis

Ja sam probao nesto ovako i ne radi

Private Sub Form_Close()

Dim POR As String
If IsNull([IF_STATUS]) Or [IF_STATUS] = 0 Then
POR = MsgBox("Dokument nije prihvacen. Da li ste sigurni da zelite napustiti dokument? ", vbYesNo, "Paznja")
If POR = vbNo Then
Cancel = True
Else
MsgBox "obrisi postojeci dokument"
End If
Else
End If.................

Samo nagadjam, pa mi nemoj zamjeriti, ali ja uvijek kucam uslov ovako:

Potpis

"Takozvani praktični ljudi bili bi korisni i zasluživali bi svaku pohvalu i poštovanje kad od te svoje praktičnosti ne bi hteli da naprave smisao života i razlog svoga opstanka, opravdanje za podjarmljivanje i terorisanje svih onih koji su lišeni toga praktičnog smisla, ali zato stvoreni za druge, možda više i bolje podvige."

Ivo Andric

Nece, uopste mi se ne pojavi MsgBox, kad zatvaram formu.

Probaj na Form_Close da postaviš Debug.Prinf If_Status da vidimo šta se pokazuje

Potpis

Ozbiljan i odgovoran mladić

nista se ne desava,
Sad sam postavio samo

MsgBox "zdravo"

i javlja poruku pri zatvaranju forme.

Mora da je nesto sa onim IF_STATUS poljem. Kao da ne iscitava podatke iz njega.

sad sam probao i ovako

msgbox "zdravo" & me.IF_STATUS

i uvek mi prikazuje 'zdravo1'

U polju IF_STATUS imam 1,0 ili je prazno.

polje IF_STATUS se nalazi na formi, koliko sam ja ukapirao.
Ako sam, dakle, dobro ukapirao onda treba reci gde se to polje nalazi a to ces uraditi tako sto ces napisati Me.IF_STATUS ili
[Forms]![ImeForme]![IF_STATUS]

Ako je IF_Status jednako 1, kako onda očekuješ da ti se startuje code ?

Potpis

Ozbiljan i odgovoran mladić

domaci_a_nas, U polje IF_STATUS upisuje se
'1' - kada je dokument prihvacen i
'0' - kada je u statusu modifikacije ili unosa

na deset mesta u Codu na formi koristim ovo polje i radi bez problema sve na isti fazon "if me.if_status = 1 then ..... itd" a kod Form_Close uvek iscitava 1.

miso.miso, obrati malo više pažnje na ono što kodiraš i ono što ti se odgovori, ja ne mogu da ti objašnjavam šesnaest puta prostu stvar koju ne vidiš, a to je da je u trenutku zatvaranja forme IF_Status = 1? Ispitaj zbog čega je to tako i uopšte ne razumem zašto koristiš nekakve statuse kad postoji lepo svojstvo Me.Dirty koje služi kao indikator da li su podaci sačuvani ili ne.

Potpis

Ozbiljan i odgovoran mladić

Probaj ovaj primjer nije dovršen

Potpis

miro