Private Sub ÜrünKodu_AfterUpdate()
If Me.ÜrünKodu = "" Or IsNull(Me.ÜrünKodu) Then
Me.BarkodNo = Null
Else
Me.BarkodNo = "8691234567" & Format(Me.ÜrünKodu, "000")
End If
End Sub

Ürün Kodu nesnesini Güncelleştirme Sonrası olayına aşağıdaki kodu yapıştırıp deneyin.
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.