طلب معالجة كود نقل بيانات إلى صفحة ويب

السلام عليكم ورحمة الله وبركاته

أخواني الكرام الأعضاء الأعزاء راجياُ لكم من الله دوام الصحة والعافية 

عذراُ أخواني على الأزعاج بهذه المشاركة لكن أحببت منها الفائدة والتعليم .

أخواني أن هذا الكود يعمل بشكل ممتاز في نقل البيانات من النموذج إلى صفحة الويب لكن حين  يتم حفظ البيانات أو تاكيد صحة البيانات في صفحة الويب تمتسح بيانات التواريخ التي تم نقلها فقط أما باقي البيانات تكون موجودة ولا غبار عليها .

ارجو من الاخوة الذين هم قادة وقاهروا الاكسس أن يساعدوني في ايجاد الحل لمشكلة التاريخ ولكم مني جزيل الشكر والتقدير .

Me.WebBrowser4.Navigate "https://www.smartforms.com.om/smartformsonline/(S(0ilh3h4joy30t41rewzowpep))/frmResidentRegistration.aspx"
PauseTime = 5    ' Set duration time in seconds
    start = Timer    ' Set start time
    Do While Timer < start + PauseTime
    DoEvents    ' Yield to other processes
    Loop

Call FILL_DATA13
End Sub

Sub FILL_DATA13()
    With Me.WebBrowser4.Document.Forms(0)
            .txtPsptNo.Value = Me.PsptNo
            .dtPsptIssueDate_dateInput_text.Value = Me.PassportIssueDate
            .dtPsptExpiryDate_dateInput_text.Value = Me.PassportExpiryDate
            .txtPsptCountryCode.Value = Me.Issuecode
            .txtPsptIssuePlace.Value = Me.Issue_Country
            .txtPsptIssuePlaceE.Value = Me.PlaceofIssue
            .txtPsptNationCode.Value = Me.Nationality_Code
            .txtPsptNation.Value = Me.Nationality
            .txtPsptNationE.Value = Me.NationalityE
            .txtVisaNo.Value = Me.VisaNo
            .txtVisaTypeCode.Value = Me.VISA_Code
            .txtVisaType.Value = Me.VISA_TYPEE
            .txtVisaTypeE.Value = Me.VisaType
            .dtVissaIssue_dateInput_text.Value = Me.VisaDate
            .dtVisaExpiry_dateInput_text.Value = Me.VisaExpiryDate
            .txtCivilNo.Value = Me.CivilNo
            .txtFirstName.Value = Me.FirstName
            .txtFirstNameE.Value = Me.FirstNameE
            .txtSecondName.Value = Me.SecondName
            .txtSecondNameE.Value = Me.SecondNameE
            .txtThirdName.Value = Me.ThirdName
            .txtThirdNameE.Value = Me.ThirdNameE
            .txtFamilyName.Value = Me.FamilyName
         .txtFamilyNameE.Value = Me.FamilyNameE
            .dtDateOfBirth_dateInput_text.Value = Me.DateOf
    End With
End Sub