سامي الضالعي

الان, Shivan Rekany said:

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

لدي تقرير خاص بنتائج امتحانات الطلاب

طبعا الطلاب تختلف بحسب الكلية والقسم والتخصص

وكل قسم لدي عدد من الفصول الدراسية كل فصل دراسي فيه عدد من المواد

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

لكن الان ابحث عن معالجة لمربع تسمية الفصل الدراسي بحيث يتغير حجم مربع تسمية الفصل الدراسي بحسب عدد ومكان اعمدة المواد الدراسية

مرفق لك صورتين توضيحية

الصورة الاولى : ماهو عليه التقرير حاليا

والصورة الثانية وهي المطلوبة وتم تعديلها في الورد

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

 

لمزيد من التوضيح

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

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

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

ارجو ان لا اكون قد اخطاءت في توصيل المعلومة

1 دقيقه مضت, jjafferr said:

 

قصدي التقرير السابق قبل ما تعدله انت

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

الفكرة التي في راسي هي كالتالي

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

12 دقائق مضت, Shivan Rekany said:

ONLOAD

لدي تقرير فيه الكثير من الاعمدة وهي متغيره بحسب التحديد يعني في مرة عدد الاعمدة 12 وفي مرة اخرى 20 والكود هذا

                Me.Text67 = Me.[1].Width

يعطنا حجم العمود الحقيقي في عرض التصميم وليس الحجم عن المعاينة

10 دقائق مضت, Shivan Rekany said:

استخدم في حالة ئون ريسايز
وبالعربي عند تغيير
في اسفل عند اغلاق
والا راح ارفق لك نسخة تجريبية اذا تريد

لدي تقرير فيه الكثير من الاعمدة وهي متغيره بحسب التحديد يعني في مرة عدد الاعمدة 12 وفي مرة اخرى 20 والكود هذا

                Me.Text67 = Me.[1].Width

يعطنا حجم العمود الحقيقي في عرض التصميم وليس الحجم عن المعاينة

1 دقيقه مضت, Shivan Rekany said:

ONLOAD

انا استخدم اصدار 2003 وكمان عربي

5 دقائق مضت, Shivan Rekany said:

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

Me.Text67 = Me.Field.Width

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

لايوجد حدث التحميل في التقرير

جربت حدث عند الفتح ماضبط

وعند التنشيط برضه ما ضبط

اخي شفان تم التنفيذ بنجاح

نفذت الامر في راس الصفحة عند الحدث عند التنسيق

شكرا جزيلا اخي

بارك الله فيك وزادك علما ونورا

السلام عليكم

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

بارك الله فيكم اخوتي

الف الف مبرووووووووووووووك

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

بمثلكم يحق لنا ان نفتخر

انتم قدوة حسنة

منذ ساعه, jjafferr said:

حاول فيها بالكود ، لأن زبائني ورائي وانا متأخر في العمل

 

جعفر

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

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

اوكه اخي جعفر

ربنا يفتح لك اوسع ابواب رزقه

تستاهل ياغالي

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

حياك الله أخي سامي

 

واذا طريقتك تؤدي بالغرض ، فنور على نور

 

جعفر

للاسف لاتؤدي المطلوب بشكل مضمون

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

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

السلام عليكم

 

وبعد جهد جهيد توصلت الى هذا التقرير ،

رجاء اعمل نسخة ، واعمل تجاربك على النسخة

 

التقرير يحتوي على 20 مادة ، لذلك اضطررت ان العب في حجم الحقول قليلا ،

وحسب عدد المواد التي تختارها ، فان اسماء المواد وعلاماتها تتسع لتملئ المكان بين الاسم والمجموع.

.

.

.

 

لا تزيد ولا تنقص في عرض واماكن الحقول ، ولا شعرة ، وإلا لن تلصق الحقول ببعضها كما يجب.

 

طريقة العمل:

1. نخفي الحقول التي رقمها اكبر من عدد المواد ،

2. نأخذ المسافة بين الاسم والمجموع العام ، ثم نقسمه على عدد المواد ، وعليه نعطي كل حقل نصيبه من القسمة

 

الكود:

في النموذج ، حسبنا عدد المواد الموجودة ، وذلك على حدث بعد التحديث لمربعات التحرير (المربع باللون البرتقالي في النموذج ، ويمكنك اخفاءه):

Function How_Many_Records()
On Error GoTo err_How_Many_Records
    
    mySQL = mySQL & "[NAM_PARNAMG]=" & Me.NAM_PARNAMG
    mySQL = mySQL & " AND [taksos]=" & Me.taksos
    mySQL = mySQL & " AND [department]=" & Me.departmentT
    mySQL = mySQL & " AND [asm_college]=" & Me.asm_collegeT
    'Debug.Print mySQL
    
    Me.How_Many = DCount("*", "Mokarar_drasi", mySQL)
    
Exit Function
err_How_Many_Records:

    If Err.Number = 3075 Then
        Me.How_Many = 0
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Function

.

ثم في التقرير ، وعلى قسم التفصيل ، ورأس مجموعة التخصص:

Option Compare Database
Private Factor As Single

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next

    Limit = Forms!AS_nataeg_tolap!How_Many
    
    If Limit = 20 Then Exit Sub
    
    Visited_Detail = Visited_Detail + 1
    
'make the other fields, in-visible
    Dim ctl As Control
    For Each ctl In Report.Controls
        If ctl.ControlType = acTextBox Then
        
            Type1 = Replace(ctl.Name, "N", "")
            Type2 = Replace(Type1, "tt_", "")
            
            If Val(Type1) > Limit Or Val(Type2) > Limit Then
                ctl.Visible = False

            Else
                ctl.Visible = True
                
            End If  'IsNull
            
        End If  'ControlType
    Next ctl
    

    Me.Ctl1N.Left = Me.Ctl1.Left: Me.Ctl1N.Width = Me.Ctl1.Width
    Me.Ctl2N.Left = Me.Ctl2.Left: Me.Ctl2N.Width = Me.Ctl2.Width
    Me.Ctl3N.Left = Me.Ctl3.Left: Me.Ctl3N.Width = Me.Ctl3.Width
    Me.Ctl4N.Left = Me.Ctl4.Left: Me.Ctl4N.Width = Me.Ctl4.Width
    Me.Ctl5N.Left = Me.Ctl5.Left: Me.Ctl5N.Width = Me.Ctl5.Width
    Me.Ctl6N.Left = Me.Ctl6.Left: Me.Ctl6N.Width = Me.Ctl6.Width
    Me.Ctl7N.Left = Me.Ctl7.Left: Me.Ctl7N.Width = Me.Ctl7.Width
    Me.Ctl8N.Left = Me.Ctl8.Left: Me.Ctl8N.Width = Me.Ctl8.Width
    Me.Ctl9N.Left = Me.Ctl9.Left: Me.Ctl9N.Width = Me.Ctl9.Width
    Me.Ctl10N.Left = Me.Ctl10.Left: Me.Ctl10N.Width = Me.Ctl10.Width
    Me.Ctl11N.Left = Me.Ctl11.Left: Me.Ctl11N.Width = Me.Ctl11.Width
    Me.Ctl12N.Left = Me.Ctl12.Left: Me.Ctl12N.Width = Me.Ctl12.Width
    Me.Ctl13N.Left = Me.Ctl13.Left: Me.Ctl13N.Width = Me.Ctl13.Width
    Me.Ctl14N.Left = Me.Ctl14.Left: Me.Ctl14N.Width = Me.Ctl14.Width
    Me.Ctl15N.Left = Me.Ctl15.Left: Me.Ctl15N.Width = Me.Ctl15.Width
    Me.Ctl16N.Left = Me.Ctl16.Left: Me.Ctl16N.Width = Me.Ctl16.Width
    Me.Ctl17N.Left = Me.Ctl17.Left: Me.Ctl17N.Width = Me.Ctl17.Width
    Me.Ctl18N.Left = Me.Ctl18.Left: Me.Ctl18N.Width = Me.Ctl18.Width
    Me.Ctl19N.Left = Me.Ctl19.Left: Me.Ctl19N.Width = Me.Ctl19.Width
    Me.Ctl20N.Left = Me.Ctl20.Left: Me.Ctl20N.Width = Me.Ctl20.Width
    
    Me.tt_1n.Left = Me.Ctl1.Left: Me.tt_1n.Width = Me.Ctl1.Width
    Me.tt_2n.Left = Me.Ctl2.Left: Me.tt_2n.Width = Me.Ctl2.Width
    Me.tt_3n.Left = Me.Ctl3.Left: Me.tt_3n.Width = Me.Ctl3.Width
    Me.tt_4n.Left = Me.Ctl4.Left: Me.tt_4n.Width = Me.Ctl4.Width
    Me.tt_5n.Left = Me.Ctl5.Left: Me.tt_5n.Width = Me.Ctl5.Width
    Me.tt_6n.Left = Me.Ctl6.Left: Me.tt_6n.Width = Me.Ctl6.Width
    Me.tt_7n.Left = Me.Ctl7.Left: Me.tt_7n.Width = Me.Ctl7.Width
    Me.tt_8n.Left = Me.Ctl8.Left: Me.tt_8n.Width = Me.Ctl8.Width
    Me.tt_9n.Left = Me.Ctl9.Left: Me.tt_9n.Width = Me.Ctl9.Width
    Me.tt_10n.Left = Me.Ctl10.Left: Me.tt_10n.Width = Me.Ctl10.Width
    Me.tt_11n.Left = Me.Ctl11.Left: Me.tt_11n.Width = Me.Ctl11.Width
    Me.tt_12n.Left = Me.Ctl12.Left: Me.tt_12n.Width = Me.Ctl12.Width
    Me.tt_13n.Left = Me.Ctl13.Left: Me.tt_13n.Width = Me.Ctl13.Width
    Me.tt_14n.Left = Me.Ctl14.Left: Me.tt_14n.Width = Me.Ctl14.Width
    Me.tt_15n.Left = Me.Ctl15.Left: Me.tt_15n.Width = Me.Ctl15.Width
    Me.tt_16n.Left = Me.Ctl16.Left: Me.tt_16n.Width = Me.Ctl16.Width
    Me.tt_17n.Left = Me.Ctl17.Left: Me.tt_17n.Width = Me.Ctl17.Width
    Me.tt_18n.Left = Me.Ctl18.Left: Me.tt_18n.Width = Me.Ctl18.Width
    Me.tt_19n.Left = Me.Ctl19.Left: Me.tt_19n.Width = Me.Ctl19.Width
    Me.tt_20n.Left = Me.Ctl20.Left: Me.tt_20n.Width = Me.Ctl20.Width
    
    
End Sub

Private Sub taksos_Header_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next

    Limit = Forms!AS_nataeg_tolap!How_Many
    Starting_Point = Me.lbl_Total.Left + Me.lbl_Total.Width
    Me.fasl_derasi = "الفصل الدراسي " & Forms!AS_nataeg_tolap!fasl_derasi.Column(1)
    
    If Limit = 20 Then Exit Sub
    
'make the other fields, in-visible
    Dim ctl As Control
    For Each ctl In Report.Controls
        If ctl.ControlType = acComboBox Then
        
            If Val(ctl.Name) > Limit Then
                ctl.Visible = False
            Else
                
                ctl.Visible = True
            End If  'IsNull
            
            If Val(ctl.Name) = Limit Then Factor = (ctl.Left - Starting_Point) / Limit
            
        End If  'ControlType
    Next ctl
              
    'Debug.Print "Header"
'move and stretch fields
    For i = Limit To 1 Step -1
        For Each ctl In Report.Controls
            
            If ctl.ControlType = acComboBox And Val(ctl.Name) = i Then
                
                ctl.Left = Starting_Point
                ctl.Width = ctl.Width + Factor
                Starting_Point = ctl.Left + ctl.Width
                Exit For
                'Debug.Print ctl.Name & vbTab & ctl.Left & vbTab & ctl.Width
                
            End If  'ControlType
        Next ctl
    Next i
    
End Sub

.

جعفر

533.1.db5.mdb.zip

اخي جعفر

اولا : جزاك الله خير على جهودك الجبارة

ثانيا: قبلة على جبينك

ثالثا: انت معلم

رووووووووووووووووووووووووووووووعة                       

توجد ملاحظة بسيطة : اسماء الفصول الدراسية لا تظهر مايظهر هو كلمة الفصل الدراسي فقط وغير محدد اسم الفصل الدراسية مثلا في الصورة المرفقةتوجد 20 مادة لعدد اربع فصول دراسية (الفصل الاول ، الثاني ، الثالث، الرابع) ، والمفروض انه يطلع كل مسمى الفصل الدراسي تحته المواد التي تتبعه

ولعلك شاهدت الكود الذي كتبته والخاص باظهار واخفاء مربعات التسمية الخاص باسماء الفصول الدراسية

لكنه كود غير عملي وطريقه تقليدية هل هناك كود يغالج لي هذه المشكلة

مرفق صورتين الصورة الاول الخاص بالتقرير من البرنامج

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

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

وانا تحت امرك في اي وقت اذا احتجت اي شيئ

خالص مودتي

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

هل سيكون التقرير لفصل دراسي واحد فقط؟ او تريد جميع الفصول الدراسية في تقرير واحد؟

 

جعفر

جميع الفصول اخي جعفر

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

طبعا عدد الفصول الدراسية لاتجازو اربعة فصول دراسية

بارك الله فيك اخي العزيز على اهتمامك ومتابعتك المستمرة

جزيت خيرا

منذ ساعه, jjafferr said:

اعطني مثالين من برنامجك (يعني اخبرني اين اذهب ، وماذا اختار ، ثم ماذا اعمل ، ... ) ،

والمثال الاول فيه اكبر كمية مقررات دراسية ، ولأكبر الفصول (واذا ما موجود في مرفقك ، لوسمحت تدخل البيانات له) ،

ومثال للأقل

 

هنا الاستاذ شفان اعطى طريقة للتخلص من الحقول الغير مرغوب فيها:

 

جعفر

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

بالنسبة للامثلة كالتالي:

1- اختر عام الالتحاق  2017/2016 ، ثم البرنامج : ماجسيتر ، ثم الكلية: العلوم، ثم القسم : الكيمياء، ثم التخصص ، كيمياء عضوية، ثم كشوفات نتائج الطلاب ثم معاينة

المثل السابق لاحد الاقسام التي فيها عدد20 مقرر دراسي وهو اكبر الاقسام من حيث عدد المواد ويحتوي على اربع فصول دراسية ، كل عام دراسي فيه فصلين دراسيين

ملاحظة على المثل الاول: عدد المقررات التي ستظهر في التقرير 12 مادة فقط كون التقرير صمم لعدد 12 فقط

2- اختر عام الالتحاق  2017/2016 ، ثم البرنامج : ماجسيتر ، ثم الكلية: العلوم الادارية، ثم القسم : المحاسبة، ثم التخصص ، محاسبة، ثم كشوفات نتائج الطلاب ثم معاينة

هذا القسم فيه ثلاث فصول دراسية وعدد 10 مواد

مرفق لك القاعدة بعد اجراء اخر التعديلات عليها

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

3- اختر عام الالتحاق  2017/2016 ، ثم البرنامج : ماجسيتر ، ثم الكلية: العلوم، ثم القسم : الكيمياء، ثم التخصص ، كيمياء عضوية، ثم كشوفات نتائج الطلاب ثم معاينة

db5.rar

ماقصدته انا المعالجة المؤقته انه لو زادت عدد المواد عن 12 مادة لن تظهر باقي المواد ما يظهر 12 مادة فقط وكذلك لو كان يوجد اربع فصول دراسية كذلك لن تظهر تسمية الفصل الرابع

وما قمت به هو تصميم التقرير ليتناسب مع المقررات الدراسية لبعض الاقسام فقط وليس جميع الاقسام

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

السلام عليكم

 

اللي فهمته هو:

تعمل البحث في النموذج AS_nataeg_tolap ،

ثم تضغط على زر المعاينه ، ونتيجة ، وتريد التقرير يكون فيه كل شئ موجود في النموذج الفرعي (الاستعلام NF_nataeg_tolap ) ،

صح ؟

 

جعفر

اهلا اخي جعفر

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

انا عملت معالجة مؤقته لكنها غير مضمونه

ارجو ان تنظر للصور المرفقه ولاحظ الفرق في الصورتين

الف الف مبرووووووووووووووووووووووووك ربنا يحفظها ويصلحها وتتربى في عزك اخي صالح

في ٢٩‏/١‏/٢٠١٦ at 11:28, jjafferr said:

شكرا ياشباب 

 

ارجو ممن يضع ردا على الموضوع ، ان يذكر:

1. اذا اشتغل البرنامج على كمبيوتره ،

2. نسخة الاكسس التي يستخدمها.

 

حتى نعرف ان الطريقة تشتغل على كل اصدارات الاكسس 

 

جعفر

تم التنفيذ بنجاح الحمد لله

على اصدار 2003 /32 بت

لكن لدي سؤوال بعد اذنك هل يمكن تغيير المسار هذا

"C:\jj\Seq.mdb"

في ١٧‏/١‏/٢٠١٧ at 11:39, jjafferr said:

ايش رايك بطريقة غير تقليدية ، وعصفورين بحجر واحد 

 

 

اهلا بك اخي جعفر

ساجرب وابلغك ان شاء الله

اسئل من الله ان يرزقك خير الدنيا والاخرة وان يزيدك علما ونورا انت وجميع الاخوة في المنتدى وانا بينكم

 

 

منذ ساعه, Shivan Rekany said:

اذا تتذكر من قبل كان قلت لي اريد ان يبدأ بالرقم اللي انا اكتبه في تسلسل الاول ؟ هل تتذكر 
لذا اي رقم تكتبه في الاول راح يبدأ من ذاك الرقم 
واذا كتبت رقم صفر لتسلسل الاول راح يبدأ من صفر 
واذا كتبت رقم واحد في التسلسل الاول راح يبدأ من رقم 1 
لكن العلاج بسيطة اذا تريد ان يبدأ من رقم التالي اي اذا تكتب رقم صفر وتريد ان يبدأ من رقم 1 
افتح محرر فيجوال اللي بها اكواد واحذف ناقص 1
 

H + A - 1

 

مشكور ياغالي بارك الله فيك

ورزق الله كل ما تحب

تم التنفيذ بنجااااااااااااااااااح

11 دقائق مضت, Shivan Rekany said:

ما فهمت قصدك 
ممكن تنطي مثال حي اي يعني توضيح وين المشكلة

مثلا لو اضفت اربع مواد الى حقل اسم المقرر ولتكن كتالي :

عندما اضغط على تنفيذ

تكون النتيجة كالتالي:

57 دقائق مضت, Shivan Rekany said:

اتفضل 
اتمنى هذا بيكون اللي تريد
 

db6.rar

بارك الله فيك اخي

Shivan Rekany

وجزاك الله خير الدنيا والاخرة

المعالجة كويسه لكن يبقى معنا مشكلة

مثلا

لو معي اربع مواد كلها ليس لديها تسلسل ونقرة تنفيذ يعطينا ترقيم لثلاث مواد فقط 1,2,3 اما اول مادة لايعطيها رقم

الان, Shivan Rekany said:

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

على النموذج الفرعي

3 ساعات مضت, Shivan Rekany said:

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

بارك الله فيك اخي

Shivan Rekany

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

مع العلم بان الحقل المطلوب ترقيمه تسلسي حو حقل التسلسل

db6.rar

في ١٤‏/١‏/٢٠١٧ at 18:18, kaser906 said:

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

هذا صحيح

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

فعند حدوث اي خلل للقرص :c بالامكان الدخول اليه واخذ نسخة من قاعدة الجداول قبل عمل اي اجراء كالفرومات مثلاً

اضافة انه بالاداة المذكورة developer  لايمكنك اختيار قرص اخر غير ال :c

بالتوفيق

شكرا اخي

kaser906

  على المعلومة بارك الله فيك وزادك علما ونورا

 

اوليس من الخطر وضع الجداول في القرص C كون هذا القرص مع للخطر اكثر من غيره من الاقراص