tarihikontrol adlı fonksiyonun içerisindeki
Kod:
'End If
'
'If Me.hrktarih <> "" And IsNull(Me.hrkevrak) Or Me.hrkevrak = "" Then
' Me.hrkevrak.SetFocus
fonksiyon,aşağıdaki gibi yer alsın.
Kod:
Sub tarihikontrol()
If IsNull(Me.hrktarih) Or Me.hrktarih = "" Then
Me.hrktarih.SetFocus
Else
Exit Sub
End If
End Sub