السلام عليكم اخوانى سؤال بسيط بخصوص فتح تقرير من خلال مربع تحرير وسرد
نفرض جدلا ان مربع تحرير وسرد يسمى ( r )
وماكرو التقرير الاول يسمى (m)
وماكرو التقرير الثانى يسمى (n)
وماكرو التقرير الثالث يسمى (s)
وماكرو التقرير الرابع يسمى (d)
وهكذا
كيف انشئ ذلك بقاعدة If else
علما بانى قمت بانشاء تقريران فقط ولم استطيع تكملة الباقى
ارجو التعديل على هذا الكود
Private Sub r_AfterUpdate() If [r] = 1 Then DoCmd.RunMacro "m" Else DoCmd.RunMacro "n" End If End Sub
تفضل اخي الكريم
Private Sub r_AfterUpdate() If [r] = 1 Then DoCmd.RunMacro "m" ElseIf [r] = 2 Then DoCmd.RunMacro "n" ElseIf [r] = 3 Then DoCmd.RunMacro "s" ElseIf [r] = 4 Then DoCmd.RunMacro "d" End If End Sub
zahrah كتب:
تفضل اخي الكريم
Private Sub r_AfterUpdate() If [r] = 1 Then DoCmd.RunMacro "m" ElseIf [r] = 2 Then DoCmd.RunMacro "n" ElseIf [r] = 3 Then DoCmd.RunMacro "s" ElseIf [r] = 4 Then DoCmd.RunMacro "d" End If End Sub
اسال الله العلى القدير من فوق سبع سموات ان يجعل هذا فى ميزان حساناتك
وان ينفعنا بعلمك دائما ويدخلك به جنته
تم تعديل هذه المشاركة بواسطة السيد جمال في 6 مايو 2014 في 16:24
هذا الموضوع مغلق.
