تظليل و تلوين سجل محدد

[ahmad_mustafa]

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

هل يوجد دالة تلوين سجل محدد بدون استخدام طريقة التنسيق الشرطي 

تلوين سجل محدد.rar

[jjafferr]

3 ساعات مضت, ahmus said:

طريقة التنسيق الشرطي

للنموذج المستمر ، لا يوجد غير النموذج الشرطي ، وهو جدا سهل في التعامل معه 🙂

اخبرنا شو اللي تريد تعمله ، ممكن نعطيك افكار اخرى 🙂

 

جعفر

[ahmad_mustafa]

السلام عليكم 

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

ولك الشكر

  

[jjafferr]

عملت حقل مؤقت مخفي

.

وفي حدث الحالي للنموذج ، اعطيته قيمة الحقل "رقم_التذكرة" كونه رقم مميز (غير متكرر) :

Private Sub Form_Current()

    Me.tmp_ticket_No = Me.[رقم_التذكرة]
End Sub

.

ثم عملت تنسيق شرطي لجميع الحقول ، اذا كانت قيمة الحقل المؤقت = قيمة الحقل "رقم_التذكرة" ، اجعل لون السطر أخضر :

1. نختار جميع الحقول ،

2. ننقر على زر التنسيق الشرطي

.

.

والنتيجة

.

جعفر

1457.تلوين سجل محدد.accdb.zip

[ahmad_mustafa]

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

 

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

[jjafferr]

17 دقائق مضت, ahmus said:

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

هممم ، ولكن انت قلت سابقا :

1 ساعه مضت, ahmus said:

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

.

 

تفضل، هذه الطريقة لتلوين اكثر من سجل ، وبمرفق :

.

 

 

جعفر

[ahmad_mustafa]

جيد .... وياترى هل يوجد  طريقة اسهل 😵

[jjafferr]

قد يرد  اعضاء آخرين بأفكار اخرى 🙂

 

جعفر

[أبو عبدالله الحلوانى]

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

3 ساعات مضت, jjafferr said:

عملت حقل مؤقت مخفي

وانا ادخلت هذا الحقل الي الجدول وفقط 

وكل شيئ ماعدا هذا هو خاص بمرفق الاستاذ @jjafferr 

 

1457.تلوين سجل محدد.accdb.zip

[abouelhassan]

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

 

 

[ahmad_mustafa]

السلام عليكم

تم التلوين لكن لا يمكن الغائه + لايعمل مثلselect حتى نتمكن من حذف السجلات المظللة(الملونة)

[jjafferr]

تفضل 🙂

 

المرفق فيه ملفين ، والاثنين يعملون نفس العمل ،

ولكن الملف رقم 2 عملته خصيصا لـ @Moosak لأنه يعمل كوحدة نمطية 🙂

 

الفكرة مثل اول مشاركة ، نعمل حقل مؤقت :

.

ثم عملت تنسيق شرطي لجميع الحقول ، اذا كانت قيمة الحقل "رقم_التذكرة" موجودة في قيمة الحقل المؤقت ، اجعل لون السطر أخضر (والسبب في اختيار حقل رقم_التذكرة ، لأن بياناته غير متكرر) :

1. نختار جميع الحقول ،

2. ننقر على زر التنسيق الشرطي

.

.

هذه هي المعادلة بالطريقة الصحيحة:

InStr([tmp_ticket_No],"|" & [رقم_التذكرة] & "|")>0

.

وهذا هو الكود

Private Sub Form_Current()

    Me.tmp_ticket_No = "|" & Me.[رقم_التذكرة] & "|"
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    'Me.SelHeight =  to specify or determine the number of selected rows
    'Me.SelTop = to specify or determine which row (record) is topmost in the current selection
    
    
    ' if no selection
    If Me.SelHeight = 0 Then Exit Sub
    
    
    Dim i As Integer
    Dim rst As dao.Recordset

    Set rst = Me.RecordsetClone
    rst.MoveFirst

    ' if the user pressed the Shift or Control key on the keyboard,
     'then don't clear the previous selection
    If Shift <> acShiftMask And Shift <> acCtrlMask Then
        'clear the previous selection
        Me.tmp_ticket_No = ""
    End If
    
    ' Move to the first selected record.
    rst.Move Me.SelTop - 1
    
    ' Loop through the selected records
    For i = 1 To Me.SelHeight
            
            ' add the selected Records to the tmp field
            Me.tmp_ticket_No = Me.tmp_ticket_No & "|" & rst![رقم_التذكرة] & "|"
        
       rst.MoveNext
    Next i

    rst.Close: Set rst = Nothing
    'Debug.Print Me.tmp_ticket_No
    
End Sub

.

والنتيجة

 

جعفر

1457.تلوين سجل محدد.accdb (2).zip

[Moosak]

3 ساعات مضت, jjafferr said:

ولكن الملف رقم 2 عملته خصيصا لـ @Moosak لأنه يعمل كوحدة نمطية 🙂

لك جزيل الشكر معلمنا 🙂 ..

[abouelhassan]

ربنا يكرمك استاذى الحبيب jjafferr

ذادك الله من فضله بميزان حسناتك ان شاء الله

اعذرنى استاذى 

قمت بالتنفيذ كم تفضلت حضرتك على الفورم Frm_serch

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

كما انه يظلل دون ان اختار هل يمكن الاطلاع بارك الله فيك استاذى

احترامى اخيك

DATA1041.mdb

تم تعديل يناير 27, 2022 بواسطه abouelhassan

[jjafferr]

9 ساعات مضت, abouelhassan said:

قمت بالتنفيذ كم تفضلت حضرتك على الفورم Frm_serch

عندك محموعة اشياء يحتاج لها تعديل ، والقائمة ليست بترتيب الاولوية :

 

1. علشان اللون يظهر ، يجب ان تكون خلفية الحقول عادية وليست شفافة 

.

2. جميع الحقول عندك غير مُمكّنه ، فلا تستطيع ان تضع عليها التركيز ، فيجب ان تعملها  مُمكّنه

(هذا اذا اردت الاستفادة من تظليل السطر عند النقر على اي حقل ، وإلا فلا داعي لتغييره)

.

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

وبعد النظر في الاستعلام مصدر بيانات النموذج ، اتضح بأنه لدية الحقل Auto_ID ، فوضعته في النموذج وجعلته مخفي ، واستعملته في الاكواد ،

4. عملت تغيير في اسم الحقل tmp_Ticket_No الى tmp_tmp

5. آخذا في الاعتبار جميع النقاط اعلاه ، تم تغيير الكود في التنسيق الشرطي والاكود باسماء الحقول الجديدة 🙂

 

جعفر

DATA1041.zip

[ahmad_mustafa]

في ٢٧‏/١‏/٢٠٢٢ at 13:51, jjafferr said:

تفضل 🙂

 

المرفق فيه ملفين ، والاثنين يعملون نفس العمل ،

ولكن الملف رقم 2 عملته خصيصا لـ @Moosak لأنه يعمل كوحدة نمطية 🙂

 

الفكرة مثل اول مشاركة ، نعمل حقل مؤقت :

.

ثم عملت تنسيق شرطي لجميع الحقول ، اذا كانت قيمة الحقل "رقم_التذكرة" موجودة في قيمة الحقل المؤقت ، اجعل لون السطر أخضر (والسبب في اختيار حقل رقم_التذكرة ، لأن بياناته غير متكرر) :

1. نختار جميع الحقول ،

2. ننقر على زر التنسيق الشرطي

.

.

هذه هي المعادلة بالطريقة الصحيحة:

InStr([tmp_ticket_No],"|" & [رقم_التذكرة] & "|")>0

.

وهذا هو الكود

Private Sub Form_Current()

    Me.tmp_ticket_No = "|" & Me.[رقم_التذكرة] & "|"
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    'Me.SelHeight =  to specify or determine the number of selected rows
    'Me.SelTop = to specify or determine which row (record) is topmost in the current selection
    
    
    ' if no selection
    If Me.SelHeight = 0 Then Exit Sub
    
    
    Dim i As Integer
    Dim rst As dao.Recordset

    Set rst = Me.RecordsetClone
    rst.MoveFirst

    ' if the user pressed the Shift or Control key on the keyboard,
     'then don't clear the previous selection
    If Shift <> acShiftMask And Shift <> acCtrlMask Then
        'clear the previous selection
        Me.tmp_ticket_No = ""
    End If
    
    ' Move to the first selected record.
    rst.Move Me.SelTop - 1
    
    ' Loop through the selected records
    For i = 1 To Me.SelHeight
            
            ' add the selected Records to the tmp field
            Me.tmp_ticket_No = Me.tmp_ticket_No & "|" & rst![رقم_التذكرة] & "|"
        
       rst.MoveNext
    Next i

    rst.Close: Set rst = Nothing
    'Debug.Print Me.tmp_ticket_No
    
End Sub

.

والنتيجة

 

جعفر

1457.تلوين سجل محدد.accdb (2).zip 67.91 kB · 13 downloads

عمل رائع وهذا ما كنت اريده بارك الله فيك وبارك في كل الاساتذة الذين شاركو وساهم بافكارهم

[abouelhassan]

13 ساعات مضت, jjafferr said:

1. علشان اللون يظهر ، يجب ان تكون خلفية الحقول عادية وليست شفافة 

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

[أبو امين]

هل يمكن استعمال نفس المثال مع تقرير