AccessTr.neT

Tam Versiyon: Button Kontrolü
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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 ?
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
(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