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

فورم حساب السن وتاريخ الميلاد والنوع والمحافظة من الرقم القومى بناء على طلب زميل وان شاء الله نكمل باقى الطلبات لا تضع فى الفورم سوى الاسم والرقم القومى فقط الفيديو الصور الملف تاريخ الميلاد والسن والنوع من الرقم القومى.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