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 SubKod:
Private Sub Form_1_i_Aç_Click()
End Sub
)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 SubSanı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.
