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

المرفق به النموذج .......... والبحث فيه بالكود وليس استعلام ويمكن زيادة حقول البحث كيفما تشاء . تفضلوا . Search as you type.accdb

بارك الله فيك أخي النجاشي .. وانتظروا التحديث القادم إن شاء الله 😊

تفضل أخي عملت لك البحث في 6 حقول (ID) و (FName) و (LName) و (CompanyName) و (Address) و (City) . واليك المرفق الجديد . Search as you type-1.accdb

Try this code Private Sub UserForm_Initialize() With Me.TextBox1 .Text = "Hello World" .Enabled = False End With End Sub Private Sub TextBox2_Change() Dim s As String, i As Long s = Me.TextBox2.Value For i = 1 To Len(s) If InStr(1, Me.TextBox1.Value, Mid(s, i, 1)) > 0 Then MsgBox Mid(s, i, 1) & " Is Found In TextBox1" s = Replace(s, Mid(s, i, 1), vbNullString) Me.TextBox2.Value = s Exit For End If Next i End Sub

اهداء الى طالبه عز-سوريه للعامه وخاصه حاليا يعمل على دقه شاشه 1920x كلمة مرور: 6 استعلام فوري بالمركبات والعملاء ولكن جعلته للمشاركه معكم لا يوجد تقارير وهناك برنامج للاستاذ @عبد اللطيف سلوم بسيط وجميل برنامج تأجير مركبات على قناته وهذا برنامج الاستاذ @عبد اللطيف سلوم ومنها طلب استكمال جزئية الاحتساب كيلو مترات المضافة مع مبلغ المضاف وليس اضافة على المتبقي- وتمديد عقد آخر بجديد كل وقت بحسابه فلا يحتاح الى مبلغ اضافي لتمديد (المطلوب فقط فارق مسافه المستقطعه بالعداد لاجمالي المبلغ آلي ) ولم اكمل ربط علاقات!! نسيت ضم كليهما في واحد لا يحتاج علاقات ليه لا يوجد احد يكمل لي برنامج! لو جزء صغير ربما يكون معقد لدى البعض قدمة لاحد دعوة تسجيل لهذا الموقع اوفيسينا ولكن اشتكى لا يستطيع بسبب مشاكل في تاكيد تسجيل بالايميل الموقع لا يرسل ولا يوجد حل! نصيحه لا تقدم لاي احد دعوة تسجيل لموقع الى بعد فترة اصلاح الموقع وتأكد ! ملاحظه برنامج لتأجير بنيته على مرفق @Eng.Qassim لتحميل البرنامج ميديا فير مباشر وسريع: https://www.mediafire.com/file/3wxd3etu2o6ed5n/X-Care_Upsofte_XGPT_For_Office_RintCare_To_2024_Devloper.rar/file Ezril تقر عينكم بالغايب طويل مسافات

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

الآية الكريمة " ذَرْنِي وَمَنْ خَلَقْتُ وَحِيدًا " ذرني : فعل امر مبني على السكون والفاعل ضمير مستتر تقديره انت والنون للوقاية والياء ضمير متصل في محل نصب مفعول به ومن : الواو يجوز اعرابها حرف عطف "عطف نسق" من اسم موصول بمعني الذي للعاقل وهنا تكون "من" معطوفة على الياء في محل نصب مفعول به وكذلك ممكن اعراب الواو للمعينة ويكون الاسم الموصول مفعول معه في محل نصب خلقت : فعل ماض مبني على الفتح والتاء تاء الفاعل وحيدا : حال منصوبة والجملة صلة الموصول لا محل لها من الاعراب رحم الله حافظ ابراهيم أَرى لِرِجالِ الغَربِ عِزّاً وَمَنعَةً .. َوكَم عَزَّ أَقوامٌ بِعِزِّ لُغاتِ أَتَوا أَهلَهُم بِالمُعجِزاتِ تَفَنُّناً .. َفيا لَيتَكُم تَأتونَ بِالكَلِماتِ

أستاذنا @abouelhassan شكراً لك .....أثلجت صدري جزاك الله كل الخير

شكر وتقدير واحترام من القلب

ممكن ترسل المرفق .

كل عام وانتم بخير وصحه وسلامه يارب

أستاذنا الفاضل @Ezril سامحني سبق وأن طلبت من حضرتك كي يستفيد ويتعلم الكل ومنهم أنا نريد أعمالك على أفيس 2010 أو أقل حتى تعمل برامجك لدينا .

واضح من الفيديو الاهتمام بكافة التفاصيل اضافة الى جمال التصميم ماشاء الله حملت الملف ولكن واجهتني مشكلة دقة الشاشة ☝️ حيث ان الشاشة لدي 4096 * 2160 مما يتطلب مني اجراء تعديل لاتمكن من تشغيله بشكل صحيح ولكن حاليا ليس لدي الوقت تحياتي

من عجله نسيت اشرح 1- عباره عن واجهة آليه تعرض متوفر والمؤجر في واجهة الرئيسية مع الاجماليات آليه كل على شروط ولم اكمل كم جم وحده. 2-اضافة قوائم الادراج من عملاء واصول وقائمة فلتره x5 فقط ادخل احدى بياناته للتأكد ان العميل صالح (سهول للتعمل فوري والاستدلال عن العميل والمعروضات عبر هاتف او مقابله) وقائمة x5 للتأجير متوفره وطلب حجز السيارات وتعديل على اسعار تأجير باليوم. 3-امكانية عرض جميع مستندات مرفق من غير جداول ونموذج عند الاستلام المركبه للفحص لتحديد علامات لتصفية الحساب. 4- فصل واستخراج القواعد جداول BE ( لكل سنه قواعد للفواتير متغيره- وقاعده ثابته المدرجات للقوائم لاي قاعدة فواتير بيان-وقواعد بأفضل نسخه احتياطيه مؤقته مع تصفيه لاي وقت بآخر نسخه- وقاعدة للاستضافه انترنت ) يكون عند كمال مشروعك وبسبب اختلاف تعامل وسياسات لكل مؤسسة مثال التمديد في مؤسسات لا تغفل فاتوره لتمديد والاخر يغفل بجديد لا يمدد واذا تمدد يجب ادخال نظام تقصيد ومع ضمنات فتركة لكم البقية او قدم مشروعك للاستكمال بطلب اسألة الاعضاء. سأكمل بعض لتصحيح الاخطاء وتحسينات اذا كان للعمر بقيه اروني ابداعاتكم بستكمال البقيه

الرسائل النصية تعمل بشكل جيد المشكلة في المرفقات فقط

السلام عليكم و رحمة الله اليك الملف - المعادلة فى الخلية G2 معادلة اخر رقم فى عمود.xlsx

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

وعليكم السلام ورحمة الله وبركاته أخي أحمد .. 🙂 من الضروري جدا فتح برنامج الواتسأب وتسجيل الدخول قبل الارسال .. ليس من مهام برنامج المرسال تشغيل الواتسأب .. فقط يقوم بإرسال الرسائل ..

@kkhalifa1960

السلام عليكم و رحمة الله استخدم المعادلة التالية =LOOKUP(2;1/($A$4:$A$23>0);$B$4:$B$23)

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

نهنأكم بالعيد المبارك نسأل الله دوام لكم الصح والعافيه وان يجعل عملكم خالص في رضاه وان يجزيكم اعظم من ما تتمنون في الدنيا والاخره ونسأل الله ان يشفي مريضكم وكبيركم وان يزيل هم كل من يعاني وان يزقهم من حلاله @ابوخليل بالفهم يعاني = كود واخطاء/ رفعة تحديث مقصد عندك

الحمدلله على التمام و الكمال ‏اللهُم لا تجعله آخر عهدنا في رمضان ‏اللهُم أعده علينا أعواماً عديدة وأزمنةً مديدة عيدكم مبارك و‏كُل عام و إنتم بخير ‏

:: إضـــــافـــة :: هذا هو الموديول الذي يمكنك نقله إلى برنامجك الخاص ومناداته باسم الدالة .. Option Compare Database Option Explicit Enum AttacmentsType Image = 1 Sticker = 2 Document = 3 End Enum #If VBA7 Or Win64 Then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As LongPtr) As LongPtr Public Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer #End If Private Const VK_NUMLOCK = &H90 Public Sub SendToWhatsApp(txtPhone As String, txtMSG As String, Optional txtAttchmentPath As String = "", Optional AttachmentType As AttacmentsType = Image) '---------------------------------------(التحقق من اكتمال البيانات) If Len(txtMSG & "") = 0 Then MsgBox "يرجى كتابة الرسالة": Exit Sub If txtAttchmentPath <> "" Then If Len(Dir(txtAttchmentPath, vbDirectory)) = 0 Then MsgBox "المرفق غير موجود .. تأكد من الرابط": Exit Sub End If txtMSG = Replace(txtMSG, vbCrLf, " %0a ") txtMSG = Replace(txtMSG, Chr(10), " %0a ") txtMSG = Replace(txtMSG, Chr(13), " %0a ") '---------------------------------------(بداية الإرسال) Dim Path As String Path = "whatsapp://send?phone=" & txtPhone & "&text=" & txtMSG CreateObject("Shell.Application").Namespace(0).ParseName(Path).InvokeVerb "Open" ' إرسال الرسالة Sleep 2000 SendKeys "~" Sleep 500 SendKeys "~" ' إرسال المرفق إن وجد If txtAttchmentPath <> "" Then SendKeys "+{TAB}" SendKeys "~" Sleep 1000 Select Case AttachmentType Case Is = 1 ' صورة SendKeys "{UP}" ' لإرسال الصور ' SendKeys "{UP}" ' لإرسال الملصقات ' SendKeys "{UP}" ' لفتح الكاميرة ' SendKeys "{UP}" ' لإرسال مستند ' SendKeys "{UP}" ' لإرسال جهة إتصال Case Is = 2 ' ملصق SendKeys "{UP}" ' لإرسال الصور SendKeys "{UP}" ' لإرسال الملصقات ' SendKeys "{UP}" ' لفتح الكاميرة ' SendKeys "{UP}" ' لإرسال مستند ' SendKeys "{UP}" ' لإرسال جهة إتصال Case Is = 3 ' مستند SendKeys "{UP}" ' لإرسال الصور SendKeys "{UP}" ' لإرسال الملصقات SendKeys "{UP}" ' لفتح الكاميرة SendKeys "{UP}" ' لإرسال مستند ' SendKeys "{UP}" ' لإرسال جهة إتصال End Select SendKeys "~" Sleep 1000 SendKeys txtAttchmentPath, True SendKeys "~" Sleep 2000 SendKeys "~" Sleep 1000 SendKeys "~" End If 'If NumLock is off, turn it on If GetKeyState(VK_NUMLOCK) = 0 Then 'Send NumLock key press to turn it on SendKeys "{NUMLOCK}" End If '---------------------------------------( إعادة التركيز لبرنامج الأكسس) SetForegroundWindow Application.hWndAccessApp ' MsgBox " تم الإرســــــال ", vbMsgBoxRight, "" End Sub وهكذا تنادي الدالة : SendToWhatsApp "96899445566", "السلام عليكم", "C:\Users\User\Desktop\123.jpg", Image

بارك الله فيك اخى العزيز

السلام عليكم ورحمة الله أستسمح إخواني الكرام الذين أبدعوا ولم يبخلوا بما عندهم حفظهم الله جميعا، أضيف طريقة أخرى باستعمال الدالة SUMPRODUCT في المثال التالي بالملف المرفق... أخوكم بن علية البحث عن رقم يقع بين رقمين.rar

السلام عليكم =========== الاخ الفاضل شاهد المرفق نسخة من Xl0000004.rar