[ miso.miso @ 23.07.2008. 17:14 ] @
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.................
[ Scelle @ 23.07.2008. 21:37 ] @
Samo nagadjam, pa mi nemoj zamjeriti, ali ja uvijek kucam uslov ovako:

Code:
If (IsNull([IF_STATUS])=True) Or ([IF_STATUS] == 0) Then
.........
End If
[ miso.miso @ 24.07.2008. 09:08 ] @
Nece, uopste mi se ne pojavi MsgBox, kad zatvaram formu.
[ domaci_a_nas @ 24.07.2008. 10:13 ] @
Probaj na Form_Close da postaviš Debug.Prinf If_Status da vidimo šta se pokazuje
[ miso.miso @ 24.07.2008. 10:37 ] @
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.
[ miso.miso @ 24.07.2008. 10:51 ] @
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.

[ rstevic @ 24.07.2008. 14:54 ] @
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]
[ domaci_a_nas @ 24.07.2008. 15:18 ] @
Ako je IF_Status jednako 1, kako onda očekuješ da ti se startuje code ?
Code:
If IsNull([IF_STATUS]) Or [IF_STATUS] = 0 Then
[ miso.miso @ 24.07.2008. 16:14 ] @
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.
[ domaci_a_nas @ 24.07.2008. 16:35 ] @
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.
[ Miro35 @ 25.07.2008. 09:01 ] @
Probaj ovaj primjer nije dovršen
[ miso.miso @ 26.07.2008. 12:52 ] @
domaci_a_nas, mozda se malo nismo sporazumeli nemoj zemeriti.
Miro ono tvoje radi, kod tebe. kod mene kad zatvaram formu uzima mi podatak iz if_statusa iz prvog zapisa u tabeli, ako je '0' uvek kad izlazim javlja mi to. Problem je nece da povuce podatak iz forme koji je na ekranu.

Jos jedno pitanje 'Da li da odustanem od ovog sto sam zamislio?'

Pozdrav svima.