Skip to main content

AccessTr.neT


Button Kontrolü

Button Kontrolü

Çözüldü #1
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 ?
Cevapla
#2
if kodunun mantığını yanlış kurmuşsunuz gibi geldi
Visual Basic Code
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
Cevapla
#3
(12/09/2019 15:13)berduş Adlı Kullanıcıdan Alıntı: 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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task