24/08/2011, 14:32
Yandemir
tcno alanının on exit kısmına yani çıkıldığında olayına yazabilirsiniz.
Private Sub TcNo_Exit(Cancel As Integer)
If IsNull(Me.tsmno) or me.tsmno<>0 Then
Else
Me.TcNo = "X" & Format(Date, "mmdd") & Format(Time, "hhmmss")
End If
End Sub