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.