AccessTr.neT

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

Hocam, mükemmel olmuş... Elinize sağlık... Bitirince inşaalah paylaşırım herkesle...

Kolay gelsin...