Moosak

وعليكم السلام ورحمة الله وبركاته 🙂 طيب شوف هذي الفكرة مثلا للتنقل بين قواعد البيانات وإعادة الربط بينها :

وعليكم السلام أخي صابر 🙂 إطلع على موضوع المهندس جعفر حول هذا الأمر :

نعم ممكن .. 🙂 افتح الملف عن طريق الـ WinRaR

وعليك السلام ورحمة الله أخي أحمد 🙂 أخي العزيز يمكنك وضع كود إنشاء الأيقونة عند تشغيل البرنامج مثلا .. عند حدث فتح أول نموذج ( على سبيل المثال ) الكود سيحتاج منك أن تخبره (مكان ملف الأكسس الأصلي ) + ( أسم الاختصار الذي سينشئه في سطح المكتب ) + ( مكان صورة الأيقونة التي ستضعها ) .. وهي مشروحة في الكود مع ضرب مثال عليها .. هكذا : 'strTargetFileFullPath : Sorce File Like : "D:\DomnFunBuldr.accdb" 'strShortCutName : Wanted Name for the ShortCut Like : "Moosak" 'strIconPath : Icon Full Path Like : "D:\MyIcon.ico"

كود لإنشاء إختصار للبرنامج أو أي مجلد على سطح المكتب مع تعيين أيقونة له Public Function CreateShortCut(strTargetFileFullPath As String, strShortCutName As String, strIconPath As String) 'strTargetFileFullPath : Sorce File Like : "D:\DomnFunBuldr.accdb" 'strShortCutName : Wanted Name for the ShortCut Like : "Moosak" 'strIconPath : Icon Full Path Like : "D:\MyIcon.ico" Dim oWSH As Object Dim oShortcut As Object Dim sPathDeskTop As String Set oWSH = CreateObject("WScript.Shell") sPathDeskTop = oWSH.SpecialFolders("Desktop") strShortCutName = strShortCutName & ".lnk" Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & strShortCutName) With oShortcut .IconLocation = strIconPath .TargetPath = strTargetFileFullPath .Save End With Set oWSH = Nothing End Function '===================================(Testing) Sub TestCreateShortCut() Call CreateShortCut("D:\DomnFunBuldr.accdb", "MoosakAp", "D:\MyIcon.ico") End Sub

عليك بهذا : 😉👌🏼

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

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

تفضل : التحميل : https://www.mediafire.com/file/v6rxz6b9egaj4xh/H++.accdb/file

بالإضافة إلى طريقة أخي ِAbo_El_Ela 🙂 اعمل استعلام .. وأحضر جميع الحقول بالضغط على النجمة .. ثم أضف حقل الترقيم التلقائي وأزل علامة الصح من أسفله واجعل الترتيب تنازلي .. ثم إجعل القيم العليا من صندوق خصائص الاستعلام = 1

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

أكتب x>0 وليس c .. أنت الآن كتبت x=1 وتعني إن كان عدد الأذونات يساوي واحد يعطيك تنبيه .. لكن إذا زادت عن الواحد لن تعمل معك ..

لا علم لي بهذه الطريقة .. مع إيماني بإمكانية تطبيقها في الأكسس. 🙂✋🏻

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

لكي تنجح معك هذه الخطوة .. الحل الذي يتبادر إلى ذهني هو أنك تقوم بعمل استعلام للبحث ويكون فيه حقل محسوب يتم البحث عن طريقه بحيث يجمع جميع الحقول المراد البحث فيها .. وعن طريق تصميم دالة ( وهذي موضوعها بسيط إن شاء الله ) وظيفتها أن تستبدل جميع الأحرف اللي ممكن الإختلاف فيها مثل ( أ إ ا آ ) وتتستبدل كلها بـ ( ا ) .. أو ( ي ى ) وتستبدل جميعها بـ ( ي ) وهكذا .. وبعدها يتم تطبيق نفس الدالة على النص المراد البحث عنه لكي يتم الاتفاق على البحث عن صيغة واحدة للحرف .. وبهذي الطريقة إن شاء الله يتم حل الإشكال . 🙂

تكملة على عمل أخي محمد البرناوي 🙂 Dim x As Integer ' عدد السجلات الغير معلم عليها صح x = DCount("[ck]", "[student_wezara]", "[ck] =0") iF X > O Then MsgBox " عدد السجلات الخطأ هي " & x & " سجل ", vbInformation, "سجلات" Else 'عدد السجلات 0 لذلك سيتجاهل الإشعار End IF

طريقتك أخي تايجر غريبة نوعا ما .. !! في العادة تكون خانة البحث عبارة عن مربع نص أو قائمة منسدلة غير منضمة .. أما البحث عن طريق نموذج عناصر متعددة فهذا غريب !! ستحتاج لتعديل تصميم نموذج البحث لكي تستطيع الحصول على النتيجة المطلوبة . أو أخبرنا بفكرتك ربما تكون هناك طريقة أسهل لتطبيقها ..؟؟ 🙂

وعليكم السلام ورحمة الله وبركاته أخي عدنان 🙂 تفضل .. ( أضفت عمود الوظيفة للقائمة المنسدلة ثم جعلت مصدر مربع النص هو العمود الثاني للقائمة المنسدلة) test (5).accdb

وعليكم السلام ورحمة الله وبركاته أخي أبو ماجد 🙂 أهلا وسهلا بك أخي العزيز .. بالنسبة لي فقد قرأت طلبك عدة مرات ونظرت إلى المرفق ولم أفهم ما هو المطلوب بالضبط !! وأين تريد تنفيذه ؟؟ أنا متأكد أن الصورة واضحة لديك وضوح الشمس ، ولكن يحتاج أن تفكك هذه الرموز لنا وكأنك تشرحها لشخص لا علاقة له بمجال عملكم البته .. لكي نعرف كيف نعالجها ( برمجيا ) ... إشرح مشكلتك بالمسميات الموجودة في برنامجك لكي نعرف ماهي المدخلات وماهي المخرجات المطلوبة .. تحياتي 🙂

وعليكم السلام ورحمة الله وبركاته أخي @kamelnet5 🙂 قمت بتحميل الملف ووجدته يعمل بدون إشكال .. قم بتحميل الملف مرة أخرى وجرب مجددا .. وكانت تحصل لي نفس المشكلة سابقا مع ملفات أخرى فاكتشفت أن المشكلة في برنامج ال winrar فأعدت تنصيبه وعادت الأمور لنصابها .. 👍🏼

وعليكم السلام ،، سوف تنجح طريقة الكود إذذا وضعتها في حدث (في الحالي) وربما ستحاج إلى تكراره في حدث ( عند التغيير ) وحدث ( بعد التحديث) .. و و و و ... وبهذي الطريقة ما راح نخلص !! وبترجع لنفس دوامة تكرار الكود في أكثر من موضع .. الأسهل أنك تختار أحد مربعات النص ثم تطبق عليه التنسيق الشرطي .. بعدها تنقر (نقرا مزدوجا) على أداة نسخ التنسيق أو Format Painter وتذهب لبقية العناصر المراد تكرار التنسيق لها وتنقر عليها واحدا تلو الآخر .. وبهذا سيتم نسخ نفس التنسيق الشرطي للجميع 🙂 هذي أسهل طريقة أعرفها لعمل ذلك والله أعلم ..

وعليك السلام ورحمة الله أخي العزيز 🙂 حسب علمي لايوجد طريقة لتطبيق ذلك على ال List Box .. ولكن يمكن التحايل عليها بعمل نموذج فرعي من نوع عناصر متعددة .. ثم تقوم بعمل تنسيق شرطي للقيم بحيث يتم تلوينها كيفما تشاء 🙂 .

بالتوفيق أخي محمد .. 🙂

أبشرك أخي محمد تم حل المشكلة بنجاح ولله الحمد ( الصورة من برنامجك ) 😉 القضية وما فيها أنك نسيت عمل بعض الإعدادات في النسخة الحديثة : جرب تطبيق التالي وأخبرني بالنتيجة .. : 1 - افتح ملف النسخة الجديدة 2 - تاريخ النسخة في ملف الواجهات الحديث ( يجب ) أن يكون أكبر من أو يساوي تاريخ تطبيق التحديث ( وهذا كان سبب أن البرنامج كان يطلب منك التحديث من جديد ، لأنه كان يشوف أنه تاريخ النسخة قديم ) : 3 - نموذج البداية كان مكتوب عليه النسخة القديمة ... غيره إلى النسخة الجديدة ، وذلك لكي تعرف أنه تم تطبيق التحديث بالفعل 🙂 : جرب ووافني بالنتيجة .. 🙂

وعليك السلام أخي @ابوبسمله 🙂 فعلا نقطة مهمة 👌🏼 والتفاته رائعة من عين خبير 😉 .. إذا أخي mohamedstar19 عليك أن تتأكد من الإعدادات الإقليمية لجهازك قبل البدء بالتطبيق .. 🙂