+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Doldurulması zorunlu alan (/konu-doldurulmasi-zorunlu-alan.html)
Sayfalar:
1
2
Doldurulması zorunlu alan - fascioğlu - 16/09/2013
Arkadaşlar.
Yapmış olduğum projemde doldurulması zorunlu alanlar var,bu konuyla ilgili sitede araştırmalar yaptım bir çok örnek buldum,Ancak hiçbirinde aradığım özelliği bulamadım veya ben rastlamadım.
Şöyleki,doldurulması gereken alan uyarısını hem kaydet butonunda hemde kapat butonunda alıyorum,ancak formu kapattığımda yanı kendi denetiminde bulunan ( X ) kapatla çıktığımda otomatik kayıt yaptığı için ve hiçbir uyarı vermiyor.
Bu sorunu nasıl çözebilirim,fikir ve önerisi olan varmı.Teşekürler.
Cvp: Doldurulması zorunlu alan - alpeki99 - 16/09/2013
Formunuzun Dirty (Kirlide) olayını kullanmanız lazım. Bu olay formdaki kayıtlarda değişiklik yapıp yapmadığınızı takip eder. Eğer bir değişiklik varsa işte bu aşamada formun kapanma olayını iptal edeceksiniz.
Cvp: Doldurulması zorunlu alan - fascioğlu - 18/09/2013
Hocam dediğinizi yapmaya çalıştım ancak beceremedim,yalnız şöyle bişey yaptım dolurulması zorunlu alanlarla ilgili sitedeki örneklerden faydalandım,ve kapat butonu koydum.Ancak şimdide boş formu açıyorum kayıt girmeden çıkmam gerekiyor bu seferde çıkamıyorum illede kayıt gir diyor,bunun için ne yapabilirim.Saygılarımla.
Not: Tüm arkadaşlardan özür dileyerek bir haırlatma yapayım,bizim siteye ne oldu,çok boş Sadece Mehmet Demiral hocamız var sanırım tekbaşına cevap vermeye çalışıyor.
Cvp: Doldurulması zorunlu alan - alpeki99 - 18/09/2013
Hangi form bu tip bilgileri yazmazsanız işimiz zorlaşıyor.
Cvp: Doldurulması zorunlu alan - fascioğlu - 18/09/2013
Selam hocam,
SATICILAR,FIRMALAR,MUSTERİLER VE URUN GIRIS formlarında kırmızı (*) koyduğum alanlar.
Cvp: Doldurulması zorunlu alan - Puletin - 21/10/2013
sayın Fascioğlu bu şekilde deneyiniz
If Me.Form.Dirty = True Then
If (IsNull(satıcıtcno.Value)) Or (IsNull(satıcıadı.Value)) Or (IsNull(telefon.Value)) Then
MsgBox "Boş alan..!Lütfen eksik alanları doldurunuz.. ", vbOKOnly + vbCritical, "Kayıtta Eksik Bilgi": Me.satıcıtcno.SetFocus
Exit Sub
End If
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close
End If