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

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

وعليكم السلام ورحمة الله وبركاتة تفضل اخي لعلة المطلوب Office Access.mdb

السلام عليكم ورحمة الله وبركاته طرح في موضوع سابق موضوع رسائل الواتس اضع بين يديكم برنامج يقوم بارسال رسائل الواتس بدون حفظ الرقم في جهات الاتصال ويمكن استخدامه وتطويره لارسال رسائل للعملاء مثلا جربوه واعطونا انطباعكم حوله لتطويره والاستفادة منه ملاحظة هامة يجب تنصيب رنامج الواتس في جهازك ليعمل البرنامج هناك مدة زمنية وضعتها في الكود للتنفيذ مقدارها 40 يمكنك تغييرها ليتناسب مع سرعة جهازك ...... الطريقة سهله أوضحها باختصار مع اقتران كل شرح بالصورة ..... أولا : الذهاب للرابط https://www.whatsapp.com/download وتحميل برنامج الواتس حسب نسخة الويندوز لديك ( 64 - 32 )bit ثانيا: تشغيل برنامج الواتس والتسجيل عن طريق حسابك في الواتس وذلك بمسح البركود الظاهر في البرنامج من خلال البرنامج ( حسب الصورة ) ثالثا : عند اول تشغيل تظهر لك من خلال المتصفح رسالة بالسماح بفتح الارتباط بهذا النوع ( ضع علامة صح مثل الصورة ) رابعا : عند عمل البرنامج للمرة الثانية لا يحتاج تكرار هذه العمليات ( فقط انتظر اتمام المهمة ) هناك في الكود زمن افتراضي وضعته هو 40 ثانية أن رأيت جهازك والنت سريع حاول تقليل الزمن لكسب سرعة في الارسال أو العكس بالعكس تسجيل الارقام بالصيغة الدولية .... منتظر انطباعاتكم حول البرنامج ؟؟؟؟ WhatsApp_kan.accdb هنا تجدون الموضوع السابق ......

فقط عليك استخدام هذه الصيغة ... سحباً للأسفل =RC[-2]&" "&RC[-1] دمج.xlsb

السلام عليكم و رحمة الله وبركاته اخي الفاضل استخدم الدالة التالية =HYPERLINK(CONCATENATE("#";ADDRESS(ROW();7;;;$E$1))) و اسحبها الى الاسفل ان شاء الله سوف تعمل معك كما فهمت من طلبك مع التحية

مرفق طريقة اخرى بعد اذن الأساتذة الكرم Date.xlsx

وعليكم السلام-فقط عليك استخدام هذه المعادلة لتاريخ البداية =DATE(C3,B3,A3) وهذه لتاريخ النهاية =DATE(F3,E3,D3) Date1.xlsx

احبتي حتى لا أطيل في الشرح و بدون مقدمات قصتي تتضح من عنواني و نبدء الآن ... انشئ 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

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

اشكرك اخي وجدت الحل

أخي الكريم تابع هذا الموضوع هنا ... التكمله هنا

اعتقد مشكلة اللغة العربية في تحويل اللغة من العربية الى الانجليزية والعكس ........

مشاركه مع اخى واستاذى @محمد أبوعبدالله جرب التعديل كالتالى بتغيير Or الى And ووافنا بالنتيجه If Format(Now(), "hh:mm:ss AM/PM") >= #12:00:00 AM# And Format(Now(), "hh:mm:ss AM/PM") <= #7:00:00 AM# Then Me.sDate = Date - 1 Else Me.sDate = Date End If بالتوفيق

ضع اول الكود on errot goto Err: وفي نهاية الكود Err: exit sub تحياتي

جميل جدااا ممتاز اخي الكريم

العفو اخي الكريم الأجمل هو مرورك العطر و الجميل شكرا لك ============================================= الاخوة الأعزاء تم اضافة اللغات المعتمدة في Google تجدون النسخة المعدلة في المرفقات translate_language.accdb

ممكن هذا الأمر Filter_By UserForm_1.xlsm

وعليكم السلام -فقط للحفظ التلقائى ... عليك بوضع هذا الكود فى حدث ThisWorkBook Private Sub Workbook_BeforeClose(Cancel As Boolean) If Saved = False Then ActiveWorkbook.Save End If End Sub Protect.xlsb

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

تم التحديث كما تريدين 1- لادراج عدة اسماء عندها نفس الكود او نفس الرقم القومي يجب استعمال اليورز القديم لأنه لا يمكن ادراج اكثر من اسم في TextBox واحد بينما هذا ممكن في ListBox 2- بعد غملية البحث (كما اشرت في المشاركة السابقة) من حيث رقم الكود ( داخل الحلية مع فاصلة عليا) و في ListBox بدونها تحددين الاسم المطلوب و المصروف الجديد و تضغطين على الزر حفظ عندها تتحدث البيانات في الشيت (يتلوّن الصف حيث تم التعديل) و يخرج الاسم من ListBox 3- الزر Refresh للانطلاق من البداية ( تفريغ اليوزر / ازالة الألوان المحددة من الشيت) الملف من جدبد مرفق (يجب استعمال اليوزر القديم من خلال الزر User) YARA_2User Uniqus..xlsm

تفضل التعديل اخي الكريم تجربة عمل زر البحث.accdb

تفضل هذا التعديل اخي الكريم Data.mdb

الحمدلله توصلت للحل بحيث يكون الاستعلام بهذا الشكل Set rs2 = CurrentDb.OpenRecordset("SELECT nik_N_estelamerasael.noAccIDcash, nik_N_estelamerasael.idnoalohad , nik_N_estelamerasael.id_offic," _ & " nik_N_estelamerasael.cod_num_taslsol, nik_N_estelamerasael.nopolesa, nik_N_estelamerasael.namostalem, nik_N_estelamerasael.phomostalem," _ & " nik_N_estelamerasael.nammorsel, nik_N_estelamerasael.phomorsel," _ & " nik_N_estelamerasael.date_input," _ & " nik_N_estelamerasael.total" _ & " nik_N_estelamerasael.namtadelrasael," _ & " nik_N_estelamerasael.from_where," _ & " nik_N_estelamerasael.albyan," _ & " nik_N_estelamerasael.monydriver1," _ & " nik_N_estelamerasael.to_fragat, nik_N_estelamerasael.mony_kadasi_ersal," _ & " nik_N_estelamerasael.chang_color, import_N_MoneyMoves1.albyan," _ & " nik_N_estelamerasael.nopolesa, nik_N_estelamerasael.omolapolesa, nik_N_estelamerasael.nopolesaohad," _ & " nik_N_estelamerasael.dd1," _ & " FROM nik_N_estelamerasael" _ & " WHERE ((nik_N_estelamerasael.nopolesa) > 0)" _ & " AND ((nik_N_estelamerasael.name_open_shasha)= """ & [Forms]![ersal_estlam]![ersal_estlam1]![name_shasha].Value & """)" _ & " AND ((nik_N_estelamerasael.id_date_estelame)= #" & [Forms]![ersal_estlam]![ersal_estlam1]![id_date_time].Value & "#)" _ & " ORDER BY nik_N_estelamerasael.nopolesa;", dbOpenDynaset) والبحث عن الموضع كان في هذا الموقع https://stackoverflow.com/search?page=2&tab=Relevance&q=error 3061 فلله الحمد والمنة واشكر اساتذتي الكرام على ما يقومون به من خدمة وتعليم اخوانهم فجزاهم الله عنا خير الجزاء

السلام عليكم و رحمة الله وبركاته ابحث عن برنامج اسمه EXCEL RECAVERY هو مختص باصلاح برامج الاكسل لم اجد له سابقا اي نسخ مجانية

جزاك الله خيرا استاذنا الفاضل تحياتي

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

اعتقد هذا قد ينفع معك ضع هذه الصيفة وليكن C2 =COUNTIF(A2:B4;"*محمد*")

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

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

شاهد هذا الفيديو https://www.youtube.com/watch?v=hhJ5T8wqRGk&ab_channel=ExcelTutorialsbyEasyClickAcademy

وعليكم السلام -يمكنك هذا بمعادلة المصفوفة =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

هتعمل عامود فارغ بعد b وتكتب فيه to وبعد كده =a3&b3&c3d3&e3&f3&&g3

ممكن الحل بطريقة احرى الاسماء والارقام في الشيت Source وما تريد في الشيت Target يمكنك اخفاء الشيت Target عن الفضوليين اذا اردت واطهارها في حال تريد التعديل عليها (حذف اسماء/ زيادة اسماء / أو تعديل ارقام الخ.....) القوائم المنسدلة في الخلايا الصفراء (Target) مطاطة تستجيب لاي تغيير في البيانات و لا تذكر المكرر الا مرة واحدة وبذلك لا داعي لكتابة الاسم (منعاَ للأخطاء الاملائية وتوفيراً للوقت) بل تختاره من الفائمة المنسدلة الملف مرفق Kan3any.xlsm

أستاذ الدهشوري لما لا تقوم بالضغط على الإعجاب لهذه الإجابة الممتازة ؟!!!💙 والله استعجب واستغرب كثيرا لهذا الأمر ... هل هذا تعالى وكبرياء ام ماذا ؟!!! طالما انك تحصلت على ما تريد وكان هذا بفضل ربنا وفضل الأستاذ نبيل عبد الهادى ,لماذا لا تقدم له أقل شيء مطالب ان تقدمه له مقابل حل مشكلتك وهو الضغط على الإعجاب له على حله لمشكلتك ؟