Sn. Arkadaşlarım acccess yaptığı konut programında silinmesini istemediğim yerler için yazdığım kodda sonunda End Bug hatası veriyor. Sebebini anlayamadım yardımlarınız için şimdiden teşekür ederim.

Private Sub Tahliye_Et_Click()
MsgBox "Silmek İstediğinizden Eminmisiniz?", vbYesNoCancel
Dim trz As Control
For Each trz In Me.TAHLİYE.Controls

Select Case trz.ControlType
Case acTextBox, acComboBox
If trz.Name <> "DAİRE_ADI_ESKİ" And trz.Name <> "DAİRE_ADI" And trz.Name <> "DAİRE_NO" An

her keze merhaba!

Elimde bir kullanıcı formum var ve kayıt buton ile bir yandan dosya bilgilerini veri tabanına kaydederken bir yandan belirlediğim bir dizine metin kutusunda belirttiğim ad ile bir klasör açmak istiyorum çok basit bir örnek hazırladım
örneğin : örneğim dosya numarası adında bir metin kutusu ver bir de kayıt butonum
bu kayıt buton ile bir yandan veri tabanına kayıt yaparken bir yandan örnekte verdiğim klasöre(açılan dosyalar klasörü) yeni bir(metin kutusunda belirttiğim ad