web browser control

[ليث ليث]

السلام عليكم

لدي نموذج يقوم باستعراض ملفات ال بي دي اف من الجهاز

ماهو الكود الذي  يمكنني من حفظ ملف ال بي دي اف المعروض في الفورم باسم جديد ومكان جديد

 

تحياتي

قاعدة بيانات.7z

[أبو عبدالله الحلوانى]

جرب هذا لعله يكون قريب مما تريد

ولا تنسي موافتنا بالنتائج

 

قاعدة بيانات.rar

[ليث ليث]

 

14 ساعات مضت, أبو عبدالله الحلوانى said:

جرب هذا لعله يكون قريب مما تريد

ولا تنسي موافتنا بالنتائج

 

قاعدة بيانات.rar 29.2 kB · 4 تنزيلات

للاسف اخي لم يفلح الكود عند الحفظ يظهر هناك خطا

[أبو عبدالله الحلوانى]

السلام عليكم 

ممكن حضرتك تصور رسالة الخطأ وترفعها هنا

المرفق يعمل لدي بشكل جيد!

وهل الخطأ يظهر بالمرفق بالأعلي أم عند التجربة علي برنامجك؟ 

[ليث ليث]

12 ساعات مضت, أبو عبدالله الحلوانى said:

السلام عليكم 

ممكن حضرتك تصور رسالة الخطأ وترفعها هنا

المرفق يعمل لدي بشكل جيد!

وهل الخطأ يظهر بالمرفق بالأعلي أم عند التجربة علي برنامجك؟ 

صديقي في البداية كان يظهر ان هناك خطا ولكن بعد المحاولة لعدة مرات اصبح يعمل ولكن عند الحفظ اذهب الى المجلد الذي حفظت به لا اجد شيئا اي انه لابحفظ الملف

ارجو المساعدة لاني مضطر كثيرا الى هذا الملف ولم افلح في الوصول الى حل 

Private Sub Command48_Click()
Dim file As Office.FileDialog
Dim filepath As String

Set file = Application.FileDialog(msoFileDialogSaveAs)
With file
       .Title = "save pdf"
       .AllowMultiSelect = False
       .InitialFileName = Me.ID_contract
       
       
       
       If .Show Then
        filepath = _
Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)
Call MsgBox(filepath, vbInformation, "Save Path")
        Else
        Exit Sub
       End If
End With

End Sub

هذا الكود ايضا يعمل ونظهر نافذة الحفظ لكنه ايضا لايحفظ شيئ

[أبو عبدالله الحلوانى]

اسف علي هذا الخطأ الغير مقصود ما فهمت مرادك جيدا بالمرة الأولي

جرب الآن هذا التعديل ووافنا بالنتائج

 

 

قاعدة بيانات.rar

[ليث ليث]

13 ساعات مضت, أبو عبدالله الحلوانى said:

اسف علي هذا الخطأ الغير مقصود ما فهمت مرادك جيدا بالمرة الأولي

جرب الآن هذا التعديل ووافنا بالنتائج

 

 

قاعدة بيانات.rar 30.66 kB · 1 تنزيلات