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

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

كن في الحياة كشآرب القهوة !.. يستمتع بهــا رغم سوآدها ومرآرتهآ وتذكر قول الخشب للمسمار: لقد كسرتني وألمتني فرد المسمار قائلاً : لو كنت رأيت الدق فوق رآسي لكنت عذرتني فليعذر النآس بعضهم البعض فكل شخص لآيعرف ظروف الآخر إذآ إستمريت بـ هذه الحسآسية الزآئدة . . والحزن علي كل تصرف , فـ إنك ستحوّل حيآتك إلي جحيم ! تذكَر .. أن النآس تختلف في تفكيرهآ وطبآعهآ فما ترآه أنت جآرحاً .... قد يرآه غيرك أمراً تآفهاً هنآك موآقف مؤلمة قد تتعرض لهآ ولكن , إلي متي تجتر الموقف وتقف عليه ! إن أصآبك الألم ! عشه في لحظته .. ثم تجآوزه وكآفح من أجل تجاهله أشغل نفسك .. تنآسآه حتي يغيب عن ذآكرتك ! إحفظ لسانك أيها الإنسان لا يلدغـنـّك .. إنه ثعبان فكم في المقابرمن قتيل لسانه كانت تهاب لقاءه الشجعان وإذا حار أمرك في معنيين ولم تدرِ أين الخطا والصواب فخالف هواك فإن الهوى يقود النفوس إلى ما يعاب ولا تحاسب النآس عندما يخطئوآ ولا تذهب لغيرهم لتشكوا منهم .. لسانك لا تذكر به عورة امرئ فكلك عـورات وللــناس ألـســــــن وعينك إن أبدت إليك من الناس مساوءً فقل يا عيني للنـاس كذلك أعين واقضى حاجة المحتاج حتى لو كان اليك مسيئاً فأفضل الناس مابين الورى رجل تقضى على يده للناس حاجات لا تمنعن يد المعروف عن أحد ما دمت مقتدرا فالسعد تارات واشكر فضائل صنع الله إذ جعلت إليك لا لك عند الناس حاجات مهما إختفت من حياتك أمور ظننت أنها سبب سعادتك ! تأكد أن اللـه صرفها عنك قبل ان تكون سبباً في تعاستك عليك بتقوي الله ان كنت غافلاً أنظر لحالك كيف تعصاه ويأتيك بالارزاق من حيث لا تدري فكيف تخاف الفقر والله رازقاً فقد رزق الطير و الحوت في البحر و من ظن ان الرزق يأتي بقوة ما اكل العصفور شيئاً مع النسر تزول عن الدنيا فانك لا تدري اذا جنّ عليك الليل هل تعيش الي الفجر فكم من صحيح مات من غير علة و كم من سقيم عاش حيناً من الدهر وكم من فتي امسي و اصبح ضاحكاً وأكفانه في الغيب تنسج وهو لا يدري فمن عاش الفاً و الفيـــــــــــــن فلا بد من يوم يسير الـــــي القبـــــــــــر صافح وسامح .. ودع الخلق للخالق .. {فأنت****** .. وهم****** ..ونحن****** .. كلنا راحلوون إفعل الخير مهما استصغرته .. فلآ تدري أي حسنة تدخلك الجنة

بيان الأرباح والخسائر.xlsm

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

اعرض الملف الاتصال بالجداول الخلفية لقاعدة بيانات او اكثر من قاعدة والتنقل بينهم السلام عليكم ورحمة الله تعالى وبركاته اهديكم واضع بين اياديكم هذا المثال والذى من خلاله يتم الارتباط بقاعدة / او عدة قواعد خلفية دفعة واحدة والتنقل فيما بينهم برمجيا آلية العمل -عمل اختبار للاتصال بالقاعدة الخلفية وإذا فشل الاختبار ينتقل للمرحلة التالية - البحث اليا عن المجلد الاصلى بجوار قاعدة البيانات الامامية فى حالة وجوده يرتبط اليا بجميع القواعد بداخله بمجرد الموافقة على ذلك من خلال الرسالة أو يمكنك تغير المسار للبحث بنفسك واحضار قاعدة الخلفية او القواعد إن زاد عددهم عن واحدة بمجرد اختيار المجلد الموجودة به -المرجلة التالية هى تأكيد واختيار القاعدة /أو القواعد والتى تخص هذه القاعدة الأمامية -المرحلة التالية بعد تأكيد اختيار القواعد فى هذه المرحلة والأخيرة نختار القاعدة التى نتصل بها وان كانت تحتوى على كلمة مرور نكتبها فى المكان المخصص لذلك وهنا على سبيل المثال قاعدة الخلفية ArchivingTables2018 تم عمل باسورد لها للتجربة وهو 2018 اما القاعدة ArchivingTables2019 لم يتم عمل باسورد لها وكما تشاهدون فى الصورة تم التنقل بكل سهولة وبكل اريحية بين القاعدتين هناك ميزة اخرى ولكن لم استطع تجربتها وهى الاتصال كذلك بجهاز كمبيوتر اخر والذى يحتوى على قاعدة الخلفية فى حالة الشبكة المحلية وذلك بكتابة اسم مستخدم الجهاز كلمة المرور المخصصة للاتصال بالجهاز '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' _ +--officena------oOo-------oOo--------+ _ ' ' /o)| |(o\ ' ' / / | منتــديات اوفسيـنا | \ \ ' ' ( (_ | _ _ | _) ) ' ' ((\ \)+-/o)----oOo----oOo---------------(o\-+(/ /)) ' ' (\\\ \_/ / \ \_/ ///) ' ' \ / \ / ' ' \____/ \____/ ' ' ===============================oOo----oOo============ ' ' ----{ By Mohammed Essam )---- ' ' ----{ www.officena.net/ib/profile/129737-ابا-جودى )---- ' ' ======================oOo-------oOo================== ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' فى انتظار تجربتكم وابداء آرائكم القيمة وأبداعاتكم بأفكاركم الرائعة ☺ Automatically relink Access tables.rar Automatically relink Access tables.zip صاحب الملف ابا جودى تمت الاضافه 31 مار, 2019 الاقسام قسم الأكسيس

عليكم السلام تفضل .. تم التصرف في مسميات الحقول في الجدول لازالة المسافات الفارغة DELETE * FROM table1 WHERE key NOT IN ( SELECT min(key) FROM table1 GROUP BY FirstName, Address2) حذف السجلات المكررة.mdb

تفضل اخى الكريم Project.rar

شرفت بمرورك ابو ياسين طريقة وضع الشرط في حدث مربع النص افضل لا شك فيما لو اردنا التحكم بالضوابط ونريد ان نجعل مربع النص اكثر مرونة فمثلا يمكن ان نستدعي هذه القيم من جدول If i > 17 Or z = "BR5" Then

شكرا لك أخي كثيرا كثيرا كثيرا كثيرا كثيرا ورحم الله والديك وأدخلهم الجنة ان شاء الله وادا اردت أيضا اضافة احرف أخرين "BR5" و "BR3" و "BR4"

اجابه في الصميم استاذي ابو خليل بارك الله فيك

السلام عليكم تم التعديل على المعادلات حسب الشروط التي ذكرتها (مع إعطاء التقدير "أقل من المتوقع" لكل طالب لا يحقق على الأقل أحد هذه الشروط)... بن علية حاجي التقديرات حسب الجدول.xlsx

مطلوبك مفهوم رعاك الله ايضا تريد الارقام والحروف ان لا تزيد عن 17 ولتفهم عزيزي ان الحقل الظاهر في الصورة يسمى : قاعدة التحقق من الصحة وليس قناع ادخال المهم انا سألتك ان كنت تريد تطبيق الضوابط حسب طلبك بغض النظر عن الوسيطة ولكن يبدوا انك لم تفهم ما اقصده ؟ وعلى كل حال واختصارا للوقت هذا الكود يحقق مطلبك : Dim z As String Dim i As Integer i = Len(Me.text1) z = Left(Me.text1, 3) '++++++++++++++++++++++++++++++ If i > 17 Or z = "BR5" Then Undo MsgBox "تأكد من ادخال البيانات بطريقة صحيحة" Exit Sub End If وهذا تطبيق : منع كتابة حروف2 .mdb

تم التعديل على الملف اتمنى ان يكون هذا هو المطلوب العقود31.xlsm

أحسن الله إليك وبارك فيك أخي الكريم علي

أحسنت أستاذ محمد بارك الله فيك عمل رائع وعودا حميدا جعله الله في ميزان حسناتك

فيديو شرح استخدم اكثر من شرط لتحقيق قيمة محددة باستخدام دالة if مع دالة and

الاستاذ : حاتم عيسى .... والاستاذ : عبدالله الصاري

بعد اذن الاستاذ محمد هذا المغادلة البسيطة بدون تلك الشروط المتكررة =VLOOKUP(B3,{0,"Weak";15000,"Good";20000,"Excellent"},2) الملف Without IF.xlsx

صاحب الصالحين فإنهم إذا غبت عنهم (فقدوك) وإذا غفلت (نبهوك)وإذا دعوا لأنفسهم (لم ينسوك) هم كالنجوم: إذا ضلت سفينتك في بحر الحياة (أرشدوك)

استاذنا / المهندس / محمد عصام سوف اجرب اليوم في مكان العمل مع اني متأكد من وجود ابداع جديد من ابداعات ابا جودي زادك الله من علمه . حبيت ان اكون من اول متابعي ابا جودي

السلام عليكم وجدت ملف صاحبه عبد الباري البنا اعتقد به جزء كبير مما تطلب وبه نفس المواد حاول ان تعدل عليه برنامج النتيجة.xls

____ _ __ _ ____ |####`--|#|---|##|---|#|--'##|#| _ |____,--|#|---|##|---|#|--.__|_| _|#)_____________________________________,--’Mohammed_Essam'_=-. ((_____((___________officena___________,--------[JW](___(____(____(_==) _________ .--|##,----o o o o o o o__|/`---,-,-'=========`=+==. |##|_Y__,__.-._,__, __,-.___/ J \ .----. |##| |##| `-.|#|##|#|`===l##\ _\ |##| |_|__|_| \##`-"__,=======. |##| \__," '======' ☺ ممنوع النسخ يمكنك نسخ نموذج ازرار الانتقال الى اى قاعدة ووضعه نمو1ج فرعيا وسيعمل على الفور ان شاء الله navigation buttons.mdb

اتفضل استاذي الفاضل المحترم الملف يعمل بكل ما فيه لعمل النموذج المطلوب . بحث(1).xlsm

اخي العزيز لم تظهر لي المشكلة كما ظهرت لك والبحث شغال بالاسم وكذلك الرم الوطني ربما اصدار الاوفيس يختلف جرب التعديل التالي بحث.xlsm

العفو

تفضل يمكن لك تغير رقم العمود في الكود الموجود في حدث الورقة 1 كذلك يمكن لك الاستفادة من الكود في حدث الورقة 2 Hany.xlsm

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

الحمد لله ان تم المطلوب على خير

برجاء الرد للاهمية

وعليكم السلام 🙂 تفضل: Private Sub Command24_Click() ' مفتاح اضافة موظف اخر لنفس القرار Dim strSQL As String Dim intHow_Many As Integer strSQL = "[KararNom]='" & Me.KararNom & "'" strSQL = strSQL & " And [KararYear]='" & Me.KararYear & "'" strSQL = strSQL & " And [CompID]=" & Me.CompId intHow_Many = DCount("*", "TblKararat", strSQL) If intHow_Many > 0 Then MsgBox "لقد تم تسجيل هذا الموظف مسبقا" Exit Sub End If DoCmd.RunCommand acCmdSaveRecord Dim x As Integer If MsgBox("تم اضافة وحفظ بيانات الموظف للقرار بنجاح. هل تريد اضافة موظف لنفس القرار؟", vbYesNo, "تنبيه") = vbYes Then Dim N, Y, F N = Me.KararNom: Y = Me.KararYear: F = Me.KararFrom DoCmd.GoToRecord , , acNext Me.KararNom = N: Me.KararYear = Y: Me.KararFrom = F Me.CompId.SetFocus Else DoCmd.RunCommand acCmdRecordsGoToNext Me.KararNom.SetFocus End If End Sub جعفر

السلام عليكم أخي مراد تفضل المرفق إن شاء الله أكون تفاديت هذا الخطـأ فاتورة جديدة7.rar