Private Sub Uret_Click()
Me.Kod = Left(Year(Now), 1) & Right(Year(Now), 2)
Me.Kod = Me.Kod & Format(Month(Now), "00") & Format(Day(Now), "00")
Me.Kod = Me.Kod & Format(Hour(Now), "00") & Format(Minute(Now), "00") & Format(Second(Now), "00")
End Sub
![Çözüldü](images/icons/cozuldu.png)
Deneyin
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)
![+rep +rep](https://accesstr.net/images/smilies/+rep.gif)
![+rep +rep](https://accesstr.net/images/smilies/+rep.gif)