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.
Alt formda boş alan kontrolü
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.
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.
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.
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.
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.
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
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.
bilginize...iyi çalışmalar,saygılar.
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.
bilginize...iyi çalışmalar,saygılar.
(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.
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.
Konuyu Okuyanlar: 1 Ziyaretçi