د.كاف يار قام بنشر يوليو 25, 2021 قام بنشر يوليو 25, 2021 في 25/7/2021 at 17:10, محسن سرحان said: البرنامج لا يعمل Expand هل فيه رسالة خطأ؟
عمر ضاحى قام بنشر يوليو 25, 2021 قام بنشر يوليو 25, 2021 في 25/7/2021 at 15:00, د.كاف يار said: ماهو اصدار الاوفيس لديك ؟؟ Expand فى نقطه حضرتك اعتقد انك مش واخد بالك منها انا مبتدأ يعنى انا مش فاهم الكود كله 100% فى حاجات فهمتها وحاجات محتاجه شرح ليه اتكتبت كده وليه الارقام دي وغيره 😌 ويبدو ان حضرتك بتكلمنى على انى محترف ابدا والله 😁 دا انا مسكين 😇 يعنى ايه ال ممكن اكتبه مثلا
عمر ضاحى قام بنشر يوليو 25, 2021 قام بنشر يوليو 25, 2021 في 25/7/2021 at 15:54, د.كاف يار said: خلاص لغينا استخدام المكتبة جرب هذا التعديل Database2.mdb 448 kB · 8 downloads Expand استاذ @محسن سرحان الملف شغال تمام ربما المشكله عندك جرب ان تغير نسخة البرنامج لاصدار 2007 او اعلى
محسن سرحان قام بنشر يوليو 27, 2021 الكاتب قام بنشر يوليو 27, 2021 طيب بالبحث فى المنتدى وجدت مشاركة بعنوان كيفية ادراج مجموعة كبيرة من الصور في ملف اكسس تصل الى 100000 صورة وربط كل صورة بسجل معين وبها قاعدة بيانات ربما تكون المطلوب ولكن ارجو من احد الاخوة تحويل القاعدة الى امسس 2003 القاعدة.rarFetching info...
د.كاف يار قام بنشر يوليو 27, 2021 قام بنشر يوليو 27, 2021 في 27/7/2021 at 11:04, محسن سرحان said: لا يغمل على اكثر من جهاز Expand هل يوجد رسالة خطأ ؟؟
محمد أبوعبدالله قام بنشر يوليو 27, 2021 قام بنشر يوليو 27, 2021 في 27/7/2021 at 18:36, محسن سرحان said: طيب بالبحث فى المنتدى وجدت مشاركة بعنوان Expand تفضل اخي الكريم تحياتي
محمد أبوعبدالله قام بنشر سبتمبر 28, 2021 قام بنشر سبتمبر 28, 2021 بداية عوداً حميداً اخي @محسن سرحان هذه محاولة ارجو ان تفيدك باذن الله 1 - حولت حقل الصورة الى مربع نص / Long Text 2 - اضفت كود للحصول على امتداد الملف وهو كالتالي Function File_Type(filename) Dim File_Folder As String File_Path = CurrentProject.Path & "\" & "\Img\" File_Folder = Dir(File_Path & filename & "*") File_Type = Right$(File_Folder, Len(File_Folder) - InStrRev(File_Folder, ".")) End Function 3 - وضعت كود لتحديث حقل الصورة باسم الصورة الذي هو ID مع امتداد الملف ( وهذه لجميع الصور ) ان وجد Dim rs As DAO.Recordset Dim i As Integer Set rs = CurrentDb.OpenRecordset("SELECT * FROM Table1") File_Path = CurrentProject.Path & "\" & "\Img\" If Not rs.BOF Then rs.MoveFirst While (Not rs.EOF) rs.Edit If Len(File_Type(rs.Fields(0))) > 0 Then rs.Fields(2) = File_Path & rs.Fields(0) & "." & File_Type(rs.Fields(0)) rs.Update Else rs.MoveNext End If rs.MoveNext Wend End If rs.Close Set rs = Nothing 4 - غيرت في التقرير الحقل ليكون حقل صورة جرب واعلمني بالنتيجة بارك الله فيك القاعدة.rarFetching info... تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.