Ribbon menu kaydet-düzenle-iptal
#1
merhaba Arkadaşlar,

inanın çok araştırdım, ama aradığım sonuca ulaşamadım. ekteki denemede, Ribbon menü çalışmam var. 

Muhasebe-Cari Detay üst sekmesinden Cari Detay Formunu getiriyorum. yine üst sekmeden Yeni kayıt açabiliyorum.(öğrendim sanırım mantığıSmile ) kapat da yapabiliyorum. 

kaydet düğmesinde, txtCariUnavı alanı boş ise, kaydetmesin olayını yapamıyorum. 

modul içerisinde ButtonAction bölümüne alttaki kodu yazdım. hem kaydediyor, hem de kaydedemezsin diye mesaj veriyor Smile

"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

DoCmd.RunCommand acCmdSaveRecord

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

DoCmd.GoToRecord , , acLast
End If"

kodun nasıl yazıldığına dair mantıgı soyler misiniz? 

tşk


Eklenti Dosyaları
.rar   deneme4 - Kopya.rar (Boyut: 266,34 KB / İndirilme: 10)



  Alıntı
Bu mesajı beğenenler:
#2
Kaydet bıutonu Click Olayına;
Kod:
if IsNull(txtCariUnavı) Then
Me.Undo
Exit Sub
Else
DoCmd.RunCommand accmdSaveRecord
Endif
ekleyin...



  Alıntı
Bu mesajı beğenenler:
#3
(14-06-2019, 14:32)onur_can demiş ki: Kaydet bıutonu Click Olayına;
Kod:
if IsNull(txtCariUnavı) Then
Me.Undo
Exit Sub
Else
DoCmd.RunCommand accmdSaveRecord
Endif
ekleyin...

onur bey bu komut Ribbon menu de çalışmıyor.



  Alıntı
Bu mesajı beğenenler:
#4
"caridetay" formunun kayıt eklem ve güncelleştirme olayına aşağıdaki kodu yazarak dener misiniz?
Kod:
Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.txtCariUnvani <> "" Or IsNull(Me.txtCariUnvani) Then
    MsgBox "Lütfen Cari Unvanı boş bırakmayınız!", vbExclamation, "Uyarı"
    DoCmd.Close , , acSaveNo
End If
End Sub
Kod:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.txtCariUnvani <> "" Or IsNull(Me.txtCariUnvani) Then
    MsgBox "Lütfen Cari Unvanı boş bırakmayınız!", vbExclamation, "Uyarı"
    Me.Undo
End If
End Sub



  Alıntı
Bu mesajı beğenenler:
#5
(14-06-2019, 15:20)haliliyas demiş ki: "caridetay" formunun kayıt eklem ve güncelleştirme olayına aşağıdaki kodu yazarak dener misiniz?
Kod:
Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.txtCariUnvani <> "" Or IsNull(Me.txtCariUnvani) Then
   MsgBox "Lütfen Cari Unvanı boş bırakmayınız!", vbExclamation, "Uyarı"
   DoCmd.Close , , acSaveNo
End If
End Sub
Kod:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.txtCariUnvani <> "" Or IsNull(Me.txtCariUnvani) Then
   MsgBox "Lütfen Cari Unvanı boş bırakmayınız!", vbExclamation, "Uyarı"
   Me.Undo
End If
End Sub

halil bey bunu module yazmam gerekiyor. modulde nasıl yapmalıyım?



  Alıntı
Bu mesajı beğenenler:
#6
öncelikler sorayım kod çalışıyor mu dediğim yere eklediğinizde?
2.si de modülde olmasını istemenizin nedeni ne? sadece öğrenme amaçlı mı zorunluluk mu...?



  Alıntı
Bu mesajı beğenenler:


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

Foruma Git:


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