Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
31/03/2011 13:00
Konu Sahibi
mehcengiz
Yorumlar
7
Okunma
2636
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

mehcengiz

Aktif Üye
Kullanici Avatari
Aktif Üye
29
06/03/2010
0
Aydın
Ofis 2007
19/02/2015,19:04
Çözüldü 
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.


Ek Dosyalar
.rar   Okuyucu.rar (Dosya Boyutu: 20,43 KB / İndirme Sayısı: 10)
mehcengiz, 06-03-2010 tarihinden beri AccessTr.neT üyesidir
Cevapla

Coskun0559

Uzman
Kullanici Avatari
Uzman
C.... Ç....
1.221
02/11/2008
505
Tekirdağ
-
11/10/2017,11:43
Çözüldü 
açılan kutunun "listeyi sınırla" değerini "Evet" yapıp aşağıdaki kodları uygulayın

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
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

mehcengiz

Aktif Üye
Kullanici Avatari
Aktif Üye
29
06/03/2010
0
Aydın
Ofis 2007
19/02/2015,19:04
Çözüldü 
Ö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

Coskun0559

Uzman
Kullanici Avatari
Uzman
C.... Ç....
1.221
02/11/2008
505
Tekirdağ
-
11/10/2017,11:43
Çözüldü 
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

mehcengiz

Aktif Üye
Kullanici Avatari
Aktif Üye
29
06/03/2010
0
Aydın
Ofis 2007
19/02/2015,19:04
Çözüldü 
Ok örneğinizi bekliyorum. Versiyonu düzelttim.


mehcengiz, 06-03-2010 tarihinden beri AccessTr.neT üyesidir
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.879
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,02:35
Çözüldü 
Kitap tablosuna sno alanı ekledim ve coskun_cakal'ın verdiği kodda değişiklik yaptım.


Ek Dosyalar
.rar   Okuyucu__.rar (Dosya Boyutu: 27,63 KB / İndirme Sayısı: 12)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Açılan İlişikli Kutular Rapor Alanında Sadece Sayı Olarak Gözüküyor whelkshell 8 324 10/10/2017, 14:36 ozanakkaya
Çözüldü Açılan Kutu Menüsünden Yapılan Seçimlerin Tabloya Kaydı ertans 2 316 07/08/2017, 17:37 ozguryasin
Çözüldü Combobox Açılan Kutu Yazdığım Metne Göre Otomatik Bulma keskin78 3 331 30/06/2017, 01:16 keskin78
Çözüldü Formda Açılan Kutu Bilgilerini Tabloya Kayıt Hatası U.ALTUN 6 440 31/05/2017, 17:41 U.ALTUN
Çözüldü Formda Açılan Websayfasının Sesini Kapatmak ALTANs 7 529 27/05/2017, 00:49 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.