التحويل من نسخة اوفيس 32 بت الي 64 بت

[اسلام السيد فهمى]

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

 

عند تحويل الاوفيس من 32 بت الي 64 بت  لا تعمل المرفقات ولا الاستقبال عن طريق الاكسيل ممكن اعرف زاي احل هذه المشكلة مرفق الكود 

Private Sub btnBrowse_Click()
If [الاستقبال_عن_طريق_اكسيل] = 0 Then
 
Ms$ = "  USER is unknown, you are not authorized to LOGIN  "
Ti$ = " ERROR "
re = MsgBox(Ms$, 0, Ti$)
Else

 Dim ofn As OpenFileName
    ofn.lStructSize = Len(ofn)
    ofn.hwndOwner = Me.Hwnd
    'ofn.hInstance = App.hInstance
    ofn.lpstrFilter = "text Files (*.doc)" + Chr$(0)
        ofn.lpstrFile = Space$(254)
        ofn.nMaxFile = 255
        ofn.lpstrFileTitle = Space$(254)
        ofn.nMaxFileTitle = 255
        ofn.lpstrInitialDir = CurDir
        ofn.lpstrTitle = " MT Software "
    ofn.Flags = 0
      Dim a
        a = GetOpenFileName(ofn)
        If (a) Then
                Me![ImportFile] = Trim$(ofn.lpstrFile)
                MsgBox "File to Open: " + Trim$(ofn.lpstrFile)
       Else
            MsgBox "Cancel was pressed"
        
     End If
End If

مبيقراش الكود خالص بيقرا msbox  الرجاء الافادة 

تم تعديل مارس 29, 2023 بواسطه Moosak
تم تنسيق الكود

[kkhalifa1960]

الكود مرتبط بموديول يعمل على 32 بت وعلشان يعمل على 64 بت ارسل المرفق للتعديل عليه .