Private Sub Komut109_Click()
On Error GoTo Err_Komut109_Click
varmi = DCount("BarkodNo", "TbStok", "BarkodNo='" & Me.BarkodNo & "'")
If varmi >= 1 Then
MsgBox "Bu barkod numarası daha önce sisteme kaydedilmiş lütfen kontrol ediniz.", vbCritical + vbOKOnly, "AccessTR.Net"
Me.BarkodNo.Undo
Else
DoCmd.Close
End If
Exit_Komut109_Click:
Exit Sub
Err_Komut109_Click:
MsgBox Err.Description
Resume Exit_Komut109_Click
End Sub
YeniÜrün formunu tasarım görünümünde açın. Onay yazısı bulunan butonun tıklandığında kodu aşağıdaki gibi olacaktır:
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.