Textbox Tarihin Otomatik Olarak Girilmesi

[ozgurpeh]

Arkadaşlar Merhaba,

Textbox alanlarına otomatik olarak o günün tarihini girebilir miyiz bununla ilgili çalışmanız var mıdır ?

Bununla birlikte varklı bir textbox ada tarih seçme opsiyonu ekleyebilir miyiz ?

Selamlar..

 

[askm]

Yapmak istediğinizi örnek dosya ile anlatırsanız daha net çözüm olur. Textbox1.text=CDate(date) şeklinde bu günün tarihini gırebilirsiniz.

 

[ozgurpeh]

Yapmak istediğinizi örnek dosya ile anlatırsanız daha net çözüm olur. Textbox1.text=CDate(date) şeklinde bu günün tarihini gırebilirsiniz.

ekteki userform içerisindeki textbox için bugünün tarihini otomatik olarak getirebileceğim bir kod için yardımınızı rica ediyorum

 

[askm]

Private Sub UserForm_Initialize()
TextBox1.Text = CDate(Date)
End Sub

 

[ozgurpeh]

Private Sub UserForm_Initialize()
TextBox1.Text = CDate(Date)
End Sub

çok teşekkürler, peki TextBox1 e 04102017 yazsam elle bunu 04.10.2017 olarak textboxda kalması için öneriniz varmı ?

 

[askm]

Aşağıdaki kodları kullanabilirsiniz. Yalnız userformda başka bir öğe olması gerekli. Tab tuşu ile ya da mouse ile textboxdan çıkınca işlem gerçekleşir.

If InStr(1, veri, ".") = 0 Then
    TextBox1.Text = Left(TextBox1.Text, 2) & "." & Mid(TextBox1.Text, 3, 2) & "." & Right(TextBox1.Text, 4)
Else
    TextBox1.Text = TextBox1.Text
End If

 

[antonio]

Alternatif olarak deneyiniz.

Private Sub TextBox1_Change()
If Len(Me.TextBox1.Value) = 8 Then
    With Me.TextBox1
        gun = Left(.Value, 2)
        ay = Mid(.Value, 3, 2)
        sene = Mid(.Value, 5, 4)
        .Value = gun & "." & ay & "." & sene
    End With
End If
End Sub

 

[ozgurpeh]

Aşağıdaki kodları kullanabilirsiniz. Yalnız userformda başka bir öğe olması gerekli. Tab tuşu ile ya da mouse ile textboxdan çıkınca işlem gerçekleşir.

If InStr(1, veri, ".") = 0 Then
    TextBox1.Text = Left(TextBox1.Text, 2) & "." & Mid(TextBox1.Text, 3, 2) & "." & Right(TextBox1.Text, 4)
Else
    TextBox1.Text = TextBox1.Text
End If

Mükemmel, buda oldu (BeforeUpdate seçtim)

son bir sorum daha oalcak textboxla ilgili ben küçük harfte yazsam büyükte yazsam yarısnı büyük yarsını küçükte yazsam tamamı otomatik oalrak nasıl büyük olur.

 

[askm]

Textbox1.Text=UCase(Textbox1.text)

 

[ozgurpeh]

Textbox1.Text=UCase(Textbox1.text)

çok teşekkür ederim, çok yardımcı oldunuz. Selamlar, iyi geceler

 

[askm]

Rica ederim. Hayırlı geceler.

 

[ozgurpeh]

Alternatif olarak deneyiniz.

Private Sub TextBox1_Change()
If Len(Me.TextBox1.Value) = 8 Then
    With Me.TextBox1
        gun = Left(.Value, 2)
        ay = Mid(.Value, 3, 2)
        sene = Mid(.Value, 5, 4)
        .Value = gun & "." & ay & "." & sene
    End With
End If
End Sub

teşekkürler

 

[ozgurpeh]

Textbox1.Text=UCase(Textbox1.text)

bu olmadı ? kodu nereye yazmalıyım ?

 

[Korhan Ayhan]

Deneyiniz.

Private Sub TextBox1_Change()
    TextBox1.Value = UCase(Replace(Replace(TextBox1.Value, "i", "İ"), "ı", "I"))
End Sub

 

[ozgurpeh]

Deneyiniz.

Private Sub TextBox1_Change()
    TextBox1.Value = UCase(Replace(Replace(TextBox1.Value, "i", "İ"), "ı", "I"))
End Sub

Teşekkürler

 

[ozgurpeh]

Aşağıdaki kodları kullanabilirsiniz. Yalnız userformda başka bir öğe olması gerekli. Tab tuşu ile ya da mouse ile textboxdan çıkınca işlem gerçekleşir.

If InStr(1, veri, ".") = 0 Then
    TextBox1.Text = Left(TextBox1.Text, 2) & "." & Mid(TextBox1.Text, 3, 2) & "." & Right(TextBox1.Text, 4)
Else
    TextBox1.Text = TextBox1.Text
End If

Merhaba,

sadece ay ve yıl (Ekim-2017) yazdırmak için bu kodu nasıl düzenlemeliyiz ?