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
958

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

#9
@berduş hocam deneme dosyamda ayaksayısını hesaplattığınız

Kod:
    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
   

kodu uygulamanın içinde menu sayfasından cam tavan seçeneğini tıkladığınızda açılan formun Textbox.CepheOlcusu.Value nun exit olay yordamına ekledim fakat burada kod işlevini yerine getirmiyor ve ayak sayısını hesaplamıyor. Gariplik şurada Bu formda aynı zamanda
Kod:
    With Me.TextBox_CepheOlcusu
       
        '.SetFocus
        .Value = 2000
        .SelStart = 0
        .SelLength = Len(.Text)
   
    End With

şeklinde yazdığım kodda diğer formlarda işlevini yerine getirmesine rağmen bu formda işlevsiz cephe ölçüsünde focuslanmıyor ve 2000 değerini seçili hale getirmiyor.

Nedenini çözemedim. Yardımcı olabilirseniz sevinirim. Dosyayı ekleyemiyorum konuyu tekrar açarsanız ekleyeceğim.
.zip AyakSayısı.zip (Dosya Boyutu: 413,63 KB | İndirme Sayısı: 4)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 17/10/2021, 09:20, Düzenleyen: Oğuz Türkyılmaz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Re: Minimum Ve Maximum Girilen Veriye Göre Sabit Değeri Arttırma. - Yazar: Oğuz Türkyılmaz - 17/10/2021, 00:14
Task