Skip to main content

AccessTr.neT


Açılan Kutu

Açılan Kutu

Çözüldü #1
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.
.rar Okuyucu.rar (Dosya Boyutu: 20,43 KB | İndirme Sayısı: 10)
mehcengiz, 06-03-2010 tarihinden beri AccessTr.neT üyesidir
Cevapla
Çözüldü #2
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
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
Çözüldü #3
Ö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.
mehcengiz, 06-03-2010 tarihinden beri AccessTr.neT üyesidir
Cevapla
Çözüldü #4
ben yeniden düzenleyip bi örnek hazırlayacağım müsait olduğumda.Bu arada profilinizden ofis versiyonunuzu değiştirirmisiniz?
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
Çözüldü #5
Ok örneğinizi bekliyorum. Versiyonu düzelttim.
mehcengiz, 06-03-2010 tarihinden beri AccessTr.neT üyesidir
Cevapla
Çözüldü #6
Kitap tablosuna sno alanı ekledim ve coskun_cakal'ın verdiği kodda değişiklik yaptım.

.rar Okuyucu__.rar (Dosya Boyutu: 27,63 KB | İndirme Sayısı: 13)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task