تصحيح كود

[zabin]

ممكن احد يصحح هذا الكود وشمرا للاساتذه

 

Private Sub Command32_Click()
Dim formName As String
Select Case Me.F
    Case Is = "الاحداث"
        formName = "form1"
    Case Is = "الجنح"
        formName = "form2"
    Case Is = "الجنايات"
        formName = "form3"
End Select

SearchOrNew = "Search" 
DoCmd.OpenForm formName, , , "idd = " & Me.IDD
End Sub

[ابو جودي]

ممكن مرفق

[zabin]

16 ساعات مضت, ابو جودي said:

ممكن مرفق

اقدم لك شكري واعتزازي

https://www.dropbox.com/s/6hvb9xhus2sbuz2/العزيز ابو جودي.accdb?dl=0

[Eng.Qassim]

اعتقد المفروض

Select Case Me.Combo30

لكن بصراحة لم افهم كيف يعمل البرنامج

[zabin]

18 ساعات مضت, ابو جودي said:

ممكن مرفق

اقدم لك شكري واعتزازي ،،، هذا البرنامج ماسح ضوئي لتخزين الملفات القديمة يعني ارشيف ملفات

https://www.dropbox.com/s/6hvb9xhus2sbuz2/العزيز ابو جودي.accdb?dl=0