Form içindeki kod yapısı aşağıdadır.
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM OzGuR_YaSiN WHERE 1=1"
DoCmd.SetWarnings True
Dim rS As New ADODB.Recordset
Dim rT As New ADODB.Recordset
Dim sOrGu As String
sOrGu = "SELECT Barkod_Adet.Kayıt_No, Barkod_Adet.Malzeme_Adı, Barkod_Adet.Fiyatı, Barkod_Adet.Barkod_No, Barkod_Adet.Koli_Adet, Code128([Barkod_No]) AS Barkod_Kodu " & _
"FROM Barkod_Adet " & _
"WHERE Barkod_Adet.Kayıt_No>=" & Form_Form1.Metin1 & " And Barkod_Adet.Kayıt_No<=" & Form_Form1.Metin3
rS.Open sOrGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rT.Open "OzGuR_YaSiN", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rS.EOF = True Then GoTo 1453
Do Until rS.EOF
For i = 1 To rS!Koli_Adet + 1
rT.AddNew
rT!Kayıt_No = rS!Kayıt_No
rT!Malzeme_Adı = rS!Malzeme_Adı
rT!Fiyatı = rS!Fiyatı
rT!Barkod_No = rS!Barkod_No
rT!Koli_Adet = rS!Koli_Adet
rT!Barkod_Kodu = rS!Barkod_Kodu
rT.Update
Next
rS.MoveNext
Loop
1453
rS.Close
DoCmd.OpenReport "Etiketler_Barkod", acViewPreview, , , acWindowNormal