merhaba üstadlarım

[code=vba]
Select Case Me.ihsay
Case 0
MsgBox "Evraka Bağlı Resmi İhtar Bulunmamaktadır.", vbInformation, "U Y A R I"
Case 1
DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ihtar_tarih_no]"
Case 2
Me.ih1 = Split(Me.ihtar_no, " ")(0)
Me.ih2 = Split(Me.ihtar_no, " ")(1)
DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ih1]"
DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ih2]"
Case