+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: En küçük sayıyı bulmak (/konu-en-kucuk-sayiyi-bulmak.html)
En küçük sayıyı bulmak - elmariachi - 27/05/2011
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.
Cvp: En küçük sayıyı bulmak - ozanakkaya - 27/05/2011
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 FunctionForma komut butonu ekle ve tıklandığında olayına
Me.Metin6 = EnKucuk([Metin0], [Metin2], [Metin4])Kodunu yaz.
Cvp: En küçük sayıyı bulmak - elmariachi - 27/05/2011
Çok teşekkür ederim, ellerinize sağlık.
Cvp: En küçük sayıyı bulmak - ozanakkaya - 27/05/2011
Rica ederim. Konu taşınmıştır.