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

السلام عليكم ورحمة الله وبركاته اريد ان اهدى هذه الهدية الى من يحتاج له الى كل اساتذي في المنتدى الى كل عضو وهو نموذج بسيط لكي يغير في دقة الشاشة عند فتح البرامج و عند اغلاقه اي بإمكان ان نغير سكرين ريليشن عند فتح النموذج الاول من البرامج وعند اغلاق البرامج يرجع سكرين ريليشن اي دقة الشاشة الى وضعه الطبيعي لا اريد ان اطول عليكم اتفضلوا مع القاعدة ChangeAndGetScreenResolution.rar ChangeAndGetScreenResolution2003.rar

ممتاز سنزيد حقل للمرحلة وما دامت البيانات محفوظة في جداول اكسل فهذا يعني اختصار 99% من الجهد والوقت مسالتك ليست بحاجة لتحليل ولا علاقات ابدأي على بركة الله .. واعملي جدولك وارفقيه هنا للمتابعة والتوجيه وارفقي معه عينة من مصنف اكسل ان اردت ان استمر بالمتابعة فاعملي على اصدار 2003

شوف هذا هل هذا هو مطلبك Database3.rar

هذا مثال في البحث للأخ منتصر الانسي ارجو ان تستفادوا منه بحث.rar

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

عليكم السلام الاساسات المطلوبة جدول واحد فقط معرف الطالب/أسم الطالب / رقم الجلوس / النتيجة / التقدير/ الدور / العام الدراسي بعد تعبئة هذا الجدول بالبيانات تستطيعون البحث واستخراج المطلوب البحث / عن طريق نموذج استخراج النتائج / في تقرير

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

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

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

السلام عليكم لدى قاعدة بيانات فيها حقل تاريخ الميلاد يليه 3 حقول تحسب السن فى أول أكتوبر يوم شهر سنة كيف نجعل الحقول الثلاثة الأخيرة تحسب تلقائيا بدون تدخل المستخدم؟ بمثال لو سمحتم بارك الله فيكم

فى اغلب الاحيان عندما يكون لديك برنامج او تقرير مصمم بالاكسيل فلابد ان تقوم بحمايتة ويوجد اكثر من مستوى حماية فى الاكسيل - الحماية على مستوى ورقة العمل worksheet -الحماية على مستوى المصنف workbook -الحماية على مستوى الخلية cell -الحماية لمحرر vba - اذونات مستخدمين محددين ------------------------------ والان سنتناول موضوع الحماية على مستوى ورقة العمل worksheet الخطوات: 1. انقر فوق علامة التبويب اختار Review ➪ Changes 2- Protect sheet حماية ورقة العمل 3. مربع الحوار "ورقة الحماية" ادخل كلمة المرور الباسورد 4. جعل الخلايا مؤمنة locked cells او غير مؤمنة Select unlocked cells يتيح لك مربع الحوار ورقة الحماية إمكانية تعيين قدرات للمستخدمين عن طريق التحقق من تلك الخيارات التي تريد منحها، مثل القدرة على تنسيق الخلايا أو إدراج الصفوف و الأعمدة.. 5. موافق 6.اكد كتابة كلمة المرور ولتكن 123 7. اضغط موافق حاول تغيير او إضافة اى شيء في الورقة . ------------------ هذا هو الموضوع الاول لاتنسونا صالح دعاؤكم محمد الريفى

اخى العزيز الاستاذ الحبيب / شوقى ربيع قصد ان تغير فى خصاص الـ Textbox وتغيير خاصية الـ passwordCher بوضع * أو اى رمز اخر ليظهر بدلا من الحروف ويمكن اخى ترفق الكود وان شاء الله يتم عمل ما تريد

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

آمين .. ولك

ارأيت ! حقل Coupon لا يوجد في جدول Workplaces على كل حال وبناء على محاولاتك في الاستعلام تفضل تم التعديل اتمنى يكون هو مطلوبك Db12.rar

ربي يحفظك اخي ابراهيم انتم دائما في القلب فقط ضروف الدنيا التي تبعدني عنكم تحياتي وتقديري لك

اخى واستاذى شوقى فينك يا اخى من زمان ما بنشوفك وحشتنا ووحشتنا مواضيعك ومشاركاتك الجميله تقبل تحياتى

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

السلام عليكم ورحمة الله وبركاته طرق الاهلاك باستخدام دوال الاكسيل هام للمحاسبين ورؤساء الحسابات والمديرىن الماليين لاتنسونا بصالح دعاؤكم تحميل الملف http://excelfinancial1.blogspot.com.eg/2017/04/blog-post.html

اسف على كثرة الاسئلة لكن بعد مش واضحة مطلبك قلت في وقت محدد ما قصدك بالوقت المحدد ممكن توضح لي اكثر

اتفضل استخدمت هذا الكود Private Sub طلب_التوريد_BeforeUpdate(Cancel As Integer) If DLookup("[الحالة]", "[طلب توريد]", "[رقم طلب التوريد]=" & Me.طلب_التوريد) = True Then MsgBox "رقم طلب التوريد مقفل" Cancel = -1 End If End Sub الفاتورة (1).rar

كل الشكر استاذ سليم ( الله لا يحرمنا من علمك )

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

بأي شرط في اي وقت محدد اي نوع من البيانات تريد

اخي الغالي الخلوق ا/ محمد الريفي تسلم ايديك وجزاك الله خيرا مع تحياتي واحترامي

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

اخي الفالح غير اسماء الجداول الى الاحرف الانجليزية مع اسماء الحقول كذلك في القاعدة الاصلية ومن ثم اعمل استيراد تحياتي

جرب هذا استخدمت هذا الكود Private Sub أمر150_Click() On Error Resume Next If DLookup("الرصيد", "asd", "[NoEmp]=" & Forms![اسماء العملاء]![Text155]) <> 0 Then MsgBox ("لا يتم الحذف لان عنده " & " ( " & Forms![اسماء العملاء]![Text157] & " ) " & "باقي من الرصيد") Exit Sub End If If MsgBox("هل انت متأكد من حذف بيانات العميل", vbYesNo) = vbYes Then Forms![اسماء العملاء]![تابع132]![NaEMP] = "" Forms![اسماء العملاء]![تابع132]![SAL] = "" Forms![اسماء العملاء]![تابع132]![Alhdalmsmh] = "" Me.Refresh MsgBox "تم الحذف" End If End Sub تقبل تحياتي حذف بيانات اعميل بدون رقمه.rar

محمد الريفى اخى الفاضل جزاك الله خيرا

السلام عليكم أخي تفضل هذه هي الأكواد التي تحتاجها: 1- بالنسبة لحفظ المرفق بمكان معين في الكمبيوتر: Set db = CurrentDb Set rstable = db.OpenRecordset("tblFonts") Set rsfile = rstable.Fields("attach").Value rsfile.Fields("FileData").SaveToFile txtpath بحيث : txtpath هو مسار الحفظ و إذا أردنا فتح الملف بعد حفظه مباشرة نضيف هذا الكود: Application.FollowHyperlink txtpath & "\" & rsfile.Fields("Filename") 2- أما بالنسبة لفتح المرفق مباشرة فنستعمل هذا الكود: Dim db As DAO.Database Dim rsEmployees As DAO.Recordset Set db = CurrentDb Set rsEmployees = db.OpenRecordset("tblFonts") OpenFirstAttachmentAsTempFile rsEmployees, "attach" و نحفظ الكود التالي في وحدة نمطية جديدة: Public Function OpenFirstAttachmentAsTempFile(ByRef rstCurrent As DAO.Recordset, ByVal strFieldName As String) As String Dim rstChild As DAO.Recordset2 Dim fldAttach As DAO.Field2 Dim strFilePath As String Dim strTempDir As String strTempDir = Environ("Temp") ' Get the Temp directory from the environment variable. If Right(strTempDir, 1) <> "\" Then strTempDir = strTempDir & "\" ' Make sure the path always ends with a backslash. Set rstChild = rstCurrent.Fields(strFieldName).Value ' the .Value for a complex field returns the underlying recordset. strFilePath = strTempDir & rstChild.Fields("FileName").Value ' Append the name of the first (and only) attached file to temp dir. If Dir(strFilePath) <> "" Then ' the file already exists--delete it first. VBA.SetAttr strFilePath, vbNormal ' remove any file attributes (e.g. read-only) that would block the kill command. VBA.Kill strFilePath ' delete the file. End If Set fldAttach = rstChild.Fields("FileData") ' The binary data of the file. fldAttach.SaveToFile strFilePath rstChild.Close ' cleanup VBA.Shell "Explorer.exe " & Chr(34) & strFilePath & Chr(34), vbNormalFocus ' Use Windows Explorer to launch the file. End Function 'OpenFirstAttachmentAsTempFile و هذا ملفك بعد التعديل: fonts.rar

اهـــــــلا بك في منتـــــتداك منـــــتدى اوفـيـــســـــــــــــنا انت اجيت على مكان صح لكي تطرح سؤالك ونحن بخدمتك بقدر مستطاعنا اتفضل مع جواب سؤالك اي اتفضل مع مطلبك ما عملت شي لقاعدة بياناتك فقط اضفت هذا الكود Private Sub اسم_الانتاج_التام_AfterUpdate() Me.رقم_العميل = Forms![فاتورة انتاج تام]![رقم العميل].Value Me.التاريخ = Forms![فاتورة انتاج تام]![تاريخ الفاتورة].Value Me.رقم_المواد = Me.اسم_الانتاج_التام.Column(1) Me.سعر = Me.اسم_الانتاج_التام.Column(2) End Sub اليك قاعدة بياناتك بعد تعديل الفاتورة.rar

السلام عليكم الاخ الحبيب / محمد الريفى بارك الله فيك ملف جميل ومهم بالفعل جعله الله في ميزان حسناتك تقبل خالص تحياتي

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

استاذ محمد اقل شى يقال مبدع و اعمالك عظيمة جزاك الله كل خيراً

السلام عليكم جازاك الله خيرا اخي محمد الريفى وجعله في ميزان حسناتك تحياتي لك

شرح بالفيديو انشاء وعمل سيرة ذاتية باستخدام وورد 2016 - القوالب والنماذج template word 2016 How to Create a Resume, CV in Microsoft Word 2016 using templates شرح مفصل لاستخدام القوالب templates المتوفرة في معالج النصوص word 2016 لعمل وإنشاء سيرة ذاتية مميزة. رابط الفيديو https://youtu.be/Av2Or7Tw38g

وعليكم السلام ورحمة الله وبركاته فضلا مراجعة المرفق وتم استخدام الكود التالي Private Sub name_BeforeUpdate(Cancel As Integer) If DCount("[name]", "data", "[name]=[forms]![data]![name]") >= 1 Then MsgBox " هذا الاسم مكرر برقم " & DLookup("[id]", "data", "[name] = Forms![data]![name]") DoCmd.CancelEvent Me.Undo End If End Sub تحياتي db1_2.rar

جرب هذا الملف انشاء الله ينفع مبتداء جرب.rar

وعليكم السلام ورحمه الله وبركاتة اخوي قم بانشاء حقل في الجدول من نوع تاريخ و وقت ثم من خصائص هذا الحقل يوجد خاصية اسمها القيمه الافتراضية اكتب فيها هذا الكود: ()Date ثم من خاصية التنسيق اختر تاريخ عام او General Date ثم انشاء حقل جديد للوقت ثم من خاصية القيمه الافتراضيه اكتب الكود اعلاه ()Date ثم من خاصية التنسيق للحقل اختر وقت قصير او Short Time او ارفق مثالك للتعديل علية ان شاء الله اتضحت الفكره

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