Format(btarihi.Text, "dd/mm/yyyy")

[canercan02]

arkadaşlar forumdan bulduğum kodlarla işlem yaparken tarih biçimini bir türlü ayarlayamadım. veritabanındaki tarih biçimi dd/mm/yyyy halinde olmasına rağmen bilgileri textboxlara aldırdığıma ay ve gün yerleri değişiyor

Private Sub btarihi_Exit(ByVal Cancel As MSForms.ReturnBoolean)
btarihi.Text = Format(btarihi.Text, "dd/mm/yyyy")
End Sub
kodu ile sonuç elde edemedim çünkü sonuçları veritabanı sayfasından alıyor.

Private Sub btarihi_change()
btarihi.Text = Format(btarihi.Text, "dd/mm/yyyy")
End Sub
kodu ile de sonuç elde edemedim çünkü sonuçları bazan manuel girmek gerekiyor.
yapmak istediğim aşağıdaki kodlarla verileri çağırdığıma textboxlara "dd/mm/yyyy" alması.




Private Sub adi_Change()
Sheets("veritabani").Select
If adi.Value = "" Then
CommandButton2_Click
Else
Cells(adi.ListIndex + 2, 1).Select
If ActiveCell = [a1] Then
baba.Value = ""
gorevi.Value = ""
sicil.Value = ""
tc.Value = ""
Kadro.Value = ""
Kurum.Value = ""
gyeri.Value = ""
btarihi.Value = ""
btarihi.Value = ""
dyeri.Value = ""
dtarihi.Value = ""
Else
gorevi = Cells(adi.ListIndex + 2, 4)
sicil = Cells(adi.ListIndex + 2, 5)
tc = Cells(adi.ListIndex + 2, 6)
baba = Cells(adi.ListIndex + 2, 20)
Kadro = Cells(adi.ListIndex + 2, 7)
dyeri = Cells(adi.ListIndex + 2, 19)
dtarihi = Cells(adi.ListIndex + 2, 18) 'burası veritabanından bilgi aldığında Format(btarihi.Text, "dd/mm/yyyy")olması gerekiyor
btarihi.Value = Cells(adi.ListIndex + 2, 21) 'burası veritabanından bilgi aldığında Format(btarihi.Text, "dd/mm/yyyy")olması gerekiyor
gyeri = Cells(adi.ListIndex + 2, 9)
Kurum = Cells(adi.ListIndex + 2, 3)
End If
End If
End Sub
herkese sonsuz saygılar....

 

[Levent Menteşoğlu]

btarihi.Value = Cells(adi.ListIndex + 2, 21)

Yukarıdaki satırı aşağıdaki gibi değiştirin. Textboxın exit ve change olayına yazdığınız kodlarıda silin.

btarihi=format(cells(adi.listindex+2,21),"dd""/""mm""/""yyyy")

 

[canercan02]

yine süpersin usta. aklına sağlık. işimi gördü. saygılarımla....