Skip to main content

AccessTr.neT


aynı kayıt

aynı kayıt

Çözüldü #1
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)
haksızlık Karşısında eğilmeyiniz. Zira haklılığınız ile birlikte şerefinizide kaydedersiniz... (HZ ALİ)
Cevapla
Çözüldü #2
mükerrer kayıt olarak formda arayın örnek ve bilgi bulacaksınız
Cevapla
Çözüldü #3
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
haksızlık Karşısında eğilmeyiniz. Zira haklılığınız ile birlikte şerefinizide kaydedersiniz... (HZ ALİ)
Son Düzenleme: 08/03/2012, 19:46, Düzenleyen: disa2006.
Cevapla
Çözüldü #4
yardımcı olabılecek kımse yok mu ??
haksızlık Karşısında eğilmeyiniz. Zira haklılığınız ile birlikte şerefinizide kaydedersiniz... (HZ ALİ)
Cevapla
Çözüldü #5
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
Cevapla
Çözüldü #6
sağolun sayın sledgeab uyarılarınızı (fırçanızı Lol ) dikkate alacağım
haksızlık Karşısında eğilmeyiniz. Zira haklılığınız ile birlikte şerefinizide kaydedersiniz... (HZ ALİ)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task