Eng.Qassim

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

وعليكم السلام احيانا تكون المشكلة بتنسيق خاصية تخزين الصور وتظهر تلك المشكلة في نواة 32bit حاول تغيير الخاصية كما في الصورة عسى ان تنفعك

كلامك صحيح استاذ حسام ربما اصبح لدي اشتباه بين or و And يستطيع الاخ صاحب المشاركة تعديلها اليك التعديل حسب مقترح استاذ حسام Q.accdb

بالحقيقة عندما ارى هكذا روائع ..يبدوا لي اني كالعصفور امام الصقور الحرة (الشاهين You are awesome Dr.

انظر للمثال المرفق..هل هذا المطلوب؟ Q.accdb

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

بالاضافة لما ذكره استاذي @د.كاف يار نستطيع حذف الجداول بجمل السكوال Docmd.runSQL "DELETE * from Table1" DoEvents Docmd.runSQL "DELETE * from Table2" DoEvents Docmd.runSQL "DELETE * from Table3" DoEvents Docmd.runSQL "DELETE * from Table4" DoEvents

احسنت استاذنا العزيز @kanoryبالحقيقة لم يخطر في بالي بكتابة اسم السبفوم من داخله وهذه اول مرة ارى فيه تلك الحالة .. بالعادة نستدعي اسم السبفورم من النموذج الرئيس وليس من داخله السلام عليكم استاذ حسين ماذا يمثل هذا النموذج؟ بالحقيقة نموذج غريب..كيف يمكن ادخال السجلات؟

بالحقيقة لا اعلم ان توصلت لما تريد ..عملت لك الجداول التي تريها وجعلت لك نموذج للموظف اما النسب الموجودة في عناوين الحقول فهي افتراضية تستطيع تغييرها حسب عملكم اما التنسيقات وبقية الامور فأنت من يتولاها وانا بالخدمة الاهداف.rar

لم افهم السؤال بشكل جيد.. هل تقصد بأن الموظف توضع له اوزان ولكل وزن نسبة معينة وهذه بمجملها تمثل 80% من الاهداف .. وكذلك له عدة اوزان في الجدارات وتمثل بمجملها 20% هل هذا ماتقصده؟

استاذنا العزيز @أ / محمد صالح لكن العلامات العشرية تظهر في الجدول دون استخدام on screen keyboard

اسف من جضرتك ..كنت اظن انك تريد ان تلحق السجلات بجدول اخر ولاتريد تكرار تلك السجلات

وعليكم السلام ..تفضل اخي استعلام الحاق.accdb

احتمال هناك عنصر تحكم يقوم باستدعاء مسار .. او ربما في اعدادات اللغة لديك حاول ان تضغط على الشفت باستمرار عند فتح الملف

وهذه ايضا في حالة زيادة الربح على الفترة وليس على التراكمي كما في مثال استاذي @husamwahabجزاه الله خيرا الربح التراكمي معمول في البنوك على ما اعتقد i2m - Copy.accdb

هل هذا المقصود؟ i2m.accdb

هل هذا ماتقصده؟ الارقام.accdb

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

هذه بسيطة انا جعلتها على مدى الحقول التي لديك ... قم بزيادة الحقول في الاستعلام qryCrossTabReport قد ماتشاء ونفس العدد اضفه للتقرير واجعل جميع الحقول والعناوين can shrink=yes حتى لاتظهر لديك الفروع الغير موجود لكن عند اضافتها ستظهر لك ولا تنسى تغيير الدوران في الكود حسب عدد الحقول لديك مثلا Dim ReportLabel(10) As String و For i = 0 To 10 For i = indexx To 10 حاول ان تجرب عدد من الحقول وتغير في الكود ستنجح لديك

تفضل واخبرنا بالنتائج 15 - CopieQ.accdb

وعليكم السلام اخي العزيز مطلبك غير واضح فالملف عبارة عن جداول فقط .. اقلها شرح مبسط عن العلاقة بين الجداول

وعليكم السلام انسخ هذا السبروتين لديك ..عند تشغيل التقرير كل مرة يأخذ قيمه من الاستعلام الجدولي قم بتسمية حقول التقرير بأسماء مثل Field1,Field2 الخ ...لان اسم الحقل في الكود هو Field واجعلها مثلا سبعة حقول Dim ReportLabel(7) As String Sub CreateReportQuery() On Error GoTo Err_CreateQuery Dim db As DAO.Database Dim rs As DAO.Recordset Dim qdf As DAO.QueryDef Dim fld As DAO.Field Dim indexx As Integer Dim FieldList As String Dim strSQL As String Dim i As Integer Set db = CurrentDb Set qdf = db.QueryDefs("qryReductionByPhysician_Crosstab") indexx = 0 For Each fld In qdf.Fields If fld.Type >= 1 And fld.Type <= 8 Or fld.Type = 10 Then FieldList = FieldList & "[" & fld.Name & "] as Field" & indexx & ", " ReportLabel(indexx) = fld.Name End If ' MsgBox Label(indexx) indexx = indexx + 1 Next fld For i = indexx To 7 FieldList = FieldList & "null as Field" & i & "," Next i FieldList = Left(FieldList, Len(FieldList) - 1) strSQL = "Select " & FieldList & " From qryReductionByPhysician_Crosstab" db.QueryDefs.Delete "qryCrossTabReport" Set qdf = db.CreateQueryDef("qryCrossTabReport", strSQL) Exit_CreateQuery: Exit Sub Err_CreateQuery: If Err.Number = 3265 Then '*** if the error is the query is missing Resume Next '*** then skip the delete line and resume on the next line Else MsgBox Err.Description '*** write out the error and exit the sub Resume Exit_CreateQuery End If End Sub ثم قم بأستدعائه من حدث عند فتح التقرير وضع الكود التالي Dim i As Integer For i = 0 To 7 ReportLabel(i) = "" Next i Call CreateReportQuery في راس التقرير قم بوضع مربعات نص ..مثلا سبعة كعدد الحقول واجعل مصدر السجلات =filllabel(0) ,=filllabel(1) وهكذا ثم انسخ الكود التالي Function FillLabel(LabelNumber As Integer) As String FillLabel = Nz(ReportLabel(LabelNumber), "") End Function بالتوفيق ان شاء الله

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

بشرفك انت مو بشرفك

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