+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: aynı kayıt (/konu-ayni-kayit.html)
aynı kayıt - disa2006 - 07/03/2012
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
Cvp: aynı kayıt - C*e*l*o*y*c*e - 07/03/2012
mükerrer kayıt olarak formda arayın örnek ve bilgi bulacaksınız
Cvp: aynı kayıt - disa2006 - 08/03/2012
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
Cvp: aynı kayıt - disa2006 - 10/03/2012
yardımcı olabılecek kımse yok mu ??
Cvp: aynı kayıt - ozanakkaya - 11/03/2012
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 IfCvp: aynı kayıt - disa2006 - 11/03/2012
sağolun sayın sledgeab uyarılarınızı (fırçanızı
) dikkate alacağım