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

[alzahrani07]

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

أخواني بأحاول أختصر لكم عندي برنامج وشغال على شبكة داخلية ، فيه جدول فيه حقول كثير مثلا 20 حقل

الجدول هذا يتم استعراضه عن طريق النموذج طبعا لكن (Datasheet)

مشكلتي مع المستخدمين في ترتيب وإخفاء الأعمدة حسب كل احتياج مستخدم

سؤال كيف أقدر أحفظ تعديل وترتيب واخفاء الأعمدة حسب المستخدم بحيث انه يقدر يستخدم الترتيب اللي يحتاجه في أي وقت حتى لو على جهاز ثاني ؟

تم تعديل أكتوبر 14, 2023 بواسطه alzahrani07

[Foksh]

11 دقائق مضت, alzahrani07 said:

سؤال كيف أقدر أحفظ تعديل وترتيب واخفاء الأعمدة حسب المستخدم بحيث انه يقدر يستخدم الترتيب اللي يحتاجه في أي وقت حتى لو على جهاز ثاني ؟

اخوي الكريم ، قد افهم مقصدين من سؤالك هذا .

الأول تثبيت الأعمدة الظاهرة في النموذج الفرعي بحيث لا يستطيع التعديل عليها المستخدم .

الثاني أن تمنحه حسب الصلاحية حرية التغيير بإظهار وإخفاء الأعمدة 

 

صح أنا فهمت ولا لسه القهوة ما صحصحتني 

[alzahrani07]

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

اخوي الكريم ، قد افهم مقصدين من سؤالك هذا .

الأول تثبيت الأعمدة الظاهرة في النموذج الفرعي بحيث لا يستطيع التعديل عليها المستخدم .

الثاني أن تمنحه حسب الصلاحية حرية التغيير بإظهار وإخفاء الأعمدة 

 

صح أنا فهمت ولا لسه القهوة ما صحصحتني 

لا ابشرك فهمت صح ههههههه

أمنح المستخدم حرية تعديل ترتيب وإخفاء الأعمدة حسب احتياجه

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

محتاج كود وظيفته بعد ما المستخدم يرتب الأعمدة ويخفي اللي ما يحتاجه .... إلخ يعمل حفظ في جدول لهذا الترتيب

[Foksh]

اخي الكريم ما قدرت أتابع معك لإنشغالي بظرف طارئ في العمل ، إن شاء الله غداً سنحاول إيجاد حل . ولكن للموضوع صلة وشبه بالصلاحيات اعتقد. وهذا يعتمد على عدد النماذج والأعمدة طبعاً 😬.

[alzahrani07]

أعانك الله ويسر الله امورك

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

الاسم ، العنوان ، رقم الهاتف ، الوظيفة.

أحد المستخدمين (أحمد) يحتاج عامود الاسم والوظيفية فقط ، فهو مضظر في كل مرة يفتح النموذج يعمل إخفاء لعامود العنوان والرقم الوظيفي

مستخدم آخر (خالد) يحتاج ترتيب الاعمدة يكون الوظيفة ، الاسم ، العنوان ، رقم الهاتف ، ونفس المشكلة مضظر في كل مرة يدخل على النموذج يرتب الاعمدة حسب احتياجه

اللي أحتاجه اني أسمح لكل للمستخدمين حفظ Layout خاص بهم ( طبعا عندي جدول مستخدمين وأرقام مستخدمين )

Database1.accdb

[alzahrani07]

شباب لو احد يقدر يساعدني اكون شاكر له

[ابوخليل]

الأمر يسير جدا ..

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

عملية الاخفاء تتم على النموذج مباشرة 

[alzahrani07]

1 دقيقه مضت, ابوخليل said:

الأمر يسير جدا ..

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

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

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

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

[ابوخليل]

فكرتك جميلة .. والحاجة هي ام الاختراع

سأحاول تنفيذها .. فانتظرني 

[عبد الله قدور]

السلام عليكم

اخي الكريم

انا استخدم الكود التالي مع الجداول التالية

Sub OrderLik(Box, IDD As Integer)
'On Error GoTo err:
On Error Resume Next
If DLookup("[show]", "subreport", "[idd]=" & IDD) = True Then
    With Box
    .ColumnWidth = DLookup("[width]", "subreport", "[idd]=" & IDD)
    .ColumnOrder = DLookup("[order]", "subreport", "[idd]=" & IDD)
    .ColumnHidden = False
    End With
Else
    Box.ColumnHidden = True
End If
Exit Sub

err:
MsgBox err.description
err.Clear


End Sub

err.Clear

واقوم باستدعائه بالكود التالي لكل عمود

Call OrderLik(.Code, 1)

مع الجداول التالية

1- جدول اضع فيه اسماء النماذج الرئيسية واعدادات الطباعة

2- جدول فرعي اضع فيه اسماء الاعمدة حجم العمود وترتيبه وهل سيظهر ام لا

 

 

تم تعديل أكتوبر 16, 2023 بواسطه عبد الله قدور

[ابوخليل]

تم عمل المطلوب

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

----------------------------------------

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

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

-------------------------------------

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

نبدأ من نموذج الإعداد / ثم نموذج الخيارات / ثم النتيجة في نموذج عرض البيانات

آمل ان يحوز على رضاك ويلبي طلبك ،،،

Data2.rar

[alzahrani07]

في 16‏/10‏/2023 at 16:27, ابوخليل said:

تم عمل المطلوب

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

----------------------------------------

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

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

-------------------------------------

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

نبدأ من نموذج الإعداد / ثم نموذج الخيارات / ثم النتيجة في نموذج عرض البيانات

آمل ان يحوز على رضاك ويلبي طلبك ،،،

Data2.rar 32.66 kB · 22 downloads

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

الطريقة نجحت معاي تمام وجزاك الله ألف ألف خير

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

المشكلة ان استخدم Split Form في بعض الأحيان وللأسف الطريقة ما نجحت معاها 😞

ما ادري اذا فيه حل ولالا ؟

[Foksh]

بعد إذن الأستاذ الفاضل @ابوخليل ،،

في النموذج الفرعي الذي قمت بإضافة الكود إليه فقط ضع كود تجاوز الخطأ في بداية الكود في حدث on current كما فعلت انا ،  وسيجح الأمر باذن الله تعالى.

On error resume next

[alzahrani07]

10 دقائق مضت, Foksh said:

بعد إذن الأستاذ الفاضل @ابوخليل ،،

في النموذج الفرعي الذي قمت بإضافة الكود إليه فقط ضع كود تجاوز الخطأ في بداية الكود في حدث on current كما فعلت انا ،  وسيجح الأمر باذن الله تعالى.

On error resume next

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

مع العلم الكود بيشتغل بدون ما يظهر خطأ لكن لكن لكن اذا كان النموذج Split Form ما يشتغل

اللي فهمته ان ColumnHidden غير متوفره في Split Form

تم تعديل أكتوبر 20, 2023 بواسطه alzahrani07

[Foksh]

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

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

مع العلم الكود بيشتغل بدون ما يظهر خطأ لكن لكن لكن اذا كان النموذج Split Form ما يشتغل

اللي فهمته ان ColumnHidden غير متوفره في Split Form

ارسل مرفق لتعديل التوافقية ( وليس على كود الأستاذ ابو خليل )

[alzahrani07]

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

ارسل مرفق لتعديل التوافقية ( وليس على كود الأستاذ ابو خليل )

اعتذر منك ما فهمت عليك

[Foksh]

5 دقائق مضت, alzahrani07 said:

اعتذر منك ما فهمت عليك

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

فارسل مرفق بسيط لتجربة الكود عليه.

[عبد الله قدور]

السلام عليكم

جرب هذه الطريقة

من هذه النافذة اختر زر الخيارات

ستظهر النافذة التالية

العمود الاول هو ترتيب الاعمدة ، الثاني لاظهار الاعمدة ، الثالث اسم العمود ، الرابع حجم العمود

بامكانك بازرار الاعلى والاسفل تحريك العمود للاعلى والاسفل

Database6.accdb

[alzahrani07]

أخيررررررراً ولله الحمد ضبطت الأمور معي

وما ضبطت معاي الأمور إلا بفضل الله ثم أفكاركم ومساعدتكم

كل الشكر والتقدير لكم جميعاً من أعماق قلبي