كل الانشطه

تمت التجربة على اوفيس 2010 ، وما شاء الله عليك ، أجدت الدمج والتوظيف .. ومن الجميل أن يكرّم الإنسان نفسه دائماً عند اجتهاده ، فلا تنسى اختيار "تمت الإجابة" لرسالتك التي تسبق رسالتي هذه . فأنت تستحقها بجدارتك

أستاذنا الغالي أبو احمد ،، بداية أحترم رأيك بشدة ، وأنت من الأشخاص الذين لهم بصمة فعلية في تقديم المساعدة لأخوتنا في القسم متى حللتم ، رغم أننا نفتقد وجودكم بيننا والإستفادة من فيض العلم الذي علمكم الله أياه . أخونا جو طرح سؤاله النابع من مشكلة واجهها في كود جاهز حصل عليه من أداة ، لكنه لم يلبي حاجته بسبب عدم توافق الكود حرفياً وفعلياً مع طلبه عند التعامل مع رسالة MsgBox من 3 أزرار ,, وقدم له الأخوة مجموعة حلول البرمجية المنطقية ؛ إلا أنه تمسك بالحبل الذي بين يديه ولم يفضل تبديله . لذا ومن ضمن الحلول كنت قد اقترحت عليه استخدام Select Case كما تفضلتم في طرحكم - إضافة إلى ما جاد به خبرائنا الكرام - مشكورين - ، فعاد إلى أصل الموضوع الذي حصل على الكود منه للأستاذ منتصر الأنسي - مشكوراً لجهده على انتاج الأداة - ، وقد لباه بتحديث يدعم Select Case حسب رغبته .. لكم الشكر على ما تقومون به من مساعدة ومد يد العون لأخوانكم أينما حلّت أناملكم الذهبية .. وفي النهاية انت تعلم أن من يبحث عن إجابة رغم تعدد الحلول إلا أنه سيفضل الأسهل والأبسط لمشروعه وحاجته وخبرته .

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

ابشر شعال .................

الحمدللة الخبير الفاضل منتصر الانسى لة خالص الشكر اضاف select case الى البرنامج الخاض بة واعطى نتائج رائعة

معلمى الفاضل انظر الصور

السلام عليكم ورحمة الله حبايبي اللي بينقذوني دايما 😊 عندي نموذج بداخلة 2 نموذج فرعي النموذج الفرعي الثاني بداخلة 2 مربع تحرير وسرد بمسمي المحاور والاسباب اريد عند اختيار المحور يظهر لي الاسباب الخاصة به فقط وليس كل الاسباب كما هو موضحM.rarM.rar بالصورة

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

تفضل استاذ @بلال بلال المرفق بعد التعديل بطلبك تفضل الشرح والمرفق . ووافني بالرد . Yamen-01-04-2026.rar

تمام أخى الفاضل Foksh شكراً لك .. هذا ما أريده تماماً وتم التعديل بسهولة لدمج 3 كائنات فى زر أمر واحد ( زر استيراد الجدول ) للتجربة تكون بمراعاة الأرقام الظاهرة على الصورة Test1.mdb

تفضل أخي الكريم ، التعديل الي طلبته .. Private Sub btnLocateFile_Click() On Error GoTo Err_btnLocateFile_Click Dim fd As Object Dim fileName As String Dim defaultFolder As String defaultFolder = "D:\Access_Teacher\" If Dir(defaultFolder, vbDirectory) = "" Then MkDir defaultFolder End If Set fd = Application.FileDialog(1) With fd .Title = "اختر ملف الإكسل" .Filters.Clear .Filters.Add "Excel Files", "*.xls; *.xlsx" .InitialFileName = defaultFolder If .Show = -1 Then If .SelectedItems.Count > 0 Then fileName = .SelectedItems(1) Me.txtImportFile = fileName End If End If End With Exit_btnLocateFile_Click: Exit Sub Err_btnLocateFile_Click: MsgBox Err.Description, vbCritical + vbMsgBoxRight, "خطأ" Resume Exit_btnLocateFile_Click End Sub

كما فهمت: Private Sub أمر0_Click() Dim msgRes As VbMsgBoxResult Const msg = "ماذا تريد ان تفعل Yes فتح نموذج NO فتح تقرير Cancel تراجع " msgRes = MsgBox(msg & vbCrLf & "" & vbCrLf & "الحمدلله", vbYesNoCancel + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "الله المستعان") '--- طريقة أولى ---- If msgRes = vbYes Then DoCmd.OpenForm "22" ElseIf msgRes = vbNo Then DoCmd.OpenReport "33", acViewPreview ElseIf msgRes = vbCancel Then Exit Sub End If '--- طريقة أخرى ---- 'Select Case msgRes ' Case vbYes ' DoCmd.OpenForm "22" ' Case vbNo ' DoCmd.OpenReport "33", acViewPreview ' Case vbCancel ' Exit Sub 'End Select '--------------- '... End Sub

شكرا لك جزاك الله خير ورحم الله والديك ... جاري التجربة 🌹

تمام ، تم الانتهاء من الشق الأول 👍 الثاني حال وصولي الى الكمبيوتر إن شاء الله ، لأنني خرجت من العمل

الخبير المبدع الذى اتابع كل اعمالة واتعلم منها خالص الشكر لسرعة الاستجابة وإضافة Select Case للبرنامج شكرررررررررا

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

تم تحديث الأداة مع إضافة هذا الخيار

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

ليس لدي أوفيس 2003 ، ولكن جرب هذا التعديل لزر التصدير .. Private Sub cm_ToExcel_Click() On Error GoTo Err_cm_ToExcel_Click Dim stDocName As String Dim filePath As String Dim defaultFolder As String Dim Q As Integer Dim fd As Object stDocName = "tbl_Teacher" & [Year_name] defaultFolder = "D:\Access_Teacher\" Q = DCount("*", "tbl_Teacher") If Q > 0 Then If Dir(defaultFolder, vbDirectory) = "" Then MkDir defaultFolder End If Set fd = Application.FileDialog(2) With fd .Title = "اختر مكان حفظ ملف الإكسل" .InitialFileName = defaultFolder & stDocName & ".xls" If .Show = -1 Then filePath = .SelectedItems(1) If LCase(Right(filePath, 4)) <> ".xls" Then filePath = filePath & ".xls" End If DoCmd.TransferSpreadsheet acExport, 8, "tbl_Teacher", filePath, False MsgBox "تم استخراج ملف الإكسل بنجاح وحفظه في:" & vbCrLf & vbCrLf & _ filePath, vbInformation + vbMsgBoxRight, "" End If End With Else MsgBox "لا يوجد سجلات لتصديرها", vbOKOnly + vbMsgBoxRight, "" End If Exit_cm_ToExcel_Click: Exit Sub Err_cm_ToExcel_Click: MsgBox Err.Description, vbCritical + vbMsgBoxRight, "خطأ" Resume Exit_cm_ToExcel_Click End Sub قمت بتعديل الزر بحيث يعتمد اسم المسار الذي حددته لنا ، وإنشاء المجلد نفسه في المسار إذا لم يكن موجوداً ..

مقدر انشغالكم اساتذتي واخواني الاعزاء. لكن تم الحل. تكرموا باغلاق المزضوع

السلام عليكم Yamen-.zip

هذا لأنك أدخلت السجل بدون أن تدخل التاريخ قمت أنا بإضافة سجل جديد بالرقم 110001 وعندما رجعت للجدول وجدت أن حقل التاريخ فارغ قمت بإدخال تاريخ اليوم ثم قمت بفتح النموذج وأضفت سجل وحددت الرقم 2 فقط فتم تعديله إلى 110002 آلياً كما بالصورة لا تنسى بأن الكود يقوم بإستخراج أحدث تاريخ ثم إستخراج آخر رقم تم إدخاله في هذا التاريخ ليتم الإعتماد عليه أي أنه يعتمد على التاريخ أولاً ثم على أخر رقم في هذا التاريخ لمعالجة المشكلة قمت بتعديل النموذج ليتم تعيين تاريخ اليوم لأي سجل جديد جربه الان وتأكد من النتائج Lab.rar

عذراً إخوانى للعودة لنفس الموضوع قد يكون الموضوع أسهل إذا أرفقت مثال عملى المطلوب أن يكون مربع حوار التصدير ( الحفظ ) مثل المربع الناتج من الضغط على النقاط الثلاث ( الفتح ) للتسهيل : ليكن فولدر الحفظ الإفتراضى (مع إمكانية الاختيار ) هو D:\Access_Teacher عند إستيراد الجدول (داخل مربع الحوار ) هنا لا داعى لوجود مربع اختيار التسمية والضغط على النقاط الثلاث بالنموذج ولكن الفتح والاختيار من أى مكان على الهارد متاح مع وجود فولدر الحفظ الافتراضى داخل الديالوج Test.mdb

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

الخبير الفاضل شكرا لابداعك المتجددة لي طلب بسيط ممكن لو تكرمت تستبدل قاعدة If بقاعدة Select Case حتى نتمكن من عمل امر لكل زر فى الرسالة مثلا لو حددنا ٣ ازرار نعم ولا وإلغاء الامر نعم فتح نموذج محدد لا لفتح تقرير محدد الغاء الأمر لغلق الرسالة لانى قمت بتجربة هذا الموضوع نعم يفتح النموذج تمام لا يفتح التقرير تمام الغاء الأمر حاولت بكل الطرق Undo Exit Sub لكنة يكرر الأمر السابق وهو فتح التقرير لذلك ارجوك تحويل قاعدة If إل cselect case لك خالص الشكر