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

يمكنك ذلك بهذه المعادلة =COUNTIFS($C:$C,J5,B:B,"<>"&"") Book2.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة على الرغم ان طلبك تكرر كثير جداً وكان عليك البحث بالمنتدى قبل رفع مشاركتك =IF($B1=0,6,IF(AND($B1>=1,$B1<=39),5,IF(AND($B1>=40,$B1<=49),4,IF(AND($B1>=50,$B1<=69),3,IF(AND($B1>=70,$B1<=89),2,IF(AND($B1>=90,$B1<=100),1,"")))))) 1.xlsx

تفضل اخى حيث انك لا تحب القراءه والاطلاع هذه للاخوات https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=66031

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

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

بعد إذن حبيبنا أستاذ علي محمد علي يمكن اختصار المعادلة إلى هذه في الخلية C1 =IF(B1>=90,1,IF(B1>=70,2,IF(B1>=50,3,IF(B1>=40,4,IF(B1>=1,5,6))))) بالتوفيق

اتفضل يا سيدى SetMultiPrinter.accdb

هذا الكود يحضر لك قائمة بجميع الطابعات المنصبة في جهازك وبياناتها 🙂 تستطيع من خلال التعديل على الكود جعله يحفظ أسماء الطابعات في جدول خاص بها .. Sub ShowPrinters() Dim strCount As String Dim strMsg As String Dim prtLoop As Printer On Error GoTo ShowPrinters_Err If Printers.Count > 0 Then ' Get count of installed printers. strMsg = "Printers installed: " & Printers.Count & vbCrLf & vbCrLf ' Enumerate printer system properties. For Each prtLoop In Application.Printers With prtLoop strMsg = strMsg _ & "Device name: " & .DeviceName & vbCrLf _ & "Driver name: " & .DriverName & vbCrLf _ & "Port: " & .Port & vbCrLf & vbCrLf End With Next prtLoop Else strMsg = "No printers are installed." End If ' Display printer information. MsgBox Prompt:=strMsg, Buttons:=vbOKOnly, Title:="Installed Printers" ShowPrinters_End: Exit Sub وهذا كود ثاني أسهل منه يحضر لك أسماء الطابعات فقط 🙂 Sub ListPrinters() Dim prt As Printer For Each prt In Printers Debug.Print prt.DeviceName Next prt End Sub ثم استخدم هذا الكود لتعيين طابعة معينة لتقرير معين : Sub SetReportPrinter(rptName As String, PrinterName As String) Dim rptName As String DoCmd.OpenReport rptName, acViewPreview Set Reports(rptName).Printer = PrinterName 'Or some printer returned by your search code DoCmd.SelectObject acReport, rptName DoCmd.PrintOut DoCmd.Close acReport, rptName End Sub

فكرة ::::::: يمكن عمل جدول حقولها ( الطابعة الافتراضية - طباعة الباركود - طباعة الريست ............................... ) ثم في زر الطباعة لكل تقرير تحدد الحقل المناسب لها عن طريق هذا الكود ..... ( طبعا الفكرة لم اجربها ولكن تكمن في تغيير الطابعة الافتراضية في كل مرة تريد طابعة تقرير معين حسب الجدول الذي قمت انت بتحديد نوع الطابعة في الحقل الخاص به ) جرب واعلمنا بالنتيجة ..... وممكن عند احد الاخوة طريقة افضل On Error Resume Next Dim strRptName strRptName = "ReportName" DoCmd.SelectObject acReport, strRptName, False SetDefaultPrinter ("fieldName") DoCmd.OpenReport strRptName, acViewNormal

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

السلام عليكم استاذتي الكرام وجدت هذه المثال وجزاء الله خير الجزاء من رفعه بهذا المنتدي نسيت من صاحبه واعجبني من نا حيه تلوين السجلات المطلوب بحقل txtAccount بالنموذج تعديل الكودبحيث يكون بحدث عند التغير وتلوين السجل عند حسب القيمه في الحقل ويكون عند حركه الاسم يتلون السجل الحالي تحياتي اليكم استاذتي الكرام TestCheckBoxOnHtml.rar

وبما انك لم تقم برفع الملف فسيتم الرد عليك أيضاً بدون ملف ... يمكنك مشاهدة هذا الفيديو وهذا فيديو أخر How to Create Barcodes in Excel - الطريقة الأسهل على الإطلاق لإنشاء الباركود في الإكسل

الصبر طيب يا اخى الكريم أن شاء الله تحصل على طلبك

وعليكم السلام أخي أزهر 🙂 جرب هذا : ="[Nameread]='" & [x1] & "' And [dateread] Between #" & Nz([Forms]![fmainreader]![x2]) & "# And #" & Nz([Forms]![fmainreader]![x3]) & "#"

اتفضل اعتقد علامة = بعد [dateread] غير موجوده والا ارفق مثال ="[Nameread]='" & [x1] & "'" And [dateread]= Between Nz([Forms]![fmainreader]![x2]) And Nz([Forms]![fmainreader]![x3])

اولا هذا المثال مبنى بتقنية ال HTML وبروفيسيور هذه التقنية هو الاستاذ @أبو إبراهيم الغامدي ولكن ملاحظة : المثال للاسف لا يعمل عندى .... أوفيس 2021 , 64Bit

الف شكر لحضرتك ..جزاك الله خير ..عمل رائع

شرح خطوة خطوة كيفية تنفيذ فورم اكسل ووضع كود ذكر وانثى الفورم

شكرا للجميع وخاصه ابو جودي ملف ممتاز

أخي العزيز @Abujaber لدي فكرة جميلة لبرنامجك بدل الطريقة الحالية 🙂 سابقا كنت طرحت موضوع في المنتدى لبرنامج (صانع الشهادات ) والذي أتممته ولله الحمد بمساعدة الإخوة الأعزاء في المنتدى وقد طرحت في الكثير من الأفكار الراااائعة .. وهذا رابط الموضوع : كان الموضوع أشمل قليلا عن مجرد صنع الشهادات ، كان لعمل الشهادات وتنسيقها وإرسالها بالإيميل وكذلك عمل إحصائيات بعدد الأشخاص ( برنامجي أعددته لقسم التدريب لدينا ) لذلك فهو يعطينا إحصائيات بعدد المتدربين خلال الفترة التي تحددها .. ، وكذلك يمكنك تغيير الإطار كما تشاء بدون الحاجة لعمل تقارير جديدة .. 🙂 بإذن الله عندما يتسنى لي الوقت المناسب سأقوم بطرح البرنامج هنا ليستفيد منه الجميع 😊✌️ وهذه بعض الصور الواقعية للبرنامج : إنتظرونا ... 😉✌️

السلام عليكم - تفضل هذا الملف دالة نفقيط.xlsm

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

عليكم السلام ورحمة الله وبركاته إن شاء الله تفيدك هذه المعادلات البسيطة Large Small index & match بالتوفيق أعلى وأقل الأيام حضورا.xlsx

جرب أخي الفاضل مصنف 22.xlsm

شرح خطوة خطوة كيفية عمل جدول بالاكسل وفورم وطريقة الحفظ واظهار الزيرو الفيديو

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

@الخطاب اخى ما هى مشكله الاداه يوم ١١ / ٧ موافق الاثنين والتاريخ الموجود بالاسفل هو تاريخ ووقت جهازك وغير كده كمان الاداه مفتوحه المصدر samradapps_datepicker_220710.zip

تفضل <<<<<<>>>>>>> أوامر الشراء.accdb

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

بعد اذن الاساتذه يوجد موضوع هنا به التوأم والاخوات https://www.officena.net/ib/topic/48176-كود-لإستخراج-الطلاب-التوأم/

لم افهم ماذا تقصد بالكميات السابقة هل هي الموجود في هذا الجدول أم غيره

الخطأ :::: لانك سميت احد الكائنات بعبارة محجوزة للاكسس وهي page <<<<<<< غير اسم مربع النص الى اسم اخر مثلا txt_page

السلام عليكم ورحمة الله وبركاته ليعمل البرنامج المكتبي من خلال الإنترنت فأنت بحاجة إلى التحويل إلى قواعد بيانات كلاود وهذه تكلفتها عالية لا يقبل بها العميل في الغالب. في حال كان هناك أكثر من فرع فيمكن أن تتم عملية مزامنة بين الفروع والمقر الرئيسي أو ما يسمى في بعض البرامج العالمية (Pulling) وذلك من خلال تسجيل عمليات المبيعات و المشتريات والحركات الأخرى في جداول إضافية يتم مزامنتها من السيرفر الرئيسي (الجهاز الذي تم تثبيت النسخة الأساسية). وللمعلومية في كثير من الأحيان يكون MSSQL Express كافيا. أعتقد أن طريقة ربطك بين النماذج والجداول هي التي تحدد سرعة الاتصال .. طبعا أتكلم عن الشبكة الداخلية أما الإنترنت فالتحول حسب وجهة نظري إلى الويب بيس (سواء باستخدام تقتيات .Net أو PHP) وسيعمل حينها برنامجك من المتصفح وهذا الحل أفضل وأرخص الحلول أما عن سؤالك الثاني: نعم سيحتاج كل فرع أن تثبت نسخة واحدة من سيرفر MSSQL على أحد الأجهزة والبقية يتم ربطهم به. قارن بين قواعد البيانات الأخرى فقد تجد ضالتك في نوع آخر من القواعد مثل SQLite يمكنك الاطلاع على مقارنة بين مشغلات قواعد البيانات المختلفة http://erikej.blogspot.com/2011/01/comparison-of-sql-server-compact-4-and.html

اذا ناوى تتعامل مع سيكوال يبقى سيب الاكسس وروح ل vb.net ولكن سيكون هناك اختلافات قليلة فى بناء الاكواد وبما انك نويت التغيير ما انصجك بال vb.net انصحك بالتوجه فورا وبدون تفكيــر لـ #C

جزاكم الله خيرا كثيرا

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

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

حتى يكون الموضوع مرجع متكامل لمن اراد فيما بعد المرفق الاتى فقط قم باستيراد النموذج frmRestTable الى قاعد بياناتك وسوف تقوم فقط باختيار الجداول التى تريد تفريغ القيم منها تمام سواء كانت جداول بنفس القاعدة او جداول مرتبطة بقاعدة خلفية دون اى عناء او كتابة اى اكواد Reset Select Table.mdb

جزاك الله كل خير استاذنا الفاضل عبدالله فعلا كود أكثر من رائع وخفيف وجربته على اوفس 2010 ويعمل بكفائة بارك الله فيك وزادك من علمه

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

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