Listbox seçimine bağlı alt form alanı
Tarih
27/10/2011 03:32
Konu Sahibi
ITECHINN
Yorumlar
2
Okunma
901
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



ITECHINN
Üye
Kullanici Avatari
Üye
4
2
24/10/2011
0
Sivas
Ofis 2010
08/01/2012,02:11
Çözüldü 
Merhabalar;

Başlık yeterince açıklayıcı oldu mu bilmiyorum ama projeme şu tarz birşey koymak istiyorum. (Web'den gelen alışkanlıklar doğrultusunda diyelim)

Misal;
Siparişler ekranında teslimat alanı "Kargo" seçilince, formun altında "Kargo Firmaları" Alanının görünür olmasını, "Nakliye" Seçilince "Nakliye Firmaları" alanının görünmesini, diğer seçimlerde de o alanın görünmemesini (Non-Editable değil direk Hidden diyelim) sağlamak istiyorum.

Access'te yapılabilecek bir koşullamamıdır? if-else ile yapılacağını biliyorum ama form alanlarının visible-hidden gibi özelliklerini bilmediğim için yardımlarınıza başvurmak zorunda kaldım.

Şimdiden teşekkür ederim.
Saygılarımla
Aytekin

Vatan Bilgisayar Sivas - Bilgi İşlem / Tekniker
Cevapla


ITECHINN
Üye
Kullanici Avatari
Üye
4
2
24/10/2011
0
Sivas
Ofis 2010
08/01/2012,02:11
Çözüldü 
Merhaba Tekrardan;

PHP öğrenirken yaşadığım şey, burada da başıma geliyor Img-grin
Soruyu foruma yazıp gönderdikten sonra, tekrar okuyunca şimşekler çakıyor kafamda Img-grin
Bir an, JS'lerde yapılan metodlar geldi aklıma ve çözüm...

Buyrun sorumun cevabı, belki lazım olan bir arkadaş olabilir. Hatta forumda çözümü de olabilir. Ben yanlış anahtar sözcük seçmiş olabilirim.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub NakliyeYonetimiNo_AfterUpdate()
If (Me.NakliyeYonetimiNo.Column(1) = "Kargo") Then
Me.KargoFirmasi.Visible = True
Me.NakliyeFirmasi.Visible = False
ElseIf (Me.NakliyeYonetimiNo.Column(1) = "Ambar") Then
Me.NakliyeFirmasi.Visible = True
Me.KargoFirmasi.Visible = False
Else
Me.NakliyeFirmasi.Visible = False
Me.KargoFirmasi.Visible = False
End If

End Sub


Tabi kayıtlar arasında gidip geldikten sonra da bu gösterim olayının tekrarını isterseniz (Ki mutlaka gerekecektir)

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Current()
Me.AraToplam = UrunNo.Column(2) * UrunMiktari
Me.ToplamBakiye = AraToplam - IndirimTutari
If (Me.NakliyeYonetimiNo.Column(1) = "Kargo") Then
Me.KargoFirmasi.Visible = True
Me.NakliyeFirmasi.Visible = False
ElseIf (Me.NakliyeYonetimiNo.Column(1) = "Ambar") Then
Me.NakliyeFirmasi.Visible = True
Me.KargoFirmasi.Visible = False
Else
Me.NakliyeFirmasi.Visible = False
Me.KargoFirmasi.Visible = False
End If
End Sub



Not: Amerika'yı yeniden keşfetmiş gibi olabilirim. Daha kolay yolları varsa, öğrenmeye hazırım.
Saygılarımla


Vatan Bilgisayar Sivas - Bilgi İşlem / Tekniker
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.023
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,06:11
Çözüldü 
php ve js deyince bende de şimşek çakıyor ne hikmetse Img-grin

Alıntı:Daha kolay yolları varsa, öğrenmeye hazırım.

bu tür işlevler için select-case kullanmak daha doğru, ayrıca kod tekrarından kaçınmak için kodu aşağıdaki gibi uygulayabilirsiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub GizleGoster()
Select Case Me.NakliyeYonetimiNo.Column(1)
    Case "Kargo"
        Me.KargoFirmasi.Visible = True
        Me.NakliyeFirmasi.Visible = False
    Case "Ambar"
        Me.NakliyeFirmasi.Visible = True
        Me.KargoFirmasi.Visible = False
    Case Else
        Me.NakliyeFirmasi.Visible = False
        Me.KargoFirmasi.Visible = False
End Select
End Sub

Private Sub Form_Current()
    Me.AraToplam = UrunNo.Column(2) * UrunMiktari
    Me.ToplamBakiye = AraToplam - IndirimTutari
    Call GizleGoster
End Sub

Private Sub NakliyeYonetimiNo_AfterUpdate()
    Call GizleGoster
End Sub

Konu cevaplanmış sorular bölümüne taşınmıştır.

Geri bildirimde bulunduğunuz için teşekkürler.

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Seçime Bağlı Form Açma-Açılan Formda Seçilenleri Raporda Gösterme Nasıl Yapılır? mehami 8 200 14/11/2016, 18:43 mehami
Çözüldü seçime bağlı metin kutusunu tabloda aktif veya pasif yapma EROLAKSAKAL 13 4.005 12/11/2016, 11:48 atoz112
  Form da Cari Koda Göre Form Çağırma cagatay1234 5 179 10/10/2016, 11:05 atoz112
  Form içine form butonları ekleme IceMan7 7 530 26/07/2016, 11:44 IceMan7
  Bağlı tablolardaki kayıtları tek formda çağırma ve düzenleme mehmetb84 6 443 19/07/2016, 15:46 mehmetb84


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