Overflow hatası

[ahmethasim]

Merhaba arkadaşlar

Oluşturduğum userformun subroutine in birinde yazdığım kod satırı yüzünden overflow hatası ile karşılaşırken aynı userformun başka bir subroutine inde aynı kod satırını kullanmama rağmen herhangi bir sorunla karşılaşmıyorum. Bu hatanın kaynağı nedir ekte de userformu ve kodlarını bulabilirsiniz.

Anlayan bir arkadaş sebebini ve nasıl düzeltilebileceğini açıklayabilir mi ?

Teşekkürler

İyi çalışmalar

 

[hamitcan]

Çok fazla incelemedim ama

Private Sub UserForm_Activate()
Dim malzeme As Double


beton_modeli_combo.AddItem "Mander Sargılı Beton"
beton_modeli_combo.AddItem "Sargısız Beton"

beton_sinifi_combo.AddItem "BS16"
beton_sinifi_combo.AddItem "BS18"
beton_sinifi_combo.AddItem "BS20"
beton_sinifi_combo.AddItem "BS25"
beton_sinifi_combo.AddItem "BS30"
beton_sinifi_combo.AddItem "BS35"
beton_sinifi_combo.AddItem "BS40"
beton_sinifi_combo.AddItem "BS45"
beton_sinifi_combo.AddItem "BS50"

malzeme = 1
malzeme_guvenlik.Value = malzeme
[color=red]akma_sekildegistirmesi.Value = "0.002"[/color] 'Bu satırı inceleyin. Kapatınca form çalışdı.
ezilme_sekildegistirmesi.Value = "0.003"
dokulme_sekildegistirmesi.Value = "0.005"
ezilme_otesi_dayanim.Value = "0"

End Sub

 

[ahmethasim]

Teşekkürler Hamit Bey sorun akma_sekildegistirmesi.Value=0.002 şeklinde userform açılışında değer verince akma_sekildegistirmesi Change subroutine i hemen devreye giriyor. Dolayısıyla hemen devreye girmemesi için oraya

If akma_sekildegistirmesi.Value=0.002 Then
Exit Sub
End If

kodunu yazdım sorun halloldu.

Yalnız bir sorum var kodun akma_sekildegistirmesi.Value=0.002 değerinden sonra durdurulduğunu nasıl anladınız. Hata yakalamayı nasıl yaptınız; açıklayabilir misiniz?

Teşekkürler

İyi çalışmalar

 

[hamitcan]

Kod, form açılırken hata verdiği için; form ya yükleme esnasında yada aktif edildiğinde çalışmıyor olabilirdi. Ben de sırasıyla formdaki nesnelere açılışta değer verenleri tek tek kapatarak denedim. Sonuçta da belirttiğim nesnede bir hata olduğunu gördüm.