Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
27/05/2011 00:59
Konu Sahibi
elmariachi
Yorumlar
3
Okunma
1442
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

elmariachi

Gümüş Üye
Kullanici Avatari
Gümüş Üye
E.... K....
116
17/04/2009
6
Ankara
Ofis 2013 64 Bit
08/05/2017,04:20
Çözüldü 
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.


Ek Dosyalar
.rar   Örnek.rar (Dosya Boyutu: 6,09 KB / İndirme Sayısı: 15)
elmariachi, 17-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.795
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
Formu tasarım görünümünde aç, vb sayfasına aşağıdaki kodu ekle

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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

Visual Basic Code
Me.Metin6 = EnKucuk([Metin0], [Metin2], [Metin4])


Kodunu yaz.


Cevapla

elmariachi

Gümüş Üye
Kullanici Avatari
Gümüş Üye
E.... K....
116
17/04/2009
6
Ankara
Ofis 2013 64 Bit
08/05/2017,04:20
Çözüldü 
Çok teşekkür ederim, ellerinize sağlık.


elmariachi, 17-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.795
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
Rica ederim. Konu taşınmıştır.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Ay İçinde Geçen Cumartesi Ve Pazar Günlerinin Toplamını Bulmak hakan_s 11 342 15/09/2017, 23:33 hakan_s
Çözüldü Kelime Bulmak access acemisi 20 1.284 12/07/2017, 23:51 access acemisi
Çözüldü Sayıyı Yukarı Tamamla barcins 2 165 29/06/2017, 16:19 barcins
Çözüldü Küçük Bir Telefon Programı İhtiyacı beyazgecede 8 625 25/05/2017, 14:55 beyazgecede
Çözüldü Hexadecimal sayıyı Decimal sayıya çevirme ucloy 4 2.335 24/03/2017, 10:28 atoz112

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