otomatik barkod numarası üretmek

Deneyin

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

sayın yandemir alternatif olarak harika bir yöntem (yani ürün kodu firma kodu girme zorunluluğu olmayanlar için mükemmel)
gerçekten çok teşekkürederim...
ellerinize sağlık hocam.

Konu çözümlendi mi?

EVET sayın yandemirin uygulamasını kullanacağım. böylece önceden üretilen barkodlarla çakışması, mükerrer bir durum söz konusu da olmayacaktır.
teşekkür ederim.