Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
27/10/2011 03:32
Konu Sahibi
ITECHINN
Yorumlar
2
Okunma
1099
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.879
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,02:35
Çö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
Çözüldü Bir Alanın After Update Olayına Baglı Baska Bir Alan Guncellenmesi Problemi keskin78 7 509 02/08/2017, 01:32 ozanakkaya
Çözüldü İl İlçe kriter seçimine göre sorgulama Ferhat Çetin 6 600 10/05/2017, 03:51 ozanakkaya
Çözüldü Şarta Bağlı Tarih Atma kübrashn 4 339 04/05/2017, 18:13 kübrashn
Çözüldü Bağlı Tablo Yöneticisi "Geçersiz Parola" Hatası cudii 3 290 03/05/2017, 20:39 ozanakkaya
Çözüldü Tablodaki Veriyi Listbox'tan Seçimle Forma Getirme husem 11 803 07/03/2017, 22:53 husem

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.