Kod:
Private Sub PaketSayisi_AfterUpdate()
Me.Koli_1 = Null
Me.Koli_2 = Null
Me.Koli_3 = Null
Me.BarkodNo1 = Null
Me.BarkodNo2 = Null
Me.BarkodNo3 = Null
Select Case PaketSayisi
Case 1
Me.Koli_1 = "1/1"
Me.BarkodNo1 = Me.BarkodNo1 & "(01)0868078205" & Format(Me.ÜrünKodu, "0000")
Me.BarkodNo1 = Me.BarkodNo1 & "0101"
Me.okoli1 = -1
Me.okoli2 = 0
Me.okoli3 = 0
Case 2
Me.Koli_1 = "1/2"
Me.Koli_2 = "2/2"
Me.BarkodNo1 = Me.BarkodNo1 & "(01)0868078205" & Format(Me.ÜrünKodu, "0000")
Me.BarkodNo2 = Me.BarkodNo2 & "(01)0868078205" & Format(Me.ÜrünKodu, "0000")
Me.BarkodNo1 = Me.BarkodNo1 & "0102"
Me.BarkodNo2 = Me.BarkodNo2 & "0202"
Me.okoli1 = -1
Me.okoli2 = -1
Me.okoli3 = 0
Case 3
Me.Koli_1 = "1/3"
Me.Koli_2 = "2/3"
Me.Koli_3 = "3/3"
Me.BarkodNo1 = Me.BarkodNo1 & "(01)0868078205" & Format(Me.ÜrünKodu, "0000")
Me.BarkodNo2 = Me.BarkodNo2 & "(01)0868078205" & Format(Me.ÜrünKodu, "0000")
Me.BarkodNo3 = Me.BarkodNo3 & "(01)0868078205" & Format(Me.ÜrünKodu, "0000")
Me.BarkodNo1 = Me.BarkodNo1 & "0103"
Me.BarkodNo2 = Me.BarkodNo2 & "0203"
Me.BarkodNo3 = Me.BarkodNo3 & "0303"
Me.okoli1 = -1
Me.okoli2 = -1
Me.okoli3 = -1
End Select
Me.Refresh
End Sub