(16/02/2010, 17:39)Hayri16 yazdı: Sayın linux2ex;
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

Bundan sonrası ustaların işi. Saygılarımla kolay gelsin

üstad bilgi için saol. sanırım bir yerde yanlış yapıyorum. form u açtım bir metin kutusu ekledim, aynı sizin dediğiniz gibi ismini sonhal yaptım. kodları önce bir butona basıldığında olayına ekledim olmayınca metin kutusunun güncelleme sonrasına ekledim. iki durumda da run-time error '94' invalid use of null hata mesajı geliyor. debuga basıncada

brkuzunluk = Len(barkod) burayı gösteriyor.