Foksh

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

وعليكم السلام ورحمة الله وبركاته .. لم نفهم المشكلة بالضبط . ولكن من خلال تجربتي لملفك المرفق ، كانت هذه تجربتي :-

صحيح 100% ، وقد تم تعديل الملف المرفق في المشاركة السابقة بإزالة القيمة الافتراضية من مربع النص فعلاً .. شكراً لملاحظتك الثاقبة أخي منتصر

هذه تجربتي على ملفك المرفق ، ولكن على الإصدار 2010 . أما الإصدار 2003 فقد قمت بتثبيته على جهازي الثاني في المنزل .. وسأعمل على تجربة نفس المرفق على الاصدار 2003 :-

مشاركةً مع الأخوة والأساتذة .. اعتقد ان هناك مشكلة قد تواجهك إن كنت تريد تعديل خاصية الحقل داخل الجدول فعلاً .. وهي أن الجدول سيكون قيد الإستخدام يا صديقي !! صحيح ؟؟؟ لهذا اعتقد ان هناك إلتفاف حول الهدف بحيث نقوم بإلغاء ارتباط الجدول بالنموذج ، ومن ثم التعديل وإعادة الربط . وكل هذا في جزء من الثانية .. جرب تعديل حدث عند النقر المزدوج لمربع النص Esal :- Private Sub Esal_DblClick(Cancel As Integer) Dim TaskDialog As Y_CTaskDialog Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strSource As String Set TaskDialog = New Y_CTaskDialog With TaskDialog .Init .ParenthWnd = Me.hwnd .Flags = TDF_INPUT_BOX + TDF_RTL_LAYOUT .MainInstruction = "رقـم الايصـال الاسـاسـى" .Content = "ما هـى ... القيمة الافتراضية للايصال " .CommonButtons = TDCBF_OK_BUTTON Or TDCBF_CANCEL_BUTTON .IconMain = IDI_QUESTION .InputBoxTextAlign = TDIBTA_Right .InputAlignInFooter = tdcaRight .InputAlign = TDIBA_Footer If Not IsNull(txtChoices) Then .InputWidth = txtChoices .InputCueBanner = " من فضلك أدخل رقم الايصال ؟ " .DefaultCustomControl = tdccNothing .ShowDialog If .ResultMain = 1 Then If IsNull(.ResultInput) Or Not IsNumeric(.ResultInput) Then MsgBox "يجب تحديد قيمة رقمية", vbMsgBoxRight, "قيمة خاطئة" Exit Sub Else If Me.Dirty Then Me.Dirty = False strSource = Me.RecordSource Me.RecordSource = "" Set db = CurrentDb() Set tdf = db.TableDefs("Tbl_Lab_All") tdf.Fields("NO").DefaultValue = """" & .ResultInput & """" Set tdf = Nothing Set db = Nothing Me.RecordSource = strSource DoCmd.GoToRecord , , acNewRec Me.NO.DefaultValue = """" & .ResultInput & """" End If ElseIf .ResultMain = 2 Then Undo Exit Sub End If End With Set TaskDialog = Nothing End Sub ووجب مني التأكيد على ما تفضل به معلمي الفاضل @ابوخليل ، بأن الإسم No هو من الأسماء المحجوزة لآكسيس . وهذا خطأ كبير جداً أخي جو . ملاحظة :- تم العمل بالتعديل على ملف المشاركة التي تفضل بها أخي @منتصر الانسي . JO_Lab.zip

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

هذه مشاركة بملفين نصيين كتجربة على الاستيراد . الخطوات :- انشئ مشروع جديد وسمه مثلاً زخرفة1 من خلال زر الاستيراد استورد الملف شكل هندسي ( ويحتوي الفكرة التي طرحتها في الصورة المتحركة في أول الموضوع ) ، وشوف النتيجة .. قمت برسم علم بلدي الأردن كتجربة بسيطة أيضاً في الملف علم الأردن .. تجارب.zip أما بخصوص طلبك .. فتقريباً الفكرة وصلت لي ، وإن شاء الله سأعمل على دمج الفكرة أو في ملف منفرد بمتابعتك إن كان التنفيذ يطابق ما تفكر به .

لا شك في كلامك ، ولكن مبدأ الفكرة كما تفضلتم بأن نمشف النقاب عن خبايا آكسيس التي يمكن أن نضيفها لقائمة مهامه وتوسيع وظائفه . أما بخصوص تساؤلك هذا :- حقيقة لم افهم المقصد أو الفكرة التي تريد الوصول لها . فوضح لي رجاءً ما يجول ببالك ، عل الفكرة تعجبني ونسلك في مسار متفرع للفكرة الرئيسية 😅 . أما فيما يتعلق بطلبك هذا :- فحتماً سأقوم برسم عدة أنماط وبأشكال وأفكار متنوعة وأرفقها في مشاركة منفردة . لك ذلك أخي @منتصر الانسي .

أنتم السابقون في طرح العطاء . والتعديلات التي قمتم بها كانت دافعاً لجعلي أقوم فعلاً بتثبيت نسخة أوفيس 2003 وإجراء التعديلات لما يتوافق مع متطلبات المستخدمين .. لكم مني كل الشكر والتقدير على مداخلاتكم المميزة ودعمكم

1️⃣ تم التعامل مع جميع الملاحظات التي طُرحت من الإخوة والأساتذة ( مشكورين جميعاً ) الذين قاموا بتجربة الأداة ومشاركتي نتائج اختباراتهم وملاحظاتهم . 2️⃣ تم إصلاح مشكلة الأزرار وأيقوناتها في الإصدار 2003 بإضافة إصدار منفصل كلياً وبنفس المزايا . ملف الأداة مفتوح المصدر ، للتحميل :- Menu Builder 2026.zip Menu Builder 2003.zip

احترامي وتقديري لك أخي أبو مازن .. فعلاً استغلاله يشعرني بالمتعة حين يقوم بكشف أسراره لي .. لكنه عنيد هل قمت بتجربة الفكرة ؟؟ شاركنا نتيجة التجربة إن أمكن 😋

أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. سأتطرق اليوم لفكرة غريبة جداً تتلخص بأنني في فترة دراستي في عام 1997 ، كان في منهاجنا لمادة الحاسوب ، برمجية أسمها لغة أفكار ( MS-DOS ) ، وهي تقوم على مبدأ إدخال أوامر داخل البرنامج لتنفيذ رسومات . مبدأ هذه البرمجية القديمة يشابه Berkeley LOGO . حيث الفكرة تقوم على إعطاء أوامر مثل :- أمام ، خلف ، يمين ، يسار ، كرر .... إلخ وكتوضيح للفكرة في الصورة التالية :- ولأن الموضوع بفكرته غريب نوعاً ما .. سأقوم بالشرح البسيط لآلية العمل :- عند تشغيل الأداة ، وللتجربة دون قيود حفظ المشاريع داخل الجداول . انقر على الزر "اكتب أمراً هنا" ستجد أن سلحوف ( اسم الشخصية التي أخترتها لقلم الرسم ) قد ظهر مع خطوط لتحدد إحداثيات الرسم (س،ص / x,y ) في خانة كتابة الأوامر ، سأعرفك على الأوامر بشكل سريع لو كتبت الأمر "مساعدة / مساعده" (بالهاء أو التاء المربوطة ) . أو انقر على زر علامة التعجب في أقصى اليسار . بعد أن تعرفت على الأوامر والتي تتمثل بإعطاء اتجاهات وزوايا وشروط وتكرارات . جرب على سبيل المثال الأمر التالي :- سرعة 3 كرر 10 ( مربع 50 يمين 36 ) ستجد أن النتيجة للرسم تساوي الصورة التالية :- طبعاً فإنني قد قمت بدمج مجموعة من الأشكال الثابتة مثل ( مربع ، دائرة ، مثلث ، نجمة ، قوس ، مستطيل ) داخل مصفوفة في عقل الأداة . فمثلاً لرسم مربع طول ضلعه 50 فرضاً . سنحتاج لكتابة :- 1. أمام 50 2. يمين 90 3. امام 50 4. يمين 90 5. امام 50 6. يمين 90 7. امام 50 8. يمين 90 لاحظوا أنها 8 حركات لعودة القلم سلحوف لمكانه الطبيعي . بينما يمكننا تنفيذ الفكرة بشكلين آخرين مثل :- كرر 4 ( امام 50 يمين 90 ) ولذا قد دمجت هذا الأمر داخل البرنامج ليصبح باختصار مربع 50 . وكذلك الأمر لرسم دائرة بقطر 50 مثلاً ، ما عليك سوى كتابة الأمر :- دائرة 50 أو يمكنك استخدام الأمر المركب :- كرر 360 ( امام 1 يمين 1 ) وفي الحالتين سيرسم لك دائرة . والأوامر كثيرة جداً والتي يمكن أن تجعل من الأداة عبارة عن ملهم خيال وأفكار لرسم مجسمات الأشكال . ماذا يمكنك أيضاً أن تجد في واجهة الأداة ؟ 6 أزرار في أقصى اليمين تمثل ، زر فتح مشروع محفوظ ، زر مشروع جديد ، زر حفظ المشروع الحالي كصورة ، زر لاختيار لون من أولان الويندوز ، زر لتصدير أوامر المشروع الحالي ، وزر استيراد أوامر مشروع خارجي ، وكلاهما بصيغة ملفات نصية . زر لإيقاف العملية الحالية في حال أردت الإيقاف ، وسيتم التراجع عن الأمر الذي تم إيقافه . ملف الأداة مفتوح المصدر ، للتحميل :- Foksh Turtle 2026.zip وهذه صور لبعض من التجارب التي قمت بها

أيضاً اقرأ هذا الموضوع قد يفيدك ..

وعليكم السلام ورحمة الله وبركاته .. اقرأ هذا الموضوع قد يفيدك :-

مشاركة مع فكرة مستقلة لإرسال بريد إلكتروني مع مرفقات .. اقرأ الموضوع التالي :-

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

العفو أخي الكريم ...

برأيي أن تجعل النموذج الحالي في الملف المرفق هو أول نموذج يعمل لديك لأنه لا يعتمد على أي جدول كمصدر بيانات . مع تعديل اسم النموذج لما لديك في الحدث ليصبح :- Private Sub Form_Load() On Error Resume Next If CheckLinks("") = False Then Call Quit End If Dim tdfs As DAO.TableDefs Dim tdf As TableDef Dim sSourceDB As String Dim sBackupDB As String Dim backDBName As String Set tdfs = CurrentDb.TableDefs Set tdf = tdfs(tdfs.count - 1) sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10) backDBName = Dir(Mid(tdf.Connect, 11)) sBackupDB = Mid(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) ' DoCmd.OpenForm "frmLogin", acNormal DoCmd.Close acForm, Me.Name End Sub بحيث ، عندما يتم فتج قاعدة لبيانات ، سيتم التأكد من ربط جميع الجداول بالمسار الحالي أو اختيار ملف قاعدة بيانات الجداول لأول مرة . وبعد التحقق من صحة الربط سيعمل لديك النموذج الخاص بتسجيل الدخول .

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

اهااااا ، الآن توضحت لي الأمور ، بعد أن قمت بجعل أسماء الجداول = جداول نظام غير ظاهرة ، يبدو أنني لم أتحقق من مصدر صف الليست بوكس List_Objects في النموذج FrmAssignMenu . لذا أرجو تعديل ما يلي في النموذج :- حذف الاستعلام مصدر الصف لليست بوكس هذا . تغيير قيمة نوع مصدر الصف من Table/Query لتصبح Value List . استخدم الحدث التالي عند التحميل للنموذج هذا :- Private Sub Form_Load() Dim rs As DAO.Recordset Dim strSQL As String strSQL = "SELECT Name, IIf(Type=-32768,'نموذج','تقرير') AS ObjType " & _ "FROM MSysObjects " & _ "WHERE Type In (-32768,-32764) AND Left(Name,1)<>'~' " & _ "AND Name Not In ('FrmMain', 'FrmAssignMenu') " & _ "ORDER BY Type, Name;" Set rs = CurrentDb.OpenRecordset(strSQL) Me.List_Objects.RowSourceType = "Table/Query" Set Me.List_Objects.Recordset = rs Set rs = Nothing End Sub وسيتم تحديث ملف المشروع في المشاركة التي تم نشره فيها بعد التصحيح . شكراً لك لتنبيهك لهذه النقطة أخي أحمد الآن جرب النتيجة وأخبرني هل عملت معك أم لا !!!

جملة استعلام الليست بوكس التي تعرض أسماء النماذج والتقارير في الإصدار 2003 ، قد تكون هي السبب بعدم عرض أسماء نماذجك وتقاريرك في قاعدة بياناتك. لم أتعامل مع آكسيس 2003 منذ أكثر من 18 عاماً .

فيديو توضيحي لميزة الـ Add-in ، وكيفية إضافة الأداة إلى آكسيس ودمجها في الواجهة .

وما أوتينا من العلم إلا قليلا .. الحمد لله على نعمه التي أنعمها علينا وعليكم مما علمنا . ونسأل الله أن تكون علماً ينتفع به وشفيعاً لنا 😇

1️⃣ إضافة زر لمعاينة القائمة التي تم انشائها ، بدلاً من الدخول إلى تقرير أو نموذج وتعيينها وتجربتها . 2️⃣ إضافة فكرة القوائم الفرعية . بحيث يكون زر داخل القائمة الرئيسية يتفرع منه قائمة فرعية أخرى ... وهكذا . 3️⃣ إضافة مميزة بحفظ القائمة كـ VBA داخل ملف نصي يتم حفظه على سطح المكتب . بحيث يمكنك من نسخه وتشغيله مرة واحدة فقط في مشروعك لإنشاء القائمة المختصرة التي انشأتها من خلال الأداة ، أو استوردتها من قاعدة أخرى 😉 . 4️⃣ إضافة زر لتعيين/إزالة قائمة مختصرة لعدد من النماذج أو التقارير مرة واحدة ، دون الحاجة لتعيينها واختيارها يدوياً لكل نموذج أو تقرير . 5️⃣ إضافة ميزة مسح جميع القوائم المختصرة من جميع كائنات ( نماذج وتقارير ) قاعدة البيانات الحالية . وليس بتحديد كائنات محددة كما في النقطة4️⃣ . 6️⃣ إضافة الميزة الذهبية الجديدة وهي دمج الأداة إلى إضافات آكسيس وكأنها جزء منه وتجدها داخل الإضافات - Addin . كما في الصورة الموضحة :- 7️⃣ إضافة زر لإزالة الأداة من الـ Addin بشكل كامل ونهائي . 📸 واجهة الأداة بعد التحديث :- كل هذه الميزات وأكثر في المرفق التالي للنسخة المحدّثة :- Menu Builder.zip ( تم تحديث المرفق بعد ملاحظة خطأ بسيط في نموذج عرض التقارير والنماذج الموجودة في قاعدة البيانات ) . والشكر موصول لأخي @أحمد العيسى على هذه الملاحظة . فيديو توضيحي لطريقة استخدام القوائم الفرعية :-

نعم أخي أحمد ، انا طرحت 3 نقاط من الإضافات ، وأبقيت الباقي كمفاجأة فعلاً.. فما خفي أعظم 🤗. أهلاً وسهلاً معلمنا الفاضل أبو خليل ، تمت إضافتها ، وجاري إضافة فكرة ستعجبك ، وهي جعل الأداة كـ Addin في آكسيس 😉 .