07/03/2012, 12:54
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
07/03/2012, 12:54
07/03/2012, 14:28
mükerrer kayıt olarak formda arayın örnek ve bilgi bulacaksınız
08/03/2012, 19:45
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
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
10/03/2012, 11:06
yardımcı olabılecek kımse yok mu ??
11/03/2012, 07:23
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.
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 If11/03/2012, 15:50
sağolun sayın sledgeab uyarılarınızı (fırçanızı 
) dikkate alacağım
) dikkate alacağım