Aşağıdaki kod sizin yazdığınız barkodu 25 karaktere tamamlar. Aynı mantıkla adet kısmını da çözebilirsiniz. Ama bunları txt ye aktarma işi benim bilgim dışında.
Formunuzda bir metin kutusu açıp adını sonhal yapın , kodları da bir komut tuşuna atayın.
Kod:
Dim brkuzunluk As Integer
Dim gereken As Integer
Dim asilbarkod As String
Dim i As Integer
Dim ilave As String
Dim eklesorgu As String
ilave = ""
brkuzunluk = Len(barkod)
gereken = 25 - brkuzunluk
For i = 1 To gereken
ilave = ilave & " "
Next
asilbarkod = barkod & ilave
sonhal = asilbarkod & ";" & adet
eklesorgu = "INSERT INTO T_ORNEK (veri) VALUES(forms!FORM1!.sonhal)"
DoCmd.RunSQL eklesorgu