AccessTr.neT

Tam Versiyon: En küçük sayıyı bulmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
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.
Çok teşekkür ederim, ellerinize sağlık.
Rica ederim. Konu taşınmıştır.