essam rabea

أ.AboBahaa أعتقد أنه يوجد خطأ فى ربط الجداول يمنع إضافة سجل جديد والله أعلم

أ.بلال اليامين هل هذا المطلوب؟ بالتوفيق 111.zip

أ.الميزار إستبدل ملف الإكسيل بالمرفق .. عسى أن يكون المطلوب .. عسى أن يفى بالغرض بالتوفيق book1.xls

تفضل أخى rey360 عسى أن يكون المطلوب بالتوفيق test2.accdb

أ.بلال اليامين هل هذا المطلوب 111.zip

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

أ. @ابو زاهر فقط ضع ملف الاسكريبت مع ملف قاعدة البيانات فى مكان واحد وشغل الاسكريبت مش محتاج مسار ولا غيره أ. @Elsayed Bn Gemy قولنا المشكله كانت فين عشان لو حد تانى صادف نفس مشكلتك يعرف يحلها بالتوفيق

عذرا .. الاسكريبت إشتغل مع كله مش عارف ليه معقر معاك .. طب شوف جهاز تانى يكون عليه ويندوز 7 أو 10 جرب عليه تانى

لو أنت واثق تماما من أنك ستكتب إسم المادة كما هى مسجلة بالضبط .. حول القائمة المنسدلة الى مربع نص .. أو قم بالإدخال بقارء الباركود ما شاء الله أنا شايف الأخوة الأفاضل متواجدون إن شاء الله يكون عندهم حل آخر

تأكد من أن الملف وقاعدة البيانات فى مسار واحد تأكد من رقم نسخة الأوفيس C:\Program Files (x86)\Microsoft Office\Office16 شوف آخر رقم عند كام

تفضل اخى khaldon-Hy عسى أن يكون المطلوب .. ولكن رجاءا فى المرة القادمة وضح سؤالك فى خانة الموضوع بالتوفيق شؤوون الموظفين.accdb

حبيبى يا أبو عبدالله الحلوانى كتر ألف خيرك ويارب نقدر نرد الجمايل 😍

أستاذنا أبو عبدالله الحلوانى أستاذنا ابا جودى أنا شايف فاكهة نازلة يمين ويمن ما فيش أى حاجة للغلبان اللى باصصلكم فى كل حاجة ده .. ولا يعنى عشان مش صعيدى أخى العزيز kha9009lid إسمها ايه لوحة المفاتيح دى .. باين عليها جبارة

انت يُدفع لك ابا جودى وبالنص زى ما اتعودنا مش قولتلك هنطلك دافع كنت أم مدفوع😉

أستاذنا ابا جودى اى دا اى دا اى دا .. أنا حاسس إنى زى ماتقول كده خير اللهم اجعله خير ماسك موبايل نوت 20++ كمل يا جميل الشكل وهندسه شوية.. الله يفتح عليك ..

كل الشكر والتقدير لأستاذنا بو عبدالله الحلوانى ولكل أعضاء المنتدى الكرام خالص تحياتى

عدل الكود ليلائم الأوفيس تبعك كالآتى Const HKEY_CURRENT_USER = &H80000001 Dim oRegistry Dim sPath Dim sDescription Dim bAllowSubFolders Dim bAllowNetworkLocations Dim bAlreadyExists Dim sParentKey Dim iLocCounter Dim arrChildKeys Dim sChildKey Dim sValue Dim sNewKey Set WshShell = CreateObject("WScript.Shell") strCurDir = WshShell.CurrentDirectory Set oRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv") sPath = strCurDir sDescription = "YourTrustedLocationDescriptionGoesHere" bAllowSubFolders = True bAlreadyExists = False sParentKey = "Software\Microsoft\Office\14.0\Access\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\14.0\Excel\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\14.0\PowerPoint\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\14.0\Word\Security\Trusted Locations" iLocCounter = 0 oRegistry.EnumKey HKEY_CURRENT_USER, sParentKey, arrChildKeys For Each sChildKey in arrChildKeys oRegistry.GetStringValue HKEY_CURRENT_USER, sParentKey & "\" & sChildKey, "Description", sValue If sValue = sDescription Then bAlreadyExists = True If CInt(Mid(sChildKey, 9)) > iLocCounter Then iLocCounter = CInt(Mid(sChildKey, 9)) End If Next 'If bAlreadyExists = False Then sNewKey = sParentKey & "\Location" & CStr(iLocCounter + 1) oRegistry.CreateKey HKEY_CURRENT_USER, sNewKey oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Path", sPath oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Description", sDescription If bAllowSubFolders Then oRegistry.SetDWORDValue HKEY_CURRENT_USER, sNewKey, "AllowSubFolders", 1 End If ولا تنسى وضع الملف فى نفس مسار قاعدة البيانات

أ.خالد سيسكو تقريبا انت بتفتح form2 قبل ما تفتح form1 أو زود على الكود ما يلى DoCmd.OpenForm "form1"

حبيبى ابا جودى تقريبا الجهاز عندى مهنج كل ما اضغط فى حقل البحث واضغط على الأزرار ينقلنى الى خانة النتيجة .. بس Backspace و DeleteAll عاملة شغل وبعد دا كلة تقول .."ماليش فى البرمجة" دانت قربت تعبيها فى Test Tube 🤣

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

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

أ.Amir - 4k الق نظرة على هذا الرابط لعله يفيد

أ.حسين العربى جرب المرفق عسى يكون المطلوب test (2).accdb

غيره الى On Lost Focus وأوفر للوقت إبحث بإستخدام قارئ الباركود

أ.حسين العربى فقط غير الحدث لكود البحثمن After Update الى On Lost Focus أو ضع كود البحث فى زر أمر خالص تحياتى