Skip to main content

AccessTr.neT


Alt formda boş alan kontrolü

Alt formda boş alan kontrolü

#1
Merhabalar hocalarım

Gönderdiğim örnekte alt forma kayıt ekliyorum. Ancak kaydet veya kapat düğmelerine bastığımda altformda MIKTAR,FIYAT ve TERMİN alanlar da boş olanların uyarısını verebilirmi. kaydetmeden çıkınca tablodan da verilerin silinmesi. Yardımcı olacaklara şimdiden teşekkür ederim.
.rar deneme (3).rar (Dosya Boyutu: 2,79 MB | İndirme Sayısı: 2)
Cevapla
#2
Merhaba,
Vaktim kalmadığı için bukadarını yapabildim. Kodları incelerseniz fikir edinip kalanını tamamlayabilirsiniz.

Kaydet butonunun tıklandığında olayındaki kodları aşağıdaki ile değiştiriniz.

If IsNull([HAREKETDETAY].Form![MIKTAR]) Or [HAREKETDETAY].Form![MIKTAR] = "" Then
   If MsgBox("miktar boş", vbYesNo) = vbYes Then
   [Forms]![HAREKETLER].[HAREKETDETAY].SetFocus
   [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[MIKTAR].SetFocus
   Exit Sub
   Else
   Me.Undo
   End If
ElseIf IsNull([HAREKETDETAY].Form![FIYAT]) Or [HAREKETDETAY].Form![FIYAT] = "" Then
   If MsgBox("MIKTAR boş", vbYesNo) = vbYes Then
   [Forms]![HAREKETLER].[HAREKETDETAY].SetFocus
   [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[FIYAT].SetFocus
   Exit Sub
   Else
   Me.Undo
   End If
Else
DoCmd.RunCommand acCmdSaveRecord
End If


Geri alma olayında, 2. hayırda kaydın tamamını mı geri alacak, yoksa son işlemi mi geri alacak, veya kaydı tamamen mi iptal edecek anlamadım.

Ayrıca, sonraki sorularınızda konunuzu Site Kurallarına uygun olarak açarsanız memnun olurum.
Cevapla
#3
Merhaba ozanakkaya bey

ilginiz için teşekkür ederim. kodu denedim ancak altforma 2.inci bir satır(ürün aktardığımda) eklediğimde uyarı vermiyor. Hayır dediğimde tamamen silecek (tablodan da). aynı işlem kapat düğmesine de yapmamız gerekiyor. Şimdiden teşekkür ederim.
Cevapla
#4
sayın raburabu,

EK'te;
sayın ozan bey tarafından paylaşılan kodların yeniden düzenlenerek bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

kodları deneyip olumlu sonuçlar neticesinde,aynı kodları;KAPAT butonu için de uygulayabilirsiniz.veyahut da formun KALDIRILDIĞINDA ya da KAPANDIĞINDA olay yordamı içerisine de dahil edebilirsiniz.tercih ve takdir sizindir elbet.

NOT

Alıntı:altforma 2.inci bir satır(ürün aktardığımda) eklediğimde uyarı vermiyor. 

ifadenize yönelik olarak;
aşağıdaki resimlerde de görüleceği üzere,her bir ürün dahil edildiğinde sorunsuz şekilde ilgili uyarı mesajları yer almaktadır.

[Resim: do.php?imgf=147765314651941.jpg]

[Resim: do.php?imgf=147765314661842.jpg]

bilginize...iyi çalışmalar,saygılar.
.rar deneme (3)-ATOZ.rar (Dosya Boyutu: 2,75 MB | İndirme Sayısı: 11)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
(28/10/2016, 11:54)raburabu yazdı: 2.inci bir satır(ürün aktardığımda) eklediğimde uyarı vermiyor.

Merhaba, Atoz hocanın eklediği örnek uygulamada, kaydet butonunun tıklandığında olayındaki kodu

'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.
[Forms]![HAREKETLER].[HAREKETDETAY].SetFocus
DoCmd.RunCommand acCmdRecordsGoToLast

If IsNull([HAREKETDETAY].Form![MIKTAR]) Or [HAREKETDETAY].Form![MIKTAR] = "" Then
   If MsgBox("MIKTAR boş", vbYesNo) = vbYes Then
   [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[MIKTAR].SetFocus
   Exit Sub
   Else
   
   tablodansil

   Exit Sub
   End If
ElseIf IsNull([HAREKETDETAY].Form![FIYAT]) Or [HAREKETDETAY].Form![FIYAT] = "" Then
   If MsgBox("FIYAT boş", vbYesNo) = vbYes Then
   [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[FIYAT].SetFocus
   Exit Sub
   Else

   tablodansil

   Exit Sub
   End If
ElseIf IsNull([HAREKETDETAY].Form![TERMİN]) Or [HAREKETDETAY].Form![TERMİN] = "" Then
   If MsgBox("TERMİN boş", vbYesNo) = vbYes Then
   [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[TERMİN].SetFocus
   Exit Sub
   Else

   tablodansil

   Exit Sub
   End If
Else
DoCmd.RunCommand acCmdSaveRecord
MsgBox ("Veri Kaydedildi")
End If

kodu ile, kapat butonunun tıklandığında olayındaki kodu 

[Forms]![HAREKETLER].[HAREKETDETAY].SetFocus
DoCmd.RunCommand acCmdRecordsGoToLast

If IsNull([HAREKETDETAY].Form![MIKTAR]) Or [HAREKETDETAY].Form![MIKTAR] = "" Then
   If MsgBox("MIKTAR boş", vbYesNo) = vbYes Then
   [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[MIKTAR].SetFocus
   Exit Sub
   Else
   
   tablodansil

   Exit Sub
   End If
ElseIf IsNull([HAREKETDETAY].Form![FIYAT]) Or [HAREKETDETAY].Form![FIYAT] = "" Then
   If MsgBox("FIYAT boş", vbYesNo) = vbYes Then
   [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[FIYAT].SetFocus
   Exit Sub
   Else

   tablodansil

   Exit Sub
   End If
ElseIf IsNull([HAREKETDETAY].Form![TERMİN]) Or [HAREKETDETAY].Form![TERMİN] = "" Then
   If MsgBox("TERMİN boş", vbYesNo) = vbYes Then
   [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[TERMİN].SetFocus
   Exit Sub
   Else

   tablodansil

   Exit Sub
   End If
Else
DoCmd.Close
End If

değiştirerek deneyiniz. Sonuç hakkında olumlu/olumsuz bildirimde bulununuz.
Cevapla
#6
Merhaba Atoz ve ozanakkaya hocam ellerinize sağlık Allah ilminizi artırsın süper oldu. Bunu başka formlarında da kullanacağım çok ama çok teşekkür ederim. süpersiniz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da