Açılan Kutu
Tarih
31/03/2011 13:00
Konu Sahibi
mehcengiz
Yorumlar
7
Okunma
2300
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ğ
-
07/12/2016,15:25
Çö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.222
02/11/2008
505
Tekirdağ
-
07/12/2016,15:25
Çö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.043
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,03: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
  Açılan kutuda seçilen ilk satır kayıt getiriyor sorunu nightashes 2 56 07/12/2016, 18:23 nightashes
  açılan kutu değerine göre aktif/pasif buton ferhatozge 10 338 30/11/2016, 12:01 donepezil
  açılır kutu secime göre yazı rengi ve sorgudan çağrılan ilişikli nesne (bit resmi) maras321 3 91 29/11/2016, 21:39 maras321
  Açılan kutuda girilen ürün kodu yoksa, form açma ferhatozge 9 206 23/11/2016, 23:45 ozanakkaya
  Tablo dan Açılır Kutu ya alınan verilerek Sabit Ekleme yapma ask200075 7 274 21/11/2016, 18:49 ask200075


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya