اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر
18 دقائق مضت, سامي الضالعي said:

السلام عليكم

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

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

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

Me.Text67 = Me.Field.Width

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

  • Like 1
قام بنشر
5 دقائق مضت, Shivan Rekany said:

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


Me.Text67 = Me.Field.Width

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

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

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

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

 

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

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

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

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

:smile:

قام بنشر
11 دقائق مضت, سامي الضالعي said:

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

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

  • Like 1
قام بنشر
12 دقائق مضت, Shivan Rekany said:

ONLOAD

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

                Me.Text67 = Me.[1].Width


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

 

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

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

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

                Me.Text67 = Me.[1].Width


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

قام بنشر
40 دقائق مضت, سامي الضالعي said:

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

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

  • Like 1
قام بنشر
الان, Shivan Rekany said:

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

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

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

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

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

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

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

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

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

 

1.JPG

2.JPG

قام بنشر
14 دقائق مضت, سامي الضالعي said:

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

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

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

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

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

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

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

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

 

1.JPG

2.JPG

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

  • Like 1
قام بنشر
1 دقيقه مضت, Shivan Rekany said:

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

ارفق لك قاعدة البيانات والذي تفضل الاخ جعفر جزاه الله خير الجزاء باعداد التقرير

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

 

533.1.db5.rar

قام بنشر (معدل)
10 دقائق مضت, سامي الضالعي said:

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

اريد اسألك 
في كم نوع بيفتح التقرير
اي يعني عدنا كم احتمال في تغير حجم الاعمدة ؟
وكيف اكدر ان افتح التقرير في وضع معاينة لانه في قاعدة المرفق ما اكدر افتحه
اي يعني اي معلومات ادخلها في نموذج لكي يتم فتح النموذج
مع تقدير

تم تعديل بواسطه Shivan Rekany
قام بنشر
1 دقيقه مضت, Shivan Rekany said:

اريد اسألك 
في كم نوع بيفتح التقرير
اي يعني عدنا كم احتمال في تغير حجم الاعمدة ؟

ليس هناك احتمالات محددة هذا يعتمد على المستخدم

يختلف من كلية الى اخرى ومن قسم الى اخر وكذلك من تخصص الى اخر

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

 

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

مثلا لو كان عندي في الفصل الدراسي الاول ثلاث اعمدة (مواد) ومساحة كل عمود 2 سم الاجمالي 6 سم بحسب هذه القيمة (6سم) يكون حجم مربع تسمية الفصل الدراسي

قام بنشر
3 دقائق مضت, سامي الضالعي said:

فصل دراسي معين سيظهر الفصل الدراسي الذي اختاره

قصدي بهذا الفصول
يعني يكدر يختار فصل من الفصول 
وايظا يكدر يختار كل الفصول سوى 
هل سكدر يختار فصلين مثلا ؟

قام بنشر
17 دقائق مضت, Shivan Rekany said:

اريد اسألك 
في كم نوع بيفتح التقرير
اي يعني عدنا كم احتمال في تغير حجم الاعمدة ؟

لا هو معاه خيارين

الخيار الاول: تحديد فصل دراسي واحد

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

 

قام بنشر
3 دقائق مضت, سامي الضالعي said:

لا هو معاه خيارين

الخيار الاول: تحديد فصل دراسي واحد

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

 

انتظرني
لعل وعسى نتم الوصول الى النتيجة

قام بنشر
19 دقائق مضت, سامي الضالعي said:

منتظر لك

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

السلام عليكم ورحمة الله وبركاته
اخي الكريم
شوف الصورين واحدة بيظهر 10 مادة والاخر 20 مادة
هل من الممكن تخبرني عند اختيار اي كلية او اي قسم بيظهر 10 مادة وفي اي حين يظهر 20 مادة
لكي ننطيها كود المناسب
لان الان حين بيظهر 20 مادة تمام ما عدنا المشكلة
لكن حين بيظهر 10 مادة عدنا مشكلة
شوف الصور مع القاعدة بياناتك بعد تقريباً نصف تعديل :smile:
شوف حين بيظهر 20 مادة
1.JPG

وحين بيظهر 10مادة
2.JPG

تحياتي

533.1.db5.rar

قام بنشر
2 دقائق مضت, Shivan Rekany said:

السلام عليكم ورحمة الله وبركاته
اخي الكريم
شوف الصورين واحدة بيظهر 10 مادة والاخر 20 مادة
هل من الممكن تخبرني عند اختيار اي كلية او اي قسم بيظهر 10 مادة وفي اي حين يظهر 20 مادة
لكي ننطيها كود المناسب
لان الان حين بيظهر 20 مادة تمام ما عدنا المشكلة
لكن حين بيظهر 10 مادة عدنا مشكلة
شوف الصور مع القاعدة بياناتك بعد تقريباً نصف تعديل :smile:
شوف حين بيظهر 20 مادة
1.JPG

وحين بيظهر 10مادة
2.JPG

تحياتي

533.1.db5.rar

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

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

قام بنشر
منذ ساعه, سامي الضالعي said:

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

اخي الكريم
 

            Me.تسمية420.Width = 2575
            Me.تسمية420.Left = 11900

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

قام بنشر
2 ساعات مضت, Shivan Rekany said:

اريد اسألك 
في كم نوع بيفتح التقرير
اي يعني عدنا كم احتمال في تغير حجم الاعمدة ؟

 

بالنسبة لكلية العلوم الادارية قسم محاسبة

الفصل الاول 4 مواد

الفصل الثاني  3 مواد

الفصل الثالث 3 مواد

بالنسبة لكلية العلوم

كل فصل 5 مواد

 

قام بنشر

السلام عليكم

 

ما كنت ادري ان الموضوع راح يأخذ هذا الزخم!!

استاذ شفان ، اسمح لي اتدخل واساعد:smile:

 

عدد المواد لكل فصل تقدر تحصل عليه بالكود التالي (جزء من الكود عندك في المرفق ، ولكني اضفت عدد المواد في كل فصل):

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)
    Me.fasl_derasi_1 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=1")
    Me.fasl_derasi_2 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=2")
    Me.fasl_derasi_3 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=4") 'This is it's Seq in field id_aam, Table Tarif_aam
    Me.fasl_derasi_4 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=5") 'This is it's Seq in field id_aam, Table Tarif_aam
    
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

.

وسأحاول انا ايضا ان انظر للموضوع ، لأني تعديت مرحلة الاستفسارات اللي لايزال الاستاذ شفان فيها:smile:

 

جعفر

  • Like 1
قام بنشر
3 دقائق مضت, jjafferr said:

السلام عليكم

 

ما كنت ادري ان الموضوع راح يأخذ هذا الزخم!!

استاذ شفان ، اسمح لي اتدخل واساعد:smile:

 

عدد المواد لكل فصل تقدر تحصل عليه بالكود التالي (جزء من الكود عندك في المرفق ، ولكني اضفت عدد المواد في كل فصل):


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)
    Me.fasl_derasi_1 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=1")
    Me.fasl_derasi_2 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=2")
    Me.fasl_derasi_3 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=4") 'This is it's Seq in field id_aam, Table Tarif_aam
    Me.fasl_derasi_4 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=5") 'This is it's Seq in field id_aam, Table Tarif_aam
    
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

.

وسأحاول انا ايضا ان انظر للموضوع ، لأني تعديت مرحلة الاستفسارات اللي لايزال الاستاذ شفان فيها:smile:

 

جعفر

يوجد اربع مربعات نص

add_fasl1, add_fasl2, add_fasl3, add_fasl4

 

كل مربع نص منها توجد فيه عدد المواد الخاصه به ، فمثلا  add_fasl1 فيه عدد مواد الفصل الاول وهكذا

مربعات النص هذه موجودة في راس الصفحة

قام بنشر (معدل)
9 دقائق مضت, سامي الضالعي said:

يوجد اربع مربعات نص

add_fasl1, add_fasl2, add_fasl3, add_fasl4

 

 

كل مربع نص منها توجد فيه عدد المواد الخاصه به ، فمثلا  add_fasl1 فيه عدد مواد الفصل الاول وهكذا

مربعات النص هذه موجودة في راس الصفحة

الان انا بستخدم موبايل لا عندي لا حول ولا قوة

لكن ان شاء الله غدا راح اجي مع بعض الحلول

وشكرا لك استاذ جعفر على مداخلة

واستاذ سامي الضالي اتاكد لك لا نوقف حتى ننطيك ما تريد

مع تحياتي

تم تعديل بواسطه Shivan Rekany
قام بنشر

السام عليكم

 

المرفق "تقريبا" فيه المطلوب ، 

الخطأ الوحيد الذي لاحظته هو عند اختيارك الفصل ، فان المواد الصحيحة لا تظهر!!

اتمنى الاستاذ شفان يقدر يصلحه ، لأني لازم انتقل لمشروع آخر:smile:

 

جعفر

533.2.db5.mdb.zip

  • Like 1

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