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ığı ) 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

"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

Kaydet bıutonu Click Olayına;
ekleyin...

(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.

"caridetay" formunun kayıt eklem ve güncelleştirme olayına aşağıdaki kodu yazarak dener misiniz?

(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?

ö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...?