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

هل تتفضلوا بمساعدتي

مغلق
بدأه alali100 في 14 نوفمبر 2003 · 10 رد · 1,066 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اسعد الله اوقاتكم جميعاً بكل خير .

سؤالي ان لدي برنامج مكون من جدول واحد اسمه unit

الاسم

الرتبه

الرقم

الهاتف

القسم

الاداره

العنوان

.......الخ

ونموذجين .

النموذج الأول اسمه بحث حقوله كالتالي

الاسم

الرتبه

الرقم

الهاتف

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

النموذج الأول به زر أمر ( تفصيل )

ما اريد هو عندما اقوم بفتح النموذج الأول بحث على اسم معين مثلا " خالد " اريد ان اضغط على زر الأمر فتظهر جميع معلوماته في النموذج الثاني " افرادي بالاسم "

اذن ماهو الكود المناسب لذلك . حيث اني وضعت كود لذلك ولكنه يظهر جميع الأسماء

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

sob7ank.jpg

فرض على الناس أن يتوبوا**** لكن ترك الذنوب أوجب

والصبر في النائبات صعب**** لكن فوات الثواب أصعب

والدهر في صرفه عجيب**** لكن غفلة الناس أعجب

وكل ما قد يجي قريب****والموت للعبد من ذاك أقرب

#2

اخي الكريم علالي

ضع في حقل الرقم في حدث النقر المزدوج الكود التالي

On Error GoTo Err_Command14_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "اسم النموذج الثاني"

stLinkCriteria = "[الرقم]=" & Me![الرقم]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command14_Click:

Exit Sub

Err_Command14_Click:

MsgBox Err.Description

Resume Exit_Command14_Click

مع خالص التحية والتقدير

#4

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

sob7ank.jpg

فرض على الناس أن يتوبوا**** لكن ترك الذنوب أوجب

والصبر في النائبات صعب**** لكن فوات الثواب أصعب

والدهر في صرفه عجيب**** لكن غفلة الناس أعجب

وكل ما قد يجي قريب****والموت للعبد من ذاك أقرب

#6

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

اخي سمير مثالك جميل ولكن لم يلبي طلبي وحتى اوضح الصوره اكثر ارفق المثال لكم .

ali.rar

sob7ank.jpg

فرض على الناس أن يتوبوا**** لكن ترك الذنوب أوجب

والصبر في النائبات صعب**** لكن فوات الثواب أصعب

والدهر في صرفه عجيب**** لكن غفلة الناس أعجب

وكل ما قد يجي قريب****والموت للعبد من ذاك أقرب

#7

I have a rqt which calculates the remainder due of the invoices as of the my members.

This rqt is TRUE from the moment or my members carries out a payment;

The idea, cest that when I do validate the card of the member with these various activities, I would like to recover it [ CodeAdhérent ] to register it in my tbl payments in order to create a line of payment to 0? for this member and that that launches me enfn this rqt calculation.

الكود/

DoCmd.RunSQL "INSERT INTO [ tbl of destination]([champ of the tbl of destination])values

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

#8

اخي الكريم

ارجوا أن يكون المطلوب

للذهاب للنموذج افرادي بالاسم انقر نقرا مزدوجا علي الرقم في نموذج نتائج البحث

لك مني خالص التحية والتقدير

ali.zip

#9

اشكركم جميعاً على التفاعل معي

كما اشكر الاخ AhmdMu

حيث ان مثالك هو المطلوب تماماً ولكن اتمنى التوضيح لماذ اضفت الحقل id ( مسلسل )

وايضاً اليس من الأفضل ان يستخدم الكود على زر امر فكما تعلم ان من يستخدم البرنامج لأول مره قد يجهل هذه الميزه (الضغط على حقل التسلسل ) لو لم يكن هناك تعليق .

واشكر الجميع مرة اخرى

تم تعديل هذه المشاركة بواسطة alali100 في 16 نوفمبر 2003 في 02:12

sob7ank.jpg

فرض على الناس أن يتوبوا**** لكن ترك الذنوب أوجب

والصبر في النائبات صعب**** لكن فوات الثواب أصعب

والدهر في صرفه عجيب**** لكن غفلة الناس أعجب

وكل ما قد يجي قريب****والموت للعبد من ذاك أقرب

#10

اخي الكريم alali100

لا يوجد سبب مباشر لذلك

ولكني افضل التعامل مع الارقام افضل من الحروف لانها ادق وتعطي نتائج اسرع

ولانه قد يكون هناك اكثر من اسم متشابه فستكون النتيجة اظهار الاسمين معا

اذا احببت أن تظهر النموذج افرادي بالاسم عليك بتغيير الكود ووضعه في حدث عند النقر المزدوج للاسم مع مراعاة تغيير اسم الحقل id الى الاسم

همس في اذنك يعني لا احد يسمع

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

اخيك المحب

لك مني خالص التحية والتقدير

#11

صدقت اخي العزيز ولكن هذا البرنامج موجود منذ فتره طويله اي قبل الدروس .

ولكن ماذا لو ان مستخدم البرنامج لم يفقه شيء في اللغه الانجليزيه فكيسف سوف يتعامل مع البرنامج . اليست هذه نقطه يجب ان نعطيها بعض التركيز .

sob7ank.jpg

فرض على الناس أن يتوبوا**** لكن ترك الذنوب أوجب

والصبر في النائبات صعب**** لكن فوات الثواب أصعب

والدهر في صرفه عجيب**** لكن غفلة الناس أعجب

وكل ما قد يجي قريب****والموت للعبد من ذاك أقرب

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

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

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

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

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

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