Foksh

وعليكم السلام ورحمة الله وبركاته .. حتى لا تتشتت أفكارك بعيداً عن طلبك ، ألقِ نظرة على هذا الموضوع هنا .

انا أعتذر من السير في حيلة من شأنها أن تدمر السجلات في أول خطأ يا صديقي .. لذلك قد أطرح فكرة تكون حلاً لك ، وهي الإعتماد على تعيين القيمة الافتراضية في جدول الإعدادات مثلاً . بحيث يتم تحديثها وجلبها متى شئت دون التأثير على خاصية الحقل داخل الجدول Tbl_Lab_All . فهنا نحن لن نقوم بإغلاق النموذج الرئيسي أو الفرعي أبداً . أو لن نقوم بفك ارتباط النماذج أساساً ( وبالتالي لن نجبر آكسيس على حفظ السجلات الناقصة ) . و ستبقى شاشة المستخدم مفتوحة كما هي ، والبيانات الناقصة التي تكتبها كمستخدم لن يتم حفظها إلا عندما تقرر حفظها . يعني باختصار = التعديل سيتم في جدول إعدادات خارجي بسيط ( Tbl_Settings ) غير مرتبط بالنماذج المفتوحة ، لذا لن تتواجد عوائق أخي جو . ومع ذلك ، فإن القيمة الافتراضية ستتعدل على مستوى الجدول نفسه ( وليس النموذج ) ، بحيث لو قام المستخدم بفتح الجدول مباشرة أو أضاف سجلاً من أي نموذج فرعي آخر ، سيتم تعيين القيمة الافتراضية الجديدة تلقائياً عند الحفظ . أرجو أن أكون قد نجحت بتوصيل فكرتي التي من خلالها لن تضطر للخروج من النموذج ، وبنفس الوقت ستبقى القيمة الافتراضية مخزنة داخل جدول ليس له اي علاقة بالنموذج سوى جملة DlookUp . وتحديثها من خلال سطر استعلام تحديث عند تغييرها 😉

شكراً للمشاركة أخي خليفة .. اذا من 25 سنة ، فقد عاشت الفكرة عمراً كافياً حتى تقوم الشركة بالإلغاء أو الحذف .😅. ثم إن الفكرة ستكون حصرية للمزود الذي سيقدم الخدمة حصراً !!!! يعني من سيستخدم الفكرة في الموزمبيق لن يكون لديه شريحة لمزود الخدمة هذا في بلده .

يمكن التنفيذ 😉 ..

نفس المبدأ ، وهو إغلاق النموذج الحالي = الرئيسي !!!! ' إغلاق النموذج الحالي DoCmd.close acForm, Me.Name ' فتح النموذج المساعد DoCmd.OpenForm "frm_SetDefaultNO"

تم البدء بتنفيذ الفكرة .. رأيكم بالتصميم ..

بما أن النقطة الأولى التي تفضل بها أخي محمد ، مجانية وتعتمد على تطبيق وسيط . ذهبت للإلتفات الى الفكرة الثانية من خلال Ozeki NG SMS Gateway والبحث عن تفاصيلها . فوجدت انها مكلفة جداً نوعاً ما .. وتحتاج الكثير من الضبط على جهاز المستخدم. وأيضاً ستحتاج وجود انترنت كي يتم الاتصال بسيرفر الشركة المقدمة للخدمة !!

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

اعتقد أنه يجب العمل على الملف المرفق الذي ارفقه أخونا @jo_2010 في هذه المشاركة هنا . لأن ما يبحث عنه السائل هنا هو تعديل قيمة الحقل الإفتراضية داخل الجدول مباشرة دون الخروج من النموذج والعودة له .. وبعد تجربة المرفق من أخي منتصر ، اعتقد أنه اقترب الى حد ما 😉 . حيث بعد تجربة مرفقه النتيجة الغير مكتملة = مع العلم أن الحل الذي قدمه أخي @kkhalifa1960 يفي بالغرض لولا خروجه من النموذج والعودة من جديد له . وهذا يترتب عليه سجل جديد لو نسي المستخدم تعيين القيمة أولاً عند السجل الجديد .

شكراً لكم ردكم هذا معلمي الفاضل @ابوخليل . هذا صحيح فعلاً. ولكن الفكرة بحد ذاتها أنني كمستخدم أبحث عن الفكرة المجانية 😅 .. المصدر المرسل هنا سيكون مكشوفاً طبعاً وهو رقم هاتف المستخدم . وبما انه هو المرسل فسيتم استهلاك رصيد الرسائل النصية في خطك .

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

هل طريقي مسدود مسدود مسدود 🤔 ؟

السلام عليكم ورحمة الله وبركاته .. قمت بقراءة تقريباً جميع المواضيع التي بحثت عنها في المنتدى ، والتي تتحدث حول موضوع إرسال رسائل نصية SMS من خلال آكسيس ، ومن أي بلد . يعني كتوضيح ؛ لدي في شريحتي من ضمن الباقة الشهرية ما يعادل 3000 رسالة نصية SMS . وأريد أن ارسل رسائل نصية من خلال الآكسيس ضمن نطاق عمل المختبر . فبدلاً من أن اشترك بخدمات مدفوعة ، أبحث عن طريقة للإستفادة من هذه الحزمة من الرسائل النصية . فهل لكم أن تشاركوني الأفكار ؟ فقد نفذت مني فعلاً 😪 وشكراً لكم سلفاً

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

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

صحيح 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 وهذه صور لبعض من التجارب التي قمت بها