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
	
)) Neyse, benim en sevdiğim şeyi yapmışsın ve öğretmeye çalıştığım şeyi kendin uygulamışsın. Amacım sana ekmek vermek değil, ekmek yapmayı öğretmekti.