Kod:
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 SubBir de, ben 3. isteğinizle ne yapmaya çalıştığınızı anlayamadım. Isler tablonuzdaki Is_Kodu alanı otomatik sayı. Diğer tablolarda ise Is_Kodu alanı sayı. siz hangi işi seçecek olursanız zaten o form açılacak. Bu iş türü açılan kutusuna yaptığım kodu Is_Kodu metin kutusunun çift tıklandığında olayına koyun mesela. Çift tıklandığında o Is_koduna ait formdaki kaydı açsın. Is_Turu alanından seçtiğiniz iş türüne göre de formda yeni bir kayıt açsın. Böylece tek form üzerinden işin türüne göre kayıt açmış, iş koduna göre de istediğiniz kayda ulaşmış olursunuz...
Siz biraz inceleyin. Yazdıklarımı da gözden geçirin. Bakalım sizin kafanızdaki ne...
Cevabınıza göre devam ederiz...
