AccessTr.neT

Merhaba;
Örneğimdeki FOkuyucu formunda bir açılan kutu var. Bu açılan kutu verilerini Kitap tablosundan almaktadır. Listede bulunmayan bir veri girmeye çalıştığımızda "Girdiğiniz metin listede bir öğe değil. Listedeki öğeleri düzenlemek istiyormusunuz?" diye soruyor. "Evet" dersek kitap formu açılıyor ve "yeni kayıt" düğmesiyle boş kayda verilerimizi giriyoruz, formu (FKitap formunu) kapatıyoruz. Liste hemen güncellenip yeni veri görünür oluyor. Açılacak olan formu açılan kutunun özellikler bölümünden "Liste öğelerini düzenleme formu" kısmından açılacak olan formun adını girerek yapıyoruz.
Şimdi Soru:
1- Listede veri olmayınca çıkan mesajın içeriğini nasıl değiştirebiliriz? (Şöyle bir metin çıksın "Bu kitap kayıtlı değil kaydetmek istermisiniz?")
2- Açılan form (FKitap) yeni kayıt girilebilecek şekilde gelsin. Yani biz yeniden yeni kayıt ekle butonuna basmayalım. Bu olayı FKitap tablosunun özelliklerinden Olay sekmesindeki Yüklendiğinde bölümünden yapmayacağız.

Sorum biraz uzun oldu ama kusura bakmayın.
Teşekkürler.

açılan kutunun "listeyi sınırla" değerini "Evet" yapıp aşağıdaki kodları uygulayın

Private Sub Kitap_NotInList(NewData As String, Response As Integer)

Dim strSQL As String, X As Integer

X = MsgBox("Girilen <<<KİTAP>>> Listede Yok. Listeye Eklensin mi?", 52, "YENİ ***KİTAP*** SABİTİ EKLENSİN Mİ...?")

If X = vbYes Then

    strSQL = "Insert Into kitap ([kitap]) values ('" & NewData & "')"

    MsgBox "KİTAP Kaydetme İşlemi Tamamlandı.", 64, "Kaydedildi"

    CurrentDb.Execute strSQL, dbFailOnError

    Response = acDataErrAdded

Else

    Response = acDataErrContinue

   Me.Kitap.Value = ""

End If

End Sub

Öncelikle ilginiz için teşekkürler.
1- Kodu "Olay oluştur" kısmından yazdım. Ancak 7. satırda hata verdi.
2- Anladığım kadarıyla listede olamayan bir kitabın demirbaş numarasını direkt olarak FKitap tablosuna ekliyor. Ancak o kitapla ilgili başka bilgilerde girmem gerekiyor. Onun için FKitap formu açılması gerek ve el ile o kitapla ilgili diğer verileride girebileyim. (Örn. Yazar, Yayınevi,ISBN, Sayfa Numarası vs.)
3- Aslında Access bu söylediklerimin büyük bir çoğunluğunu yapıyor. Yapamadığım sadece a- Mesajla yapılan uyarıyı değiştirmek kendi istediğim mesajı yazsın b- form açıldığında boş bir sayfanın gelmesi (Yeni veri sayfası) ve imlecin ilk kutuya gitmesi.

ben yeniden düzenleyip bi örnek hazırlayacağım müsait olduğumda.Bu arada profilinizden ofis versiyonunuzu değiştirirmisiniz?

Ok örneğinizi bekliyorum. Versiyonu düzelttim.

Kitap tablosuna sno alanı ekledim ve coskun_cakal'ın verdiği kodda değişiklik yaptım.