Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
26/08/2010 10:33
Konu Sahibi
merter
Yorumlar
6
Okunma
2701
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

merter

Üye
Kullanici Avatari
Üye
20
6
22/12/2008
0
Bursa
Ofis XP
30/03/2015,13:02
Çözüldü 
arkadaşlar fiyat listesinde ödeme gününe göre değerler var örnek peşin 15 TL. 15 gün 18 TL. 30 gün 20 TL. Kredi kartı 16 TL.
bunları aşağıdaki gibi yaptım oam olmadı yardımlarınıza şimdiden teşekkürler.


Private Sub List18_AfterUpdate()
If ODE = 0 < 15 Then
Me.FIYAT = List18.Column(2)

ElseIf ODE = 15 < 30 Then
Me.FIYAT = List18.Column(3)

ElseIf ODE = 30 < 100 Then
Me.FIYAT = List18.Column(4)

ElseIf ODE = KK Then
Me.FIYAT = List18.Column(5)
End If

End Sub


Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
13/09/2017,17:08
Çözüldü 
Bir de bu şekilde deneyin.

Kod:
1
2
3
4
5
6
7
8
9
10
11
Private Sub List18_AfterUpdate()
If ODE Between 0 And 15 Then
	Me.FIYAT = List18.Column(2)
ElseIf ODE Between 16 And 30 Then
	Me.FIYAT = List18.Column(3)
ElseIf ODE Between 31 And 100 Then
	Me.FIYAT = List18.Column(4)
ElseIf ODE = "KK" Then
	Me.FIYAT = List18.Column(5)
End If
End Sub 


Örneğiniz olmadığı için Kredi Kartı için kullandığınız KK alanının
bir değişken mi veya bir değer mi olduğu anlaşılmıyor.
Ben değerdir diye tahmin ederek "KK" olarak değiştirdim.
Bu durumda ODE alanı metin ise, üstteki kontrolleri de CInt(ODE) olarak değiştirmek gerekebilir.

Bir deneyin, olmazsa örneğinizi eklemeniz gerekmektedir.


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

merter

Üye
Kullanici Avatari
Üye
20
6
22/12/2008
0
Bursa
Ofis XP
30/03/2015,13:02
Çözüldü 
sayın seruz ilginize teşekkürler denedim ama olmadı hata veriyor örnek ekte


Ek Dosyalar
.rar   YEM_SATIŞ.rar (Dosya Boyutu: 803,33 KB / İndirme Sayısı: 11)
Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
13/09/2017,17:08
Çözüldü 
* Alt form'da kontrol koyup, üst formdaki nesneye ulaşmak için me.parent kullandım (Forms!SIPARIS.ODEME de kullanılabilirdi).
* ODE olan ismi ODEME olarak, list18 olan ismi KKOD olarak değiştirdim.
* Açılan kutu ayarlarını fiyatları düzgün gösterecek şekilde düzelttim.
* Ödeme bilgisinin düzgün girildiğini kontrol eden kontrol ekledim.
* ElseIf yerine Select Case kullandım, daha kullanışlıdır.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub KKOD_AfterUpdate()
If IsNull(Me.Parent.ODEME) Then
    MsgBox "Ödeme günü bilgisi giriniz"
ElseIf Not IsNumeric(Me.Parent.ODEME) And Me.Parent.ODEME <> "KK" Then
    MsgBox "Kredi Kartı için KK giriniz"
ElseIf Me.Parent.ODEME < 0 Or Me.Parent.ODEME > 100 Then
    MsgBox "Ödeme günü bilgisi 0 ile 100 arasında olmalıdır"
End If
'-----------------------------------
Select Case Me.Parent.ODEME
    Case 0 To 15
        Me.FIYAT = Me.KKOD.Column(2)
    Case 16 To 30
        Me.FIYAT = Me.KKOD.Column(3)
    Case 31 To 100
        Me.FIYAT = Me.KKOD.Column(4)
    Case "KK"
        Me.FIYAT = Me.KKOD.Column(5)
    Case Else
        Me.FIYAT = 0
End Select
End Sub




Bu aralar Sql Server'da SP ve Trigger'lar ile uğraştığım için (+oruç) if içinde Between kullanmışım, özür Img-grin


Ek Dosyalar
.rar   YEM_SATIS_Seruz.rar (Dosya Boyutu: 345,72 KB / İndirme Sayısı: 19)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

merter

Üye
Kullanici Avatari
Üye
20
6
22/12/2008
0
Bursa
Ofis XP
30/03/2015,13:02
Çözüldü 
sayın seruz ilginiz için çok çok teşekkürler.
hayırlı ramazanlar.


Cevapla

assenucler

Aktif Üye
Kullanici Avatari
Aktif Üye
A.... S.... Ş....
2.054
31/10/2008
63
İstanbul
-
01/09/2017,15:34
Çözüldü 
Emek ve katkı için teşekkürler..


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

[-]
Etiketler
hakkında kullanımı


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Cari baş harfine göre firma kodu oluşturma hakkında Gokcen Akan 25 956 14/07/2017, 08:32 Gokcen Akan
Çözüldü Verileri Taşıma Hakkında. serkan1985 4 298 02/06/2017, 20:51 serkan1985
Çözüldü İlişkilendirme Hakkında Cerencam 2 287 28/05/2017, 17:12 atoz112
Çözüldü Data Type Mismatch Hatası Hakkında alperalper00 8 7.386 20/05/2017, 20:17 ozanakkaya
Çözüldü Stok Takibi Yeni Veri Girişi Hakkında AloneX 4 371 06/05/2017, 11:15 AloneX

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