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
![Çözüldü](images/icons/cozuldu.png)
Ü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.