Kod:
Private Sub BUTONADI_Click()
On Error GoTo hata
Dim IsinTuruAlani As String
IsinTuruAlani = Me.Isin_Turu.Column(1)
Select Case IsinTuruAlani
Case "Ambalaj Tasarımı"
DoCmd.OpenForm "Ambalaj", , , "[Is_Kodu]=" & Me![Is_Kodu]
Case "Web Tasarımı"
DoCmd.OpenForm "Web", , , "[Is_Kodu]=" & Me![Is_Kodu]
Case "Baskılı İşler Tasarımı"
DoCmd.OpenForm "Baskili", , , "[Is_Kodu]=" & Me![Is_Kodu]
Case "Diğer İşler"
DoCmd.OpenForm "Diger", , , "[Is_Kodu]=" & Me![Is_Kodu]
End Select
hata: DoCmd.GoToRecord , , acNewRec
End Sub