Site Kuralları:
5-) Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Sorunuz ile ilgili form, rapor, sorgu vs. nesne isimlerini mutlaka belirtiniz. Sorunuzu mutlaka konuya yazınız, sorunuzu Access form üzerine yazmayınız, konuya soru veya resim içeren slayt veya doküman eklemeyiniz.
[Uyarı Puanı: +2]
malzeme ismi metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle.
If IsNull(Me.kod) And IsNull(Me.malzeme_ismi) Then
MsgBox ("kod ve malzeme ismi boş geçilemez")
Else
If DCount("kod", "stoklistesi", "kod=" & Me.kod) > 0 And DCount("kod", "stoklistesi", "[malzeme ismi]=" & "'" & Me.[malzeme ismi] & "'") > 0 Then
MsgBox "Aynı kayıtttan var!", vbOKOnly + vbInformation
End If
End If