تقارير فرعيه وأعمده

[algr7 2]

السلام عليكم..

 

كيف حالكم جميعاً,,

 

والله ياشباب عندي مشكله بالتقارير الفرعيه ( عددهم 3).

 

الاول للمسعفين(مسعف اول ومسعف ثاني) مكون من عمودين.

 

الثاني لسائق الاسعاف   عمود واحد

 

والثالث رقم الاسعاف  عمود واحد

 

مشكلتي اذا جمعت التقارير في تقرير واحد ان التقرير الاول (مسعف اول ومسعف ثاني) مايصير عمودين (تعبني والله)

 

وانا ابي اجمعهم بحيث ان لكل سيارة اسعاف عدد 2 مسعفين وسائق ( ارفقت لكم جدول وورد) يوضح رغبتي بشكل التقرير النهائي فضلاً وممنونييين , وارفقت برنامج الاسعاف المطلوب التعديل عليه لو تكرمتم.

MS.rar

TQAReeeeR.rar

[algr7 2]

السلام عليكم, يااخوان والله اكثر اسألتي مالها جواب عندكم , انا عاذركم ومقدر تعبكم وتشكرون على كل شي تعلمته منكم , لكن والله ماافتح موضوع جديد الا لأني حاولت بكل الطرق ماقدرت , مو شرط انكم تعدلون المرفق لو تعليمات بسيطه فقط من الاخوه الـ 46 اللي دخلو الموضوع او اللي راح يدخلون , وشكراً.

[jjafferr 516]

حيا الله الغالي :) وعليكم السلام ورحمة الله وبركاته :)

ما عليه ، تحملنا شوي ، وان شاء الله هالمرة نوصل لنتيجة :)

 

الجدولين profession و Militery لما نجمعهم في استعلام ، نعرف اسماء الاشحاص ومهنهم :)

بس كيف نعرف الاشخاص اللي بيقوموا بالعمل ، واي سائق بيسوق اي سيارة؟؟

 

جعفر

تم تعديل 19 Mar 2014 بواسطه jjafferr

[algr7 2]

ياهلا والله اخي العزيز جعفر , طبعاً اكثر اسألتي ردها منك ومن الأخت زهره والاخ ابويوسف وانتم فوق اي عتب واخصك انت بالذات , فقط عتبي على البقيه من الاساتذه الكرام (عتب اخ صغير).

 

بالنسبه لمعرفة من يقوم بالعمل واي سائق , يوجد نموذج فيه عدد 2 مربع قائمه واحد للموظفين وواحد لأرقام سيارات الاسعاف يتم عن طريقه اختيار الموظفين وسيارات الاسعاف وسيتم توزيع الموظفين بشكل عشوائي على سيارات الاسعاف اللتي تم اختيارها من مربع القائمه( مثلاً اخترنا عدد 4 سيارات واخترنا 20 موظف  سيتم توزيع الموظفين لـ 4 سيارات  بشكل عشوائي  الاهم ان يكون للسياره الواحده عدد 2 مسعف وسائق وباقي الموظفين سيتم ادراجهم اسفل الجدول كـ إحتياط  (وهذا خطأ مني ماوضحته واعتذر ,  (صاحب الحاجه ارعن) , وانا شاكر جهودك اخي العزيز جعفر دايم متعبك معاي , وانتظر توجيهاتك اخي الحبيب جعفر...

[jjafferr 516]

اخي العزيز :)

 

هذه الصورة بتقول لك كل شئ :)

 

 

وهذا الكود اللي يقوم بالعمل:

Private Sub cmd_Report_Click()On Error GoTo err_cmd_Report_Click    Dim i, Cars, iCountC, iCountE, iM1, iM2, iD1 As Integer    Dim M1(), M2(), D1(), C1() As String    'M1= Musef1    'M2= Musef2    'D1= Driver    'C1= Car number        'how many Cars we are using    Cars = Me.ASS.ListCount    'if No cars are used, exit    If Cars = 0 Then Exit Sub        ReDim M1(Cars), M2(Cars), D1(Cars), C1(Cars) As String'check matching    'how many cars selected    iCountC = 0    For i = 0 To Me.ASS.ListCount - 1        If Me.ASS.Selected(i) Then            iCountC = iCountC + 1                        'assign the cars to an array            C1(iCountC) = Me.ASS.Column(1, i)        End If    Next i        'how many Employees selected    iCountE = 0: iM1 = 0: iM2 = 0: iD1 = 0    For i = 0 To Me.list1.ListCount - 1        If Me.list1.Selected(i) Then            iCountE = iCountE + 1                        'assign the Employees to an array            If Me.list1.Column(2, i) = 1 Then                iM1 = iM1 + 1                M1(iM1) = Me.list1.Column(0, i)                            ElseIf Me.list1.Column(2, i) = 2 Then                iM2 = iM2 + 1                M2(iM2) = Me.list1.Column(0, i)                            ElseIf Me.list1.Column(2, i) = 3 Then                iD1 = iD1 + 1                D1(iD1) = Me.list1.Column(0, i)                            End If                    End If    Next i        'check if the selections are correct    If iCountC * 3 <> iCountE Then        MsgBox "ÚÏÏ ÇáÓíÇÑÇÊ áÇ íÊãÇÔì ãÚ ÚÏÏ ÇáãæÙÝíä ÇáãÎÊÇÑíä" & vbCrLf & _               "The of car does not match the number of Employees"        Exit Sub        ElseIf iCountC <> iM1 Then        MsgBox "a problem with M1"        Exit Sub            ElseIf iCountC <> iM2 Then        MsgBox "a problem with M2"        Exit Sub                ElseIf iCountC <> iD1 Then        MsgBox "a problem with D1"        Exit Sub                    End If'Matching done'Now save to tbl_Temp        'Empty tbl_Temp    CurrentDb.Execute ("Delete * From tbl_Temp")        'now add the new info    Dim rst As DAO.Recordset    Set rst = CurrentDb.OpenRecordset("Select * From tbl_Temp")        For i = 1 To iCountC        rst.AddNew        rst!M1 = M1(i)        rst!M2 = M2(i)        rst!D1 = D1(i)        rst!C1 = C1(i)        rst.Update    Next i'Saving finished    'cleaning up    rst.Close: Set rst = Nothing        'open the Report    DoCmd.OpenReport "rpt_Temp", acViewPreview    Exit Suberr_cmd_Report_Click:    'If Err.Number = 1 Then            'Else        MsgBox Err.Number & vbCrLf & Err.Description    'End If         End Sub

وتحياتي :)

 

جعفر

 

178.TQAReeeeR.accdb.zip

[algr7 2]

ياااسلام عليك روعه ,,,الله يرحم والديك يااااااارب , التعديل فوووووق الممتاز تسلم تسلم اخوي جعفر تعبتك معااااي بكل موضوع افتحه والله جميلك كبير اخوي جعفر ,, شكراً شكراً قليله بحقك :) 

[algr7 2]

طيب اخوي جعفر لو مثلاً يوجد مسعفين وسواقين اكثر من اعداد السيارات ( ابيهم يكونون احتياط )  , ( والله اني طماع :D ) ,,,,,,,  يعني اللي زايدين اضيفهم احتياط في تذييل التقرير سؤالي هل اضيف تقرير جديد من استعلام ,,,, ( بس توجيهاتك مايحتاج تعدل ) وعلى رااااااااسي

[jjafferr 516]

وعليكم السلام :)

 

أبشر :) ، أهم شئ إنك تكون راضي علينا :) ، وتفضل:

 

 

جعفر

178.TQAReeeeR.accdb.zip

[algr7 2]

الله يرضى عليك إن شاءالله , تسلم اخوي جعفر وفيت وكفييييت وزيااااده ويعلم الله محبتنا لأهلنا في عمان اهل الكرم والاخلااق الحميده شكراً جزيلاً وتمت الاجابه ميه بالميه :)

[algr7 2]

السلام عليكم

 

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

التعديل اللي اتمنى تساعدني فيه اخي جعفر انني عدلت بأسماء المهن حيث وضعت المسعف الاول والمسعف الثاني بنفس المهنه وجمعتهم بمهنه واحده وهي مسعف ( أي بما معناه اريد ان يكون المسعف عمودين طولاً ثم عرضاً الاهم ان يكون جميع الموظفين بمهنه واحده وحين تمتلئ جميع الاسعافات بخليه مسعف اول نضيف اليهم ماتبقى من المسعفين الى الخليه الثانيه مسعف ثاني , ولك جزيل الشكر وآسف على الأزعااج

MSFEEEN.rar

[algr7 2]

اللي اقصده ان يكون المسعفين عباره عن تقرير فرعي واحد بعمودين , حاولت بتقرير فرعي لكن ماقدرت بسبب الكود والله اعلم , المهم اللي تشوفه سواء بتقرير فرعي او كود , ويكفي منك التوجيه الله يرحم والديك

[jjafferr 516]

تفضل يالغالي :)

 

بس ان شاء الله يكون اللي تريده :)

 

جعفر

178.2.TQAReeeeR.accdb.zip

[algr7 2]

الله يرحم والديك اخوي جعفر والله ماقصرت ومشكور على صبرك معاي , وتسلم على روحك الطيبه مع الجميع على رااااااسي :)

[jjafferr 516]

هﻻ والله ، وسﻻمة رأسك يالغالي :)

جعفر