Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
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: 7)
Bul
Alıntı
#2
Kaydet bıutonu Click Olayına;
Kod:
if IsNull(txtCariUnavı) Then
Me.Undo
Exit Sub
Else
DoCmd.RunCommand accmdSaveRecord
Endif
ekleyin...

Kullanıcı İmzası
Tecrübe bütün öğretmenlerin en iyisidir.
Publilus Syrus

BLOG SİTEM
Access Makaleleri

YARDIMCI ARAÇ UYGULAMALARIM
1-Access Penceresini  Tek Tıklamayla Gizleme Uygulaması (UYGULAMA)
ARAYÜZ ÇALIŞMALARIM
1-GIF’li Ana Menü Uygulaması (MENU)
2-Başlangıç Ekranı (Bir sonraki Açılışta Bu Ekranı Göster/Gizle) (FORM)
3-Uygulama Ana ekranı (Otobüs Bilet Otomasyon) (MENU)
4-Web Menü Uygulaması (MENU)
5-Office Menü Uygulaması (ProgressBar+Şifre Ekranı)-(MENU)
6-Reklam Formu Uygulaması (FORM)
7-Ana Menü Oluşturma (Tablo Verileri Kullanarak) (MENU)
8-Etkileyici Formlar
9-Ana Menü Uygulaması
10- Kullanıcı Giriş Formu (Login Örneği)



Alıntı
#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.
Bul
Alıntı
#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
Bul
Alıntı
#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?
Bul
Alıntı
#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...?
Bul
Alıntı


İmlemeler

Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] KAYDET BUTONU beyşehir2004 2 264 12-01-2019, 16:52
Son Mesaj: beyşehir2004
  [TABLO] Kaydet evren89 5 336 17-09-2018, 01:28
Son Mesaj: dsezgin
  kaydet butonu ferhatözge 14 18.725 06-09-2018, 00:47
Son Mesaj: evren89
  [FORM] Kaydet evren89 1 459 05-09-2018, 17:51
Son Mesaj: Allback
access-sql-18 [VBA] kaydet ve mail gönder iptalinde sorun Mr.Midnight 4 672 15-02-2018, 11:35
Son Mesaj: Taruz
  Açılır Menü golf2000 1 864 02-02-2018, 08:10
Son Mesaj: iscinar
  [VBA] Ribbon Menüdeki buton çalışmaması oguzduman81 2 564 12-01-2018, 11:02
Son Mesaj: oguzduman81
  [FORM] formda aşağı açılan menü metınaycıcek 5 830 08-12-2017, 13:43
Son Mesaj: onur_can

Foruma Git:


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