AccessTr.neT
tarih formatı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: tarih formatı (/konu-tarih-formati.html)



tarih formatı - hegu - 19/04/2011

arkadaşlar ekte göndermiş olduğum örnekte karekod kısmından miad tarihini keserek alıyorum. fakat bunu tarih formatında olması için ne yapabilirm?
teşekkür ederim.


Cvp: tarih formatı - Kur@l - 19/04/2011

Sayın Hegu;
Aldığınız dizeyi tarih formatına çevirmek için şu kodu kullanabilirsiniz

Degisken= Format(AldığımDize,"DD/MM/YYYY")
Deneyerek dönerseniz memnun olurum.
Kolay Gelsin.


Cvp: tarih formatı - hegu - 19/04/2011

Sayın Kural,
Kusura bakmayın yapamadım. girenkarekod kısmından keserek aldığım için nereye yazacağımı bilemedim.


Cvp: tarih formatı - Kur@l - 19/04/2011

Sayın Hegu;
Formun kodlarını aşağıdakiler ile değiştirin. Tarih_Miad alanı tarih veri biçimine dönüştürülmüştür.
Kolay Gelsin.

Option Compare Database
Private Sub GirenKarekod_LostFocus()
On Error GoTo Err_GirenKarekod_LostFocus
Dim tarih_miad As Date
GirenBarkod = Mid(GirenKarekod, 4, 13)
GirenMiadi = Mid(GirenKarekod, 39, 2) & "/" & Mid(GirenKarekod, 37, 2) & "/" & "20" & Mid(GirenKarekod, 35, 2)

tarih_miad = Format(GirenMiadi, "DD/MM/YYYY")

Exit_GirenKarekod_LostFocus:
Exit Sub

Err_GirenKarekod_LostFocus:
MsgBox Err.Description
Resume Exit_GirenKarekod_LostFocus
End Sub



Cvp: tarih formatı - hegu - 19/04/2011

Sayın Kural,
Ellerine sağlık, Çok teşekkür ederim.