علي المصري

قمت بتجربته الآن يعمل بشكل جيد اما بعد عمل حماية للورقة وجدت الكود لا يعمل ولكنه لا يعمل ارجو الافادة والتعديل شكرا

شكرا لكم وجدت كود في المشاركة http://www.officena.net/ib/index.php?showtopic=36867&page=14#entry308921 وقمت بتعديله ليخفي ويظهر الصفوف ولكني لم اجربه بعد في حالة حماية الورقة وسوف ادخل االى المشاركة التي اشرت لها اخي الكريم واتابع معكم شكرا جزيلا

شكرا جزيلا على هذا الكود الرائع بعد اذن حضرتك عملت تعديل على الكود بحيث يخفي الصفوف الفارغة - أو يظهرها مرة أخرى Sub ss() Application.ScreenUpdating = False For i = 5 To 100 If Mid(Cells(i, 1), 1, 1) = "" Then Cells(i, 1).Value = "" End If Next i Range("A5:A100").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Hidden = True Range("A1").Select Application.ScreenUpdating = False End Sub Sub ss2() Application.ScreenUpdating = False For i = 5 To 100 If Mid(Cells(i, 1), 1, 1) = "" Then Cells(i, 1).Value = "" End If Next i Range("A5:A100").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Hidden = False Range("A1").Select Application.ScreenUpdating = False End Sub ss اخفاء ss2 اظهار شكرا إخفاء وإظهار الصفوف التي الفارغة.rar

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

شكرا اخي الكريم جاري التحميل

قمت بعمل ملف يحتوي على الكثير من الصفوف بحيث يكون أول عشر صفوف لنوع معين من المدرسين وعشرة اخرى لنوع اخر وهكذا ةلذلك يتبقى عندي صفوف فارغة فقمت بعمل ماكرو لاخفاء هذه الصفوف ولكن هناك مشكلة في ماكرو لاخفاء الصفوف الفارغة حيث عند حماية الشيت لا يعمل الماكرو فهل من طريقة اخرى لاخفاء الصفوف الزائدة حتى اثناء حماية الشيت لكم مني كل حب وتقدير اخوكم : على المصري

ما زلت ابحث عن هذا الكود

شكرا جزيلا عمالقة المنتدى

ممتاز طريقة الحوار .......... فهي التي تقود دائما إلى النجاح

شكرا لكل من ساهم او سيساهم في هذا المنتدى العملاق

شكرا اخي الكريم هل يمكن التعديل بحيث يكون هذا الامر بمجرد تشغيل الاكسيس تظهر رسالة تفيد أي من الطابعات التالية تريها افتراضية 1 2 3 وبعد الاختيار تبدأ قاعدة البيانات بالعمل شكرا

جزاك الله خير ابا خليل

السلام عليكم ورحمة الله وبركاته سؤال للعمالقة : هل يمكن عمل كود بحيث يجعل الطابعة الافتراضية هي طابعة ليزر قبل البدء بعملية الطباعة يعني مثلا : انا عامل الطابعة الافتراضية هي Deskjet 1400 والمطلوب من الكود في حالة تشغيل الاكسس يقوم بعمل إحدى الطابعات الليزر المثبته على الجهاز هي الافتراضية - او يظهر مربع حواري يمكنني من اختيار الطابعة التي اريدها من الطابعات الليزر وعند غلق الاكسس ترجع الطابعة الافتراضية السابقة سؤال يحتاج دراسة فهل من مجيب ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

سوف اعمل به وارى يعطى نتائج سلبية على هذا التعديل ام لا

شكرا جزيلا ابا عمر فعلا هذا ما كنت اريده ولكني دمجت الوحدة النمطية مع امر الزر ليصبح امر واحد لا يعتمد على الوحدة النمطية بخاصية call واصبح امر الزر كما يلي Private Sub ÃãÑ0_Click() DoCmd.OpenReport "r_x", acViewPreview On Error GoTo ErrorTrap DoCmd.RunCommand acCmdPrint DoCmd.Close acReport, "r_X" ErrorTrap: If err.number = 2501 Then DoCmd.Close acReport, "r_X" Else MsgBox err.number & vbCrLf & err.Description End If End Sub ودا بعد اذنك طبعا شكرة مرة اخري

تجد الحل على الرابط بسم الله توكلت على الله ومرفق الملف الخاص بك بعد اجراء تعديل باستخدام الكود الموجود بالرابط ادناه حيث تم ادراج مربعات نص في تزييل الصفحة وتسميتها كالتالي txt1 SumTow SumThree SumFour SumFive لاستخدامها في الكود salary1.rar

شكرا ولمن هذا الاختصار يستخدم عندما يكون التقرير مفتوح بالفعل اما ما اريد هو عند الضغط على زر الامر يظهر مربع حواري به اسماء الطابعات ثم اختار منها للطباعة

انا عامل برنامج لطباعة الملصقات حيث تكون الورقة A4 مقسمة إلى 8 أجزاء أو 16 جزء ( ملصق ) ولكن صادفتني مشكلة عند نقل الملف على جهاز آخر عند الطباعة يكون آخر جزئين انتقلا للصفح التالية والآن أعمل على التصحيح كما انني اريد كود للطباعة بحيث عند الضغط على زر الطباعة يظهر مربع حواري به اسماء الطابعات الموجودة على جهازي ومن ثم اختار منها لكم جزيل الشكر حيث يرجع الفضل لتعلمي الاكسيس لله أولا ً ثم موقعكم الكريم والاخوة الافاضل اعضاء المنتدى 16 Lable Arabic & English-.rar

انا عامل برنامج لطباعة الملصقات حيث تكون الورقة A4 مقسمة إلى 8 أجزاء أو 16 جزء ( ملصق ) ولكن صادفتني مشكلة عند نقل الملف على جهاز آخر عند الطباعة يكون آخر جزئين انتقلا للصفح التالية والآن أعمل على التصحيح مرفق 16 Lable Arabic & English-.rar

شكرا لك اخي الكريم

جربت الكود بالطريقة التالية =IIf(([Test1]>10 & [Test2]>10 & [Explor]>15 & [Invest]>15);"لا توجد لدى الطالب أداة ضعيف بها مع تمنياتي له بالتوفيق والتفوق";" " المطلوب من الكود إذا كان الاختبار الاول اكبر من 10 والختبار الثاني اكبر من 10 وexplor اكبر من 15 و invest اكبر من 15 تظهر الجملة الموضحة وإلا يترك مربع النص فارغ فكيف يكون التعديل لها لتعمل بشكل صحيح

شكرا لك استاذ عبدالله تصفحت موضوع الاخت زهرة وتمت الاستفادة منه وقمت بعمل التالي السلام عليكم ورحمة الله وبركاته عمل ممتاز اختنا زهرة - بارك الله فيك بعد اذنك : اضفت التالي ليتماشى مع اوفيس 2010 و 2013 ElseIf Version = "14.0" Then strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Access\Security", "VBAWarnings", 1) ElseIf Version = "15.0" Then strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\15.0\Access\Security", "VBAWarnings", 1) ولكن المشكلة تكمن في التالي عند استخدام الكود يتم الاحتفاظ بوضع الامان منخفض دائما هل يمكن عمل كود عند غلق الاكسيس يرجع الامان إلى ما كان عليه قبل فتح قاعدة البيانات التي تحوي هذا الكود شكرا

السلام عليكم ورحمة الله وبركاته عمل ممتاز اختنا زهرة - بارك الله فيك بعد اذنك : اضفت التالي ليتماشى مع اوفيس 2010 و 2013 ElseIf Version = "14.0" Then strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Access\Security", "VBAWarnings", 1) ElseIf Version = "15.0" Then strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\15.0\Access\Security", "VBAWarnings", 1) ولكن المشكلة تكمن في التالي عند استخدام الكود يتم الاحتفاظ بوضع الامان منخفض دائما هل يمكن عمل كود عند غلق الاكسيس يرجع الامان إلى ما كان عليه قبل فتح قاعدة البيانات التي تحوي هذا الكود شكرا

السلام عليكم ورحمة الله وبركاته لدي سؤال محيرني من فترة وهو هل يمكن تغيير إعدادات الماكرو تلقائيا مع بدى عمل قاعدة البيانات أم لا ؟ شكرا

ظهور كلمة خطأ # خطأ في الدالة =DLookUp("Nom";"Club") المفروض عمل هذه الدالة البحث عن الاسم في جدول اسمه club ولكن الجدول المشار اليه غير موجود في قاعدة البيانات والله اعلم