السلام عليكم ورحمة الله
احيي جميع اعضاء هذا المنتدى الكرام على جهودهم المبذولة في مشاركاتهم القيمة وعفويتهم وشفافيتهم في طرح المواضيع وتحليلها وايجاد الحلول المناسبة
وجزاكم الله كل خير - فمن يعمل مثقال ذرة خيرا يرى -
الاخوة الكرام
في مربع نص احد الحقول وهو يحمل صفة مفتاح رئيسي وضعت في الحدث قبل التحديث الكود التالي
Dim w
w = DLookup("[localnum]", "maincard", "[localnum]='" & Me.localnum & "'")
If Not (IsNull(w)) Then
MsgBox "íæÌÏ ÓÌá ÈåÐÇ ÇáÇÓã" & " æÓíÊã ÊÔÛíá ãÚÇáÌ ÇáÈÍË áÇíÌÇÏ ÇáÓÌá ÇáãØáæÈ áåÐÇ ÇáÑÞã"
Cancel = True
Me.localnum.Undo
SendKeys "{ESC}"
SendKeys "^{f}"
طبعا الغاية منه في حال وجود السجل يقوم بالغاء الادخال وشغيل معالج البحث للوصول الى السجل المطلوب
وبصراحة حاولت تكملة الكود بتكرار السطر الاخير ولكن بدلا من f كتبت c ثم v ثم enter
اي كررت السطر الاخير sendkeys وذلك من اجل نسخ الرقم المدخل ثم لصقه في خاتة البحث في معالج البحث ثم تنفيذه ثم الغاء معالج البحث بعد الوصول الى السجل المطلوب
ولكن ما حدث هو ان بعد ان يشغل المالج ينسخ تعليمة sendkeys "^C" ثم يلصقها في خانة مربع البحث في معالج البحث !!
هل هناك طريقة لتكملة الكود السابق بحيث انه في حال وجود السجل يقوم بالذهاب الى ذلك السجل ضمن حدث قبل التحديث
وفي كل الاحوال جزاكم الله الف خير
اخوكم حسن
المبتدىء في الاكسس
:rolleyes: