Elsayed Bn Gemy

الله يبارك فى حضرتك كل عام انتم بخير عيد فطر مبارك

اخى ادم شكرا لك وشكر الله لك حسن ردك الطيب كل عام انتم بخير عيد فطر مبارك

اخى الكريم الحمد لله الذى شرفنى بمرورك من هنا كل عام انتم بخير عيد فطر مبارك

اخى ابا عمر يكفينى مرورك الكريم انت استاذى ومعلمى ويعلم الله انى احبك فى الله كل عم انتم بخير عيد فطر مبارك

استاذ خليل يعلم الله ما اكنه لكم من حب وتقدري واحترام وبارك الله لك ولاهلك ولكل من تحب اعتبر هذه الترقيه هى عيديتى ؟؟؟ كل عام انتم بخير . عيد فطر مبارك

السلام عليكم ورحمة الله تعالى وبركاته والله الذى لا اله الا هو انا لسه شايف الموضوع ناووووووووو نظرا لانقطاع خدمة الانترنت عندنا امس اعتذر اعتذر وبشده وجارى الرد على كل اخ كريم كلف نفسه بتهنئتى وشكل الله لكم جميعا والله الذى لا اله غيره انى احبكم فى الله

انا لا اجد فيه اى مشكلة الا اذا اتضح لك شئ لا اعلمة ؟؟ او ما يجول بخاطرك من افكار اتمنى طرحها لنستفيد منها

وماذا بعد انشاء جدول مخصص للاصناف ؟؟ اما بالنسبة لطريقة شرح التقرير فافضل شئ هو متابعة شرح المصدر من ميكروسوفت https://support.office.com/ar-sa/article/%D8%A5%D9%86%D8%B4%D8%A7%D8%A1-%D8%AA%D9%82%D8%B1%D9%8A%D8%B1-%D9%85%D8%AC%D9%85%D9%91%D8%B9-%D8%A3%D9%88-%D9%85%D9%84%D8%AE%D9%91%D8%B5-f23301a1-3e0a-4243-9002-4a23ac0fdbf3?ui=ar-SA&rs=ar-SA&ad=SA#__toc337455266

عن اى تكرارتتحث اخى الكريم ؟؟ظ

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

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

اخى الكريم يبدو اننى الذى لم افهم سؤالك جيدا اعتقد انك لا تحتاج الى استعلامات فقط ستحتاج الى استخدام دوال المجال التجميعية /Dcount ولكن بعدة شروط قم بانشاء نموذج ادرج به مربع نص وليكن اسمه a واضف زر وضع فى حدث عند النقر للزر ضع هذا الكود myCriteria = "[cod] = '1'" myCriteria = myCriteria & " And [salary]<1000" Me.a = DCount("[cod]", "table1", myCriteria)

والله يا اخى هذا اقصى ما يمكن ان اصل اليه Inputbox_فى الاستعلام.rar

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

اخى الكريم فى هذه الحالة يمكنك انشاء فورم صغير بحجم رسالتك وتفتح الاستعلام من خلاله او اذا كنت تريد ان تضع InputBox المعتاد فسيتم ذلك من خلال وحدة نمطية او ابحث عن تغير Enter Parameter Value او قد يفيدنا احد الاخوة بحل من عنده

اخى الكريم يمكنك انشاء نموذج به عدد من التكست بوكس وهم salary typesel cod number ثم انشاء استعلام واحد يعتمد على مدخلات التكست بوكس فى النموذج وضع هذا الكود فى كل معيار لهذه الحقول Like "*" & textbox & "*" textbox هو اسم مربعات النصوص فى النموذج

اعتذر للجميع ما قرات غير مشاركتك لا تقليلا من قيمة الاخرين ولكن سهوا والله غفر الله لنا ان حصل سوء فهم وبارك الله فى اخى ابو خليل وكل الاخوة

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

انصح بتحميل هذا الكتاب وقراته جيدا فهو افادنى كثيرا SQL تعلم لغة.rar

اخى الكريم انصح بارفاق مثال للتعديل عليه

تفضل اخى الكريم Dim sqlstr As String sqlstr = "CREATE TABLE " & Me.tableName.Value & " ([ID] Integer NOT NULL, [test] date, Primary Key([ID]) );" DoCmd.RunSQL sqlstr حقل مفتاح اساسى ID وحقل تاريخ test

ممكن تضع هذا فى معيار حقل ID [ID is equal] او قد لم اكون فهمت مرادك

اخى الكريم ما فائدة جدول الخدمات ؟؟؟ ما سبب وجوده ؟

اخى الكريم قم بانشاء استعلام جديد وفى طريقة عرض SQL قم بلصق هذا الكود SELECT customers.cust_name, Count(customers.cust_name) AS Expr1 FROM customers GROUP BY customers.cust_name; الاستعلام يحسب حقل cust_name ثم بعد ذلك ققم باستدعاء قيمة الحقل فى النموذج التى تريد بشرط الاسم

اعتقد ان هناك مشكلة فى جهازك انت اذ كيف يمكن تحميل المرفق اكثر من 17 مرة عموما انت بحاجة الى فرض مربعات نصوص باسماء الحقول فى الجدول ثم بحاجة الى فرض انواع بينات الحقول داخل الكود ثم بحاجة الى فرض مربع نص باسم الجدول Dim sqlstr As String sqlstr = "CREATE TABLE " & Me.tableName.Value & " (ID INTEGER, " & Me.fld1.Value & " TEXT(50)," & Me.fld2.Value & " Text(50)," & Me.fld3.Value & " Text(50))" DoCmd.RunSQL sqlstr