• 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
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: 4)
.jpg   CARİ UNVANA VERİ GİRDİKTEN SONRA KAYDETE BASILDIĞINDA.jpg (Boyut: 169,02 KB / İndirilme: 3)
.jpg   BOŞKEN KAPATA BASILDIĞINDA.jpg (Boyut: 172,5 KB / İndirilme: 2)
.jpg   CARİ UNVANA VERİ GİRDİKTEN SONRA KAPATA BASILDIĞINDA.jpg (Boyut: 174,87 KB / İndirilme: 5)
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Esc tuşunu iptal etmek hegu 2 101 22-06-2019, 19:18
Son Mesaj: hegu
  [FORM] KAYDET BUTONU beyşehir2004 2 278 12-01-2019, 16:52
Son Mesaj: beyşehir2004
  [TABLO] Kaydet evren89 5 348 17-09-2018, 01:28
Son Mesaj: dsezgin
  kaydet butonu ferhatözge 14 18.855 06-09-2018, 00:47
Son Mesaj: evren89
  [FORM] Kaydet evren89 1 473 05-09-2018, 17:51
Son Mesaj: Allback
access-sql-18 [VBA] kaydet ve mail gönder iptalinde sorun Mr.Midnight 4 686 15-02-2018, 11:35
Son Mesaj: Taruz
  Açılır Menü golf2000 1 892 02-02-2018, 08:10
Son Mesaj: iscinar
  [VBA] Ribbon Menüdeki buton çalışmaması oguzduman81 2 581 12-01-2018, 11:02
Son Mesaj: oguzduman81

Foruma Git:


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