AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Formda Kayıt Varsa Göster Yoksa Kaydet

1 2
06/02/2009, 01:30

macaliskan

Merhaba Arkadaşlar

Soruma Cevap Aradığım Kadarıyla Bulamadım
belki kolay belki mantık farklı olması gerekli

formda müşteri kayıtları yapmak istiyorum
anahtar olarak müşteri kodu kullandım burada açılır kutu kullanmadım
formda girdiğim müşteri kodu var ise tablodan okuyup
formdaki ilgili alanlara yazmasını göstermesini yoksa
verileri girdikten sonra kaydetmesini istiyorum

eğer bu şekilde örnek varsa linki verirmisiniz
veya örnek
kolay gelsin
ornek dosyayıda gönderiyorum
06/02/2009, 02:08

mehmetdemiral

Sayın Macalistan

Formunuzdaki MUSTERI_KODU alanınızın güncelleştirme öncesi yordamına şu kodları yapıştırın

Kod:
If MUSTERI_KODU = DLookup("[MUSTERI_KODU]", "[MUSTERI_KARTI_table]", "[MUSTERI_KODU]=forms![MUSTERI_KARTI_table]!MUSTERI_KODU") Then
MsgBox "BU MÜŞTERİ NUMARASI DAHA ÖNCE KULLANILMIŞTIR. LÜTFEN DEĞİŞTİRİNİZ."
Undo

Else
End If

sonra da bu metin kutusunun bir altındaki MUSTERI_ADI metin kutusunun girildiğinde olayına da

Kod:
If MUSTERI_KODU = DLookup("[MUSTERI_KODU]", "[MUSTERI_KARTI_table]", "[MUSTERI_KODU]=forms![MUSTERI_KARTI_table]!MUSTERI_KODU") Then
Me.MUSTERI_KODU.SetFocus
Else
End If

kodlarını yapıştırın.

Kolay gelsin..
06/02/2009, 11:09

assenucler

Hocam sayende access'te neler yapılabileceğini ve incelikleri öğreniyoruz.

Teşekkürler.
06/02/2009, 12:57

macaliskan

sayın hocam

verdiğiniz kodları dediğiniz gibi yaptım.
teşekkür ederim kayıdın var olduğu ile ilgili mesajı veriyor
ancak aşagıdaki müşteri adı telefon v.s. bilgileri ekrana yazmıyor

bunları ekrana getirebilirmiyiz kolay gelsin
06/02/2009, 14:34

mehmetdemiral

Buyrun İstediğiniz gibi yaptım..
06/02/2009, 15:30

macaliskan

Sayın Hocam

önce teşekkür ederim henüz bakmadım ancak
bakabilirmiyiz derken farklı anladınız sanırım
ben emri vaki gibi bir imaj değil mümkün oldugunca amacım
nazik olmaktı kodu veya bir örnek göstermeniz veya
başka bir anlatım şekli ilede olabilirdi
sizi farklı düşünmeye sevk ettiysem özür dilerim
kolay gelsin
1 2