Koyduğunuz butonların açması gereken F_Gider_Nakit, F_Gider_Cek vs gibi formlar yok ki? O komut düğmeleri neyi açıyor?
Bir de şunu belirteyim ki, accesste sihirbazlar kullanarak oluşturulan kdlar daha sonra düğmelerin adları değiştiğinde çalışmaz. Örnek yapalım birlikte:
Bir forma bir komut düğmesi koyalım. Sihirbaz bize eylemi sordu, form açma dedik. Formu da gösterdik. Kodlar yazıldı. Bu kodlar şöyle:
Kod:
Private Sub Komut1_Click()
On Error GoTo Err_Komut1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Form1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut1_Click:
Exit Sub
Err_Komut1_Click:
MsgBox Err.Description
Resume Exit_Komut1_Click
End Sub
Şimdi bu komut düğmesi Form1'i açmak üzere otomatik oluşturuldu. Biz komut düğmesinin ismini değiştirmek istedik. Dedik düğmenin adı "Form 1'i Aç" olsun. Gittik değiştirdik. O zaman yeni isimli düğmenin kodları şöyle oldu:
Kod:
Private Sub Form_1_i_Aç_Click()
End Sub
Gördüğünüz gibi içinde hiç kod olmayan boş bir düğme oluştu. Diğer kodlar ise yine olduğu gibi duruyor. Onun içindeki kodları alıp düzeltmemiz de gerek
)
Yani şöyle olacak
Kod:
Private Sub Form_1_i_Aç_Click()
On Error GoTo Err_Form_1_i_Aç_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Form1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Form_1_i_Aç_Click:
Exit Sub
Err_Form_1_i_Aç_Click:
MsgBox Err.Description
Resume Exit_Form_1_i_Aç_Click
End Sub
Eğer böyle yapmazsanız, hem yeni düğme çalışmayacak hem de artık komut1 adında bir düğme atayamayacaksınız.
Sanırım anlaşılmıştır.
Kolay gelsin..
NOT: Bu arada otomatik kodlardan kurtulup sihirbazların yazdığı kodları değil kendi yazdığınız kodları kullanmanız daha mantıklı olacaktır. Artık accesstr'nin size kazandırdığı bir alışkanlık da "kodlarımı kendim yazarım" olmalıdır. Sitede form açma ve kapama ile ilgili bolca örnek var, online kod bankamızda da açıklamalar dolu.
İnadına, ille de Accesstr.net...
