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
#7
tcno alanının on exit kısmına yani çıkıldığında olayına yazabilirsiniz.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez. 