AlwaZeeR

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

كانو حقل: TmpVrStartDate غير موجود في الجدول TempVars هيك ظاهر الصورة

حسب ما فهمت : تريد جمع العدد الموجود في حقل HO لكل دورة الا وهي الحقل المسمى: sub اذن نستخدم هكذا معيار: =DSum("[ho]","[searchfinal2]","sub='" & [sub] & "'") report.accdb

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

احسنت القول اخي خالد

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

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

جميل انك وجدت الحل هل لك ان تشاركنا إياه كي يستفيد الجميع منه فالمعلم عندما يقول انه متعلم فقد جهل وكلنا هنا نتعلم ولسنا معلمين قد نجهل أمورا يعلمها اصغر مبتدئ في عالم البرمجيات احترامي وتقديري

وعليكم السلام ورحمة الله وبركاته لا تظهر معك في الأمثلة المرفقة من قبل الاساتذة؟ أم بعد التطبيق على برنامجك؟؟

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

تعددت الحلول والنتيجة واحدة احسنت اخي العزيز kha9009lid

وعليكم السلام ورحمة الله وبركاته تفضل استخدم جملة الاس كيو ال التالية في استعلام مع تغيير المسميات لما يناسبك: SELECT EmployeesTbl.EmpID, EmployeesTbl.EmpName FROM EmployeesTbl WHERE (((EmployeesTbl.EmpName) In (SELECT [EmpName] FROM [EmployeesTbl] As DTmp WHERE DTmp.EmpID <= [EmployeesTbl].[EmpID] GROUP BY [EmpName] HAVING Count(*)>1 ))); وابسط يا عم على رأي صدينا أبا جودي مرفق مثال تم التطبيق عليه 🙂 duplicateFinder.accdb

ارفق مثال بسيط لان الكود يعمل بمعيارين وقد تكون أخطأت في وضع معايير تقريرك :: 🙁

أي فاصلة زائدة؟ ارفق مثال بسيط للتعديل عليه

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

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