Şarta bağlı olarak Formu kapatmak

[erkankamilonas]

Bir formun şarta bağlı olarak kapanması için şu kodu yazdım ancak başarılı olamadım.

Kullanıcıya yapacağı işlem hakkında bilgi veren bir mesaj kutusu çıkıyor, kullanıcı yanlış yaptığını düşünüyorsa mesaj kutusu'na hayır cevabını veriyor. Bu cevap neticesinde

1-) İşlemin Formdan Veritabanına gönderilmemesi gerekiyor
2-) Formun tamamen kapanması gerekiyor veya formun yeni bir kayıt için hazır hale gelmesi gerekiyor.


If MsgBox("Şu anda " & Chr(10) & [YARI MAMÜL TANIMI] & Chr(10) & [OPERASYON TANIMI] & Chr(10) & " İşlemi için barkod girişi yapıyorsunuz. Eminmisiniz?", vbYesNo) = vbNo Then
[AÇIKLAMA] = "HATALI GİRİŞ"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Requery
docmd.close
End If

Yardımcı olabilirmisiniz?

Alınan hata iletisi;

 

[mehmetdemiral]

Bir form üzerindeki bir butonun click yordamına

Dim cevap As String

cevap = MsgBox("İşlem yapılsın mı?", vbYesNo, "SORU")
If cevap = 6 Then
MsgBox ("işlem yapılabilir, onay verildi. Formu kapatıyorum")
DoCmd.Close
Else
Undo
MsgBox "İşlem İptal edildi. Şimdi yeni kayıt açıyorum."
DoCmd.GoToRecord , , acNewRec
end if

yazın.

 

[erkankamilonas]

Sayın mehmetdemiral aynı hatayı alıyorum. Şekilde gösterilen hata iletisini almaya devam ediyorum.

 

[mehmetdemiral]

Teorik olarak olması lazım. O zaman bir örnek oluşturup bakmam lazım. Bu da zaman alan bir işlem. Bence diğer sorudaki cevabımla bu da aynı cevap.

 

[adnanyurdakul]

mehmetdemiral ın yazdığı gibi yapmalısın hata olmaması gerekir