تمييز العنصر الحالي (في مربع القائمه)

[كوماندير]

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

 

عندي نموذج فيه بيانات مجموعة عملا ويتم متابعة المجموعة التي تم تسجيلهم في تاريخ معين من خلال مربع قائمة .

 

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

 

اليكم المرفق :

 

‫LastTry1.rar

[رمهان]

اهلا بك اخينا كوماندير

مالفائدة من ما طلبت ؟ حيث لم تظهر لي ونريد ان نستفيد ! 

بوجهة نظري انه العكس : عندما تنتقل بين السجلات سيظهر العملاء في القائمة وحسب التاريخ وبالنقر على العميل في القائمة يظهر العميل في النموذج !

هذا ولك ماطلبت باذن الله لاحقا وبعد معرفة الفائدة ولكن بتظليل العنصر وليس بتغيير تنسيقه ؟ لانه هناك تحدي في تنسيق عنصر القائمة في الاكسس فما بالك في احد صفوف القائمة !!!!

 

تحياتي

[كوماندير]

اخي رمهان الف الف شكر

 

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

 

عموما بعد عناء مضن عن الموضوع توصلت الى انه لايمكنني عمل ذلك من خلال مربع القائمة .

   

   لكن يمكنني عمل ذلك من خلال نموذج فرعي وعن طريق التنسيق الشرطي  .

 

المشكله ان طريقة التنقل ضمن النموذج عن طريق مربع القائمة من خلال الكود :

Me.RecordsetClone.FindFirst "[SalID]=" & Me.SalList
 Me.Bookmark = Me.RecordsetClone.Bookmark

الان ما اريده هو طريقة التنقل بين سجلال النموذج الرئيسي من خلال النموذج الفرعي ( وكان النموذج الفرعي يقوم بعمل مربع القائمة ).

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

وهذا المرفق :

LastTry2.rar

تم تعديل يوليو 26, 2015 بواسطه كوماندير

[رمهان]

حياك اخي كوماندير

صحيح ماقمت به من استبدال مربع القائمة كنموذج فرعي بل يمكن تغيير خصائص النموذج الفرعي حتى يظهر وكانه مربع قائمة !

واليك الكود مع اجمل تحية

Private Sub SalNAme_Click()
Me.Parent.Form.RecordsetClone.FindFirst "[SalID]=" & Me.SalID
Me.Parent.Form.Bookmark = Me.Parent.Form.RecordsetClone.Bookmark
End Sub

[كوماندير]

الف الف شكر اخي رمهان

 

هذا هو المطلوب بالضبط

 

لكن ياريت لو تدلنا على ضبط خصائص النموذج الفرعي ليبدو كمربع قائمة

[كوماندير]

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

اريد التركيز ينتقل الى السجل الذي انقر عليه بالماوس كما بمربع القائمه بالضبط:

[رمهان]

ما شاء الله اخي كوماندير شايفك ظبطت خصائص النموذج وكما بالصورة فتبدو وكانها مربع قائمة !

لذلك ارجو ارفاق الملف المعدل وكما بالصورة للتطبيق عليه !

 

تحياتي

[كوماندير]

وهذا المرفق :

 

LastTry3.rar

[رمهان]

تصدق دوختني شويتين !!

تفضل وبالنظر في اخر سطر 

Private Sub SalNAme_Click()
Me.Parent.Form.RecordsetClone.FindFirst "[SalID]=" & Me.SalID
Me.Parent.Form.Bookmark = Me.Parent.Form.RecordsetClone.Bookmark
Me.Parent!SalID.SetFocus
End Sub

بالتوفيق

[كوماندير]

الف الف شكر اخ رمهان

 

لقد اهتديت لما فعلت سابقا

 

لكن افضل من ذلك لو ان التركيز بقي على نفس السجل في النموذج الفرعي المستمر

 

فهل ممكن ذلك وكيف ؟

[رمهان]

تفضل

Private Sub SalNAme_Click()
x = CurrentRecord
Me.Parent.Form.RecordsetClone.FindFirst "[SalID]=" & Me.SalID
Me.Parent.Form.Bookmark = Me.Parent.Form.RecordsetClone.Bookmark
DoCmd.GoToRecord , , acGoTo, x
End Sub

تحياتي

[كوماندير]

الف الف شكر اخي رمهان

 

 

هو المطلوب بعينه

 

 

 

حُلت

تم تعديل يوليو 26, 2015 بواسطه كوماندير

[رمهان]