Run-time error 13
Type Mismatch

Kodlarda gözden kaçırdığım bir nokta mı var acaba ?

Öncelikle size de merhaba. Adab-ı muaşeret gereğidir ilk defa girdiğiniz bir ortamda önce bir selam verirsiniz, sonra derdinizi izah eder yardımcı olabilecek var mı diye sorarsınız ve bunları da lisanı münasiple yaparsınız. Selam sabah vermeden Fontları 16 yapıp kalınlaştırıp VIP hizmet mi bekliyorsunuz?

(12/12/2024, 13:46)atoykan yazdı: Öncelikle size de merhaba. Adab-ı muaşeret gereğidir ilk defa girdiğiniz bir ortamda önce bir selam verirsiniz, sonra derdinizi izah eder yardımcı olabilecek var mı diye sorarsınız ve bunları da lisanı münasiple yaparsınız. Selam sabah vermeden Fontları 16 yapıp kalınlaştırıp VIP hizmet mi bekliyorsunuz?

Özür dileyerek haklı olduğunuzu belirmek isterim hayır çok takıldım sinirden gerçekten özür dilerim. Çözemedim işin işinden çıkamadım kusuruma bakmayınız.

Ekli dosyayı inceleyin. bul adında bir String değişken tanımlamış ve değeri 1 olan TextBox'un adını almasını amaçlanmışsınız ancak bul'a bir değer atanmadığı için, Right fonksiyonu boş bir string ile çalışmıyor ve hata oluşuyor. dtp formundaki tüm kontroller tek tek c değişkenine atanıyor ve c her döngüde bir kontrolü temsil ediyor ancak işlem yapmaya çalıştıklarınız sadece textbox, labellar, butonlar vs gereksiz yere döngüye sokulmaya çalışılıyor. Kodunuzda ufak tefek revizyonlar yapıp c için If TypeName( c) = "TextBox" kontrolü ekledim If c.Text = "1" Then bul = c.Name ile bul'un boş dönmesini engelledim.

(12/12/2024, 15:32)atoykan yazdı: Ekli dosyayı inceleyin. bul adında bir String değişken tanımlamış ve değeri 1 olan TextBox'un adını almasını amaçlanmışsınız ancak bul'a bir değer atanmadığı için, Right fonksiyonu boş bir string ile çalışmıyor ve hata oluşuyor. dtp formundaki tüm kontroller tek tek c değişkenine atanıyor ve c her döngüde bir kontrolü temsil ediyor ancak işlem yapmaya çalıştıklarınız sadece textbox, labellar, butonlar vs gereksiz yere döngüye sokulmaya çalışılıyor. Kodunuzda ufak tefek revizyonlar yapıp c için If TypeName( c) = "TextBox" kontrolü ekledim If c.Text = "1" Then bul = c.Name ile bul'un boş dönmesini engelledim.

Emeğiniz için teşekkürler sorun çözülmüştür elinize kolunuza sağlık.

Rica ederim, kolay gelsin.