Ribbon menu kaydet-düzenle-iptal
#25
(14-06-2019, 23:26)magggmar demiş ki:
(14-06-2019, 22:09)haliliyas demiş ki: son olarak aşağıdaki kodu önerebilirim.
ben sadece cari ünvana göre yaptım siz isterseniz diğer alanları da eklersiniz. ama yinede ribbon menü yerine üstteki çarpıdan kapatırsanız boşsa bile kaydeder.
onu engellemenin yolu doğrudan mevcut formun kapanma olayına yazmak yada o alanı mecburi dolu alan olarak belirlemek.
Kod:
Public Sub ButtonAction(control As IRibbonControl)
Dim x As Integer
  Select Case control.ID
        Case "btn101"
         If CurrentProject.AllForms("frmCariDetay").IsLoaded Then
         DoCmd.GoToRecord , , acNewRec
     
        End If
                     
       Case "btn104"
       
       If CurrentProject.AllForms("frmCariDetay").IsLoaded Then
         
               If Forms![frmCariDetay]![txtCariUnvani] = vbNullString Or IsNull(Forms![frmCariDetay]![txtCariUnvani]) Then

                  MsgBox "Lütfen Cari Unvanı boş bırakmayınız!", vbExclamation, "Uyarı"
                 
                Exit Sub
                Else
                 DoCmd.RunCommand acCmdSaveRecord

     MsgBox "Bilgiler Başarıyla Kaydedildi", vbInformation, "İşlem Tamam"

     DoCmd.GoToRecord , , acLast
       End If
       End If
               
          Case "btn106"
          If CurrentProject.AllForms("frmCariDetay").IsLoaded Then
               If Forms![frmCariDetay]![txtCariUnvani] = vbNullString Or IsNull(Forms![frmCariDetay]![txtCariUnvani]) Then
                   x = MsgBox("Cari Unvanı boş bırakılmış!yine de kapatmak istiyormusunuz. kaydetmeden kapatmak için 'OK'ye kayda dönmek için 'İptal'e basın", vbOKCancel, "Uyarı")
                   If x = 1 Then
                       Forms("frmCariDetay").Undo
                       DoCmd.Close acForm, "frmCariDetay"
                   Else
                       Exit Sub
                   End If
                   
               Else
                   MsgBox "Bilgiler Başarıyla Kaydedildi", vbInformation, "İşlem Tamam"
                   DoCmd.RunCommand acCmdSaveRecord
                   DoCmd.Close acForm, "frmCariDetay"
               End If
           End If
         
       End Select
End Sub

Çok teşekkürler. Ofisteki bilgisayatda bu denemeyi yaptıgım için pazartesi bakabilecegim. Dener denemz bilglendireceğim

Maalesef verdiğiniz kodlarla da ek resimlerdeki sonuçları alıyorum Nah


Eklenti Dosyaları
.jpg   BOŞKEN KAYDETE BASILDIĞINDA.jpg (Boyut: 163,42 KB / İndirilme: 67)
.jpg   CARİ UNVANA VERİ GİRDİKTEN SONRA KAYDETE BASILDIĞINDA.jpg (Boyut: 169,02 KB / İndirilme: 66)
.jpg   BOŞKEN KAPATA BASILDIĞINDA.jpg (Boyut: 172,5 KB / İndirilme: 54)
.jpg   CARİ UNVANA VERİ GİRDİKTEN SONRA KAPATA BASILDIĞINDA.jpg (Boyut: 174,87 KB / İndirilme: 67)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi programmer67 6 299 21-07-2023, 10:40
Son Mesaj: onur_can
  [FORM] Menü Sorunu KÜÇÜK AĞA 1 169 06-02-2023, 08:39
Son Mesaj: dsezgin
  [FORM] menu uygulaması harun57 3 1.692 02-07-2022, 12:05
Son Mesaj: golf2000
  [SORGU] Alt Alta Düzenle golf2000 34 1.853 01-05-2022, 17:27
Son Mesaj: golf2000
  Duruma Göre Kaydı Yapılan Veya Yapılmayan Metin Kutusu Boş Ise Kaydet Butonu Hata Ve tarkanaykın 2 284 26-04-2022, 23:53
Son Mesaj: tarkanaykın
  Ribbon Menü Butonundan Başka Bir Formdaki Nesneye Ulaşmak tanyeri 12 467 28-02-2022, 20:20
Son Mesaj: tanyeri
  [FORM] Ana Menü Oluşturma Ve Iç Içe Formlar Yapma.... rerdem1903 2 406 19-11-2021, 13:26
Son Mesaj: rerdem1903
  Resmi Farklı Kaydet Satir 2 233 03-07-2021, 18:33
Son Mesaj: Satir

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi