stok takıp programında aynı malzeme stok numarasına sahıp bır kayıt gırmek ıstedıgımde mevcut kayıdın oldugunu ve hangı konumda oldugunu yazan bir mesaj kutusu olusturmak ıstıyorum nasıl yapabılırım

Ek Dosyalar

125.zip(953.54 KB)

mükerrer kayıt olarak formda arayın örnek ve bilgi bulacaksınız

hem kod numarasına hemde malzeme ismine gore mukerrer kayıt kontrolu yapmak ıstıyorum ama ılgılı kodu nereye yazacagım

If DCount("kod", "stok listesi", "kod= #" & [kod] & "# and malzeme ismi=" & [malzeme ismi] & "") > 0 Then MsgBox "Kontrolden geçemez"
End Sub

Public Sub kontrol()
Dim kod As String
If DCount("kod", "stoklistesi", "kod= #" & kod & "# and malzeme ismi='" & [malzeme ismi] & "'") > 0 Then
MsgBox "Aynı kayıtttan var!", vbOKOnly + vbInformation
Cancel = True
Me.Undo
End If
End Sub

ayrıca mevcut kaydı oldugu konumu nasıl gosterecegımı bulamadım

---

kaydet butonuna basıldıgında mı yoksa guncellestırıldıgınde mı nereye yazacagım artı kodta bır yanlıslık var mı yorumlarsanız sevınırım

yardımcı olabılecek kımse yok mu ??

Yardımcı olmak istiyoruz, ancak sorduğun soruda form ismi yok, bir sürü formda malzeme ismi ve kod içeren ve kayıt eklemeye yarayan form arıyoruz. Lütfen sizde bize yardımcı olun. Form ismini belirtin.

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

sağolun sayın sledgeab uyarılarınızı (fırçanızı ) dikkate alacağım