Skip to main content

AccessTr.neT


Minimum Ve Maximum Girilen Veriye Göre Sabit Değeri Arttırma.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
11
206

Minimum Ve Maximum Girilen Veriye Göre Sabit Değeri Arttırma.

#1
Herkese sağlıklı günler dilerim. Bir hesaplama yaptırmak istiyorum if elseif else blokları ile çözüm üretilebilir ama ben yapılabilirse hesaplama formülüyle nasıl çözebilirim.
Hesaplanması gereken Textbox_AyakSayisi.Value değeri
Şöyle ki Ben cephe ölçüsü ne girersem gireyim sistem ölçüye göre ayak sayısını, her bir ayak arasında minimum 2,25 maxımum 3,25 cm aralık olacak şekilde bana ayak sayısını hesaplayacak. Yani girilen ölçüyü önce 2 ye bölecek çıkan değere bakacak değer 2,25 - 3,25 aralığında değilse 3 e bölecek yine min max değerler arasına oturmuyorsa 4 e bölecek. Başlangıç ayak sayısı 4500cm ye kadar 2 adet ayak. Bu ölçüden sonra yukarda anlattığım şekilde hesaplama yaparak bu ayak sayısını otomatikman arttıracak. Yardımlarınız için teşekkür ederim.

[Resim: do.php?img=11334]
.rar forum soru.rar (Dosya Boyutu: 11,76 KB | İndirme Sayısı: 2)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 09/10/2021, 13:44, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#2
4500cm =45 metre eder ölçü türünden emin misiniz?
Cevapla
#3
(09/10/2021 15:21)berduş Adlı Kullanıcıdan Alıntı: 4500cm =45 metre eder ölçü türünden emin misiniz?

mm olacak özür dilerim
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
cephe ölçüsünün birimi ne mm, cm
2,25 maxımum 3,25 cm burası da her halde metre
Cevapla
#5
(09/10/2021 15:24)Oğuz Türkyılmaz Adlı Kullanıcıdan Alıntı:
(09/10/2021 15:21)berduş Adlı Kullanıcıdan Alıntı: 4500cm =45 metre eder ölçü türünden emin misiniz?

mm olacak özür dilerim


27 28 metreye kadar yapıldı istenirse de eklenerek arttırılabilir.@berduş hocam
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#6
dener misiniz?
Visual Basic Code
Private Sub TextBox_CepheOlcusu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox_AyakSayisi = 2
If TextBox_CepheOlcusu <= 4500 Then Exit Sub
i = 1
   Do Until xAyk >= 2250 And xAyk <= 3250
      i = i + 1
      xAyk = TextBox_CepheOlcusu / i
   Loop
TextBox_AyakSayisi = i
End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da