- Katılım
- 5 Kasım 2007
- Mesajlar
- 18
- Excel Vers. ve Dili
- excel 2003
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Açılan_Kutu5_AfterUpdate()
Dim stDocName As String
Dim stLinkCriteria As String
Select Case Me.Açılan_Kutu5.Value
Case "Eğitim"
stDocName = "egitim"
Case "Fen-Edebiyat"
stDocName = ""
End Select
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
Private Sub Form_Current()
Me.Dersler.Requery
End Sub
Private Sub Form_Load()
Me.Dersler.Requery
End Sub