اظهار ملف بي دي اف في الاكسس

[022ahmedhassan]

السلام عليكم

اريد فتح كلف pdf

 

في الاكسس 

شكرا

Docomant01.rar

[jjafferr]

وعليكم السلام 🙂

 

الجواب هنا

 

 

جعفر

[022ahmedhassan]

جزاك الله خير 

و لكن لا يعرض ملف البي دي اف 

يفتح نافذة عرض او حفظ 

 

شكراا

[jjafferr]

بما ان المرفق واضح ، 

ولكي تستفيد وتعرف مكان الخطأ في كودك ، رجاء ارفاق ما عملته 🙂

 

جعفر

[022ahmedhassan]

جزالك الله خير

 

مرفق ما تم عملة 

 

شكرا لك 

Docomant01.rar

[jjafferr]

هذا كل اللي عملته:

Option Compare Database

    Dim web As Object
'

Private Sub Form_Current()

    If Len(Me.txtPath & "") = 0 Then
        web.Navigate "about:blank"
    Else
        web.Navigate Me.txtPath
    End If
    
End Sub

Private Sub Form_Open(Cancel As Integer)
    
    Set web = Me.WebBrowser28.Object
End Sub

 

جعفر

1360.نسخ الملفات.accdb.zip

[022ahmedhassan]

جزاك الله خيرا 

تعبتك معايا

عذرا انا جربت 

يظهر الرسالة المرفقة 

شكرا 

[jjafferr]

الظاهر هذه رسالة من اعدادات امان الوندوز ، فانا لا تظهر لي هذه الرسالة لما افتح الملف من :

الكمبيوتر المحلي ، من الشبكة ، من الانترنت !!

 

جرب هذه الطريقة ActiveX WebBrowser القديمة ، وطريقتك موجودة ولكنها مخفية ، ويمكنك حذفها لاحقا.

 

جعفر

1360.1.نسخ الملفات.accdb.zip

[022ahmedhassan]

أشكرك جزيل الشكر

شكرا اشتغلت

ظهرت مشكلة اخري 

كيف يمكنني حفظ الملف البي دي اف باسم مختلف 

يحفظ برقم ال

operation number

 

شكرا

[jjafferr]

19 ساعات مضت, 022ahmedhassan said:

كيف يمكنني حفظ الملف البي دي اف باسم مختلف 

يحفظ برقم ال

operation number

 

في الكود الذي خلف زر "حفظ" ، انت قلت له بأن يحفظ الملف بإسم StrName  :

اقتباس

Set srtfile = CreateObject("Scripting.FileSystemObject")
TypeFile = TypeFileFromPath(Me.h)

    If Me.t1 = "" Or IsNull(Me.t1) Then    
   StrName = NameFileFromPath(Me.h)      
Else    
   StrName = Me.t1      
End If    

If Me.ck = 1 Then    
srtfile.MoveFile Me.txtPath, Me.LctionTxt & StrName & "." & TypeFile      
Else    
FileCopy Me.txtPath, Me.LctionTxt & StrName & "." & TypeFile      
End If    

 

جعفر