Açılan Kutu
Tarih
31/03/2011 13:00
Konu Sahibi
mehcengiz
Yorumlar
7
Okunma
2372
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.222
02/11/2008
505
Tekirdağ
-
11/04/2017,13:41
Çözüldü 
Sponsor Reklam
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.222
02/11/2008
505
Tekirdağ
-
11/04/2017,13:41
Çözüldü 
Sponsor Reklam
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.596
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,00:09
Çözüldü 
Sponsor Reklam
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
  Formda Açılan Websayfasının Sesini Kapatmak ALTANs 7 162 27/05/2017, 00:49 ozanakkaya
  Açılan Formda Currentrecord Datasını Getirmek temre 5 108 07/05/2017, 20:45 temre
  Açılan Kutu Requery Sorunu m_demir 2 76 01/05/2017, 01:05 m_demir
  Açılan Kutudan Seçilene Göre Veri Getirme Allback 2 93 19/04/2017, 16:33 Allback
Brick İç İçe Bağlantılı Açılan Kutu Denetimlerini İlişkilendirme (İl Ve İlçe Benzeri) mustafakucuknazli 19 486 05/04/2017, 12:38 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status