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.