Centar za edukaciju-BiH

Predmet:Problem sa Close button-om

---

Imam formu sa četiri polja, Šifra, Naziv, Podatak1 i Podatak2 pri čemu su Šifra i Naziv obavezna polja. Htio sam da ako se ne unese Šifra ili Naziv da o tome obavijesti korisnika i ako on prekine da se ne čuva ono što je unijeto. Rešenje sam našao na jednom sličnom forumu, međutim primijetio sam ako npr promijenim polje Podatak1 ili Podatak2 ili bilo šta da Close ne radi. Ima li neko ideju gdje je greška?

Prilozi:

Predmet:Re: Problem sa Close button-om

---

Ne mogu otvoriti ni jedan tvoj atachment sa ni jednim arhiverom ni total comanderom, na dva racunara. Uvek prijavi gresku. Probaj s nekim drugim arhiverom

Predmet:Re: Problem sa Close button-om

---

Arhivirao sam sa WinRar-om, skidao sam i kod mene radi. Evo ovo sam zapakovao sa 7Zip-om pa probajte.

Prilozi:

Predmet:Re: Problem sa Close button-om

---

Ne treba

Dim isEmpty, isRequired As Boolean

Nego

Dim isEmpty As Boolean, isRequired As Boolean

U prvom slucaju isEmpty je tipa variant

Greska je bila

If (Me.Dirty) Then
If (IsRecordValid = False) Then
If DiscardChanges Then
Me.Undo
DoCmd.Close
End If
End If
Else
DoCmd.Close
End If

Treba

If (Me.Dirty) Then
If (IsRecordValid = False) Then
If DiscardChanges Then
Me.Undo
DoCmd.Close
End If
Else
Me.Dirty = False 'ako zelis da sacuvas izmanjen record
DoCmd.Close acForm, Me.Name
End If

Else

DoCmd.Close acForm, Me.Name

End If

Šta želiš da zatvoriš, formu ili aplikaciju?
Ako želiš samo formu onda treba

me.close acForm, Me.Name

Predmet:Re: Problem sa Close button-om

---

To je to, hvala puno.