liste kutusunda seçim
#1
selamlar
liste1 de bulunan kayıtlardan birini seçtiğimde tamam butonuna basınca alttaki kodlar ile seçili kaydı filitre etmek istiyorum

liste1 de seçili bir kayıt var ise filtreleme yapmalı
yok ise
arama formun kapatmalı

Visual Basic
  1. If Liste1.Selected(1) = True Then
  2. DoCmd.OpenForm "FormAlıcıAdres", acNormal, "", "[TabloAdres]![Adres_ID]=[Forms]![FormAdresArama]![Liste1]", , acNormal
  3. DoCmd.Close acForm, "FormAdresArama"
  4. Else
  5. DoCmd.OpenForm "FormAlıcıAdres", acNormal, "", "[TabloAdres]![Adres_ID]=[Forms]![FormAdresArama]![Liste1]", , acNormal
  6. DoCmd.Close acForm, "FormAdresArama"
  7. End If





  Alıntı
Bu mesajı beğenenler:
#2
Merhaba,
kodu şu şekilde değiştiriniz.
Visual Basic
  1. If Liste1.Selected(1) = True Then
  2. DoCmd.OpenForm "FormAlıcıAdres", acNormal, "", "[TabloAdres]![Adres_ID]=[Forms]![FormAdresArama]![Liste1]", , acNormal
  3. DoCmd.Close acForm, "FormAdresArama"
  4. Else
  5. DoCmd.Close acForm,
  6. End If



iyi çalışmalar...



  Alıntı
Bu mesajı beğenenler:
#3
teşekkürler



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-20 [TABLO] Liste Kutusu-çoklu Seçim özellikli Alana Excelden Verileri Yapıştırma mkoblayek 18 1.097 18-02-2025, 08:49
Son Mesaj: mkoblayek
  Liste Kutusunda Il Ve Ilçe Isimleri Yerine Id Görünmesi MDİLBİRLİĞİ 3 482 22-06-2024, 21:15
Son Mesaj: dsezgin
  [VBA] Açılan Kutudan Seçim, If Bloğu Hakkında Yardım. programmer67 16 1.286 28-07-2023, 11:46
Son Mesaj: programmer67
  [FORM] Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme dormin 4 632 18-01-2023, 14:29
Son Mesaj: dormin
  Liste Kutusunda Arama uzays 2 506 12-01-2023, 16:14
Son Mesaj: uzays
  [FORM] Formda Kayıt Ve Ilişki Oluşturma, Kayıtların Metin Kutusunda Gözükmesi fx41 26 2.205 12-10-2022, 11:00
Son Mesaj: dsezgin
  [VBA] Mesaj Kutusunda Tüm Verilerin Görülmesi tamersyilmaz 4 512 10-10-2022, 18:58
Son Mesaj: tamersyilmaz
  Option Group Wizard çoklu Seçim Yapabilmek Hk. YENIFENER 4 546 13-09-2022, 22:41
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi