المساعدة في برنامج معرض سيارات

[Enjoy]

الاخوة الكرام اعضاء ومشرفين هذا المنتدى الكريم

ارجوا المساعدة في برنامج معرض سيارات

المساعدة المطلوبه هي في جزئية ربط البرنامجين او الجدولين بطريقة معينه

حيث ان صاحب المعرض لديه عملاء كثيرون جدا ومنهم من هو متاخر في السداد او يتلاعب في السداد او اختفى نهائيا عن الانظار

ويرغب في حفظ معلوماتهم في جدول

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

بحيث انه يرغب في الاتي

في حال ادخال بيانات عميل جديد في جدول العملاء مثلا يخبرة البرنامج بان هذا الشخص مطلوب (اثناء ادخال بيانات جديدة بدون ان يقوم بطلب بحث في الجدول الثاني)

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

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

وقد ارفقت مثال تجريبي ارجوا ان يكون هو المنطلق ونتساعد للوصول الى الهدف النهائي

http://00op.com/up/uploads06-11-11/eed3515415.zip

[waeelahmed]

أخى الكريم

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

شئ من هذا القبيل

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

وعلى ذلك بفرض أن البحث برقم جواز السفر

ففى خانة رقم جواز السفر --- فى الحدث بعد التحديث

سيتم وضع الكود

    Dim ritm As New ADODB.Recordset
    Dim sqlstr As String

    sqlstr = "select * from اسم الجدول where حقل البحث= " & CStr(اسم صندوق النص الذى سيكون به البيان الجديد)
    ritm.Open sqlstr, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If Not ritm.BOF And Not ritm.EOF Then
    ritm.MoveFirst
    While Not ritm.EOF
تضع هنا ما تريد فعله إذا وجد الشخص
    ritm.Movenext
wnd
end if

هذا تقريباً ما قد تحتاج اليه

[Enjoy]

ياليت اذا مافيها ازعاج

ارفاق اي ملف به نفس الكود

لاني ماعرفت اكتب الكود عندي

شاكر ومقدر لك تعاونك

[التقني]

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

حياك الله أخي Enjoy

وبعد اذن أخي waeelahmed

جرب المثال البسيط في المرفقات

فيه نطاق البحث من خلال :

رقم الجواز أو الرقم المدني (الهوية) أو الاسم

هذا المثال يمكنك دمجه مع أي برنامج فيه بيانات كثيره وما عليك الا تغيير مصدر هذا النموذج مع قليل من التعديلات ودون الدخول في الكود

وبالتوفيق

ملاحظه :

الشكر والدعاء موصول لصاحب البرنامج الأصلي

والتعديل والاضافة هي نتاج أكثر من تجربة ومحاولة

ChekMe.rar

[Enjoy]

الله لايحرمنا منك ومن مساعداتك

سيتم العمل على التعديل وبعض التغييرات

[يوسف أحمد]

استاذنا التقني

اخي waeelahmed

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

ارجو ان اكون طبقته على الوجه المطلوب ليفي بمبتغى اخي Enjoy

فلا غنى لنا عن ملاحظاتكم

enjoy.zip

[Enjoy]

الاخ يوسف

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

وفعلا فهمتني

يعطيك الف عافية

طبعا ماانسى اخوي التقني اللي اكن له كل حب واحترام

[يوسف أحمد]

اخي Enjoy

بارك الله فيك

طبعا ماانسى اخوي التقني اللي اكن له كل حب واحترام

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

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

وفقهم الله وسدد خطاهم ورزقهم الفردوس الأعلى ... آمين

وللفائدة اخي ارفقت هذه المكتبة العملاقة ( مكتبة اوفيسنا العملاقة ) التي وجدت بها الحل فهي للاستاذ خضر الرجبي جزاه الله خيراً

______________________.rar

[Enjoy]

وينك يالتقني

محبينك كثار