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

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

احبتي حتى لا أطيل في الشرح و بدون مقدمات قصتي تتضح من عنواني و نبدء الآن ... انشئ Module جديد و اضف الكود التالي Option Explicit Public Function Translate(strInput As String, strFromSourceLanguage As String, strToTargetLanguage As String) As String Dim strURL As String Dim objHTTP As Object Dim objHTML As Object Dim objDivs As Object, objDiv As Object Dim strTranslated As String strURL = "https://translate.google.com/m?hl=" & strFromSourceLanguage & _ "&sl=" & strFromSourceLanguage & _ "&tl=" & strToTargetLanguage & _ "&ie=UTF-8&prev=_m&q=" & strInput Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 'late binding objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.send "" Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write objHTTP.responsetext .Close End With Set objDivs = objHTML.getElementsByTagName("div") For Each objDiv In objDivs If objDiv.className = "t0" Then strTranslated = objDiv.innerText Translate = strTranslated End If Next objDiv Set objHTML = Nothing Set objHTTP = Nothing End Function ثم يمكن تجربة هذه الشفرة الخاصة بتغيير لغة العرض بالطريقة التالية MsgBox Translate("اهلا و سهلا", "ar", "en") مرفق مثال تطبيقي على ما ورد اعلاه و دمتم في رعاية الله و حفظه ... . Data.mdb

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

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

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

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

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

بارك الله بك مشكور استاذ حسام

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

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

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

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

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

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

تم معالجة الامر يجب التقيد بالامور جسب الصور المرفقة 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

كان عليك توضيح هذا الطلب من البداية تجنباً لعدم اهدار الوقت -تفضل يمكنك هذا بذلك الكود 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

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

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

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