کار نکردن vba در access

[FVVSBN]

سلام
در رویداد کلیک یک دکمه این کدو نوشتم ولی هیچ اتفاقی نمیوفته.
چرا؟


Private Sub Command58_Click()
On Error GoTo Err_Command58_Click


MsgBox "salam", vbInformation, "f"
Screen.PreviousControl.SetFocus
DoCmd.FindNext

Exit_Command58_Click:
Exit Sub

Err_Command58_Click:
MsgBox Err.Description
Resume Exit_Command58_Click

End Sub

[mazoolagh]

منطقی ترین علتش این هست که اجرا نمیشه!

در محیط طراحی فرم روی propertyهای کلید بخش eventها چک کنین که onclick منسوب به همین کد هست. شاید اسم کلید رو عوض کردین.
در محیط کدنویسی روی خط اول یک Breakpoint بگذارین و فرم رو باز و دکمه رو کلیک کنین. ببینین اصلا اجرای برنامه متوقف میشه یا نه.