Kod:
Private Sub PaketSayisi_AfterUpdate()
Me.Koli_1 = Null
Me.Koli_2 = Null
Me.Koli_3 = Null
Select Case PaketSayisi
Case 1
Me.Koli_1 = "1/1"
Me.BarkodNo1 = Me.BarkodNo1 & "0101"
Case 2
Me.Koli_1 = "1/2"
Me.Koli_2 = "2/2"
Me.BarkodNo1 = Me.BarkodNo1 & "0102"
Me.BarkodNo2 = Me.BarkodNo2 & "0202"
Case 3
Me.Koli_1 = "1/2"
Me.Koli_2 = "2/2"
Me.Koli_3 = "3/3"
Me.BarkodNo1 = Me.BarkodNo1 & "0102"
Me.BarkodNo2 = Me.BarkodNo2 & "0202"
Me.BarkodNo3 = Me.BarkodNo3 & "0203"
End Select
Me.Refresh
End Sub