اختيار نص في مربع تحرير وسرد ليتحول رقما في مربع اخر

[جمال السناني]

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

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

موضح ذلك داخل الفورم في قاعدة البيانات . 

تجريبي.rar

[ابوخليل]

السلام عليكم

لو شرحت لنا الفكرة  فيمكن ان يكون هناك طرق اخرى للتنفيذ

 

تم التعديل حسب طلبك على مربع التحرير الأول في المثال

تجريبي2.rar

[جمال السناني]

شكرا جزيلا لك استاذي الفاضل 

 

ولكن عند التجريب ظهر لي خطا بان القيمة المدخلة غير صحيح 

 

صورة توضيحية بالخطأ 

 

الشرح موجود في الفورم ... بجنب مربعات تحرير والسرد

 

وفقنا الله واياكم 

 

تم تعديل أبريل 3, 2015 بواسطه جمال السناني

[ابوخليل]

تم التعديل والتطبيق على 3 حقول

تجريبي3.rar

[جمال السناني]

اشكرك استاذي على رحابة صدرك 

   

 

المربع الاول والثالث لا يعملان بشكل جيد 

بينما الثاني فانه يعمل بشكل ممتاز

هل المشكلة من الكود ام انه الاكسيس معاي لا يستجيب للكود ؟؟؟

 

وفقنا الله واياك وشكرا لك مرة اخرى يا استاذي الكريم فالحل ممتاز ولكني اعاني من مشكلة ظهور الخطا نفسه 

تم تعديل أبريل 3, 2015 بواسطه جمال السناني

[ابو جودي]

اشكرك استاذي على رحابة صدرك 

   

 

المربع الاول والثالث لا يعملان بشكل جيد 

بينما الثاني فانه يعمل بشكل ممتاز

هل المشكلة من الكود ام انه الاكسيس معاي لا يستجيب للكود ؟؟؟

 

وفقنا الله واياك وشكرا لك مرة اخرى يا استاذي الكريم فالحل ممتاز ولكني اعاني من مشكلة ظهور الخطا نفسه 

بعد اذن معلمنا الجليل واستاذنا القدير الاستاذ ابو خليل 

قمت بالتعديل على المرفق واصبح يعمل بشكل جيد جدا 

الشـــــرح حتى تعم الفائده

من خصائص مربع التحرير والسرد

من التبويب بيانات

يكون مصدر الصف هذه القيم

"مهتم دائما";5;"مهتم في معظم الاحيان";4;"مهتم احيانا";3;"مهتم قليلا";2;"غير مهتم";1

بهذه الطريقة

وطبعا نوع بيانات مصدر مربع التحرير والســـرد تكون

Value List

 

حبث ان قائمة القيم هى 

"مهتم دائما";5;"مهتم في معظم الاحيان";4;"مهتم احيانا";3;"مهتم قليلا";2;"غير مهتم";1

 

"مهتم دائما";5;

"مهتم في معظم الاحيان";4;

"مهتم احيانا";3;

"مهتم قليلا";2;

"غير مهتم";1

 

ومن خصائص مربع التحرير والسرد ان يكون عمودين

وهذه الصور توضح التعديل

العمود الاول هو البند الخاص بالقائمة مثل  مهتم دائما

والعمود الثانى هو قيمته فى القائمه مثل     5

 

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

للمرة الاولى ارى مثل هذا المثال

وهذا الكود المستخدم فى الحدث على مربع التحرير والسرد

فقط لاجيب طلب اخى السائل الاستاذ   جمال السناني     

قمت بتحليل المرفق ومحاولة التحليل والفهم ويسر لى الله عزوجل فهم الية العمل

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

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

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

جزاكم الله عنا كل الخير ان شاء الله

test.rar

[جمال السناني]

انار الله قلبك وشرح صدرك ووفقك لما يحب ويرضى

وجزاك الله خيرا 

 

   

[jjafferr]

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

 

ممكن أشارك شباب 

 

في الواقع مشاركتي فنية أكثر من انها تقليدية 

 

اضغط على الصورة حتى ترى الفيديو

 

 

النموذج:

 

 

1.

قمت بنسخ الحقل من مرفق الاخ أسير الشروق ، ثم حولته من Combobox الى Listbox ،

 

2.

يتم استيراد الحقول من الجدول ، واول حرف من هذا الحقل يجب ان يكون t ،

 

3 ، 4 ، 5. يتم ادخالهم تلقائيا.

 

طريقة العمل:

أ- عندما تختار اسم الحقل (من #2) ، تلقائيا يتم تغيير لون "تقييم الحقل" و "قيمة الحقل" الى اللون الاصفر ،

ب- انقر مرتين على حقل التقييم (#1) ، وسوف يتم ادخال القيم في 3 و4 و5.

 

 

والعمل كله في هذا الكود:

Private Sub Form_Current()

    'add field names to lst_Items
    Call make_lst_items
    
    'get the totals
    Call Sum_Ms
    
    'select the 1st item on the list
    Me.lst_items = Me.lst_items.ItemData(0)
    'color the background of the selected item
    Call lst_items_AfterUpdate
    
End Sub

Private Sub lst_selection_DblClick(Cancel As Integer)
On Error GoTo err_lst_selection_DblClick

    'asign the values
    Me("t" & Right(Me.lst_items, 1) & "_1") = Me.lst_selection.Column(0)
    Me("m" & Right(Me.lst_items, 1) & "_1") = Me.lst_selection.Column(1)
    
    'get the totals
    Call Sum_Ms
        
Exit Sub
err_lst_selection_DblClick:
        
    If Err.Number = 2465 Then
        
        MsgBox "Please Select an Item"
        
        'select the 1st item on the list
        Me.lst_items = Me.lst_items.ItemData(0)
        'color the background of the selected item
        Call lst_items_AfterUpdate
        
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

Private Sub lst_items_AfterUpdate()

    Dim ctl As Control
    
    'change the background color based on the selected item
    For Each ctl In Me.Controls
     
     
        'only textbox , and only if the control name looks like: "any characters" and "_" and "number"
        If ctl.ControlType = acTextBox And ctl.Name Like "*_#" Then
        
            'now that we only have our controls, lets color them
            'based on the 2nd character in the control name
            If Mid(ctl.Name, 2, 1) = Right(Me.lst_items, 1) Then
                
                'make it Yellow
                Me(ctl.Name).BackColor = RGB(255, 255, 0)
                
            Else
                
                'return it back to white
                Me(ctl.Name).BackColor = RGB(255, 255, 255)
                
            End If
        
        End If
    Next
          
End Sub

Private Sub make_lst_items()

    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("ÌÏæá1")
    
    'start clean
    Me.lst_items.RowSource = ""
    
    'add the fields to the listbox
    For i = 0 To rst.Fields.Count - 1
    
        'add only fields that start with t
        If Left(rst.Fields(i).Name, 1) = "t" Then
            
            'add this item
            Me.lst_items.AddItem rst.Fields(i).Name
            
        End If
        
    Next i
    
End Sub

Private Sub Sum_Ms()

    'start clean
    Me.Total_Mall = 0
    
    Dim ctl As Control
    
    'Loop through the Form controls
    For Each ctl In Me.Controls
     
     
        'only textbox , and only if the control name looks like: "m" and "any characters" and "_" and "number"
        If ctl.ControlType = acTextBox And ctl.Name Like "m*_#" Then
                      
            'add it
            Me.Total_Mall = Me.Total_Mall + Nz(Me(ctl.Name).Value)
                
        End If
    Next
        
End Sub

الفنان جعفر

37.test.mdb.zip

[جمال السناني]

ما شاء الله استاذ جعفر 

لك كل الشكر والتقدير على هذا الحل 

وفقنا الله واياك 

[ابو جودي]

انار الله قلبك وشرح صدرك ووفقك لما يحب ويرضى

وجزاك الله خيرا 

 

   

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

[رمهان]

اخي جمال

أرى انه لاداعي لوضع الحقول m1,m2  ... الخ والتي تأخذ قيم التقييم ! فيكتفى بان بوضع مصدر مربع التحرير والسرد عمودين وعبارة عن التقييم والقيم وكما تفضل به الأخ أبو خليل ! ولا نخفي الاعمدة لكي تظهر القيمة بجانب التقييم !

كما ان وضعهم بجدول مستقل افضل !

وبعد كذا تستطيع استخراج القيم وفي أي مكان من البرنامج وحسب نص التقييم !

بالتوفيق

[ابو جودي]

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

 

ممكن أشارك شباب 

 

في الواقع مشاركتي فنية أكثر من انها تقليدية 

 

اضغط على الصورة حتى ترى الفيديو

37.gif

 

 

النموذج:

37.Clipboard01.jpg

 

 

1.

قمت بنسخ الحقل من مرفق الاخ أسير الشروق ، ثم حولته من Combobox الى Listbox ،

 

2.

يتم استيراد الحقول من الجدول ، واول حرف من هذا الحقل يجب ان يكون t ،

 

3 ، 4 ، 5. يتم ادخالهم تلقائيا.

 

طريقة العمل:

أ- عندما تختار اسم الحقل (من #2) ، تلقائيا يتم تغيير لون "تقييم الحقل" و "قيمة الحقل" الى اللون الاصفر ،

ب- انقر مرتين على حقل التقييم (#1) ، وسوف يتم ادخال القيم في 3 و4 و5.

 

 

والعمل كله في هذا الكود:

Private Sub Form_Current()

    'add field names to lst_Items
    Call make_lst_items
    
    'get the totals
    Call Sum_Ms
    
    'select the 1st item on the list
    Me.lst_items = Me.lst_items.ItemData(0)
    'color the background of the selected item
    Call lst_items_AfterUpdate
    
End Sub

Private Sub lst_selection_DblClick(Cancel As Integer)
On Error GoTo err_lst_selection_DblClick

    'asign the values
    Me("t" & Right(Me.lst_items, 1) & "_1") = Me.lst_selection.Column(0)
    Me("m" & Right(Me.lst_items, 1) & "_1") = Me.lst_selection.Column(1)
    
    'get the totals
    Call Sum_Ms
        
Exit Sub
err_lst_selection_DblClick:
        
    If Err.Number = 2465 Then
        
        MsgBox "Please Select an Item"
        
        'select the 1st item on the list
        Me.lst_items = Me.lst_items.ItemData(0)
        'color the background of the selected item
        Call lst_items_AfterUpdate
        
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

Private Sub lst_items_AfterUpdate()

    Dim ctl As Control
    
    'change the background color based on the selected item
    For Each ctl In Me.Controls
     
     
        'only textbox , and only if the control name looks like: "any characters" and "_" and "number"
        If ctl.ControlType = acTextBox And ctl.Name Like "*_#" Then
        
            'now that we only have our controls, lets color them
            'based on the 2nd character in the control name
            If Mid(ctl.Name, 2, 1) = Right(Me.lst_items, 1) Then
                
                'make it Yellow
                Me(ctl.Name).BackColor = RGB(255, 255, 0)
                
            Else
                
                'return it back to white
                Me(ctl.Name).BackColor = RGB(255, 255, 255)
                
            End If
        
        End If
    Next
          
End Sub

Private Sub make_lst_items()

    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("ÌÏæá1")
    
    'start clean
    Me.lst_items.RowSource = ""
    
    'add the fields to the listbox
    For i = 0 To rst.Fields.Count - 1
    
        'add only fields that start with t
        If Left(rst.Fields(i).Name, 1) = "t" Then
            
            'add this item
            Me.lst_items.AddItem rst.Fields(i).Name
            
        End If
        
    Next i
    
End Sub

Private Sub Sum_Ms()

    'start clean
    Me.Total_Mall = 0
    
    Dim ctl As Control
    
    'Loop through the Form controls
    For Each ctl In Me.Controls
     
     
        'only textbox , and only if the control name looks like: "m" and "any characters" and "_" and "number"
        If ctl.ControlType = acTextBox And ctl.Name Like "m*_#" Then
                      
            'add it
            Me.Total_Mall = Me.Total_Mall + Nz(Me(ctl.Name).Value)
                
        End If
    Next
        
End Sub

الفنان جعفر

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

الفكرة اعجبتنى جدا جدا جدا جدا وفعلا فعلا اكثر من رائعة

[jjafferr]

اخي جمال

أرى انه لاداعي لوضع الحقول m1,m2  ... الخ والتي تأخذ قيم التقييم ! فيكتفى بان بوضع مصدر مربع التحرير والسرد عمودين وعبارة عن التقييم والقيم وكما تفضل به الأخ أبو خليل ! ولا نخفي الاعمدة لكي تظهر القيمة بجانب التقييم !

كما ان وضعهم بجدول مستقل افضل !

وبعد كذا تستطيع استخراج القيم وفي أي مكان من البرنامج وحسب نص التقييم !

بالتوفيق

 

حيا الله أخوي رمهان 

 

انا اتفق معاك 100%

 

 

جعفر

[جمال السناني]

شاكر لكم المرور وانار الله قلوبكم 

 

     

 

جاري العمل واختيار الانسب للبرنامج واسال الله التوفيق