Merhaba. 10 a yakın formları olan bir veri tabanım var.Hemen hemen tüm formlarda benzer metin kutuları var. Bu denetimlerin boş olup olmadığını vb dan kontrol ediyorum.
Ancak her form için aynı denetimi yapmaktansa tek yerde yazıp tüm denetimlerde kullanmak istiyorum.Böylece gereksiz yere aynı kontrolu defalarca yazmamış olurum. Vba da yazılan kodda sorun yok Cancel as integer ifadesiyle boş olan denetimden çıkılmamasını sağlayabiliyoruz. Ancak modülde yazılan kodda msgboxtan sonra setfocus yapamıyorum. Bunu nasıl çözerim. Modülmü kullanmak makromu kullanmak daha sağlıklı?
örnek dosya ektedir.(Access 2010)


Public Sub Kontrol()
Dim cancel As Integer
If IsNull(sayi) Or IsEmpty(sayi) Then
MsgBox ("bir sayi giriniz")
Screen.ActiveForm.ActiveControl.SetFocus /Bu kod çalışmıyor.
End If
End Sub