otomatik sayı atama

[hedefkaya]

Komut1 düğmesine tıklatığımda
Metin3 kutusuna
başı 11 ile başlayan 7 haneli bir rakam yazdırabilirmiyiz acaba
teşekürler

 

[Taruz]

Merhaba..

Forumdaki bu konudaki konulara ve çözümlerine baktınız mı?

Sizin isteğiniz daha farklı ise biraz daha açıklama gerekiyor..

 

[hedefkaya]

SAYIN Taruz
FORMU TAMAMAMEN ARADIM DENİLEBİLİR FAKTA BU KONU İLE İLGİLİ BİR ÇÖZÜM BULAMADIM

 

[modalı]

Sayın hedefkaya,

Gerçi gelişigüzel sayı almakla ilgil örnek var ama sizin isteğinize uygulamak gerekir.

Private Sub Komut1_Click()
Dim MyValue, Value

Value = "11"

For x = 1 To 5
    MyValue = Int((9 * Rnd) + 1)
    Value = Value & CStr(MyValue)
Next x

Value = CDbl(Value)
Me.Metin3 = Value
End Sub

İyi çalışmalar