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