الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكن الذهاب الى السجل المطلوب

مغلق
بدأه حسن عبيد في 22 نوفمبر 2005 · 7 رد · 804 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله

احيي جميع اعضاء هذا المنتدى الكرام على جهودهم المبذولة في مشاركاتهم القيمة وعفويتهم وشفافيتهم في طرح المواضيع وتحليلها وايجاد الحلول المناسبة

وجزاكم الله كل خير - فمن يعمل مثقال ذرة خيرا يرى -

الاخوة الكرام

في مربع نص احد الحقول وهو يحمل صفة مفتاح رئيسي وضعت في الحدث قبل التحديث الكود التالي

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:

#2

اين التفاعل واين المشاركة واين الاعضاء والخبراء والمشرفين ؟؟؟

أليس الغاية من كنابة الكود هو زيادة المرونة واتمتة العمل؟؟؟؟

أم ليس هناك حل!!!!!!!!!؟؟؟؟؟

على كل الاحوال

جزاكم الله خيرا

#3

ضع برنامجك أو الجزئية الخاصة بالسؤال ليتم رؤية الكود والمكان الذي وضع فيه ومسميات مربعات النص حتى نستطيع معرفة المشكلة والتعديل بطريقة صحيحة إن شاء الله .

تحياتي ..

#4
فهد الدوسري كتب:
ضع برنامجك أو الجزئية الخاصة بالسؤال ليتم رؤية الكود والمكان الذي وضع فيه ومسميات مربعات النص حتى نستطيع معرفة المشكلة والتعديل بطريقة صحيحة إن شاء الله .

تحياتي ..

شكرا لاهتمامكم أخي المشرف

وقد ارفقت الملف

- طبعا الفكرة كما قلت سابقا في حال وجود السجل المذكور يتم الغاء الادخال ومن ثم الانتقال الى ذلك السجل

أكرر لكم شكري ثانية

وجزاكم الله خيرا

أخوكم حسن

m3.rar

#5

السلام عليكم ورحمة الله وبركاته

" وذكر لعل الذكرى تنفع المسلمين "

لقد وعد الاخ فهد الدوسري بايجاد حل اذا كان ممكنا

شكرا لاهتمامكم

#6

جرب البرنامج التالي وفيه نموذج لفهد الدوسري قد يكون هو ماتبحث عنه، وعدل فيه حسب حاجتك.

الرقم موجود مسبقا.zip

عبدالله عطيف

#7

شكرا جزيلا لاهتمامك alotaif

ان النموذج الذي اقترحته لفهد الدوسري يستخدم الحدث بعد التحديث والاجراء الذي فيه طويل اذا لاحظت

وقد ذكرت انني اريد حلا من خلال الحدث بعد التحديث

لذلك وبعد العودة الى مرجع الاكسس المرفق مع البرنامج توصلت الى الجواب الشافي والذي تستطيع فيه استخدام الحدث قبل التحديث للذهاب الى السجل المطلوب في حال وجوده في الجدول واليك

ولكل الاعضاء الذين يمكن ان يستفيدوا من ذلك ارفق الملف

وعتبي على الاخ فهد الدوسري لعدم المتابعة مع العلم انني اجد فيه وفي كل الاخوة الاعضاء الرغبة في المساعدة وتبادل الخبرة

ولكم جزيل الشكر

ab1.rar

#8

آسف جداً أخي : (katalinahasan) فأنت تعلم كثرة المشاركات في هذا المنتدى مما جعلني أنسى مشاركتك هذه .. وكان الواجب عليك تذكيرنا جميعاً بالمشاركة إذا طال الانتظار .. وعموماً الحمد لله أنك قد وجدت الحل .. وكما يقولون كل تأخيره فيها خيره .

أكرر أسفي مرة أخرى . وتقبل تحياتي .

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…