AccessTr.neT

Tam Versiyon: Access Penceresini Gizledikten Sonra Butonlara Bağlı Olayların Çalışmaması
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba. Ekteki veritabanı uygulamasında Access penceresini gizledikten sonra uygulamayı çalıştırdığımda, gizleme işlemi yapılmadan önce düzgün bir şekilde çalışan  rm_anasayfa formundaki Düzenle, Kalasör Sil ve Klasor Aç butonlarına bağlı olayların şimdi çalışmadığını gördüm. Bu sorunları nasıl giderebilirim?
Merhaba, uygulamanızı inceledim, fakat herhangi bir sorun göremedim. Frm_anasayfa isimli formda bulunan butonlar pencere gizli iken çalışıyor ve ilgili formları açtırıyor.
Ozan bey. Liste kutusunda veriyi secmeden  Duzenle butonuna bastigimda "Düzenlenecek klasörü seçin" diye mesaj kutusu ekrana geliyordu simdi ise eksik ilgeç hatasi veriyor. Ayni şekilde  Liste kutusunda veriyi seçmeden Klasörü Aç butonuna basınca "açmak istediginiz klasoru seçin" diye mesaj kutusu geliyordu simdi ise eksik ilgeç hatasi veren uyari geliyor. Ayrica Liste kutusundaki veriyi secip Düzenle butonuna basinca sectigim klasore ait veriler frm_yeniklasoru ile ekrana geliyordu simdi ise gelmiyor. Son olarak Klasörü Sil butonuna bastigimda Liste kutusunda seçili klasörü "klasör silinsin mi" mesaj kutusu geldikten sonra tamam diyince siliyordu simdi ise silinmiyor, bundan önceki 2,3,4,5,6,7 ve 8 inci yedek dosyalarda da ayni problem var ama daha önce bu problem yoktu yardımcı olabilirseniz sevinirim.
Merhaba, düzenle butonundaki

DoCmd.OpenForm "frm_yeniklasor", , , "[klasor_no]=" & [Liste0]

kodu hatalı, kriter olarak liste0'daki veriyi belirtmişsiniz. Liste0'ın ilk sütununda klasor_no değil, klasor_id alanı mevcut.

Kodun

DoCmd.OpenForm "frm_yeniklasor", , , "[klasor_id]=" & [Liste0]

şeklinde değiştirilmesi gerekli,

Ayrıca hata tanımı da hatalı, kodun tamamı aşağıdaki gibi olmalıdır.

Private Sub Komut3_Click()
On Error GoTo Hata


If IsNull(Liste0) Or Me.Liste0 = "" Then

   MsgBox "Düzenlemek istediğiniz klasörü seçin!", vbInformation, "Klasör Düzenleme Uyarısı"
   Exit Sub

Else

DoCmd.OpenForm "frm_yeniklasor", , , "[klasor_id]=" & [Liste0]

End If

Exit_Komut3_Click:
Exit Sub
Hata:

MsgBox Err.Number

Resume Exit_Komut3_Click
End Sub

liste0 boş ise uyarı, değil ise kod çalıştır.
Klasor Aç butonun tıklanma olayını
Private Sub Komut5_Click()
On Error GoTo Hata


If IsNull(Liste0) Or Me.Liste0 = "" Then

   MsgBox "Açmak istediğiniz klasörü listeden seçin!", vbInformation, "Klasör Açma Uyarısı"
   Exit Sub

Else

DoCmd.OpenForm "frm_klasor", , , "[klasor_id]=" & [Liste0]

End If

Exit_Komut5_Click:
Exit Sub
Hata:

MsgBox Err.Number

Resume Exit_Komut5_Click
End Sub


şeklinde değiştirince ve Klasor Sil butonun tıklanma olayındaki klasor_no yazan yerleri klasor_id olarak düzeltince sorun giderildi. Teşekkürler ozan bey.