022ahmedhassan قام بنشر مارس 13, 2021 قام بنشر مارس 13, 2021 السلام عليكم اريد فتح كلف pdf في الاكسس شكرا Docomant01.rar
022ahmedhassan قام بنشر مارس 13, 2021 الكاتب قام بنشر مارس 13, 2021 جزاك الله خير و لكن لا يعرض ملف البي دي اف يفتح نافذة عرض او حفظ شكراا
jjafferr قام بنشر مارس 14, 2021 قام بنشر مارس 14, 2021 بما ان المرفق واضح ، ولكي تستفيد وتعرف مكان الخطأ في كودك ، رجاء ارفاق ما عملته 🙂 جعفر 1
022ahmedhassan قام بنشر مارس 14, 2021 الكاتب قام بنشر مارس 14, 2021 جزالك الله خير مرفق ما تم عملة شكرا لك Docomant01.rar
jjafferr قام بنشر مارس 14, 2021 قام بنشر مارس 14, 2021 هذا كل اللي عملته: 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 1
022ahmedhassan قام بنشر مارس 14, 2021 الكاتب قام بنشر مارس 14, 2021 جزاك الله خيرا تعبتك معايا عذرا انا جربت يظهر الرسالة المرفقة شكرا
jjafferr قام بنشر مارس 15, 2021 قام بنشر مارس 15, 2021 الظاهر هذه رسالة من اعدادات امان الوندوز ، فانا لا تظهر لي هذه الرسالة لما افتح الملف من : الكمبيوتر المحلي ، من الشبكة ، من الانترنت !! جرب هذه الطريقة ActiveX WebBrowser القديمة ، وطريقتك موجودة ولكنها مخفية ، ويمكنك حذفها لاحقا. جعفر 1360.1.نسخ الملفات.accdb.zip
022ahmedhassan قام بنشر مارس 25, 2021 الكاتب قام بنشر مارس 25, 2021 أشكرك جزيل الشكر شكرا اشتغلت ظهرت مشكلة اخري كيف يمكنني حفظ الملف البي دي اف باسم مختلف يحفظ برقم ال operation number شكرا
jjafferr قام بنشر مارس 26, 2021 قام بنشر مارس 26, 2021 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 جعفر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.