AlwaZeeR

DoCmd.OpenReport "Report1", acViewReport,, "txtid =" & Forms!search1!Text2 & " And ScndCndtion = " & ScndCndtion مع تغيير : ScndCndtion لحقل الشرط الثاني

بالض هذا صحيح ولكن ارجعتنا الى زمن الطيبين استاذي العزيز kha9009lid فانت تتحدث عن نفس الحقبة التي عملت عليها انا بالضبط وبنفس المسار وأول جهاز نعم كان لدي XT وكان أيضا الناشر والكاتب قبل الاوفيس وو تحياتي لكم جميعا وكل الاحترام والتقدير لهذا الجيل الرائع لعبنا عليها يا أبا الجود وحررنا الاميرة كمان 😞

اخالفك الراي عزيزي أبو الجود فما فائدة ان أقوم بعمل قد يأخذ مني من الوقت ما يقارب الشهرين او اكثر ولا اهتم بحمايته ويأتي شخص بكل سهولة ويقوم بكسر الحماية ونسب جهد غيره لنفسه انا مع ان تقوم بحماية عملك وتعبك بما اوتيت من قوة وخاصة اذا كان هذا العمل لجهة ربحية اذن انت يا أستاذ خالد من جيل ويندوز 3.1 و 3.11 وكمبيوتر 286 و 386 و 486 وصولا الى البنتيوم 1 في 95 هرمنااااا يا عزيزي فانا مثلك اعمل منذ زمن بعيد واقوم بحماية برامجي بكل قوة من عبث المتطفلين وذلك لانها ربحية وفق الله الجميع تحياتي

السلام عليكم ورحمة الله وبركاته تقريبا نفس الطرق التي يستخدمها الطيب أبو عبد الله واضف الى ذلك وضع مدة زمنية للبرنامج وكذلك: وضع كود برمجي شرط اذا لم يتوفر كذا فقم باخفاء الداتا (BackEnd) في مجلد ما في الكمبيوتر مع تغيير اسمها وتحويلها الى صورة مثلا للرجوع اليها من قبل المبرمج كذلك استخدام مجموعات العمل

تستطيع تجربة الكود التالي حسب الحدث المناسب لقاعدة بياناتك: If Right(CurrentProject.Name,5)<>"accdr" Then QuitAccess Options Exit End If بنفس طريقة الأستاذ عصام لكن هنا يعتمد على الامتداد وليس الاسم كامل

تقصد إعادة التسمية من نفس الويندوز؟ ان كان كذلك فلا يمكن منع إعادة تسمية ملف في ويندوز ===

من اين يتم تغيير الامتداد؟ تغيير الامتداد يتم من خلال الويندوز نفسها وليس من خلال قاعدة البيانات ام انني لم افهم ما تقصد أستاذ محمد؟

نعم اخي الكريم شغال مثل ما تفضل الأخ محمد عموما جرب تغيير طريقة الفلتر كالتالي: Me.Filter = "[Permit No] = " & Forms("[new permit]").Controls("[sh]") Me.FilterOn = True

عن طريق عمل Group لرقم الصف او الصف مع تعديل الخاصية فرض صفحة جديدة الى: قبل المقطع GroupSTU.accdb

بنفس النظام صديقي

بزر الفأرة الأيمن على الملف وازل الصح عن خيار : Read Only او: افتح برنامج الاكسس ومن استعراض اختر طريقة الفتح: او ارفق ملفك كما ذكر لك العزيز أبا جودي

هلا يا غالي وعليكم السلام ورحمة الله وبركاته تأكد من وجود طابعة افتراضية

يعطيك العافية يا بش مهندس نفس المشكلة بعد تثبيت المكتبة المرفقة من قبلكم نفس الخطأ *** هل تسمح بتعديل البار الذي تم ارفاقه: - الحجم لا يمكن التحكم - اللون :: تحياتي

قم بالبحث وسوف تجد ان شاء الله https://www.officena.net/ib/topic/47196-برنامج-لمحل-جوالات/

وعليكم السلام ورحمة الله وبركاته من باب الفضول: وأين المشكلة اذا قام بتغييرها؟ هل يسبب مشكلة في عمل البرنامج؟؟ لأنه مثل ما تفضل الأخ العزيز (خلف) لا تستطيع تغيير ملف مفتوح حدد اكثر كي نصل الى ما تصبو اليه

زيادة الخير خيرين يا غالي لا حاجة للاعتذار تحياتي

ضع في حدث زر الامر سجل جديد: DoCmd.GoToRecord , , acNewRec [stno] = Nz(DMax("stno", "student"), 0) + 1

وعليكم السلام ورحمة الله وبركاته استخدم Trim(Test)

استخدم امر إيجاد الأخطاء التالي: مع تغيير ما يلزمك حسب رقم الخطأ On Error GoTo ErrorHandler '==== هنا الامر الذي تريد ErrorHandler: Select Case err.Number Case 3024 msgbox("هذا الخطأ بسبب كذاااااا") End Select واذا لم تستطع فتفضل كما ذكر لك الأخ عصام بارفاق مثال صغير للتعديل عليه

السلام عليكم ورحمة الله وبركاته جميع المشاكل التي ذكرت واجهتني - تم التسجيل بنجاح - وظهرت الأداة في الاكتف اكس - وظهرت في المكتبات لكن المشكلة القائمة عند الادراج - قاعدة جديدة: التجريب على اوفيس 365 ، اوفيس 2016، اوفيس 2007 فقط خادم غير مسجل كل الشكر والتقدير واستمر في تطويرها كي نتمكن من تجريبها :: تحياتي والويندوز 10 64 بيت ولا اظن له علاقة ما دام الاوفيس 32 بت

وعليكم السلام ورحمة الله وبركاته تعديل الكود كالتالي: DoCmd.RunSQL "UPDATE recordtt SET recordtt.totalprice = [Forms]![recordhh]![recordtt].[Form]![total]" _ & "WHERE recordtt.recid = [Forms]![recordhh]![recordtt].[Form]![recid]"

Me.HdihSr = Nz(DSum("[PriceSB]", "00KashfTodayRsdCkdm","(Movement ='هدية' or Movement ='تالف' or Movement ='مفقود')") لم اجرب الكود

الف لا بأس عليك أستاذ أبا جودي بالسلامة ان شاء الله

وعليكم السلام ورحمة الله وبركاته بما ان الاعمدة معروفة الاسم ولا تزيد ولا تنقص تستطيع تثبيت اسمائها في نفس الاستعلام الجدولي هكذا استعلام جدولي.accdb