مشكلة في التواريخ الهجرية

تفضل اخى

لاحظ التغيير فى تاريخ تقديم الطلب

Private Sub Command16_Click()

On Error Resume Next
Dim dd As String
   'ÝÊÍ ÈÑäÇãÌ ÇáææÑÏ
 Set monWd = CreateObject("Word.Application")

monWd.Documents.Open CurrentProject.Path & "\1.doc"

    monWd.Visible = True
    dd = Me.ÊÇÑíÎ_ÇáØáÈ

     monWd.ActiveDocument.Bookmarks("A1").Select
    monWd.Selection.InsertAfter dd
    monWd.ActiveDocument.Bookmarks("A2").Select
    monWd.Selection.InsertAfter Me.ãÏÉ_ÇáÇÌÇÒÉ
    monWd.ActiveDocument.Bookmarks("A3").Select
    monWd.Selection.InsertAfter Me.ãßÇä_ÇáÇÌÇÒÉ
    monWd.ActiveDocument.Bookmarks("A4").Select
    monWd.Selection.InsertAfter Me.ÊÇÑíÎ_ÈÏÇíÉ_ÇáÇÌÇÒÉ
    monWd.ActiveDocument.Bookmarks("A5").Select
    monWd.Selection.InsertAfter Me.ÇáÑÊÈÉ
    monWd.ActiveDocument.Bookmarks("A6").Select
    monWd.Selection.InsertAfter Me.ÇáÑÞã_ÇáÚÓßÑí
    monWd.ActiveDocument.Bookmarks("A7").Select
    monWd.Selection.InsertAfter Me.ÇáÇÓã

End Sub

لا ادرى

هناك مشكلة فى رفع الملفات