إخفاء شعار النموذج

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

اخي العزيز تفضل إن شاء الله يكون حسب رغبتك

1- في النموذج حدث\ عند الفتح

Docmd.Maximize

2- في النموذج منبثق \ نعم

3- في النموذج نمط الحدود \ بلا

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

شكرا

عزيزي ... بامكانك عمل شي اجمل من الاخفاء

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

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

تحياتي

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

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

بعد إذن أستاذنا همام

جرب في خصائص النموذج Control box = no

بالتوفيق

همام ابوعرقوب كتب:

عزيزي ... بامكانك عمل شي اجمل من الاخفاء

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

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

تحياتي

السلام عليكم ورحمة الله وبركاته ... أرجو شرح طريقة الأستاذ همام أبو عرقوب

اخواني الكرام

الطريقة الوحيده لإخفاء شعار النموذج هي كما ذكر اخونا Mrhb

وسوف نحتاج الى وضع زر أمر اغلاق للنموذج لأنه عند وضع ( مربع عنصر التحكم = لا ) سيقوم بإزالة مربعات التصغير والتكبير والإغلاق معه ولن تكون ظاهره

بالتوفيق

السلام عليكم ... ألف شكر أخت زهرة

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

ألف شكر سلفاً

أيمن الزعبي كتب:

السلام عليكم ... ألف شكر أخت زهرة

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

ألف شكر سلفاً

نعم اخي الكريم

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

1. نقوم بجعل مربع عنصر التحكم = نعم

2. نبحث في جهاز الكمبيوتر او من الأنترنت على صور ايقونات بصيغة ICO ثم نقوم بجمعها في مجلد خاص بالإيقونات

3. نذهب الى خيارات الأكسيس ثم من رمز التطبيق نستعرض صور الإيقونات ونختار ايقونه

اكسيس 2007

اكسيس 2003

نذهب الى بدء التشغيل

4. بعد اختيار الصوره نقوم بوضع علامة صح امام الخيار ( الاستخدام كرمز للنموذج والتقرير )

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

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

icon.rar

بالتوفيق

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

saswahaibi كتب:

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

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

يقال ان الصوره ابلغ من الف كلمه

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

بالتوفيق

ألف شكر أختي أم عهود ...

أعتذر عن التأخير في الرد والشكر ...

ولكن لم أنتبه لذلك ...

تقبلي شكري مرة أخرى

اختي زهرة ابدعت كالعادة ... وانا اعتذر عن تقصيري ... انما انشغالي كثير ... وبصراحة لن يكون شرحي عبقريا هكذا ... فبارك الله فيها

abdalla89 كتب:

السلام عليكم

طريقة الاخت زهرة رائعة

ولكن اذا قمنا بتغيير مكان الصورة او نقلها الى غير جهاز فسوف تظهر رسالة خطا و يضيع تعبنا سداً

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

وهل هناك حل وضع لكل نموذج صورة خاصة به

اخي الفاضل

اذا رغبنا ان يتم ذلك برمجيا بالكود

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

Public Function SetAppIcon(IconPath As String)
   Dim db As DAO.Database, prp As DAO.Property

On Error GoTo GotErr

   Set db = CurrentDb

   db.Properties("AppIcon") = IconPath
   Application.RefreshTitleBar

Exit Function

GotErr:
   If Err.Number = 3270 Then '
      Set prp = db.CreateProperty("AppIcon", dbText, IconPath)
      db.Properties.Append prp
   Else
      MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
   End If

   Resume Next

End Function

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

Private Sub Form_Load()

SetAppIcon (CurrentProject.Path & "\1.ico")

Me.Refresh

End Sub

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

لاحظ اننا في كود عند التحميل للنموذج اخترنا الأيقونه رقم 1 تستطيع في الكود تغيير رقم الأيقونه للتجربه ولكن مع ملاحظة ان تقوم بإغلاق وفتح النموذج مره اخرى حتى يتم التعديل للأيقونة الجديده

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

تعقيب : بالنسبة لوضع ايقونه لكل نموذج فلا يمكن ذلك لأن رمز التطبيق شامل لكل قاعدة البيانات وستكون هذه الأيقونة لكل النماذج والتقارير اي كشعار موحد للقاعدة

za-AppIcon.rar

بالتوفيق

لو سمحتوا لي اشارك

هناك طريقة أخرى لجلب أيقونة للنظام بدون اي كود أو وحدات نمطية..

كيف؟

افتح "خيارات اكسس" > "قاعدة البيانات الحالية"

اكتب في مربع نص "رمز التطبيق" الكود التالي:

.\ICO1.ico

الكود السابق في حالة إن كان الشعار في نفس مجلد البرنامج تبعك.. وإن كان في مجلد داخل نفس المجلد الرئيس للنظام فما عليك إلا أن تعمل المسار قبل الـ سلاش وبعد الـ نقطة

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