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

ربنا يسهل ..... طيب شوف كدا .... يارب يكون المطلوب سجلات 03.accdb

السلام عليكم ورحمة الله وبركاته،... كثيراً مانحتاج في برامجنا الى ( اسم مُدخل البيانات ) أي الذي قام بكتابة الفاتورة او تعديل أمر ما او طباعة ...الخ نريد أن نعرف من الشخص الذي قام بهذه العملية خصوصاً اذا كانت قاعدة البيانات قد تم ربطها بشكل شبكة ( سلسلة كومبيوترات متصلة بقاعدة البيانات ) كنا نستعمل الطريقة التقليدية أولا: بإنشاء جدول لتسجيل اسم المستخدم الحالي الذي يستخدم قاعدة البيانات في حال مروره بنموذج تسجيل الدخول ثانيا: نقوم بتخزينه في متغير Veriable من نوع String مثلاً وعند المرور بنموذج تسجيل الدخول يتم اسناد القيمة للمتغير في حال كان اليوزر والباسورد صحيحين Public CurrentUserName As String الكلام في الطريقتين صحيح، لكن في الطريقة الأولى سيبقى محتفظاً في اسم المستخدم حتى في حالة إغلاق الأكسس أجبارياً اما الطريقة الثانية فأن هذا المتغير سيفقد القيمة التي قمنا بتخزينها به عند ظهور أول رسالة خطأ من الأكسس جراء تطبيق أمر ما او أي عملية If قمت بكتابتها، بمجرد ظهور رسالة الخطأ ستختفي القيمة من المتغير CurrentUserName ونُصبح في مهب الريح ، حسناً لذلك سنقوم بإستخدام ( TempVars ) دعنا نسميها المخزن، نقوم بخزن اي قيمة بداخلها وتكون بهيئة ( Global Veriables ) يمكن استدعائها من أي مكان وسيتم تصفيرها بعد أغلاق الأكسس أجبارياً او إختيارياً ولن تمحى القيمة بعد ظهور رسالة خطأ كما أوضحت سابقاً. أضافة قيمة: TempVars.Add "CurrentUserName", "semo" إحضار القيمة: MsgBox TempVars("CurrentUserName") يمكنك إسناد الكثير من القيم لـ TempVars والإستفادة منها. لتفاصيل أكثر يمكنكم قراءة المقال من شركة مايكروسوفت: https://docs.microsoft.com/en-us/office/vba/api/access.tempvars.add أي سؤال أنا موجود، تحياتي لكم .

استاذي العزيز د.كاف يار شهادة اعتز بها رغم اني اقل من ذلك بكثير وما انا سوى تلميذ بمدرستكم استاذي العزيز Tarekfathallah انا بخدمتك

مع انه يمكن الغاء عمل الزر عن طريق خصائص النموذج وبدون الحاجة الى كود لكن ممكن مع الانتباه الى ان تعطيل بعض خصائص النموذج يتطلب لها الدخول على عرض التصميم لذا يمكن التحايل وعملها عن طريق 👇 DoCmd.OpenForm "frm1", acDesign Forms!frm1.CloseButton = False DoCmd.Close acForm, "frm1", acSaveYes DoCmd.OpenForm "frm1" وتفسيره افتح النموذج في عرض التصميم اجعل زر الاغلاق غير مفعل اغلق النموذج مع حفظ التغيير اعد فتح النموذج مشوار طويل ولكن .... الملف مرفق aziz.accdb

الأمر بسيط -2 وذلك لأن جدول البيانات التى احضارها تبدأ من الصف الثالث اى يسبقها صفين ولذلك تم وضع -2 أما رقم 1 يعنى بالمعادلة عمود الرقم او كود العامل ويعتبر هو العمود الأول من جدول البيانات التى يتم احضارها ... أتمنى ان يكون الأمر واضح لك الأن وشكراً

السلام عليكم ورحمة الله استخدم هذا الكود Sub GetData() Dim ws As Worksheet, Sh As Worksheet Dim ShNam As String, Arr As Variant, XSum As Double Dim i As Long, j As Long Set ws = Sheets("كشف حساب") ws.Range("B9:L14").ClearContents ShNam = ws.Range("H6").Text Set Sh = Sheets(ShNam) XSum = Sh.Range("K6").Value Arr = Sh.Range("B11:L" & Sh.Range("K" & Rows.Count).End(xlUp).Row).Value ws.Range("B9").Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr ws.Range("D16") = XSum End Sub

استبدل الكود بهذا أخي الكريم Public Function re_Num() Dim rst As DAO.Recordset Dim i As Long Dim RC As Long Set rst = CurrentDb.OpenRecordset("Select * From b14") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 0 To RC - 1 rst.Edit rst!HNO = 1 + i rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing MsgBox "Done" End Function

جرب المرفق ..... واعلمنا هل تغيرت السرعة أم لا .... سجلات 01.accdb

السلام عليكم ورحمة الله وبركاته كل عام وأنتم إلى الله أقرب بمناسبة شهر الصيام.. رمضان كريم. رمضان كريم، نسأل الله أن يتقبل منا ومنكم صالح الأعمال، كل عام وأنتم بخير اليوم عندنا عيد، بقدومك يا رمضان الخير، صفحة من حياتنا، تبدأ من جديد أمانينا تسبق تهانينا، وفرحتنا تسبق ليالينا،ومبارك الشهر عليك وعلينا بريحة المسك والعود رمضان علينا وعليكم يعود شهر الخير والكرم والجود

استاذنا الجميل @husamwahab مثال رائع استاذنا ولو امكن شرح الكود حتى استطيع تطبيق الفكرة على امور اخرى على سبيل المثال ( اختيار عدد العناصر - اختيار فئات معينة من العناصر - التغاطي عن ايام العطل ...... الخ كل الشكر والتقدير استاذنا الغالي ...

وعليكم السلام-تفضل mathtype 6.9

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

تفضل .....

الاخوة الافاضل لمن يريد معرفة تاريخ نهاية خدمة موظفين اليكم الملف معرفة السن القانوني لتقاعد الموظف.xlsm

وعليكم السلام ... جرب هذا الملف فبه طلبك تاريخ تلقائي 2003.xls

وعليكم السلام اخى الملف يعمل بكل كفاءة كما ترى ولكن المشكلة لديك انه لا يوجد اى تاريخ قريب لتلوينه قم انت بتغيير اى تاريخ الى تاريخ جديد فليكن بشهر ابريل أو مايو 2021 بأى خلية يدوياً وستجد ان الخلية سيتم تلوينها تلقائياً وشكراً

احذف السطر المحدد فقط

استاذ husamwahab اغرقتنا بالروائع تسلم ايدك يارب جعل الله الشهر الفضيل شهر خير ويمن وبركات عليك وعلى اسرتك الكريمة يارب حفظك الله ربنا يراضيك ويرضيك يارب انا احبك فى الله اخى

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

بالخدمة استاذي العزيز تفضل التعديل ارجوان يكون طلبك DATA3000.rar

عليكم السلام والرحمة بالخدمة استاذي العزيز

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

تفضل التعديل ملاحظة : مستقبلا الافضل وضع مشاركة جديدة حتى لا نخالف قوانين المنتدي وعذرا من اساتذتنا المشرفين OFFICE_POLICE-2.rar

استاذى الغالى husamwahab معلش سامحنى ربنا يحفظك يارب احتاج لمسة احترافية من يدك سلمت يمينك يارب وبارك لك وهى احتاج الى اضافة تحريك حساب الى الاعلى او الى الاسفل بمعنى احتاج لتغير رقم حساب من 2 مثلا الى 10 ربنا يكرمك يارب وحفظك يارب

عليكم السلام والرحمة تفضل التعديل ارجو ان يكون طلبك ملاحظة : الكود يراعي يومي السبت والاحد فقط كعطل رسمية اما بقية العطل فيجب تحديدها وبعد معرفة كفاءة الكود يتم تعديل الكود على اساسها Reorder.rar

تفضل ... DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE b14 SET b14.hno = DCount(""*"",""b14"",""ID <="" & [ID]);" DoCmd.SetWarnings True

بارك الله فيك استاذنا الكريم وكل عام وانتم جميعاً بخير

كل عام وانتم جميعاً بخير والنجاح والتفوق دائماً لمنتدانا الكريم

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

جزاك الله خير الثواب وكل عام وانتم جميعاً بخير

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

اهلا بك فى المنتدى -يمكنك ببساطة استخدام هذه المعادلة لطلبك =IFERROR(VLOOKUP($B9,ورقة1!$A$3:$C$400,2,0),"") VLOOKUP.xlsx

وعليكم السلام-طالما انها معادلة اجمالى من الأفضل ان تكون هكذا =SUM(J6:L6) معادلة الجمع1.xlsx

تفضل لك ما طلبت 1معادلات.xlsx

وعليكم السلام-تفضل بالتنسيقات الشرطية مهم1 .xls

تم عمل المطلوب بمعادلة المصفوفة (Ctrl+Shift+Enter) بصفحة بحث =IFERROR(INDEX(Sheet1!$A$2:$A$2000,SMALL(IF(Sheet1!$B$2:$B$2000=$A$1,IF(Sheet1!$C$2:$C$2000="مفتوح",ROW(A$2:A$2000)-ROW(A$2)+1)),ROWS($A$3:A3))),"") اومر التوريد1.xlsx

تفضل هذا مفعل البرنامج كامل ومرفق به فولدر إسمه (K) يحتوي على ملفات يرجى وضعها داخل ملف البرنامج بعد تسطيبه في Program Files والموافقة على الاستبدال إذا لزم الأمر (طبعاً بعد غلق البرنامج بعد تسطيبه) . وسيكون كامل بإذن الله تعالى ، والكمال لله وحدة من قبل ومن بعد اللغة يمكنك اختيارها بعد التسطيب ولكم جزيل الشكر Kutools وهذا رابط اخر على ميديا فاير Kutools.for.Excel.16.50

وعليكم السلام-تفضل =IFERROR(INDEX(التحميل!$B$2:$B$9224,MATCH((F2&"*"&G2&"*"&D2&"*"&E2),التحميل!$H$2:$H$9224&"*"&التحميل!$C$2:$C$9224&"*"&التحميل!$F$2:$F$9224&"*"&التحميل!$G$2:$G$9224,0)),INDEX(مستودع!$B$2:$B$4000,MATCH((F2&"*"&G2&"*"&E2),مستودع!$F$2:$F$4000&"*"&مستودع!$C$2:$C$4000&"*"&مستودع!$E$2:$E$4000,0))) معادلة مزدوجة1.xlsm

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

أحسنت استاذ محمد بارك الله فيك

تفضل بيان تجميعى1.xlsx

وعليكم السلام -تفضل تم ضبط الملف كما تريد 2.xlsb

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF($B2="","",IFERROR(INDEX(الحالة!$C$2:$C$600,MATCH($B2,الحالة!$A$2:$A$600,0)),"عام")) 1يكتب خاص او عام.xlsx

وعليكم السلام-بسيطة وذلك من خلال استخدام هذه المعادلة بالتنسيقات الشرطية =COUNTIF(شباط!$A$2:$A$210,A2)>0 اعلام بان الرقم موجود1.xlsx

وعليكم السلام-تفضل النتائج1.xlsx

وعليكم السلام-بسيطة اجعل المعادلة هكذا =IF(OR($A2="",$B2=""),"",DATEDIF($A$2,$B$2,"d")) ‫معادلة حساب تاريخين - 1نسخة.xls

بارك الله فيك

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

عدلت لك الملف ليتناسب مع طلبك لعله يكون المطلوب - وتم تطبيق التغيير علي الملف بالكامل نموذج_h.xls