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

السلام عليكم اخوتي واحبتي واساتذتي الكرام هذا برنامج رواتب متواضع مبني على قانون رواتب موظفي الدولة في العراق واعتذر مقدما لاي خطا غير مقصود لذا يرجى التحقق من صحة النتائج SalaryRoot.rar

جزاك الله خيرا استاذنا الفاضل من بعد اذن استاذي خسين تفضل اخي الكريم Option Compare Database Option Explicit Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long Private Sub أمر0_Click() If InternetGetConnectedState(0&, 0&) Then labal1.Caption = Translate(labal1.Caption, "ar", "en") labal2.Caption = Translate(labal2.Caption, "ar", "en") labal13.Caption = Translate(labal13.Caption, "ar", "en") Me.أمر19.Visible = True Else MsgBox "تأكد من اتصالك بالانترنت" End If End Sub Private Sub أمر19_Click() If InternetGetConnectedState(0&, 0&) Then labal1.Caption = Translate(labal1.Caption, "en", "ar") labal2.Caption = Translate(labal2.Caption, "en", "ar") labal13.Caption = Translate(labal13.Caption, "en", "ar") Else MsgBox "تأكد من اتصالك بالانترنت" End If End Sub تحياتي

اكتب هذا الكود تحت حدث عند النقر للزر AAA Forms!Lab_All.SetFocus Forms!Lab_All!BBB.SetFocus

السلام عليكم ورحمة الله وبركاتة كيف حالكم اخواني الكرام اليوم حبيت اشاركم موضع الرسائل في الوتساب من خلال اكسس الطريقة ممكنه ومجربه ولاكن هناك بعض المشاكل سوفا نحلها مع بعض انشالله طبعا الفكره تم تطبيقها في اكسل من خلال الاستاذ ( منذر ) وهذا رابط المقطع الذي سوا فيه الشرح جزاه الله خيرا ( https://youtu.be/UX-5cFp8Yo8 ) انا قمة مع صديقي ( ابو ياسين ) بتصميم كود ونموذج للفكرة قبل فتره ولاكن بسس انشغلينا في الحياة لم يتم اكمل الفكره ولاكن الان الحمدلله تم اكمال الكود ولاكن هناك بعض المشاكل كما ذكرت سابقا اتمنا ان نتعاون في حلها هي مشكلة واحده ولاكن بي البداية سوفا اقو بشرح الفكره وطريقة عملها بي البداية . الشرح اول قمة بعمل جدول ونموذج فيه الاسم و رقم الجوال المطلوب ارسل له وايضا نص الرساله المطلوب طبعا راح نحتاج في هذا الموضع ( متصفح - وبرنامج الوتساب ) برنامج الوتساب تقم بتثبيته من هذا الرابط ( https://www.whatsapp.com/download/ ) قم بتسجيل الدخول من خلال الوتاسب الخص بك مثل المتصفح والطرقة مذكورة في شرح الاستاذ منذر في الرابط السابق (هذي الطريقة لا تسبب حضر الرقم ) طيب عمل الكود هو بي اخذ الرقم من النموذج ونص الرساله وفتح المتصفح من خلال جوجل بعد ان قمنا بتكمن الخيار بفتح التطبيق تلقائي سوفا يقوم بفتح الوتاسب بفتح محادثه بي الرقم الذي سجلته وكتابة الرساله وبعد 3 ثواني يقوم بغط على ارسل . الكود الذي فتح المتصفح ويقوم بي اخذ الرقم وا النص الرساله ( Application.FollowHyperlink "https://wa.me/" & txtNumbers & "?text=" & txtMessage ) استخدمة دالة ( DO ) لتكرار العميلة حتا انها الارقام المسجله قمت بي ادخل الربع ارقام كا تجربة بعد مقمة بي عمل انتر فتح المتصفح واخذ اللارقم مع الرسالة وفتح الوتساب ورسل وبعدها فتح نافذه جديده واخذ الرقم الثاني وفتح محادثة جديده وقام بكتابة الرسله ارسالها ولاكن هنا المشكة بي الرقم الثالث والرابع والخ الكود شغال فتح اربع نوافذ ولاكن بي الرقم الثاني المشكلة طلعة في دالة DO عند الضغط على انتر يقوم باخذ القيمة الاوله ويرسل الكود ويرجع ياخذ السجل الثاني وياخذه بس المشكلة بعد مايفتح المتصفح لا ينتقل الى السجل الثالث والكود يقوم باخذ القيمة الي وقف عليها المواشر فهمتو هنا المشكلة في شي ثاني الرسالة اذا كانت عربي مايقبلها الكود ويخليها رموز ولاكن الاخ منذر حل المشكلة من خلال الحافظ لو تابعتو الشرح بتفهمو طبع الملف الي فيه الشغل رفعته مع المقال ياليت تحملهو وتسو تجارب عليه ونتشارك الخبره مع بعض وجزاكم الله خير ملاحظة (انا اول مره اكتب مقال او اشارك في موضوع بخبرتي التي اكتسبتها بفضل الله بعدها من موقعنا هذا (افيسنا) ادري طولت ولاكن الموضوع يهم ناس كثير وشكرا لكم اخوكم (محمد احمد) وتساب.zip

هذا الملف بشرح ما أفصده 1-البيانات الاساسية في صفحة Salim 2- في الصفحة Result بعد تنفيذ الفلتر بواسطة UserForm يمكن احتيار اي صف من ListeBox لينتقل الى الشيت في المكان المناسب (يمكن تكرار العملية وفي كل مرة يضاف ما تحتاره الى احر صف) 3- الصورة المرفقة تشرح كيفية التعامل مع UserForm الملف مرفق Filter_By UserForm.xlsm

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

السلام عليكم اخوي حسام 🙂 هناك بالفعل طلب لمثل هذا البرنامج في المنتدى 🙂 والطلب الاهم فيه هو الترفيعات حسب سلم الدرجات ، فهل البرنام ج يشمله ؟ جعفر

وعليكم السلام-تفضل لك ما طلبت 1نموذج.xlsm

هذا الفيديو يشرح هذا الامر https://www.youtube.com/watch?v=4PZ63qbglHY&ab_channel=MinhNguyen

تفضل هذه المشاركة من قبلي اخي الكريم - يتم الاستعلام بمجرد كتابة جزء من الاسم سواء جزء من البداية او من أي مكان في الاسم - سيتم عرض القائمة بمجرد وجود نتيجة تجربة.accdb

وعليكم السلام-فقط يمكنك وضع هذا الكود فى حدث ThisWorkBook Private Sub Workbook_Open() If Range("C5").Value = Range("C12").Value Then Sheet1.Range("e5:e12").ClearContents End If End Sub كود بشرط.xlsm

أ.Matin_Murad ضع فى حدث عند الضغط لزر الحذف الكود التالى .. DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tabl1.INAME, tabl1.barcode, tabl1.id, tabl1.save FROM tabl1 WHERE (((tabl1.barcode)=[forms]![ZERO]![xx]));" xx.Requery ZEROTABL1.Requery DoCmd.SetWarnings True عسى ان يكون المطلوب

جرب هذا الملف صفحة "salim" Sub FIND_DUP() Dim I%, M%, REP As Range, COL As Collection Dim My_rg As Range Set COL = New Collection Set My_rg = Range("B3").CurrentRegion If My_rg.Rows.Count = 1 Then Exit Sub Set My_rg = My_rg.Offset(1).Resize(My_rg.Rows.Count - 1) My_rg.Interior.ColorIndex = xlNone For I = 4 To My_rg.Rows.Count + 3 On Error Resume Next COL.Add I, Cells(I, 2).Value & "*" & Cells(I, 4).Value & "*" _ & Cells(I, 8).Value & "*" & Cells(I, 9).Value & "*" _ & Cells(I, 10).Value & "*" If Err.Number <> 0 Then M = M + 1 If REP Is Nothing Then Set REP = Cells(I, 2).Resize(, 9) Else Set REP = Union(REP, Cells(I, 2).Resize(, 9)) End If End If Err.Number = 0 Next If Not REP Is Nothing Then REP.Interior.ColorIndex = 6 End If Set COL = Nothing: Set REP = Nothing End Sub الملف مرفق SHAFik.xlsm

يمكن تجربة هذا الملف YARA_2_USERS..xlsm

السلام عليكم تم عمل ترقية جديدة للمنتدى الان اذا واجهتك مشاكل بعد التحديث يرحى افراغ الكاش من المتصفح مثلا فى جوجل كروم او ختصارا CTR+Shift+DEL

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

برنامج ارشفة الملفات الاصدار الثالث برنامج ارشفة الملفات الاصدار الثالث.rar اسم المستخدم 1 كلمة المرور 473154 البرنامج هدية لمجتمع اوفيسنا

دائما يسعدني مرورك استاذي العزيز وتقيييمك شهادة اعتز بها مهما كان

والعلاوات السنوية حسب سلم الدرجات؟ يعني البرنامج تلقائيا يغير مرحلة/درجة الموظف حسب سنوات عمله؟ والعنوان الوظيفي هل يتغير حسب الشهادة وسنوات العمل؟ جعفر

نعم استاذ جعفر فقط غير الدرجة او المرحلة يتغير الراتب الاسمي

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

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

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

وعليكم السلام اخى @husamwahab جزاك الله خيرا وبارك الله فيك ان شاء الله ساقوم بتجربته وموافاتك بنتائج التجربه وان شاء الله ننتفع به ونحتسبه لك فى ميزان حسناتك عند الله وهو الكريم تقبل تحياتى اخى حسام وفقكم الله

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

السلام عليكم اخى الفاضل @طاهر الوليدي اتفضل تم التعديل كل ما قمت به تعديل حقل رقم المستند بالداله dmax واسم الجدول اسم الحقل كنت قد كتبت اسم الحق بالنموذج بدل الجدول كتابه اسم الجدول بين علامتى التنصيص ولكن لوجود مسافه فى اسم الجدول يجب وضعهم داخل الاقواس المربعه يفضل الابتعاد عن كتابه اسماء الحقول والجداول باللغه العربيه ووضعها بالتسميه فالخصائص يفضل وضع العلامه _ الشرطه السفليه وليس مسافه فى حالة فاصل بين الاسماء او الفصل باول حرف كابتل dl = Nz(DMax("[رقم المستند]", "[بيانات المصروفات]", "(year([التاريخ]) & month([التاريخ])& day([التاريخ]))='" & Format(Me.التاريخ, "yyyymd") & "'"), 0) rd = Int(Right([dl], 4)) + 1 Me.رقم_المستند = Format(Me.التاريخ, "yymd") & Format(rd, "0000") بالتوفيق ترقيم باليوم والشهر والسنة ممتاز.accdb

اخي سامر انا ملاحظ انك ما تعطي للسؤال حقه في الوقت !! يعني ، كم من الوقت استغرق منك التفكير في حل لمشكلتك ، وكم من الوقت اعطيته لوضع سؤالك !! وكم من الوقت اللي سيأخذ حتى يطلب منك الاعضاء التوضيح ، وانت ترد رد جدا جدا مقتضب !! انت صاحب السؤال ، فرجاء اعد التفكير في طريقة وضعك للسؤال ، وبكل انواع التفاصيل ، وبمثال او مثالين ، ووووو ، حتى تكون الفكرة واضحه للرد عليها. رجاء ساعدنا علشان نقدر نساعدك 🙂 يُغلق. جعفر

تم معالجة الامر يجب التقيد بالامور جسب الصور المرفقة 1-تبديل المربع الأحمر في الكود بالمربع الأزرق (حسب الصورة يارا 1) 2- كتابة رقم الكود مسبوقاً بفاصلة عليا (حسب الصورة يارا 2) 3-كتابة ما تريدنه في التكس بوكس حسب ما بوجد في الخلية (حسب الصورة يارا 3) اي بدون بفاصلة عليا الملف مرفق YARA_2_USERS_Updated..xlsm

برنامجك شغال تمام حسب المعيار اللي استعملته انت ، فما اعرف شو المشكلة !! هذا استعلامك، والمعيار موجود في حقل رقم السند ، اما حقل الترقيم التلقائي فارغ ، ونتائج الاستعلام صحيحة !! . يجب ان يكون الكود هكذا فقط ، ورجاء حذف جميع الاشياء الاخرى: للمعاينة Dim stDocName As String stDocName = "امرصرف" DoCmd.OpenReport stDocName,acViewPreview او فقط DoCmd.OpenReport "امرصرف",acViewPreview للطباعة Dim stDocName As String stDocName = "امرصرف" DoCmd.OpenReport stDocName او فقط DoCmd.OpenReport "امرصرف" واما اذا اردت طباعة اكثر من نسخة من التقرير (انا اطبع نسختين) بالكود التالي Dim stDocName As String stDocName = "امرصرف" DoCmd.OpenReport stDocName, acViewPreview, , , acHidden DoCmd.SelectObject acReport, stDocName DoCmd.PrintOut acPages, , , acHigh, 2 DoCmd.Close acReport, stDocName . جعفر 1271.2.تحديد طباعة السندات بين رقمين.accdb.zip

تم تطوير الكود بحيث اذا تم اختيار اسم معين من الليست بوكس ينتقل الى الشيت ويختفي من الليست بوكس كي لا يتم اختياره اكثر من مرة واحدة ADV_Filter_By UserForm.xlsm

اعزك الله استاذ سليم شكرااا

بارك الله فيك استاذ سليم روعة

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

تفضل هذه مشاركة من قبلي حذف بيانات نموذج فرعي التي تم تحديدها.accdb

اتفضل يابو عبدالرحمن في حدث ازرار الحفظ ضع الكود التالي Dim msg1, msg2 As String msg2 = "عزيزي المستخدم " & vbNewLine & "يرجى تعبئة الحقل / الحقول الفارغة" Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then If msg1 = "" Then msg1 = " - " & ctl.Name Else msg1 = msg1 & vbNewLine & " - " & ctl.Name End If End If End If Next ctl If msg1 = "" Then DoCmd.RunCommand acCmdSaveRecord MsgBox "تم الحفظ بنجاح", vbInformation, "تأكيد" Else MsgBox msg2 & vbNewLine & msg1, vbCritical, "تنبيه بوجود حقول فراغة" End If

السلام عليكم شكر خاص للأستاذ Ali Mohamed Ali على رحابة الصدر والرد السريع جزاك الله كل خير ودمتم في حفظ الله.

مرحبا اخي الكريم يمكنك استخدام الكود التالي DoCmd.RunCommand acCmdPageSetup وانصحك بزيارة هذا الموضوع الاكثر من هام والذي سيفيدك باذن الله تحياتي

وعليكم السلام ورحمة الله وبركاته غير مسار حقظ التقرير من GetWinTemp الى CurrentProject.Path من PDF_Name_Path = GetWinTemp & "\ImitatePDFPrintingLikeInOracleButFromMsAccess.pdf" الى PDF_Name_Path = CurrentProject.Path & "\ImitatePDFPrintingLikeInOracleButFromMsAccess.pdf" تحياتي او قم بتعريف المتغير GetWinTemp اولا Public Function GetWinTemp() As String GetWinTemp = Environ("Temp") End Function

جرب الملف وتبقى طلب عدم ربط الخلية بتاريخ الكمبيوتر ربما يقوم احد الزملاء بحله اما باقي طلباتك فاعتقد تم حلها جميعا حسب فهمي للامر. كلمة سر الحذف 123 يمكن تغييرها من الكود تجربة2020.xlsm

Private Sub idserum_AfterUpdate() Me.z = Me.x * Me.y Forms!Fexperience.Refresh Forms!Fexperience!xy = IIf([idexperience] <> "", Nz(DSum("z", "Qtest", "idexperience=" & [idexperience]), 0), 0) End Sub

وعليكم السلام-يمكنك هذا بهذه المعادلة =IFERROR(LOOKUP(2,1/(Export[Year]=$B$4),Export[Month]),"") Last Text1.xlsx

وعليكم السلام -يمكنك هذا بمعادلة المصفوفة =IFERROR(INDEX(Mapping!$A$2:$A$178,SMALL(IF(Mapping!$B$2:$B$178=$A$4,ROW(A$2:A$178)-ROW(A$2)+1),ROWS($A$6:A6))),"") Rank Country.xlsm

اخذ مني وقت الى ان فهمت تقريرك 🙂 اجمع جميع كائنات التقرير ، الى قسم "التفصيل" Detail ، وخلاص 🙂 يعني ، بدل ان يكون القسم بهذا الارتفاع . خليه يكون . والنتيجة جعفر 1271.تحديد بداية ونهاية اوامر الصرف.accdb.zip

كان عليك توضيح هذا الطلب من البداية تجنباً لعدم اهدار الوقت -تفضل يمكنك هذا بذلك الكود Private Sub CommandButton1_Click() On Error Resume Next Dim ws As Worksheet Set ws = Sheets("Sheet1") Me.TextBox2.Value = Me.TextBox1.Value * WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("a2:d20"), 2, 0) Me.TextBox3.Value = Me.TextBox1.Value * WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("a2:d20"), 3, 0) Me.TextBox4.Value = Me.TextBox1.Value * WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("a2:d20"), 4, 0) End Sub 2حساب النسبة المئوية.xlsm

اخي الكريم طلال يمكن فعلا ربط الوورد بالأكسس من خلال طريقتين الطريقة الأسهل دمج المراسلات ( اسهل طريقة ) من خلال اضافة علامات مرجعية في ملف WORD و استخدام كود برمجي بسيط جدا ( الطريقة المفضلة بسبب عدم وجود تنبيه أمان) تفضل هذا المثال اعددته لك بالكود ارسال البيانات للورد.zip

هناك لبس بالنسبة لي في فهم المطلوب فطلبك في الاول ثم في الاخير وعلى كل حال العمود k خارج الجدول قمت بوضع الشرط على اساس العمود H فارغ هذا حسب فهمي واذا كان هذا ليس طلبك ارجو التوضيح اكثر. Aysam.xlsm

ليس من الضروري ان تمسحي الـليست بوكس اذا كان الرقم القومي غير مكرر و رقم الكود غير مكرر فإن الليست بوكس يغرص صفاً واحداً وهناك حل اخر ممكن ادراج يوزر جديد (مع الابقاء على القديم) و برمجته كما تريدين كما في هذا الملف (وهكذا يصبح بالامكان العمل غلى 2 يوزر ) اليوزر الجديد على زر Salim User سأعمل على هذا الموضوع

جزاك الله خير ..... شكرا لك

اذا أردت البحث في جملة طويلة فشاهد هذا الدرس من الحلقات البسيطة الممتعة ---------------------------------------------------------------------------------------- اذا عجبك الفيديو اضغط اعجاب واترك تعليق واشترك في القناة وشارك مع أصحابك لأفادة الجميع ------------------------------------------------------------------------------------------------ اذا كان لديك استفسار أو فكرة ولو بسيطة شاركنا بها لنحولها الي واقع في فيديو + مرفق ------------------------------------------------------------------------------------------------ "اللهم علمنا ما ينفعنا وانفعنا بما علمتنا" "اللهم اغفر لأبي وارحمه كما رباني صغيرا"

شكرا لك