Sayın Atoz112,
Aslını isterseniz ben dosyayı siteye yükledikten sonra sizden ilk cevap gelene kadar bazı değişiklikler yapmıştım, ve her seferinde sizden değişiklik yapılmış dosya geldiğinde bu değişiklikleri bulup kendi versiyonuma uyguluyordum. Ancak son yapılanları tam çözemedim. Benim versiyonumu ekliyorum şu anda ama benimki çalışmıyor.
Bir diğer problemim de sizin versiyonunuz dahil ;
Private Sub BarcodeNumber_AfterUpdate()
Me.eancode = code128(BarcodeNumber)
End Sub
kodu sanırım çalışmaz oldu çünkü barkod çubukları çıkmıyor.