مشكلة بخصوص نقل التركيز

[ledoledo]

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

الاخوة الكرام خبراء الاكسيس

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

اريد عند الضغط على الزر في النموذج الرئيسي يظل التركيز موجودا بالنموذج الفرعي في مكانه المحدد بالاحتاظ بالتنسيق الشرطي

New 1.accdb

[أبوبسمله]

وعليكم السلام  اخى الفاضل

هل هذا ما تريد ؟

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

 

New 1.accdb

[ledoledo]

تحياتي لك استاذي الفاضل وشكرا لاهتمامك لكن للاسف ليس هذا اريد العمل خارج النموذج الفرعي ويظل التنسيق الشرطي كما هو 

[jjafferr]

هذه طريقة اخرى

Private Sub Command2_Click()
	'Me.Child0.SetFocus
    Screen.PreviousControl.SetFocus
End Sub

 

جعفر

[ledoledo]

ارفقت قاعدة بيانات جديدة لان المطلوب ان يكون العمل على السجلات المستمرة  

New 1.accdb

[أبوبسمله]

بعتذر لك لانى لم افهم سؤالك

بالتوفيق اخى

[ledoledo]

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

[jjafferr]

رد اخي احمد و ردي انا يعطون نفس النتائج ، ويكونون في حدث النقر على الزر 🙂

 

جعفر

[ledoledo]

شكرا لمجهوداتكم وفى انتظار مزيد من الاقترحات لحل المشكلة

[jjafferr]

هذا نفس الكود السابق ، ولكن على النموذج المستمر ،

واذا ما كان اللي تريده ،

فرجاء

9 دقائق مضت, أحمد الفلاحجى said:

بعتذر لك لانى لم افهم سؤالك

 

New 1.accdb

[ledoledo]

شكرا جزيلا اخ جعفر لكن للاسف ليس ما اريده 

[jjafferr]

اخي الفاضل 🙂

 

وبعد 10 مشاركات في هذا الموضوع ، وانت شايف اننا ما فاهمين طلبك ، اما آن الاوان ان تخبرنا بالضبط شو اللي تريده ، وبالتفصيل ، لوسمحت !!

 

جعفر

[ledoledo]

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

عفوا للاطالة وشكرا للاهتمام

[jjafferr]

تفضل 🙂

1174.RemainFocus_OutsideForm.accdb

[ledoledo]

الشكر الجزيل لكم اخي جعفر وكل التقدير لتعبك 

[jjafferr]

حياك الله 🙂

[jjafferr]

السلام عليكم 🙂

 

هناك 3 طرق لعمل الذي تريده ، فإختار الطريقة التي تناسبك 🙂

.

1. اختيار السجل كاملا:

الكود
Private Sub Form_Current()

    Me.my_ID = Me.Text1
End Sub


والتنسيق الشرطي واحد للحقول كلها
Expression is: [my_ID]=[iid]

.

2. اختيار كل حقل بطريقة مستقلة ، وبيانات الحقل المتشابهة كلها ستظهر :

الكود
Private Sub Text1_Click()

    Me.my_ID = "1|" & Me.Text1
End Sub

Private Sub Text2_Click()

    Me.my_ID = "2|" & Me.Text2
End Sub


والتنسيق الشرطي
للحقل iid
Expression is: Mid([my_ID],1,InStr([my_ID],"|")-1)=1 And Mid([my_ID],InStr([my_ID],"|")+1)=[iid]

للحقل fName
Expression is: Mid([my_ID],1,InStr([my_ID],"|")-1)=2 And Mid([my_ID],InStr([my_ID],"|")+1)=[fName]

.

3. اختيار كل حقل بطريقة مستقلة ، وكل حقل له استقلاليته :

الكود
Private Sub Text1_Click()

    Me.my_ID = "1|" & Me.Text1 & "|" & Me.Text2
End Sub

Private Sub Text2_Click()

    Me.my_ID = "2|" & Me.Text1 & "|" & Me.Text2
End Sub


والتنسيق الشرطي
للحقل iid 
Mid([my_ID],1,InStr([my_ID],"|")-1)=1 
  And Mid([my_ID],InStr([my_ID],"|")+1,InStr(3,[my_ID],"|")-3)=[iid] 
  And Mid([my_ID],InStr(3,[my_ID],"|")+1)=[fName]

للحقل fName 
Mid([my_ID],1,InStr([my_ID],"|")-1)=2 
  And Mid([my_ID],InStr([my_ID],"|")+1,InStr(3,[my_ID],"|")-3)=[iid] 
  And Mid([my_ID],InStr(3,[my_ID],"|")+1)=[fName]

.

جعفر

1174.RemainFocus_OutsideForm.accdb.zip

[ledoledo]

 الاخ الفاضل جعفر كل الامتنان و التقدير لشخصك الكريم ولهذا المنتدي الرائع