اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أحمد العيسى

04 عضو فضي
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    551

  • تاريخ الانضمام

 نوع المحتوي 

كل منشورات العضو أحمد العيسى

  1. أحمد العيسى
    ده فعلاً اللى عملته بالتفصيل : تفعيل ، عدم تفعيل للملفات mdb ، accdb جربت الآن على ملف mde وكمان عملت له كلمة سر للقاعدة أثناء الفتح الخاص قبل تحويلها وتم اختبار ظهور وإخفاء كلمة سر القاعدة وتفعيلها وإلغاء تفعيلها وكله تمام وأكرر شكري مرة أخرى للعلم فقط أنا شغال على ويندوز 7 32 بت وعليه أوفيس 2003 أساسي ، وأوفيس 2007 بورتابل وهذه بيئة التجارب عندى قد يكون هناك مشكلة فى أوفيس 2003 البورتابل الذى رفعته هنا ، فالجميع يعلم أن التثبيت أفضل طبعاً من ملف بورتابل
  2. أحمد العيسى
    تمام يا أستاذنا وبلاش كل شوية تهددنا بأنك هتسيب المنتدى إحنا منقدرش نستغنى عنك
  3. أحمد العيسى
    الله ينور بتشغيل المرفق من داخل أكسس 2007 وتطبيقه على ملفين إحداهما حديث " تجربة.accdb " والآخر قديم تنسيق 2003 " مدرسين.mdb " تمام لكلا الملفين ، وأعتقد أنه لا حاجة لتحويل هذا المرفق إلى نظام 2003 لأن المطلوب هو تأثيره على ملفات 2003 بجانب تأثيره على الملفات الأحدث
  4. أحمد العيسى
    تمام 100 % لماذا أصمم على أن أن يكون التطبيق بأكسس 2003 لأن جميع إصدارات الأكسس التالية تقوم بتشغيل هذا التطبيق ما لم نضيف خصائص عالية من الإصدارات الحديثة لذلك ذكرت أن تطبيق حضرتك قد نجح فى التأثير على التطبيقات ذات اللاحقة accdb بشرط تشغيله من داخل 2007 فما فوق لكن فى أكسس 2003 لن يؤثر إلا فى التطبيقات mdb
  5. أحمد العيسى
    لا أعرف وجهة نظرك فى أن التطبيق يتعامل مع موديول ، ولكنى أحترمها طبعاً فى حين أنه يحتوى على نموذج واحد يتيم يمكن وضع كل أوامر الموديول به ملاحظتك حدث بعد التحديث للعنصر OptMain لم يكن غائباً عنى ولكن كنت أفكر فى وظيفة التطبيق المتشابكة وأن الحدث هل سوف يؤثر فيها ؟ إقتراحى إذا أعجبك: وضع زري أمر "إلغاء تفعيل" ، "تمكين تفعيل" وليس زر واحد مع خفوت أحدهما وقت الحاجة لأحدهما التعديل فى بيان "Lbl_Info" بالنموذج أو الاستغناء عنها خد راحتك .. أعلم أن دماغك متكلفة ويمكنك أن تضيف من إبداعاتك الكثير ، فى انتظار مرفقك المعدل
  6. أحمد العيسى
    بسيطة .. إذا أردت : فيما يلى رابط لتحميل Portable_Office 2003 من صنعي ، جربه مطلوب تعديل بسيط على تطبيقك: عند الضغط على زر تفعيل مفتاح الشيفت / إلغاء مفتاح الشيفت ، يتم التنقل بين عناصر الاختيار Disable و Enaable والعكس لا يتم إذا تم التأشير واختيار عناصر الاختيار لا يتم تغير المسمى على زر تفعيل مفتاح الشيفت طبقاً للإختيار والمطلوب التعديل هنا
  7. أحمد العيسى
    شكراً للسادة الأعزاء Foksh ، ابو جودي مبدئياً .. التطبيقان كل منهما يلبى المطلوب فى بيئة تشغيله عند التشغيل على أكسس 2003 يقوم باللازم نحو اللاحقة mdb وعند التشغيل على أكسس 2007 يتعامل مع الملفات دات اللاحقة accdb أحتاج لمزيد من التجارب لاحقاً !!
  8. أحمد العيسى
    معذرة يبدو أن الهيكلة تحتاج مراجعة لتحقيق الهدف النهائي فى الفلترة : يكفى السطر الثالث ( كل الملفات ) أيضاً هل من الممكن بعد اختيار ملف أكسس :اكتشاف الفاعلية تلقائياً (تمكين ، نعطيل ) وبذلك يكون زر واحد فقط هو من يتم اختياره بالنسبة لملف *.accdb لم ينجح التطبيق فى تغيير الخاصية
  9. أحمد العيسى
    السلام عليكم بالمرفقات ثلاث تطبيقات بسيطة ورائعة من عمل أبو جودي والأخت زهرة منهم من يقتصر فلتره على إظهار mdb والآخر على accdb المفترض أن البرنامج الناتج يتوافق مع أوفيس 2003 بالإضافة للإصدارات التالية بالطبع سوف نري مع الشمول البرمجي الناحية الجمالية بأفضل صورة وأنا واثق من هذا شكراً لجميع الزملاء مقدماً وتهنئة لنا بعودة أبو جودي للمنتدى من جديد تفعيل وإلغاء الشفت1.mdb تفعيل وإلغاء الشفت2.mdb تفعيل وإلغاء الشفت3.mdb
  10. أحمد العيسى
    نعم جربت قبل عرض المشكلة ... ولكن بالفاصلة المنقوطة بين الحقل والجدول وليس بالفاصلة العادية أعلاه شكراً جزيلاً لك لتذكيرى بذلك
  11. أحمد العيسى
    السلام عليكم Year_name هو أحد حقول الجدول tbl_basic وأريد إستخدام محتواه بأحد النماذج فى تكوين اسم جديد من خلال الآتى Dim stDocName As String stDocName = "tbl_student1" & [Year_name] لم يفلح ما سبق ، فقمت بتغيير السطر الثانى إلى: stDocName = "tbl_student1" & [Year_name]![tbl_basic] ورغم عدم وجود خطأ فى الــ Compile لما سبق ، لكن تقابلنى عند التنفيذ هذه الرسالة : ما الخطأ فى التعبير السابق ؟
  12. أحمد العيسى
    التكريم والشكر لفريق الموقع لسرعة استجابتهم وتسابق كل منهم لوضع خبرته للخدمه لوجه الله أنا فقط استفدت من المناقشة ورؤية الحلول المختلفة بالأكواد .. لكن الحل يعود لك ولهم كل شكرى وتقديرى لكم
  13. أحمد العيسى
    تمام أخى الفاضل Foksh شكراً لك .. هذا ما أريده تماماً وتم التعديل بسهولة لدمج 3 كائنات فى زر أمر واحد ( زر استيراد الجدول ) للتجربة تكون بمراعاة الأرقام الظاهرة على الصورة Test1.mdb
  14. أحمد العيسى
    ألله ينور عليك .. تمام بالطبع تستطيع التنفيذ على أى أوفيس حتى يتم التجربة وأنا أستطيع تعديل التوافقية إذا لزم الأمر يتبقى دمج أوامر استيراد الجدول وأوامر النقاط الثلاث فى ديالوج يشبه زر التصدير بكود أمر واحد والفتح إفتراضياً فى المجلد السابق
  15. أحمد العيسى
    عذراً إخوانى للعودة لنفس الموضوع قد يكون الموضوع أسهل إذا أرفقت مثال عملى المطلوب أن يكون مربع حوار التصدير ( الحفظ ) مثل المربع الناتج من الضغط على النقاط الثلاث ( الفتح ) للتسهيل : ليكن فولدر الحفظ الإفتراضى (مع إمكانية الاختيار ) هو D:\Access_Teacher عند إستيراد الجدول (داخل مربع الحوار ) هنا لا داعى لوجود مربع اختيار التسمية والضغط على النقاط الثلاث بالنموذج ولكن الفتح والاختيار من أى مكان على الهارد متاح مع وجود فولدر الحفظ الافتراضى داخل الديالوج Test.mdb
  16. أحمد العيسى
    شكراً أخى Moosak على مشاركتك بنقل ما تفضلت به للمشروع لم يتغير شئ الكود الوحيد الذى يعمل بلا مشاكل هو كود أخى ابو البشر وإن كان فى حاجة لبعض الإضافات لكنه هو الصحيح بلا أى مشكلة عندى
  17. أحمد العيسى
    للأسف .. حيث أن العمل على أكسس 2003 فلا يوجد غير هذه المكتبة المرقمة برقم 11 وهى مضافة أصلاً للمشروع لكن يبدو أنها غير كافية لهذا الإصدار والمقصود بالعمل على أكسس 2003 هو توافق هذا العمل حتى على أحدث إصدار لذلك عند التشغيل على أوفيس 2024 تم استبدال المكتبه بالإصدار 16 تلقائياً التى أشار إليها أخى Foksh ومع ذلك عند التنفيذ ظهرت نفس رسالة الخطأ !!!!
  18. أحمد العيسى
    تمام شكراً لك .. بارك الله فيك قبل سؤالى استخدمت صفحة vba-code-doctor فأنتج هذا الكود .. لكن به رسالة خطأ أين المشكلة ... هل المطلوب مكتبات معينة ، مع العلم أن الكود ليس به تحذير فى الــ Compile Private Sub cm_ToExcel_Click() On Error GoTo Err_cm_ToExcel_Click Dim stDocName As String Dim Q As Integer Dim fDialog As Office.FileDialog ' يتطلب مرجعًا إلى مكتبة كائنات Microsoft Office XX.0 Dim strFilePath As String stDocName = "tbl_Teacher" & [Year_name] Q = DCount("*", "tbl_Teacher") If Q > 0 Then ' تهيئة مربع حوار الملف Set fDialog = Application.FileDialog(msoFileDialogSaveAs) With fDialog .AllowMultiSelect = False .Title = "اختر مكان حفظ ملف أكسل" .InitialFileName = stDocName & ".xls" .Filters.Clear .Filters.Add "Excel Workbooks", "*.xls", 1 ' تصفية لملفات .xls .FilterIndex = 1 ' تحديد الفلتر الأول افتراضيًا If .Show = True Then ' المستخدم ضغط على حفظ strFilePath = .SelectedItems(1) ' التأكد من أن الملف له امتداد .xls If Right(strFilePath, 4) <> ".xls" Then ' التحقق مما إذا كان هناك امتداد موجود لاستبداله If InStr(strFilePath, ".") > InStrRev(strFilePath, "\") Then strFilePath = Left(strFilePath, InStrRev(strFilePath, ".") - 1) & ".xls" Else strFilePath = strFilePath & ".xls" End If End If DoCmd.TransferSpreadsheet acExport, 8, "tbl_Teacher", strFilePath, False MsgBox ("تم استخراج ملف أكسل لبيانات الموظفيـن وحفظه على الـ " & Chr(13) & Chr(13) & strFilePath), vbOKOnly + vbMsgBoxRight, "تنبيه" Else ' المستخدم ضغط على إلغاء MsgBox "تم إلغاء عملية الحفظ.", vbOKOnly + vbMsgBoxRight, "إلغاء" End If End With Else MsgBox ("لا يوجد سجلات لتصديرها "), vbOKOnly + vbMsgBoxRight, "تنبيه" End If Exit_cm_ToExcel_Click: Set fDialog = Nothing ' تنظيف كائن مربع حوار الملف Exit Sub Err_cm_ToExcel_Click: MsgBox Err.Description Resume Exit_cm_ToExcel_Click End Sub
  19. أحمد العيسى
    السلام عليكم فيما يلى إجراء يقوم بحفظ قاعدة بيانات فى صورة ملف أكسل 2003 على القطاع E والمطلوب إظهار مربع حوار أكسس ليتيح لى حرية اختيار المكان على الهارد قبل الحفظ على أن يكون المكان الافتراضى E فى حالة سماح تقسيم الهارد بذلك مع جزيل شكرى مقدماً Private Sub cm_ToExcel_Click() On Error GoTo Err_cm_ToExcel_Click Dim stDocName As String Dim Q As Integer stDocName = "tbl_Teacher" & [Year_name] Q = DCount("*", "tbl_Teacher") If Q > 0 Then DoCmd.TransferSpreadsheet acExport, 8, "tbl_Teacher", "E:\" & stDocName & ".xls", False MsgBox (" E:\ تم استخراج ملف أكسل لبيانات الموظفيـن وحفظه على الـ " & Chr(13) & Chr(13) & stDocName & ".xls"), vbOKOnly + vbMsgBoxRight, "تنبيه" Else MsgBox ("لا يوجد سجلات لتصديرها "), vbOKOnly + vbMsgBoxRight, "تنبيه" End If Exit_cm_ToExcel_Click: Exit Sub Err_cm_ToExcel_Click: MsgBox Err.Description Resume Exit_cm_ToExcel_Click End Sub
  20. أحمد العيسى
    تمام .. كل الشكر لكما وهذا ما تم تنقيحه ليكون نهائياً ' طباعة المحدد Private Sub cmdPrint_Click() On Error GoTo Err_cmdPrint_Click Dim Index3 As Variant Dim repName As String ' فحص إذا كان هناك بند تم تحديده If L3.ItemsSelected.Count = 0 Then MsgBox "لا يوجد مطبوعات قد تم اختيارها", vbInformation + vbMsgBoxRight, "تنبيه " Exit Sub End If ' المرور على كل عنصر محدد وفتح التقرير المقابل له For Each Index3 In L3.ItemsSelected repName = L3.ItemData(Index3) repName = "تقرير_" & repName DoCmd.OpenReport repName, acViewNormal, , ftrName Next Index3 Exit_cmdPrint_Click: Exit Sub Err_cmdPrint_Click: MsgBox Err.Description Resume Exit_cmdPrint_Click End Sub أما عن هذا السطر Private ftrName As String فقد تم التصريح به فى بداية VBA سؤالى هنا : ما هو ftrName هل هو أمر محجوز للطباعة
  21. أحمد العيسى
    السلام عليكم الكود التالى يعمل بدون مشاكل ولكن هناك سطور مكررة متداخلة به طلبى من السادة الزملاء ضبط البناء لاختصاره وتحسينه Private Sub cmdPrint_Click() On Error GoTo Err_cmdPrint_Click Dim Index3 As Variant Dim repName As String For Each Index3 In L3.ItemsSelected repName = L3.ItemData(Index3) repName = "تقرير_" & repName Next Index3 If repName = "" Then MsgBox "لا يوجد مطبوغات قد تم اختيارها", vbInformation + vbMsgBoxRight, "تنبيه " Exit Sub Else For Each Index3 In L3.ItemsSelected repName = L3.ItemData(Index3) repName = "تقرير_" & repName DoCmd.OpenReport repName, acViewNormal, , ftrName Next Index3 Exit_cmdPrint_Click: Exit Sub Err_cmdPrint_Click: MsgBox Err.Description Resume Exit_cmdPrint_Click End If End Sub
  22. أحمد العيسى
    تم الوصول إلى الحل بالتجربة إذ يبدو أن الخصائص لها أولية عن الكود لذلك تم تغيير خاصية التوسيط للنموذجين بـ "لا" واستدعاء توسيط النموذج عند الفتح باستخدام الكود أعلاه Private Sub Form_Open(Cancel As Integer) CenterFormOnScreen "frm_M1" End Sub
  23. أحمد العيسى
    شكراً لك لا يوجد مشكلة ، بل هى ناحية جمالية فقط النموذج الأول يفتح النموذج الثانى فى موضع أعلى منه قليلاً فى الشاشة قبل إغلاق نفسه والنموذج الثانى عند إغلاقه يعيد فتح النموذج الأول فى نفس الموضع الأول أى أسفل قليلاً من النموذج الثانى سأجرب هذا الكود لكل من النموذجين Public Sub CenterFormOnScreen(formName As String) Dim screenWidth As Long Dim screenHeight As Long screenWidth = GetSystemMetrics(SM_CXSCREEN) screenHeight = GetSystemMetrics(SM_CYSCREEN) Dim targetForm As Form Dim formWidthTwips As Long Dim formHeightTwips As Long Dim formWidthPixels As Long Dim formHeightPixels As Long Dim fleftPos As Long Dim ftopPos As Long Set targetForm = Forms(formName) ' الحصول على عرض النموذج وارتفاعه بالتويبس formWidthTwips = targetForm.windowWidth formHeightTwips = targetForm.windowHeight ' تحويل الأبعاد من تويبس إلى بكسل formWidthPixels = formWidthTwips / 15 formHeightPixels = formHeightTwips / 15 ' Calculate left and top positions for centering fleftPos = (screenWidth - formWidthPixels) / 2 ftopPos = (screenHeight - formHeightPixels) / 2 ' اعاده التحويل لوحدة القياس تويبس fleftPos = fleftPos * 15 ftopPos = ftopPos * 15 ' نقل النموذج إلى الموضع المركزي DoCmd.MoveSize fleftPos, ftopPos End Sub
  24. أحمد العيسى
    السلام عليكم عندى نموذجين كل منهما عبارة عن "تفصيل ( Detail) فقط " .. لهما نفس الطول ونفس العرض رقمياً أحدهما ينادى الآخر ليحل محله ، فأجد أن الآخر يتموضع فى مكان أعلى قليلاً من النموذج المنادى عليه السؤال : ما هى بنود الخصائص التى توحد ظهور كل منهما فى نفس المكان بشاشة الكمبيوتر بالضبط علماً بأننى مفعل خاصية التوسيط لنموذج كل منهما بـ "نعم" تحياتى وتقديرى لكم
  25. أحمد العيسى
    شكراً للسادة الزملاء على تفاعلهم سأجرب نصيحة التشغيل على جهاز آخر عندما يتاح لى أما بالنسبة لتغيير الحدث TimerInterval = 500 وليس 1000 أى التغيير يحدث كل نصف ثانية فالمشكلة ما زالت كما هى بالنسبة للعزيز منتصر الانسي خارج الموضوع : هل من الممكن معرفة كيفية تسجيل ردك بصيغة gif ومن ثم رفعها على المنتدى ؟؟
×
×
  • اضف...

Important Information

  I accept