AccessTr.neT

Herkese merhabalar;

Aşağıdaki örnekte siteden bulduğum bir çalışmayı geliştirmek istedim. Ancak If kullanımını sanırım koda yanlış yazıyorum. İstediğim ekteki örnekteki açılan kutudan parametre değerini seçtiğim zaman yanadki metin kutularına değerleri getirmek. Bunu yapabiliyorum. Metin kutusuna tıkladığım zaman açıklama bolonu çıkıyor ve açılan kutudaki parametrenin max ve min değerlerini getiriyor. Ancak açılan kutudan parametreyi değiştirip tekrar metin kutusuna girdiğimde bu sefer önceki max ve min değerlerini veriyor yada üst üste gösteriyor. Sizden ricam bu kodu nasıl düzenlemeliyimki karışıklık olmasın. Örnekte hatayı daha iyi görebilirsiniz.

Şimdiden teşekkürler.

Aşağıdaki kodu deneyiniz.

Kod:
Private Sub Açılan_Kutu8_AfterUpdate()

a = DSum("[" & Açılan_Kutu8 & "]", "Analiz", "[Adı] = 'Ali'")

b = DCount("[" & Açılan_Kutu8 & "]", "Analiz", "[Adı] = 'Ali'")

c = DMax("[" & Açılan_Kutu8 & "]", "Analiz", "[Adı] = 'Ali'")

d = DMin("[" & Açılan_Kutu8 & "]", "Analiz", "[Adı] = 'Ali'")

Aliort = a / b

Metin10 = Aliort

Form_Load

End Sub

teşekkürler

mahirozcan

ayhan2122

mahirozcan