AccessTr.neT

Tam Versiyon: Textbox Birleştirme Ve Metin Ekleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Üstadım;
ekli dosyamın userform bölümünde
Textbox1 de ve Textbox2 de derece kademe var
Textbox3 ve Textbox4 de sadece derece kısımlarını aldım


Textbox5 ' e
Textbox3 de ki sayı büyükse Textbox1 de ki derece kademeyi
Textbox4 de ki sayı büyükse Textbox2 de ki derece kademeyi
alarak Label de yazdığım metni yazmak istiyorum.

ama bir türlü yapamadım. Rica etsem yardımcı olabilmeniz mümkün mü?
Peki eşit olma durumu var mı?

Metin3=metin4 durumu?
Eşit olma durumu var ustam. Unuttuğum için Özür dilerim.
Üstad aşağıda ki gibi birşey yapmaya çalıştım ama
Kod:
If TextBox1 > TextBox2 Then
TextBox5 = TextBox1.Value
ElseIf TextBox1 < TextBox2 Then
TextBox5 = "Emsalin ulaştığı derece/kademe daha düşük olduğu için, emsal esas alınarak ilgilinin derece/kademesi (" & TextBox2.Value & ") olarak tespit edilmiştir"
ElseIf TextBox1 = TextBox2 Then
TextBox5 = "Emsalin ulaştığı derece/kademe daha düşük olduğu için, emsal esas alınarak ilgilinin derece/kademesi (" & TextBox2.Value & ") olarak tespit edilmiştir"
End If
Textbox5 e sadece 12/3 olarak geliyor. Metin kısmı gelmiyor.
aşağıdaki kodu dener misiniz?
Dim lblTxt As String
If CDbl(TextBox3.Value) > CDbl(TextBox4.Value) Then
    lblTxt = TextBox1.Value
Else
    lblTxt = "Emsalin ulaştığı derece/kademe daha düşük olduğu için, emsal esas alınarak ilgilinin derece/kademesi (" & TextBox2.Value & ") olarak tespit edilmiştir"
End If
TextBox5.Value = lblTxt
Üstadım
Emeğine Sağlık. Hakkını Helal et. Sağ olasın
Sayfalar: 1 2