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

وعليكم السلام ورحمة الله وبركاته أهلا بك.. @ابو البشر مشاركة @محمد القدسي تملأ العين! ولكن إن أردت مشاكلة DLookup في الاستخدام فهذه هي الطريقة المناسبة في نظري.. (حقوق الحرفان الأوليان من الدالة محفوظة لـ أ.محمد القدسي) Public Function MqDLookup(Expr As String, DomainTable As String, DomainPath, Optional Criteria) On Error GoTo ArrCase '-- Dim DB As DAO.Database Dim RS As DAO.Recordset Dim W As Variant '-- test optional veriable If IsMissing(Criteria) Then W = W & "True=True" Else W = W & Criteria End If '-- Set DB = OpenDatabase(DomainPath) Set RS = DB.OpenRecordset( _ "Select " & Expr & " As Expr From " & DomainTable & " Where " & W) '-- MqDLookup = RS!Expr ExitFunction: Set DB = Nothing Set RS = Nothing Exit Function ArrCase: Select Case Err.Number Case 3061 MsgBox Err.Number & ": Expr Parameter Undefined", , "Developer Message" GoTo ExitFunction Case Else MsgBox Err.Number & ": " & Err.Description GoTo ExitFunction End Select End Function المثال التالي يمكن تطبيقه في النافذة السريعة لمحرر الشفرة ?MqDLookup("id_ciity&','&name_city","tbl_city",currentproject.Path & "\Adb_Dat.accdb","id_ciity=2")

جرب اخي المرفق اخي جلب البيانات من قاعدة خارجية باستخدام احد عائلة DLookup.rar

اشكرك استاذي @AbuuAhmed وكذلك اشكر اسناذي القدير @أبو إبراهيم الغامدي فما ناتي به ليس الا قطرة من بحر ما تفضلتم به -وما زلتم كذلك- من العلم فنحن طلابكم وسنظل كذلك وجزاكم الله عنا خيرا

كما العنوان وننصح دائما حفظ أرقام اللوحات باللغة الإنجليزي بالطول القصير أي بدون مسافة أي بطول 7 حروف فقط. تم فحصها بشكل سريع ، فربما يحتوي بعضها على اخفاقات. SaudiCarPlates_01.accdb

نعم أخي الكريم مناسب

اتفضل وبعتذر عن الملف الخطأ تخفيض الامان.rar

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

السلام عليكم احسنت اخى وبشمهندسنا العزيز @Eng.Qassim 🌹 عادى ولا يهمك بس حاول تركز شويه وحاول شرحك يكون مفهوم اكتر وعالعموم اتفضل ع حسب ما فهمت من كلامك واذا لم يكن حاول توضح اكتر بشرح مفهوم حتى تتم مساعدتك رسائل_5.rar

هذا التعديل يفي بالغرض إن شاء الله اظهار المرفقات .zip

وعليكم السلام ورحمة الله وبركاته 🙂 مشاركة مع أخي أحمد .. وجدت هذا الكود ووظيفته حساب عدد الملفات ( وليس المجلدات ) في مجلد معين ويعطيك عددها : Public Function CountFilesInFolder(strDir As String, Optional strType As String) 'DEVELOPER: Ryan Wells (wellsr.com) 'DESCRIPTION: This macro counts the files in a folder and retuns the result in a msgbox 'INPUT: Pass the procedure a string with your directory path and an optional ' file extension with the * wildcard 'EXAMPLES: Call CountFilesInFolder("C:\Users\Ryan\") ' Call CountFilesInFolder("C:\Users\Ryan\", "*txt") Dim file As Variant, i As Integer If Right(strDir, 1) <> "\" Then strDir = strDir & "\" file = Dir(strDir & strType) While (file <> "") i = i + 1 file = Dir Wend MsgBox i End Function وتستخدمه هكذا : Call CountFilesInFolder("C:\Users\Ryan\Documents\") ويمكنك من حساب عدد ملفات من نوع معين ( ملفات الأكسل مثلا ) هكذا : Call CountFilesInFolder("C:\Users\Ryan\Documents\", "*.xls*") https://wellsr.com/vba/2016/excel/vba-count-files-in-folder/

واجهت مشاكل في استخدام الدالة ، سأرجع لها مرة أخرى وأنا أكثر ارتياحا إن شاء الله .. وعد. تمام ، عملت معي بامتياز الآن.

تفضل هذا الكود فقط تحتاج الى اختيار مسار المجلد الذي تريد التاكد من وجود ملفات بداخله Dim FileName As String FileName = VBA.FileSystem.Dir("C:\Users\No one\Desktop\test\*.*") If FileName = VBA.Constants.vbNullString Then MsgBox "الملف فاضي" Else MsgBox "يوجد ملفات داخل المجلد" End If هذا يعتبر مسار المجلد C:\Users\No one\Desktop\test\ هنا سوف يجلب لك اي اسم لاي فايل واي امتداد داخل المجلد في حال انك اردت ان تتاكد من نوع معين من الملفات او ملف بعينه يمكن وضع اسم ومتداد الملف او امتداد الملف فقط او اسم الملف فقط *.*

البرنامج يعرض كل امتدادات الصور ............. ماهو الامتداد الذي لم يظهر معك ؟؟؟؟؟

قم بعمل علاقة بين جدول راس الفاتورة والاطراف واختر امكانية التحديث والحذف في العلاقة عند حذف اي سجل سيتم حذف كل السجلات المرتبطة به في الجدول الفرعي بالتوفيق https://wayprograms.blogspot.com/

اهلا بك استاذي الفاضل @أبو إبراهيم الغامدي بارك الله فيك .... جاري التجربة على برنامجي .... شكرا لتفضلك بالرد ....

اخي العزيز.. طالما انك تريد البحث بهذه الطريقة فلماذا هذا التعقيد...اجعل مصدر سجلات النموذج الفرعي الاستعلام الموجود وبالمناسبة قم بتغيير المعيار تحت (الصف) في الاستعلام هكذا Forms![masmailer]![email].Form![الصف]

اتفضل هذا الملف كان موجود بالمنتدى اضغط فقط غلى النموذج الثانى بيتم تخفيض الامان على جهاز التشعيل تخفيض الامان.rar

ما معنى هذه الكلمة UBound Ubouind(a) من أبعاد المصفوفة a مثال مصفوفة 4×3 Ubound(a,1) =4 Ubound(a,2) =3

وعليكم السلام ورحمة الله وبركاته.. في المثال المرفق استخدمت مستعرض الويب للتطبيق اظهار المرفقات .zip

أخي مرفق برنامج جاهز مجمعه من منتدانا أفيسينا وأنا بستخدمه في جميع برامجي أدرسه جيداً واستخدمه كما تشاء ووافني بالنتيجة MahdiPermissions.rar

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

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