اذهب الي المحتوي
أوفيسنا

هل يوجد كود لتلوين السجل الحالي


النجاشي
إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

3 دقائق مضت, haider1430 said:

كلك خير وبركه

شكر جزاك الله خير والاخوان ما راح يقصرو باذن الله راح تلقي الاجابه

رابط هذا التعليق
شارك

منذ ساعه, jjafferr said:

السلام عليكم اخي وضاح:smile:

 

تفضل هذا المرفق:

727.2.Clipboard01.jpg.f4fe11f3de670cfeda1dd5aed5756ef8.jpg

.

جعفر

727.2.الاستاذ جعفر.accdb.zip

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

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

بدون عنوان.png

رابط هذا التعليق
شارك

تفضل:smile:

 

رجاء ملاحظة اني استخدمت نفس طريقة مشاركتي الاولى:

 

ولكن بإستخدام  هذا الكود ، الذي يبحث اول سجل مطابق لحقل البحث n2 ، ومنه نأخذ قيمة الحقل Rajmsanf ونعطيها الحقل MYn1 ، حتى يتم تطابق قيم الحقلين ، وعليه يعمل التنسيق الشرطي:

'    Dim rst As DAO.Recordset
'    Set rst = Me.sfrm_Search.Form.RecordsetClone
'    rst.FindFirst "[Rajmsanf] like '" & Me.n2.Text & "*'"
'    If rst.NoMatch Then
'        Me.sfrm_Search!MYn1 = 0
'    Else
'        Me.sfrm_Search!MYn1 = rst!Rajmsanf
'    End If
'    rst.Close: Set rst = Nothing
    
    'or
    Me.sfrm_Search.Form.RecordsetClone.FindFirst "[Rajmsanf] like '" & Me.n2.Text & "*'"
    If Me.sfrm_Search.Form.RecordsetClone.NoMatch Then
        Me.sfrm_Search!MYn1 = 0
    Else
        Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
    End If
    

.

والنتيجة

727.3.Clipboard01.jpg.ffb545731f56109e4916452f0a6fe1b8.jpg

.

 

في اعتقادي ان هذا الموضوع اصبح مرجع لتظليل/تلوين السجلات حسب قيمة البحث ، باستخدام التنسيق الشرطي ،

واتمنى ان احصل على وقت لكي افرد له موضوع خاص وبشرح مفصل لكل طريقة تم استعمالها (او يقوم احد الاعضاء بهذا العمل مشكورا):smile:

 

جعفر

727.3.الاستاذ جعفر.accdb.zip

  • Like 2
رابط هذا التعليق
شارك

2 ساعات مضت, ابا جودى said:

واحب اضيف اضافة مع استاذى الجليل ومعلمى القدير ووالدى الاستاذ @jjafferr :fff:

 

FindAsUType-update.rar

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

رابط هذا التعليق
شارك

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

تفضل:smile:

 

رجاء ملاحظة اني استخدمت نفس طريقة مشاركتي الاولى:

 

ولكن بإستخدام  هذا الكود ، الذي يبحث اول سجل مطابق لحقل البحث n2 ، ومنه نأخذ قيمة الحقل Rajmsanf ونعطيها الحقل MYn1 ، حتى يتم تطابق قيم الحقلين ، وعليه يعمل التنسيق الشرطي:


'    Dim rst As DAO.Recordset
'    Set rst = Me.sfrm_Search.Form.RecordsetClone
'    rst.FindFirst "[Rajmsanf] like '" & Me.n2.Text & "*'"
'    If rst.NoMatch Then
'        Me.sfrm_Search!MYn1 = 0
'    Else
'        Me.sfrm_Search!MYn1 = rst!Rajmsanf
'    End If
'    rst.Close: Set rst = Nothing
    
    'or
    Me.sfrm_Search.Form.RecordsetClone.FindFirst "[Rajmsanf] like '" & Me.n2.Text & "*'"
    If Me.sfrm_Search.Form.RecordsetClone.NoMatch Then
        Me.sfrm_Search!MYn1 = 0
    Else
        Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
    End If
    

.

والنتيجة

727.3.Clipboard01.jpg.ffb545731f56109e4916452f0a6fe1b8.jpg

.

 

في اعتقادي ان هذا الموضوع اصبح مرجع لتظليل/تلوين السجلات حسب قيمة البحث ، باستخدام التنسيق الشرطي ،

واتمنى ان احصل على وقت لكي افرد له موضوع خاص وبشرح مفصل لكل طريقة تم استعمالها (او يقوم احد الاعضاء بهذا العمل مشكورا):smile:

 

جعفر

727.3.الاستاذ جعفر.accdb.zip

بارك الله فيك استاذنا القدير @jjafferr هذا ما اريده بالظبط

ولكن استاذي  ماذ1 عن التظليل بحركه السهم بالكيبورد الى اعلى والى تحت كما موضح بالصوره بعد ادخال القيمه 

والتضليل اذا بحثنا باسم الصنف

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

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

 

السهم بالكيبورد.jpg

تم تعديل بواسطه ابو زاهر
رابط هذا التعليق
شارك

  • أفضل إجابة

تفضل:smile:

 

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

Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo err_Form_KeyDown

    temp_MYn1 = Me.sfrm_Search!MYn1
    
    Select Case KeyCode
  
        Case vbKeyDown
    
            Me.sfrm_Search!MYn1 = 0
            Me.sfrm_Search.Form.RecordsetClone.MoveNext
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
   
        Case vbKeyUp
    
            Me.sfrm_Search!MYn1 = 0
            Me.sfrm_Search.Form.RecordsetClone.MovePrevious
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
            
    End Select
    
Exit_Form_KeyDown:
Exit Sub
err_Form_KeyDown:

    If Err.Number = 2113 Or Err.Number = 3021 Then
        Me.sfrm_Search!MYn1 = temp_MYn1
        Resume Exit_Form_KeyDown
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

727.4.الاستاذ جعفر.accdb.zip

رابط هذا التعليق
شارك

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

تفضل:smile:

 

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


Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo err_Form_KeyDown

    temp_MYn1 = Me.sfrm_Search!MYn1
    
    Select Case KeyCode
  
        Case vbKeyDown
    
            Me.sfrm_Search!MYn1 = 0
            Me.sfrm_Search.Form.RecordsetClone.MoveNext
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
   
        Case vbKeyUp
    
            Me.sfrm_Search!MYn1 = 0
            Me.sfrm_Search.Form.RecordsetClone.MovePrevious
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
            
    End Select
    
Exit_Form_KeyDown:
Exit Sub
err_Form_KeyDown:

    If Err.Number = 2113 Or Err.Number = 3021 Then
        Me.sfrm_Search!MYn1 = temp_MYn1
        Resume Exit_Form_KeyDown
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

727.4.الاستاذ جعفر.accdb.zip

 أستاذ@jjafferrا

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

شكر كثير اليك زادك الله علما  اخي الكريم

رابط هذا التعليق
شارك

عملت تغيير بسيط على الكود السابق ،

واليك المرفق الجديد

 

Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo err_Form_KeyDown

    temp_MYn1 = Me.sfrm_Search!MYn1
    
    Select Case KeyCode
  
        Case vbKeyDown
    
            Me.sfrm_Search!MYn1 = 0
            I_went = "Down"
            Me.sfrm_Search.Form.RecordsetClone.MoveNext
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
   
        Case vbKeyUp
    
            Me.sfrm_Search!MYn1 = 0
            I_went = "Up"
            Me.sfrm_Search.Form.RecordsetClone.MovePrevious
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
            
    End Select
    
Exit_Form_KeyDown:
Exit Sub
err_Form_KeyDown:

    If Err.Number = 2113 Or Err.Number = 3021 Then
        
        If I_went = "UP" Then
            Me.sfrm_Search.Form.RecordsetClone.MoveNext
        Else
            Me.sfrm_Search.Form.RecordsetClone.MovePrevious
        End If
        
        Me.sfrm_Search!MYn1 = temp_MYn1
        Resume Exit_Form_KeyDown
        
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

.

جعفر

727.4.الاستاذ جعفر.accdb.zip

رابط هذا التعليق
شارك

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

عملت تغيير بسيط على الكود السابق ،

واليك المرفق الجديد

 


Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo err_Form_KeyDown

    temp_MYn1 = Me.sfrm_Search!MYn1
    
    Select Case KeyCode
  
        Case vbKeyDown
    
            Me.sfrm_Search!MYn1 = 0
            I_went = "Down"
            Me.sfrm_Search.Form.RecordsetClone.MoveNext
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
   
        Case vbKeyUp
    
            Me.sfrm_Search!MYn1 = 0
            I_went = "Up"
            Me.sfrm_Search.Form.RecordsetClone.MovePrevious
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
            
    End Select
    
Exit_Form_KeyDown:
Exit Sub
err_Form_KeyDown:

    If Err.Number = 2113 Or Err.Number = 3021 Then
        
        If I_went = "UP" Then
            Me.sfrm_Search.Form.RecordsetClone.MoveNext
        Else
            Me.sfrm_Search.Form.RecordsetClone.MovePrevious
        End If
        
        Me.sfrm_Search!MYn1 = temp_MYn1
        Resume Exit_Form_KeyDown
        
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

.

جعفر

727.4.الاستاذ جعفر.accdb.zip

شكرا اليك استاذنا الكريم

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

بس بقي ملاحظه بسيطه ممكن  تنظر فيهه مثلا عندما ابحث باسم الصنف اريده يعطينا التظليل زي ما عملته لي برقم الصنف

شاكر اليك من قلبي اخي جعفر

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information