Eng.Qassim

بالحقيقة لا اعلم ان توصلت لما تريد ..عملت لك الجداول التي تريها وجعلت لك نموذج للموظف اما النسب الموجودة في عناوين الحقول فهي افتراضية تستطيع تغييرها حسب عملكم اما التنسيقات وبقية الامور فأنت من يتولاها وانا بالخدمة الاهداف.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 بالتوفيق ان شاء الله

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

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

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

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

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

افضل طريقة ..طريقة د.كاف يار فقد جربتها بعدة طرق لم تنجح Private Sub Firstwork_AfterUpdate() Me.Lastwork = Null End Sub

اجابة د.كاف يار لانه خبير وانا مجرد طالب مبتدئ

ضعه في حدث الحالي للنموذج وجربه

اذا كنت تريد مسح الاثنين .. يعني الكمبو والتيكست استخدم الكود التالي Public Sub ClearControls(frm As Form) On Error Resume next Dim objControl as Control For Each objControl in Me.Controls With objControl if .ControlType = acComboBox or acTextbox then .Value = Null end if End With Next objControl End Sub

DatabaseB.rar

هل قصدك بدون كمبو بوكس.. يبقى نموذج صاحب المشاركة على حاله؟ شوف المرفقDatabaseB.accdb الكود يفبل الكمبوبوكس لكنه يمسح مابداخل التيكست بوك