تعديل كود if للطباعة

[ahmed_rashed]

If Me.Option1.OptionValue = 1 Then
DoCmd.OpenReport "Print Form buy", acViewPreview
Else
Me.Option2.OptionValue = 2
DoCmd.OpenReport "Print Form RF", acViewPreview
Else
Me.Option3.OptionValue = 3
DoCmd.OpenReport "Print Form PRO", acViewPreview
End If
End If
End If
   اريد تعديل هذا الكود انه في حالة اختيار الاوبشن الاول يطبع  بيع والاوبشن التاني مرتجع وهكذا

 

[AlwaZeeR]

Dim RepName As String
'=================== اسم مجموعة الخيار
Select Case OptionName
Case 1
RepName = "Print Form buy"
Case 2
RepName = "Print Form Rf"
Case 3
RepName = "Print Form Pro"
End Select

    DoCmd.OpenReport RepName, acViewPreview
    

 

[ahmed_rashed]

ممكن تشرح الكود لانة لم يعمل معي

تم تعديل أغسطس 30, 2018 بواسطه ahmed_rashed

[AlwaZeeR]

تفضل عزيزي

 

Test.rar

[ahmed_rashed]

هو الكود في المثال شغال لكن لما انسخة للقاعدة مش بيشتغل تاني شئ انا عايزة يعتمد كمان ع التكست الموجود الخاص برقم الفاتورة

[Shivan Rekany]

استاذنا الوزير قام بالعمل المطلوب لكن لكي تعرف استخدام دالة If قمت بتعديل كودك السابق

If Me.Option1.OptionValue = 1 Then
	DoCmd.OpenReport "Print Form buy", acViewPreview
  ElseIf Me.Option2.OptionValue = 2 then
	DoCmd.OpenReport "Print Form RF", acViewPreview
  ElseIf Me.Option3.OptionValue = 3 then
	DoCmd.OpenReport "Print Form PRO", acViewPreview
End If

 

[ahmed_rashed]

شكرا لك يا غالي تم استيرااد نموذج الاخ AlwaZeeR وتم عمل التعديلات والان يعمل شكرا لك

 

•