Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Listbox seçimine bağlı alt form alanı

ITECHINN
ITECHINN
Access Cevaplanmış Soruları
2
1797

Listbox seçimine bağlı alt form alanı

Çözüldü #1
ITECHINN
Üye
ITECHINN
Bul
Üye
Adı Soyadı:
Yaşı: 40
Konum: Sivas
Ofis Versiyonu: Ofis 2010
Son Oturumu: 08/01/2012,02:11
Yorumları: 4
Konuları: 2
Kayıt Tarihi: 24/10/2011
Teşekkür Puanı: 0
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
Cevapla
Çözüldü #2
ITECHINN
Üye
ITECHINN
Bul
Üye
Adı Soyadı:
Yaşı: 40
Konum: Sivas
Ofis Versiyonu: Ofis 2010
Son Oturumu: 08/01/2012,02:11
Yorumları: 4
Konuları: 2
Kayıt Tarihi: 24/10/2011
Teşekkür Puanı: 0
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.

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)

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
Cevapla
Çözüldü #3
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,18:25
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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.

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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task