كل الانشطه

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

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

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

قام الاخ @Foksh مشكورا بحل المشكلة ولكن يتبقى على الاخ @jo_2010 مسح خاصية القيمة الإفتراضية لمربع النص في النموذج

هذه تجربتي على ملفك المرفق ، ولكن على الإصدار 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 بالاكواد شيت2 مثال1.xlsb

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

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

استاذ هل تسطيع اضافة فتح مربع حوار لاختيار الملف الاكسيل

شكرا جزيلا أخي الفاضل خليفة وبارك الله فيك وفيكم جميعا وأخي الكريم منتصر أخي الفاضل عملت كل المطلوب ولكن عن الاستعمال يعطيني خطأ

شكرا جزيلا أخي الفاضل خليفة وبارك الله فيك وفيكم جميعا وأخي الكريم منتصر

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

ابش لكن بعد صلاة المغرب انشاء الله .

تفضل د / @jo_2010 التعديل ووافني بالرد . JO_Lab_2_17-06-2026.rar

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

عايز في الجدول الرئيسي للدرجات في عمود النتيجة يظهر كلمة ناجح او مواد الرسوب للطالب وله دور ثان

الخبير الافاضل استاذى ومعلمى kkhalifa1960 شكرا على المساعدة ولكنى ارغب فى التعامل مع الرسالة الخاصى بى حضرتك تعبت فى عمل شئ رائع لكن احداث كثيرة رسالة ثم نموذج ثم مريع ادخال ثم رسالة تاكيدية اتمنى حضرتك تجد حل باستخدام رسالتى شكلها مختلف وفكرتها عجبانى

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

تفضل استاذ @2saad اذهب للمشاركة من هنـــــــــــــا لان بها شرح مهم للحصول على باسوورد جوجل المكون من 16 حرف + اخرمشاركة لي . ووافني بالرد .

سامحني تأخرت يالرد @jo_2010 مشاركة مع النخبة . لايمكن تعديل القيمة الافتراضية لحقل بجدول وهو مفتوح . لذا اليك حلي حسب ما فهمت . اليك الشرح والمرفق . ووافني بالرد . JO_Lab-17-06-2026.rar

تفضل استاذ @بلال بلال المرفق بعد التعديل بكل طلباتك ... لكن لا تنسى بملف الاكسل السطر الرابع الصفحة (Feuil13) تعديل (Group) الى (Group1) .... ووافني بالرد . Horaire_3.rar

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

مشاركة مع استاذنا منتصر ملحوظة صغيرة : NO و Yes كلمتان محجوزتان وايضا رأيي ليش الدوشة وتشغيل ادوات لها اول وليس لها آخر افتح حقل الرمز للتحرير واجعل قيمته الافتراضية تتغير بعد كل تحديث عندما تختار سجل جديد ستظهر القيمة الافتراضية الجديدة .. او حتى تم اغلاق وفتح النموذج سيظهر آخر قيمة افتراضية مع ملاحظة حذف وازالة القيمة الافتراضية من الجدول هذا كل ما تحتاجه فقط Private Sub NO1_AfterUpdate() Me.NO1.DefaultValue = Me.NO1.Value End Sub

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