A.S.C Filtre, Grafik ve Raporlama Eklentisi

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: 27)



  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
  Kaydet Butonuna Basmadan Tabloya Veri Yazmasın Sinant59 4 79 08-05-2020, 14:05
Son Mesaj: Sinant59
  [FORM] Toplu Resim Seç Dosya Yolunu Kaydet hedefkaya 2 46 02-05-2020, 16:08
Son Mesaj: hedefkaya
  [FORM] Formdaki Degisikleri Kaydet Butonu Ile Kaydetme Hknkrsn 12 162 25-03-2020, 16:50
Son Mesaj: onur_can
  Acces De Ana Menü De "kimler Online?" Gibi Bir Eklenti Yapabilirmiyiz? TURK 3 114 27-02-2020, 20:33
Son Mesaj: akd27
  Sağ Click Menü Ikonu Yerleştirme mengene 2 161 25-11-2019, 20:52
Son Mesaj: mengene
  kaydet butonu ferhatözge 15 20.124 30-10-2019, 15:49
Son Mesaj: sefersanli
  Esc tuşunu iptal etmek hegu 2 415 22-06-2019, 19:18
Son Mesaj: hegu
  [FORM] KAYDET BUTONU beyşehir2004 2 406 12-01-2019, 16:52
Son Mesaj: beyşehir2004

Foruma Git:


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