SEMO.Pa3x

لان طريقة الارسال تكون Ctrl+C, Ctrl+V فلا يمكن ارسال اي شيء سوى الصور غريب! ربما هنالك مشكلة في ارسال نص مع صورة، هل جربت ارسال نص فقط؟ او صورة فقط؟؟ سارى المشكلة عندما اعود مساءً الى المنزل. شكرا لك الله يحفظك حبيبي الله يجزاك الجنة اخوي ابو خليل الطيب.. نعم اصبح الارسال الان من داخل جهاز الكومبيوتر عن طريق CMD

السلام عليكم ورحمة الله وبركاته.. كنت قد طرحت سابقًا موضوع يتكلم عن ارسال رسائل الى الواتس اب لعدد X من المستخدمين من خلال الاكسس وهنا X معناها عدد معين كأن يكون 10 مستخدمين او اكثر او اقل.. الموضوع القديم كان فيه مشكلة وهو ان رسائل الواتس اب الطويلة لا يمكن ارسال او تُرسل بشكل مقطوع! الحمدلله في هذا الاصدار تم التغلب نهائيًا على هذه المشكلة واصبح البرنامج يرسل عدد كلمات بالعدد الذي يسمح به الواتس اب الجديد في هذا الاصدار: امكانية ارسال المرفقات ( الصور فقط ) 1- يمكنك ارسال رسائل فقط 2- يمكنك ارسال صور فقط 3- يمكنك ارسال رسالة مع صورة صورة مشروع الاكسس: قم بتحديد الاشخاص الذين تريد ارسال الرسالة لهم مع وضع نص الرسالة مع امكانية تحديد الكل يمكنك شروط البرنامج بحسب ماتراه مناسباً. النتيجة: ملاحظة يجب ان يكون برنامج الواتس اب موجود في جهاز الكومبيوتر واهم ملاحظة هي يجب كتاب رقم الواتس اب الذي تريد ان ترسل له الرسالة كما يظهر في البرنامج، مثال: لتحميل الواتس اب من الرابط الاتي: https://www.whatsapp.com/download بالمناسبة: الحمدلله انتهيت من برنامج تحويل الصور الى نصوص مهما كانت اللغة ( OCR ) وخصوصا اللغة العربية وحتى الصور التي تكون مكتوبة بخط اليد يتم تحويلها الى نصوص يسهل التعديل عليها في برنامج الوورد البرنامج يعمل بطريقتين: 1- يمكنك تحويل الصور بشكل مباشر 2- يمكنك استخدام الاكسس في ارسال CommandLine يتضمن مسار الصورة ومسار ملف التكست للنص الذي سوف يحفظ وسيقوم البرنامج بعمله لا تنسوني ووالدي من صالح دعائكم. تم بحمد الله. SendWhatsAppMessages.rar

حياك الله اخي الكريم، الحمدلله انا في خير وصحة.. اسال الله ان تكون انت كذلك

مبدع دائما عزيزي موسى، سلمت اناملك. بالمناسبة كنت اعتقد انك شخص عجوز 😄 لكن واضح من صوتك انك شاب 😅

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

الف شكر لكم اخواني لتقديم المساعدة تم حل المشكلة بفضل الله وفضلكم وشكرا خاص لاخوي موسى، همسة (الله يبعد عنك المتدودة يا غاوي) 😄

=DSum("[bCountRooms]","[tbl_bookings]","[IsEnd] =true And [bToDate] = #" & Format([bFromDate],'mm/dd/yyyy') & "# ") المجموع = 9 انا لا اريد الحجوزات المغادرة وانما اريد الغرف المغادرة 😂 طبعا انا كنت ناسي الحقل bCountRooms وهو مفتاح حل جميع المشاكل 😁

نعم حبيبي النتيجة خطأ!، يطلعلي 6 غرف المفروض العدد يكون 9

خطأ المفروض الغرف المغادرة لتاريخ 10-2-2023 يكون 9 غرف مغادرة والغرف التي تم حجزها في هذا التاريخ هي 27 غرفة

ارفقت لك قاعدة بيانات فيها هذا المعيار

صراحة هذا الحقل هو اكثر حقل لخبطني ماعرفت اي معيار استخدم له عموما عندك معيار IsEnd في جدول tbl_bookings اذا كان True - فائدة هذا المعيار للدلالة على انو الحجز انتهى وايضا معيار تاريخ انتهاء الحجز bToDate problem_count.accdb

السلام عليكم ورحمة الله وبركاته، اخواني الاكارم واجهتني مشكلة وصراحة لا املك الوقت الكافي لاصلاحها لانشغالي الشديد في بعض الامور لذلك قررت الاستعانة بكم، لدي قاعدة بيانات فيها التقرير الاتي: هنا في هذا التقرير قمت بعرض الحجوزات لكل تاريخ على حدا، الان اريد لكل تاريخ ان يظهرلي كم عدد الغرف الجديدة التي تم حجزها لكل تاريخ وكم عدد الغرف المغادرة لكل تاريخ وضعت لكم تاريخ ارجو العمل عليه من 10-2-2023 الى 15-2-2023 في النموذج المسمى frm_rpt_monthly_report وسلامتكم problem_count.accdb

الله يبعد عنك المتدودة 😅 سلمت اناملك…

عليكم السلام ورحمة الله وبركاته، قمت بعمل برنامج لاداء هذا الغرض

بارك الله بك اخي ابا جودي، فعلا موضوع مفيد ( تم الحفظ في المفضلة ).

ههههههههههههههههههههههههههههههه الله ينورك ضحكتني، ممكن صورة لرسالة الخطأ

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

عليكم السلام، طلبك غير واضح تماما.. على العموم انظر محاولتي البسيطة لعلها تكون هي طلبك. Emp.accdb

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

جزاك الله خير عزيزي

موفق ان شاء الله عزيزي.

السلام عليكم ورحمة الله وبركاته.. اقدم لكم مجموعة من واجهات المستخدم (user interface) عسى ان تفيدكم في تحسين مظهر البرامج الخاصة بكم. المصدر: https://github.com/krishKM/Modern-UI-Components-for-VBA لا تنسوني ووالدي من صالح دعائكم.. تحميل المرفق الأول: sample_x64.zip تحميل المرفق الثاني: sample_x86.zip

السلام عليكم ورحمة الله وبركاته.. كما في العنوان هذه بعض من دوال الاكسس VBA عسى ولعل تفيدكم. Public Function createFolder(path As String, Optional failIfAlreadyExists As Boolean = False) As Boolean On Error GoTo handleError Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") If path <> "" Then FSO.createFolder path End If If folderExists(path) Then createFolder = True Else createFolder = False End If GoTo handleSuccess Exit Function handleSuccess: GoTo cleanUp Exit Function handleError: If Err.Number = 58 And Not failIfAlreadyExists Then createFolder = True Else Call fileSystem.handleError(Err.Number, Err.Description, "createFolder()", path) End If GoTo cleanUp cleanUp: Set FSO = Nothing Exit Function End Function Public Function deleteFile(path As String) As Boolean On Error GoTo handleError Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") If path <> "" And fileExists(path) Then FSO.deleteFile path Else Exit Function End If If fileExists(path) Then deleteFile = False Else deleteFile = True End If GoTo handleSuccess Exit Function handleSuccess: Call fileSystem.handleSuccess GoTo cleanUp Exit Function handleError: Call fileSystem.handleError(Err.Number, Err.Description, "deleteFolder()", path) GoTo cleanUp Exit Function cleanUp: Set FSO = Nothing Exit Function End Function Public Function deleteFolder(path As String) As Boolean On Error GoTo handleError Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") If path <> "" And folderExists(path) Then path = IIf(Right(path, 1) = "\", Left(path, Len((path)) - 1), path) FSO.deleteFolder path Else Exit Function End If If folderExists(path) Then deleteFolder = False Else deleteFolder = True End If GoTo handleSuccess Exit Function handleSuccess: Call fileSystem.handleSuccess GoTo cleanUp Exit Function handleError: Call fileSystem.handleError(Err.Number, Err.Description, "deleteFolder()", path) GoTo cleanUp cleanUp: Set FSO = Nothing Exit Function End Function Public Function driveExists(path As String) As Boolean On Error GoTo handleError Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") If path <> "" Then driveExists = FSO.driveExists(path) End If GoTo handleSuccess Exit Function handleSuccess: Call fileSystem.handleSuccess GoTo cleanUp Exit Function handleError: Call fileSystem.handleError(Err.Number, Err.Description, "driveExists()", path) GoTo cleanUp cleanUp: Set FSO = Nothing Exit Function End Function Public Function fileExists(path As String) As Boolean On Error GoTo handleError Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") If path <> "" Then fileExists = FSO.fileExists(path) End If GoTo handleSuccess Exit Function handleSuccess: Call fileSystem.handleSuccess GoTo cleanUp Exit Function handleError: Call fileSystem.handleError(Err.Number, Err.Description, "fileExists()", path) GoTo cleanUp cleanUp: Set FSO = Nothing Exit Function End Function Public Function folderExists(path As String) As Boolean On Error GoTo handleError Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") If path <> "" Then folderExists = FSO.folderExists(path) End If GoTo handleSuccess Exit Function handleSuccess: Call fileSystem.handleSuccess GoTo cleanUp Exit Function handleError: Call fileSystem.handleError(Err.Number, Err.Description, "folderExists()", path) GoTo cleanUp cleanUp: Set FSO = Nothing Exit Function End Function Public Function getComputerName() getComputerName = Environ("COMPUTERNAME") End Function Public Function getUserDesktopPath(Optional endWithSlash As Boolean = True) getUserDesktopPath = getUserProfilePath & "Desktop" & IIf(endWithSlash, "\", "") End Function Public Function getCurrentUsername() getCurrentUsername = Environ("USERNAME") End Function Public Function getUserProfilePath(Optional endWithSlash As Boolean = True) getUserProfilePath = Environ("USERPROFILE") & IIf(endWithSlash, "\", "") End Function Public Function getHomeDrive() getHomeDrive = Environ("HOMEDRIVE") End Function Public Function getHomePath(Optional includeDrive As Boolean = True, Optional endWithSlash As Boolean = True) getHomePath = IIf(includeDrive, getHomeDrive, "") & Environ("HOMEPATH") & IIf(endWithSlash, "\", "") End Function '''''''''''''''''''''''''''' ' ' Name: contains() ' Library: Strings.accda ' Author: Wyatt Castaneda ' Last Update: 23-Mar-19 ' Description: Searchs an arbitary number of strings for a substring ' ' Example(s): contains("wyatt", "wyatt", "james", "amber") --> true ' contains("scott", "wyatt", "james", "amber") --> false ' '''''''''''''''''''''''''''' Public Function contains(toCheck As String, ParamArray searchTerms()) As Boolean Dim term As Variant contains = False For Each term In searchTerms If InStr(toCheck, term) <> 0 Then GoTo doesContainString End If Next Exit Function doesContainString: contains = True Exit Function End Function Public Function lowerCase(toFix As String) As String On Error GoTo failGracefully lowerCase = StrConv(toFix, vbLowerCase) Exit Function failGracefully: lowerCase = toFix Exit Function End Function Public Function upperCase(toFix As String) As String On Error GoTo failGracefully upperCase = StrConv(toFix, vbUpperCase) Exit Function failGracefully: upperCase = toFix Exit Function End Function لا تنسوني ووالدي من صالح دعائكم.

شكرا لكم اساتذتي الافاضل @ابوخليل @jjafferr ربي يحفظكم ويبارك فيكم

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