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

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

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

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

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

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

جعفر

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

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

اخي العزيز :)

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

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

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 Sub
err_cmd_Report_Click:

    'If Err.Number = 1 Then
        
    'Else
        MsgBox Err.Number & vbCrLf & Err.Description
    'End If
    
     
End Sub

وتحياتي :)

جعفر

178.TQAReeeeR.accdb.zip

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

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

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

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

جعفر

178.TQAReeeeR.accdb.zip

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

السلام عليكم

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

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

MSFEEEN.rar

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

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

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

جعفر

178.2.TQAReeeeR.accdb.zip

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

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

جعفر