![Çözüldü](images/icons/cozuldu.png)
Tek ana form ve iki alt form ile ilk cevabimda ki sekilde yapabilirsiniz.
Private Sub Isin_Turu_Click()
Dim IsinTuruAlani As String
IsinTuruAlani = Me.Isin_Turu.Text
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
End Sub
(22/04/2009, 12:49)tdsharun yazdı: Forum Kurallarını okumanız yeterli...