Dim MM(11) As String MM(0) = "جانفي" MM(1) = "فيفري" MM(2) = "مارس" MM(3) = "افريل" MM(4) = "ماي" MM(5) = "جوان" MM(6) = "جويلية" MM(7) = "اوت" MM(8) = "سبتمبر" MM(9) = "اكتوبر" MM(10) = "نوفمبر" MM(11) = "ديسمبر" '================================= Dim MM1 As String, MM2 As String, MM3 As String, MM4 As String, _ MM5 As String, MM6 As String, MM7 As String, MM8 As String, _ MM9 As String, MM10 As String, MM11 As String, MM12 As String '================================= Select Case Combo2.Text Case "جانفي" MM1 = MM(0): MM2 = MM(1): MM3 = MM(2): MM4 = MM(3) MM5 = MM(4): MM6 = MM(5): MM7 = MM(6): MM8 = MM(7) MM9 = MM(8): MM10 = MM(9): MM11 = MM(10): MM12 = MM(11) Case "فيفري" MM1 = MM(1): MM2 = MM(2): MM3 = MM(3): MM4 = MM(4) MM5 = MM(5): MM6 = MM(6): MM7 = MM(7): MM8 = MM(8) MM9 = MM(9): MM10 = MM(10): MM11 = MM(11): MM12 = MM(0) Case "مارس" MM1 = MM(2): MM2 = MM(3): MM3 = MM(4): MM4 = MM(5) MM5 = MM(6): MM6 = MM(7): MM7 = MM(8): MM8 = MM(9) MM9 = MM(10): MM10 = MM(11): MM11 = MM(0): MM12 = MM(1) Case "افريل" MM1 = MM(3): MM2 = MM(4): MM3 = MM(5): MM4 = MM(6) MM5 = MM(7): MM6 = MM(8): MM7 = MM(9): MM8 = MM(10) MM9 = MM(11): MM10 = MM(0): MM11 = MM(1): MM12 = MM(2) Case "ماي" MM1 = MM(4): MM2 = MM(5): MM3 = MM(6): MM4 = MM(7) MM5 = MM(8): MM6 = MM(9): MM7 = MM(10): MM8 = MM(11) MM9 = MM(0): MM10 = MM(1): MM11 = MM(2): MM12 = MM(3) Case "جوان" MM1 = MM(5): MM2 = MM(6): MM3 = MM(7): MM4 = MM(8) MM5 = MM(9): MM6 = MM(10): MM7 = MM(11): MM8 = MM(0) MM9 = MM(1): MM10 = MM(2): MM11 = MM(3): MM12 = MM(4) Case "جويلية" MM1 = MM(6): MM2 = MM(7): MM3 = MM(8): MM4 = MM(9) MM5 = MM(10): MM6 = MM(11): MM7 = MM(0): MM8 = MM(1) MM9 = MM(2): MM10 = MM(3): MM11 = MM(4): MM12 = MM(5) Case "اوت" MM1 = MM(7): MM2 = MM(8): MM3 = MM(9): MM4 = MM(10) MM5 = MM(11): MM6 = MM(0): MM7 = MM(1): MM8 = MM(2) MM9 = MM(3): MM10 = MM(4): MM11 = MM(5): MM12 = MM(6) Case "سبتمبر" MM1 = MM(8): MM2 = MM(9): MM3 = MM(10): MM4 = MM(11) MM5 = MM(0): MM6 = MM(1): MM7 = MM(2): MM8 = MM(3) MM9 = MM(4): MM10 = MM(5): MM11 = MM(6): MM12 = MM(7) Case "اكتوبر" MM1 = MM(9): MM2 = MM(10): MM3 = MM(11): MM4 = MM(0) MM5 = MM(1): MM6 = MM(2): MM7 = MM(3): MM8 = MM(4) MM9 = MM(5): MM10 = MM(6): MM11 = MM(7): MM12 = MM(8) Case "نوفمبر" MM1 = MM(10): MM2 = MM(11): MM3 = MM(0): MM4 = MM(1) MM5 = MM(2): MM6 = MM(3): MM7 = MM(4): MM8 = MM(5) MM9 = MM(6): MM10 = MM(7): MM11 = MM(8): MM12 = MM(9) Case "ديسمبر" MM1 = MM(11): MM2 = MM(0): MM3 = MM(1): MM4 = MM(2) MM5 = MM(3): MM6 = MM(4): MM7 = MM(5): MM8 = MM(6) MM9 = MM(7): MM10 = MM(8): MM11 = MM(9): MM12 = MM(10) End Select '=================================================== '=========================================== ARetraite2.Field109 = MM1 & " - " & Combo1 ARetraite2.Field110 = MM2 & " - " & Combo1 ARetraite2.Field111 = MM3 & " - " & Combo1 ARetraite2.Field112 = MM4 & " - " & Combo1 ARetraite2.Field113 = MM5 & " - " & Combo1 ARetraite2.Field114 = MM6 & " - " & Combo1 ARetraite2.Field115 = MM7 & " - " & Combo1 ARetraite2.Field116 = MM8 & " - " & Combo1 ARetraite2.Field117 = MM9 & " - " & Combo1 ARetraite2.Field118 = MM10 & " - " & Combo1 ARetraite2.Field119 = MM11 & " - " & Combo1 ARetraite2.Field120 = MM12 & " - " & Combo1 ARetraite2.Field97 = MM1 & " - " & Combo1 + 1 ARetraite2.Field98 = MM2 & " - " & Combo1 + 1 ARetraite2.Field99 = MM3 & " - " & Combo1 + 1 ARetraite2.Field100 = MM4 & " - " & Combo1 + 1 ARetraite2.Field101 = MM5 & " - " & Combo1 + 1 ARetraite2.Field102 = MM6 & " - " & Combo1 + 1 ARetraite2.Field103 = MM7 & " - " & Combo1 + 1 ARetraite2.Field104 = MM8 & " - " & Combo1 + 1 ARetraite2.Field105 = MM9 & " - " & Combo1 + 1 ARetraite2.Field106 = MM10 & " - " & Combo1 + 1 ARetraite2.Field107 = MM11 & " - " & Combo1 + 1 ARetraite2.Field108 = MM12 & " - " & Combo1 + 1 ARetraite2.Field85 = MM1 & " - " & Combo1 + 2 ARetraite2.Field86 = MM2 & " - " & Combo1 + 2 ARetraite2.Field87 = MM3 & " - " & Combo1 + 2 ARetraite2.Field88 = MM4 & " - " & Combo1 + 2 ARetraite2.Field89 = MM5 & " - " & Combo1 + 2 ARetraite2.Field90 = MM6 & " - " & Combo1 + 2 ARetraite2.Field91 = MM7 & " - " & Combo1 + 2 ARetraite2.Field92 = MM8 & " - " & Combo1 + 2 ARetraite2.Field93 = MM9 & " - " & Combo1 + 2 ARetraite2.Field94 = MM10 & " - " & Combo1 + 2 ARetraite2.Field95 = MM11 & " - " & Combo1 + 2 ARetraite2.Field96 = MM12 & " - " & Combo1 + 2 ARetraite2.Field73 = MM1 & " - " & Combo1 + 3 ARetraite2.Field74 = MM2 & " - " & Combo1 + 3 ARetraite2.Field75 = MM3 & " - " & Combo1 + 3 ARetraite2.Field76 = MM4 & " - " & Combo1 + 3 ARetraite2.Field77 = MM5 & " - " & Combo1 + 3 ARetraite2.Field78 = MM6 & " - " & Combo1 + 3 ARetraite2.Field79 = MM7 & " - " & Combo1 + 3 ARetraite2.Field80 = MM8 & " - " & Combo1 + 3 ARetraite2.Field81 = MM9 & " - " & Combo1 + 3 ARetraite2.Field82 = MM10 & " - " & Combo1 + 3 ARetraite2.Field83 = MM11 & " - " & Combo1 + 3 ARetraite2.Field84 = MM12 & " - " & Combo1 + 3 ARetraite2.Field61 = MM1 & " - " & Combo1 + 4 ARetraite2.Field62 = MM2 & " - " & Combo1 + 4 ARetraite2.Field63 = MM3 & " - " & Combo1 + 4 ARetraite2.Field64 = MM4 & " - " & Combo1 + 4 ARetraite2.Field65 = MM5 & " - " & Combo1 + 4 ARetraite2.Field66 = MM6 & " - " & Combo1 + 4 ARetraite2.Field67 = MM7 & " - " & Combo1 + 4 ARetraite2.Field68 = MM8 & " - " & Combo1 + 4 ARetraite2.Field69 = MM9 & " - " & Combo1 + 4 ARetraite2.Field70 = MM10 & " - " & Combo1 + 4 ARetraite2.Field71 = MM11 & " - " & Combo1 + 4 ARetraite2.Field72 = MM12 & " - " & Combo1 + 4 '=========================================== ARetraite2.Show
