Button Kontrolü - Baskı Önizleme

Button Kontrolü - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Button Kontrolü (/konu-button-kontrolu.html)

Button Kontrolü - untouchable - 12/09/2019

Merhaba,

Kaydet butonuna tıklandığın olayına

Kod:

If MsgBox("Kaydetmek istiyor musunuz?", vbYesNo, "Kaydet") = vbYes Then



DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

DoCmd.GoToRecord , , acNewRec

Else



Me.Undo

Cancel = True

End If

Me.lstMalzeme.Requery

Kodunu ekledim çalışıyor fakat zorunlu alanlardan biri boş olunca run time error hatası alıyorum Img-cray

Kod:

If Me.Form.Dirty = True Then

If (IsNull(txtCRM.Value)) Or (IsNull(txtMalzemeSec.Value)) Or (IsNull(txtMiktar.Value)) Or (IsNull(txtAciklama.Value)) Or (IsNull(txtBelgea.Value)) Then

   MsgBox "Boş alan..!Lütfen eksik alanları doldurunuz.. ", vbOKOnly + vbCritical, "Kayıtta Eksik Bilgi": Me.txtCRM.SetFocus

Exit Sub

End If

Else

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

DoCmd.Close

Kodunu ekledim istediğim oldu bu defada kayıt ekleme işlemini yapmıyor. Yardımcı olabilir msiniz ?

RE: Button Kontrolü - berduş - 12/09/2019

if kodunun mantığını yanlış kurmuşsunuz gibi geldi

If Me.Form.Dirty = True Then

If (IsNull(txtCRM.Value)) Or (IsNull(txtMalzemeSec.Value)) Or (IsNull(txtMiktar.Value)) Or (IsNull(txtAciklama.Value)) Or (IsNull(txtBelgea.Value)) Then

   MsgBox "Boş alan..!Lütfen eksik alanları doldurunuz.. ", vbOKOnly + vbCritical, "Kayıtta Eksik Bilgi": Me.txtCRM.SetFocus

Exit Sub

End If 'isnull end if

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

DoCmd.Close

end if 'dirty  end if

RE: Button Kontrolü - untouchable - 12/09/2019

(12/09/2019, 15:13)berduş yazdı: if kodunun mantığını yanlış kurmuşsunuz gibi geldi

Kod:

If Me.Form.Dirty = True Then If (IsNull(txtCRM.Value)) Or (IsNull(txtMalzemeSec.Value)) Or (IsNull(txtMiktar.Value)) Or (IsNull(txtAciklama.Value)) Or (IsNull(txtBelgea.Value)) Then MsgBox "Boş alan..!Lütfen eksik alanları doldurunuz.. ", vbOKOnly + vbCritical, "Kayıtta Eksik Bilgi": Me.txtCRM.SetFocus Exit Sub End If 'isnull end if DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.Close end if 'dirty end if

Teşekkürler hocam