- Katılım
- 3 Nisan 2007
- Mesajlar
- 235
- Excel Vers. ve Dili
- 2003 TR
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;
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;