Skip to main content

AccessTr.neT


En küçük sayıyı bulmak

En küçük sayıyı bulmak

Çözüldü #1
Merhaba arkadaşlar, bir konuda yardımınızı istiyorum.

Form’a 4 adet Metin Kutusu ekledim. Üç tanesine sayısal veri girince, bu sayıların en küçüğünü En Küçük isimli 4 üncü Metin kutusuna yazacak.

Yalnız bir kural var; eğer sadece bir Metin Kutusunda sayı varsa, doğal olarak en küçük sayı olacak. İki Metin Kutusunda sayı varsa da onların en küçüğü olacak.

Şimdiden teşekkür ederim.
.rar Örnek.rar (Dosya Boyutu: 6,09 KB | İndirme Sayısı: 15)
elmariachi, 17-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Formu tasarım görünümünde aç, vb sayfasına aşağıdaki kodu ekle
Function EnKucuk(ParamArray alanlar() As Variant)
Dim a As Integer
Dim deger As Variant
deger = alanlar(0)
For a = 0 To UBound(alanlar)
If alanlar(a) < deger Then
deger = alanlar(a)
End If
Next a
EnKucuk = deger
End Function

Forma komut butonu ekle ve tıklandığında olayına
Me.Metin6 = EnKucuk([Metin0], [Metin2], [Metin4])

Kodunu yaz.
Cevapla
Çözüldü #3
Çok teşekkür ederim, ellerinize sağlık.
elmariachi, 17-04-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 27/05/2011, 20:49, Düzenleyen: elmariachi.
Cevapla
Çözüldü #4
Rica ederim. Konu taşınmıştır.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da