Foksh

وعليكم السلام ورحمة الله وبركاته ,, مشكلتك في انك مكرر الدوال في 3 مديولات .. فقط احذف المديولين hide form fSetAccessWindowMared

وعليكم السلام ورحمة الله وبركاته .. أخي الكريم أهلاً وسهلاً بك في مشاركتك الأولى معنا في عالمنا الصغير ، الكبير برواده ومعلميه وأساتذته وجميع المنتسبين إليه .. فيما يتعلق بملفك والذي هو بصيغة ACCDE ، لا اعتقد أنك قادر على إصلاح الملف إلا بمساعدة برامج مدفوعة ( والله أعلم طبعاً ) حاولت تجربة ملف معلمي الأستاذ جعفر في هذه المشاركة ، لكن دون جدوى

وعليكم السلام ورحمة الله وبركاته .. من باب الفضول والتأكد ، هل هذا الشكل المطلوب ؟؟ Query1 الرقم الوطني الاسم الجنسيه الجنس نوع الهويه رقم البلاغ السنه التهمه الجهه الطالبه الحكم تاريخ الوارد الاجراء المتخذ تاريخ الاجراء ملاحظات تاريخ الحكم 12345678910 محمد علي ي ذكر 77 2025 شيكات الشيكات غير محدد 2025-08-11 88 2024 جنائي العاصمه غير محدد 2025-08-11 2352 2025 شيكات الشرق غير محدد 2025-08-11 3252 2022 شيكات الجنوب غير محدد 2025-08-11 32525 2024 انتحال الغرب غير محدد 2025-08-11 25432526222 جاسم عبدالله ا ذكر 35 2025 تزوير الشرق غير محدد 2025-08-11 60 2022 مشاجره الجنوب غير محدد 2025-08-11 اذا كان هو فعلاً ، فجرب هذا الإستعلام :- SELECT IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[id],Null) AS [الرقم الوطني], IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[ename],"") AS الاسم, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[natio],"") AS الجنسيه, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[gins],"") AS الجنس, IIf(DCount("*","tabe2","id=" & [tabe1].[id] & " AND blagh<" & [tabe2].[blagh])=0,[tabe1].[nid],"") AS [نوع الهويه], tabe2.blagh AS [رقم البلاغ], tabe2.sanh AS السنه, tabe2.thmh AS التهمه, tabe2.wanted AS [الجهه الطالبه], tabe2.hkm AS الحكم, tabe2.edate1 AS [تاريخ الوارد], tabe2.[not] AS [الاجراء المتخذ], tabe2.edateegra AS [تاريخ الاجراء], tabe2.mlaha AS ملاحظات, tabe2.edathkm AS [تاريخ الحكم] FROM tabe1 INNER JOIN tabe2 ON tabe1.id = tabe2.id ORDER BY tabe1.id, tabe2.blagh; لا حاجة لإرفاق ملفك مرة أخرى 😇

وعليكم السلام ورحمة الله وبركاته ,,, أخي بلال أسعد الله مساءكم وصباحكم في بلدنا العزيز الجزائر .. استخدامك لكلمة ايقونة يسبب الإرباك لك في توصيل المعلومة الصحيحة .. ففي مثالك الإيقونة الحمراء هي في الواقع اسمها زر أو Button . لذا استخدم مسميات العناصر الصحيحة كي تساعد في توصيل المعلومة الصحيحة .. بالنسبة لطلبك الأول فيما يتعلق بالزر الأحمر "إعادة" ، وإن كان ما فهمته صحيح .. استخدم هذا الحدث له If Me.نص52 = "لا" Then Me.نص52 = "نعم" Else Me.نص52 = "لا" End If أما الطلب الثاني ، فقط قم بإضافة هذا الاستعلام DoCmd.RunSQL "UPDATE [tblImportExcel] SET [معيد] = 'نعم' WHERE [السنة] = '" & [Forms]![ملفات التلاميذ]![السنة] & "';" بحيث تصبح الجملة الشرطية للرسالة عند اختيار = نعم : If MsgBox(Msg, vbQuestion + vbMsgBoxRight + vbYesNo, "تأكيـــــد الإجــــــراء") = vbYes Then DoCmd.RunSQL "UPDATE [tblImportExcel] SET [معيد] = 'نعم' WHERE [السنة] = '" & [Forms]![ملفات التلاميذ]![السنة] & "';" DoCmd.RunSQL "UPDATE [tblImportExcel] Set [السنة]='" & NewYaer & "' where [السنة]=[forms]![ملفات التلاميذ]![السنة];" DoCmd.Requery End If ملفك بعد التعديل تحديد البرنامج1.zip

العفو أخي أسعد

وإياكم أخي @ناقل ، وهذا شيء يفرحني أن أقدم شيء يُـستفاد منه ..

اخي أسعد .. افتح الموذج في وضع التصميم ، واضغط Alt + F11 ليتم فتح محرر الأكواد . وستكون الأكواد أمامك كاملةً

ما فهمتهاش انا دي ، يعني ايه زي الأول 😅 .. فين المشكلة كانت عندك أصلاً غير انه مش بينقل النماذج والأكواد لقاعدة تانية 😁 فقط تحقق من المكتبات عند نقل عناصر قاعدة البيانات الى مشروعك .

تنفيذاً لفكرة وطلب أخي الأستاذ @ناقل ، تفضل هذا التعديل . حيث تم انشاء جدول يضم حقل الرقم وحقل الحالة وحقل تاريخ التحقق وحقل ملاحظات وإضافة زر جديد في النموذج السابق مع الكود التالي كتجربة :- Private Sub Btn_CheckAll_Click() On Error GoTo ErrHandler Dim db As DAO.Database Dim rs As DAO.Recordset Dim PhoneNumber As String Set db = CurrentDb Set rs = db.OpenRecordset("SELECT * FROM Tbl_WhatsAppNumbers WHERE Status IS NULL OR Status='غير معروف'", dbOpenDynaset) If rs.EOF Then MsgBox "لا توجد أرقام بحاجة للفحص", vbInformation + vbMsgBoxRight, "" GoTo ExitHandler End If Do Until rs.EOF PhoneNumber = Nz(rs!PhoneNumber, "") If PhoneNumber <> "" Then ShellExecute 0, "open", "whatsapp://send?phone=" & PhoneNumber, vbNullString, "", 1 SendKeys "{TAB}", True Sleep 1000 SendKeys "{ENTER}", True If IsWhatsAppWindowOpen("الرقم غير مسجل في واتساب") Then rs.Edit rs!Status = "غير مسجل" rs!LastChecked = Now rs.Update Else rs.Edit rs!Status = "مسجل" rs!LastChecked = Now rs.Update End If End If Sleep 500 rs.MoveNext Loop MsgBox "تم فحص جميع الأرقام غير المعروفة", vbInformation + vbMsgBoxRight, "" SendKeys "{NUMLOCK}", True ExitHandler: On Error Resume Next rs.Close Set rs = Nothing Set db = Nothing Exit Sub ErrHandler: MsgBox "حدث خطأ: " & Err.Description, vbCritical, "خطأ" Resume ExitHandler End Sub Check Number.zip

بناءً على تواصلي مع الأستاذ @ابو جودي ، تم ارفاق الملف التالي بعد حذف كلمة المرور لمحرر الأكواد Digital Player App.zip

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

وعليكم السلام أستاذ فريد ، شكراً لمرورك وملاحظتك الجميلة أيضاً .. وحيث أنني كنت بصدد التعديل الفعلي على الأداة بتجاوز حقل الترقيم التلقائي ، فقد تم تعديل المرفق السابق في المشاركة الرئيسية .. لأجراءاتكم بالإفادة والمتابعة

أخواني وأساتذتي ومعلمينا ( دون استثناء ) في هذه الأداة والتي وظيفتها إزالة التكرارات من الجداول ، قمت بتنفيذ فكرتها بناءً على مشكلة واجهت أحد منتسبي مجتمع اكسس جروب على الواتس اب . حيث كل ما على المستخدم هو نقل النموذج لمشروعه ، واختيار الجدول الذي يريد حذف التكرارات منه . المزايا التي تم تأمينها في الأداة :- 1️⃣ التعرف على أسماء الجداول في قاعدة البيانات الحالية عند فتح الأداة . 2️⃣ التعرف على عدد السجلات في الجدول عند اختيار أي جدول بسرعة فائقة . ( تمت التجربة على الملف المرفق بعدد سجلات = 1886169 سجل ) ولا تحتوي على بيانات شخصية أو سرية . 3️⃣ إمكانية إيقاف العملية أثناء الفحص ( في حال استطاع المستخدم اللحاق بها 😅 ) . 4️⃣ نموذج تفاعلي لكل مرحلة من مراحل التصفية والتنقية ، والمرحلة الحالية التي هي قيد العمل حالياً . 5️⃣ لا حاجة لاختيار الحقول في أي جدول ، فقط اسم الجدول ، وستتم المقارنة بين السجلات على جميع الحقول دون تحديد أسمائها . 6️⃣ تجاوز حقل الترقيم التلقائي من المقارنة بين السجلات واجهة الإداة البسيطة :- صورة توضيحية لأداء الأداة :- لاحظ أخي الكريم أن الزمن المستغرق تقريباً 18 ثانية لفلترة سجلات تتكون من أكثر من مليون و 880 ألف سجل في الجهاز الحالي وفي جهاز آخر استغرق الأمر على نفس عدد السجلات تقريباً 9 ثواني فقط لا غير .😮. حجم الملف المرفق تقريباً 23 ميجا ، وذلك ليس حجم الأداة ، بل حجم الجدول الذي يحتوي 1,886,169 سجل 😁 . ملف الأداة مفتوح المصدر مع الجدول :- Smart Fillter.zip ملف الأداة مفتوح المصدر بدون الجدول :- Smart Fillter No TBL.zip تحديث جديد للتعامل مع الحقول المحسوبة :- Smart Fillter Fix Calc.zip

وعليكم السلام ورحمة الله وبركاته .. ردي متأخر ولكن اعتذر منك ، لم انتبه للإشعار .. وعليكم السلام ورحمة الله وبركاته ،، وإياكم أخي الكريم ,, في الحقيقة ، لم أقم بالتجربة بالربط على برنامج أو جهاز البصمة اللذين ذكرتهم أبداً . لذا فإجابتي ستكون غير دقيقة ، ولكن بنية البرنامج قائمة على قراءة QR باستخدام اي جهاز يقرأ الرموز لأن الجهاز بطبيعة الحال عبارة عن كيبورد ويقوم بادخال القيم بشكل بصري من خلال الرمز . لذافلن يضرك في التجربة اي شيء ، على العكس قد تفيدنا بهذه المعلومة وتكون أجراً لك في ميزان حسناتك

وعليكم السلام ورحمة الله وبركاته .. تواصل مع الأستاذ @ابو جودي ، فالملف مقفل بكلمة مرور على الـ VBA

هذه تجربتي على نفس الإصدار هنا في هذا الموضوع والرد الذي يليه أيضاً توثيق النتيجة

وأخوك واحد من هؤلاء الذين يفضلون الوضع الداكن فعلاً .. جاري التجربة .. شكراً مسبقاً ..

تمت التجربة الآن عند نشر هذا الرد لرقم المهندس يوسف العزير ، وقد تم الإرسال و الاستلام بنجاح ..

حياك الله أستاذ @ناقل ، شكراً لمرورك الكريم . في الحقيقة موضوع المرور على سجلات قد يكون له تبعات كبيرة أهمها على سبيل المثال أن الأداة ستمر مروراً لكل عملية على جميع الارقام سجلاً سجلاً وليس بشكل جماعي . ولكن الأمر ليس بالمستحيل طبعاً .. مهندسنا الغالي ، هذا إطراء سأحسد عليه 😅 شكراً لك على مرورك الأمر يسير ان شاء الله بتمرير الارقام كما تفضلتم بحلقة تكرارية بدلاً من اعتماد مربع النص .. ولكن كما قلت سابقاً اعتقد انه سيكون له تبعات أبعد من مجرد أداة تحقق . في الأداة ليس عليك ان تتدخل يدوياً عند ظهور الرسالة ، فهي وبعد تجربتها على عدة أجهزة تعمل تلقائياً عند ظهور الرسالة بالنقر على مفتاح Tab ثم Enter لانهاء دور الرسالة . اذا تكرمت تزويدي برقم الإصدار لديكم من تطبيق الواتس اب سطح المكتب .

أهلا مهندسنا الغالي .. الحقيقة أنه بالفعل تمت تجربة الأداة على الكثير من الأرقام التي لم يتم حفظها في دليل الهاتف في الجوال . وحتى انني اضطررت للتجربة على رقم الأستاذ موسى شخصياً 😅 ، حيث قمت بحذف الرقم من جهات اتصالي سابقاً ، وقمت بالتجربة بارسال رسائل متعددة له من خلال التطبيق . وهذا رقم الإصدار الحالي لدي :- وسأقوم بدعم النتيجة بتصوير حي دون اي اجتزاء أو تعديل على الفيديو للنتيجة ، وآمل مشاركتي المشاكل التي واجهتموها مصورةً أو بلقطة شاشة . مع ذكر رقم الاصدار المثبت من تطبيق واتس اب سطح المكتب لديكم في أجهزتكم عند التجربة 😊 .

تحديثات وإضافات جديدة لواجهة الأداة 👍 . إضافة و تحسين فكرة إضافة الأسماء ، مع التحكم الكامل . بحيث عند الارسال الى رقم غير مسجل مسبقاً في جهات الاتصال فسيتم اضافته الى جهات الإتصال باسم "غير معروف" ، ولك حرية التعديل لاحقاً . إضافة ميزة الإرسال للمجموعات التي لديك في الواتس اب . من خلال رابط المجموعة فقط . وطبعاً يمكنك إضافة مجموعاتك من خلال النموذج :- إضافة ميزة إمكانية تعديل إسم ( في حال الخطأ ) من خلال النقر المزدوج عليه . أو من خلال النموذج الخاص بإضافة جهات الإتصال . وكذلك الأمر للمجموعات . تحسين فكرة الأرقام المحلية بحيث عند تحديد البلد الإفتراضي في جدول الإعدادات ( Tbl_SendSettings ) في الحقل السجل "DefaultCountryCode" ستتمكن الأداة من الارسال له دون الحاجة لكتابة مفتاح الدولة . في جدول الإعدادات ( Tbl_SendSettings ) ، لك كمبرمج أو مستخدم كامل الصلاحيات بتقييد المستخدم ( لاحقاً ) بأنواع المرفقات ، أو استخدام / منع استخدام التعبيرات أو الإيموجي ؛ أو تقييد حجم الملفات من خلال الجدول وليس من خلال الأكواد . إمكانية التحكم بالفاصل الزمني ( المدة الزمنية للإنتظار بين الرسالة والثانية عند الإرسال الجماعي لجهات اتصال متعددة أو أرقام متعددة ).. إلخ . إضافة ميزة حجب رقم أو جهة اتصال / مجموعة من الإرسال لها من خلال التفعيل عند الإضافة كما في الصورة الأخيرة سابقاً لواجهة إضافة مجموعة جديدة . ملف التحديث بالنسخة الأخيرة له مفتوح المصدر ، ما لم يطرأ أي تعديلات أو إضافات لاحقاً WhatsApp Sender - V4.0.accdb.zip

أخواني وأساتذتي ومعلمينا ( دون استثناء ) أداة بسيطة - مفتوحة المصدر - مشتقة من أداة مرسال والواتس أب 2025 في هذا الموضوع هنا ، لفحص حالة الرقم من انه مسجل على الواتس اب أم لا ، تعتمد على تطبيق واتس أب سطح المكتب . يمكن تطويرها داخل المشاريع لتتلائم مع متطلبات مشروعك . فقط اكتب الرقم مع المفتاح الدولي ، وسيتم فتح التطبيق والكشف مما إذا كان مسجلاً على الواتس أب أم لا . طبعاً الأداة ستعتمد على قراءة رسالة الواتس أب التالية ، وهنا اللغز في الموضوع . صورة واجهة الأداة :- تم إضافة ميزة جديدة وهي ، الفحص لجدول يحتوي على ارقام مخزنة ليتم الفحص الكامل على مجموعة من الأرقام بدلاً من رقم واحد . حيث تم انشاء جدول يضم حقل الرقم وحقل الحالة وحقل تاريخ التحقق وحقل ملاحظات . Check Number 1.1.zip

آخر مشاركة عمرها أكثر من سنتين .. يغلق