نجوم المشاركات

لا بل تقدر جلب مجموعە قیم من استعلام الى استعلام اخر لكن نحن نحتاج لقاعدة مصغرة بها استعلام الاساسي وايضا نحتاج نعرف ما تريد ان نخرج منه الى استعلام اخر .. اي وضح لنا ماتريد مع تقدير

برنامج_مخازن_جديد.xlsm

السلام عليكم ورحمة الله هذا المعيار نضيفه شرطا في معادلات العمود A من شيت البيانات لترقيم نوع الشهادات المراد استخراجها (مع العلم أن المعايير التي ذكرتها موجودة أيضا في هذه المعادلات)... أما الكود فيقوم فقط بطباعة الشهادات المحددة بهذه المعادلات... سأحاول بإذن الله أن أشرح كود الطباعة خطوة خطوة تبعا لهذه المعادلات... أخوك بن علية

وعليكم السلام شكرا لك أخي شوقي جعفر

وعليكم السلام هذا البرنامج يؤدي الكثير من الاشياء للأكسس ، ومنها طلبك: http://www.skrol29.com/us/vtools.php جعفر

يمكن ذلك لكن بدون استعمال الامر Select او Activate او اي من الاوامر التي تقتضي ان تكون الشيت غير مخفية جرب هذا الكود بعد اخفاء الشيت 2 Sub workking_with_hidden_sheet() Dim i% For i = 1 To 50 Sheets("sheet2").Range("a" & i) = i Next End Sub

ونعم تستطيع ان تجلب قيم استعلام الى استعلام آخر ، و أحد هذه الطرق هي: ان تفتح الاستعلام الآخر في وضع تصميم ، ثم تجلب الاستعلام Nataej_1_Cors2_E الى الاستعلام المفتوح ، ثم تربط الحقل Taslal2 بحقل مساوي له من الاستعلام الآخر ، بهذه الطريقة انت اخبرت الاستعلام ان المعيار في ربط الاستعلامين هي قيمة الحقل Taslal2 وما يقابلها من الاستعلام الآخر ، وتستطيع حينها ان تضع الحقل الذي تريده من الاستعلام Nataej_1_Cors2_E وسط الحقول الاخرى. العمل اسهل من هذا الشرح بكثير المعادلة التي اعطيتك ، ستكون لحقل واحد ، ولكن لجميع السجلات. واعتقد انه سيكون اسهل لو ترفق برنامجك وتشرح فيه الحقول ، وتعطينا صورة عن النتيجة التي تريدها جعفر

pic.rar

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

وعليكم السلام اذا عندك 10 سجلات مثلا ، فكيف ستأخذ قيمة من السجل رقم 4 مثلا؟ المعيار سيكون وسيلتك لتصفية هذا السجل ، او معيارين مثل ID=4 او fName='جعفر' المعادلة هذه نستخدمها عادة لأخذ قيمة من جدول ، ولكننا نستطيع استخدامها لأخذ قيمة من استعلام كذلك ، كما هو الوضع في حالتك جعفر

تفضل هذا التعديل: حساب الوقت.rar

وعليكم السلام احد الطرق: dlookup("[Taslal2]","Nataej_1_Cors2_E", ....هنا يأتي المعيار....) جعفر

لا يوجد شرح للموضوع ، والشرح التالي لا يدل على المطلوب رجاء فتح موضوع آخر به معلومات كافية ، حتى يستطيع الاعضاء فهم الموضوع ، وبالتالي الاجابة عليه. يُغلق. جعفر

السلام عليكم استعمل هذا الكود في حدث بعد التحديث لمربع نص البدء و مربع نص القفال: If DateDiff("n", Me.بدء_البلاغ, Me.اغلاق_البلاغ) < 30 Then Me.type_sortie = "خروج عادي" Else Me.type_sortie = "متأخر" End If و هذا هو المرفق حساب الوقت.rar

ممكن تضع مرفق للتغيير عليه On Error GoTo err: DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acNewRec Exit Sub err: If err.Number = 3022 Then MsgBox "الرقم الذاتي مكرر", vbCritical + vbMsgBoxRight, "خطأ" Else MsgBox err.Description End If او قد يستطيع هذا الكود لمعالجة الخطأ مساعدتك لكن يفضل وجود مرفق

استغر الله نحن في خدمتك

نعم استاذنا @محمدنجار انا معك انت عطيته كود مناسب لكن هو استخدمت مع كودك كلمة ( and ) بدل کلمة ( or ) ھناک کان قصدی باستاذ @اسلام سيد وليس ب حضرتك تقبل تحياتي

:: استاذنا وخبيرنا @Shivan Rekany لك الاذن هو قال العبارة " اريد عند اختيار نوع الفاتورة (بيع أو مرتجع بيع ) حقل السعر = حقل سعر البيع وخلاف ذالك، حقل السعر = سعر الشراء " وقمت بوضع الكود بذلك بناءا على طلبه ... عموما شكرا لك You Save me

اتفضل انا عملت لك مشاهدة تلقائي خلال 3 ثواني تقدر تتغيره Pictures1.rar

السلام عليكم ورحمة الله وهذا ملف ثلاث شهادات بالتعديلات الجديدة.... بن علية حاجي ثلاث شهادات.rar

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

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

الشكر كله لله

Dim a As Single a = MsgBox("هل تريد الانتقال الى النموذج التالي", vbMsgBoxRight + vbYesNo, "تنبيه") If a = vbYes Then DoCmd.Close DoCmd.OpenForm "اسم النموذج التالي" End If

تفضل اخى فورم للترحيل هذا ما تعلمته هنا من اساتذتى نموذج.rar

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

وعليكم السلام أخي الكريم أبو عمران أهلاً بك في المنتدى ونورت بين إخوانك إن شاء الله أعمل على موضوعك غداً إذا لم يتدخل أحد الأخوة الكرام تقبل تحياتي

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

السلام عليكم ورحمة الله وبركاته أرجو من أساتذتي الأفاضل التعديل على النموذج المرفق {{ فورم_باسوورد_صلاحيات_المستخدمين-احمد يعقوب.zip }} حيث أنه عند الدخول بدون أدخال البيانات يدخل أريد بأن لا يقبل الدخول الا بعد أن يتم أدخال اسم المستخدم وكلمة المرور وشكراً .

تم تحميل البرنامج برنامج ممتاز

ان شاء الله استطيع المساعده بما لدى من معلومات ☺ لا اريد اى اموال فقط لوجه الله عزوجل عسى الله ان ينفعنا بما علمنا ويجعله حجة لنا يمكننا البدء والتعلم هنا من خلال هذا الموضوع حتى تعم الفائده للكل ان شاء الله

السلام عليكم يمكنك اخي الكريم ارفاق الملف الذي وجدته بالمنتدي ويمكن لخبراء منتدانا الرائع التعديل عليه كما تريد ان شاء الله واليك ملفان الاول للاستاذ / احمد يعقوب فكرة الحماية في هذا الملف هي كـ التالي عندفتح الملف الإكسل يتم اخفاء كل اوراق الملف ويظهر الفورد الخاص بادخال البيانات بتم ادخال رقم الموظف و اسمه و الرقم السري له اذا تطابقت البيانات الثلاثة لما نحن مسجلينه في ورقة OPTION يتم اظهار الأوراق المحددة امام اسم الشخص في ورقة OPTION ثم يتم تسجيل اسم المستخدم و يوم و ساعة الدخول = = = = = = = = = ادخل الى ورقة OPTION حدد ارقام و اسماء و الإرقام السرية وامام كل اسم حدد اسماء الأوراق التي تريد ان تسمح للمستخدم بالدخول لها فس كل مرة سوف يتم الدخول للمستخدم للأوراق التي حددتها له فقط و غير ذلك لن يستطيع الدخول لها هذه ارقام و اسماء و كلمات السر الموجودة حاليا بالملف 1 - عبدالله 1 - 1 2 - عبدالله 2 - 2 الملف الثاني : فهو للعبقري الاستاذ / الحسامي باسورد الدخول : 1111 علها ان تنفع معك اخي الكريم فورم_باسوورد_صلاحيات_المستخدمين-احمد يعقوب.zip صلاحيات-الحسامي.rar

تم عمل المطلوب في المرفق نموذج دخول بصلاحيات اوراق العمل الاصدار الثاني.rar

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

و هذه محاولة اخرى تلبية لطلب اخي الحبيب الدغيدي و اعتذر للتأخير لظروف العمل كلمة المرور.rar

بارك الله فيك اخي ابا احمـد والشكر موصول لأخينا الفاضل دغيدي وتبقى لى فورم الادخال اذا تكرمت ST3 (version 2).rar

بسم الله الرحمن الرحيم بعض الاعمال السابقة دوال دالة ( VLOOKAnyCol ) تبحث فى اى عمود من الجدول وتستخرج النتيجة من آخر دالة VLOOK2ALL لإستخراج كل حالات البحث دالة VLOOKON بلا حدود تبحث فى عدة جداول دالة تجزئة الاسماء و الارقام دالة "IFYES" اقوى واسهل من "IF" مع احتمالات اكثر دالة اتخاذ القرار ( Resolve ) لتقيم التقديرات و المعدلات والنسب ادوات ذكية استرجاع اعدادات الاكسل الاصلية التخلص من علامات خطأ المعادلات نسخ الاكواد من ملف الى ملف أداة تحويل صيغ المعادلات الى اكواد مصباح علاء الدين للبحث اقوى دالة بحث الحلول الذكية و شريط الادوات الذكية التحكم بأشرطة الادوات والقوائم المنبثقة تلوين السطور الفردية أو الزوجية إكسيل كاميرا برامج واكواد كيفية الحصول على سريال نمبر الهارد ديسك الباحث الشامل اعداد الجدول الزمنى للمشروعات ( مخطط جانت ) إنشاء قوائم منسدلة مرتبطة متعددة المستويات تصدير مدى محدد الى الوورد حل مشكلة عدم ظهور اكثر من 1000 سجل فى قوائم التصفية التلقائية إستخراج النتائج بشرطين صيغة ظريفة سلسلة كيف تدرج دالة فى الاكسل لتكون متاحه لكل الملفات بإنشاء ملف ( AddIn ) يحتوى على دوالك الخاصة منع حفظ الملف بأسم آخر زيادة عملية التراجع و الإعادة ( Undo / Redo ) في الاكسل أكثر من 16 مرة اكسيل 11 كشـف تـوزيـع فئـات النقـديـة كشـف صـرف النقـديـة بالفئـات المتـاحـة إستيراد وتصدير جدول إكسيل من وإلى الأكسيس صمم توقيعك الخاص او علامتك المائية لملفاتك الخاصة كود الدوائر الحمراء والاحرف الخاصة لدرجات الطلاب نموذج طباعة الشهادات المدرسية مع دوائر الارقام برنامج طباعة الشهادات للمرحلة الابتدائية_1 برنامج طباعة الشهادات للمرحلة الابتدائية_2 برنامج طباعة نماذج الشهادات للمرحلة الاعدادية قائمة منسدلة تفلتر مع الاحرف او الاسماء المحددة برنامج حفظ بيانات الشيكات والبحت عنها اكواد و اوامر ( VBA ) مفيدة القائمة المنسدلة المرتبطة بقوائم متعددة المدى او النطاق ( ثابت / ديناميكى ) الارقام العشوائية بدون تكرار البوم للصور والمعروضات, بدون حدود ***** ***** ***** ***** *****