علــــي قام بنشر أبريل 11, 2016 مشاركة قام بنشر أبريل 11, 2016 السلام عليكم ورحمة الله عندي كود لزر حفظ البيانات في الجدول لكن عندي خلل في المرفقات لا أعرف تعديل الكود ياريت لو ممكن احد يتفضل بالمساعدة وشكرا Private Sub add_Click() If IsNull(Me.Title) Or IsNull(Me.iso) Then MsgBox "xxxxxxxxxxxxx " 'MsgBox Exit Sub Else Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("unread") Rs.AddNew Rs!id = id Rs!Title = Title Rs!User = User Rs!Date = Date Rs!Time = Time() Rs!subj = subj (الخلل هنا) Rs!Attachment.Fields("FileData").LoadFromFile "" = Attachment Rs.Update Set Rs = Nothing Me.Title = "" Me.MsBox = "" MsgBox "Done " DoCmd.Close End If End Sub فما هو التعديل كي يتعرف على المرفقات ويضعها في الجدول بعد ضغط الزر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 11, 2016 مشاركة قام بنشر أبريل 11, 2016 وعليكم السلام هذا الرابط من مايكروسوفت يعطيك الكود: https://msdn.microsoft.com/en-us/library/bb258184(v=office.12).aspx ولكن لا يُنصح بحفظ الصور في جداول قاعدة البيانات ، والافضل حفظها في مجلد الوندوز وربطها بالبرنامج بالكود جعفر رابط هذا التعليق شارك More sharing options...
علــــي قام بنشر أبريل 11, 2016 الكاتب مشاركة قام بنشر أبريل 11, 2016 منذ ساعه, jjafferr said: وعليكم السلام هذا الرابط من مايكروسوفت يعطيك الكود: https://msdn.microsoft.com/en-us/library/bb258184(v=office.12).aspx ولكن لا يُنصح بحفظ الصور في جداول قاعدة البيانات ، والافضل حفظها في مجلد الوندوز وربطها بالبرنامج بالكود جعفر انا استخدمه في نظام ارشيف من تصميمي ويستخدمه أكثر من شخص على السيرفر في حال تحويل الصور للسيرفر احس بيحتاج صعوبات كثيرة صعبة علي ... وأفكر أحولها SQL بسبب كبر حجمها بس للحين ما بحثت عن الطريقة يعني في مجال لتعديل الكود الحالي بدون حفظها على الوندوز ؟ شكرا اخوي جعفر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 11, 2016 مشاركة قام بنشر أبريل 11, 2016 1 ساعه مضت, علــــي said: 1. انا استخدمه في نظام ارشيف من تصميمي ويستخدمه أكثر من شخص على السيرفر 2. في حال تحويل الصور للسيرفر احس بيحتاج صعوبات كثيرة صعبة علي ... 3. وأفكر أحولها SQL بسبب كبر حجمها بس للحين ما بحثت عن الطريقة 4. يعني في مجال لتعديل الكود الحالي بدون حفظها على الوندوز ؟ 2. بالعكس ، المسألة سهلة ، ويمكنك اضافة حقل المسار في الجدول ، ويمكن بدون حقل المسار في الجدول (انا لا استخدم المسار في الجدول) ، راجع الروابط التالية: و و و 3. نعم ، اذا حفظت الصور داخل قاعدة البيانات ، فنعم ، حجم قاعدة البيانات ستكبر ، و SQL سيكون مناسب ، ولكن لو جربت المادة 2 اعلاه ، فلن تحتاج الى هذه الخطوة 4. رابط مايكروسوفت اللي اعطيتك اياه يقوم بالمطلوب. جعفر رابط هذا التعليق شارك More sharing options...
علــــي قام بنشر أبريل 13, 2016 الكاتب مشاركة قام بنشر أبريل 13, 2016 في 4/11/2016 at 13:38, jjafferr said: 2. بالعكس ، المسألة سهلة ، ويمكنك اضافة حقل المسار في الجدول ، ويمكن بدون حقل المسار في الجدول (انا لا استخدم المسار في الجدول) ، راجع الروابط التالية: جعفر مرحبا اخوي جعفر، شكرا على مساندتك ودعمك انا طبقت شروحاتك وضبطت السنكر للتجربة فيه مشكلة وهي عدم عمل السنكر من خلال نظام access مع ان في برنامج NAPS2 شغال كل شي تمام والبروفايل محفوظ لكن من الأكسس ما يفتح السكنر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 13, 2016 مشاركة قام بنشر أبريل 13, 2016 وعليكم السلام اخوي علي انت سؤالك كان شئ ، والآن اشوفك تنط الى سؤال آخر الخطأ 2220 معناه انه ما فيه صوره في المسار استخدم Windows Explorer وشوف اذا الصورة موجودة في المسار جعفر رابط هذا التعليق شارك More sharing options...
علــــي قام بنشر أبريل 13, 2016 الكاتب مشاركة قام بنشر أبريل 13, 2016 46 دقائق مضت, jjafferr said: وعليكم السلام اخوي علي انت سؤالك كان شئ ، والآن اشوفك تنط الى سؤال آخر الخطأ 2220 معناه انه ما فيه صوره في المسار استخدم Windows Explorer وشوف اذا الصورة موجودة في المسار جعفر هلا اخوي جعفر ... مسامحه لو اختلطت الأمور وتوسعت بمناسبة اني خذت بنصيحتك وقررت استخدم حفظ المرفقات بملف وليس على القاعدة مثل ما نصحتني وراح ادمج البرنامج الي انت أرفقته مع برنامجي وعلى هالاساس جربته وما ضبط معاي زر scan بسبب أنه مب محصل الصورة في المسار .. طبعا هي مب موجودة وانا اريد سحبها من السكنر واضافتها فبرنامج السنكر ما يعمل على سحب الصورة ... أكرر أسفي ولو تفضل أني افتح موضوع ثاني حاضر أخوي وشكراً لك رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 13, 2016 مشاركة قام بنشر أبريل 13, 2016 1. هل اتبعت الخطوات التي وضعتها انا في الموضوع اعلاه؟ 2. وهل عمل السكانر من برنامجي مباشرة؟ ممكن تخبرني الخطوات التي عملتها وجاتك هذه الرسالة؟ جعفر رابط هذا التعليق شارك More sharing options...
علــــي قام بنشر أبريل 13, 2016 الكاتب مشاركة قام بنشر أبريل 13, 2016 12 دقائق مضت, jjafferr said: مرحبا أخوي جعفر 1. نزلت المرفقين (مع برنامج الحيوانات - ومن غير برنامج الحيونات) 2. بداية لم أغير أي شي مجرد اتبع خطوات ربط السكنر واربطه 3. لما استخدم زر scan الي هو المفروض يفتح لي برنامج السكنر لا يعمل وانما يتطلب مني اني اضع مسار الصورة واسم الصورة ويجب ان تكون موجودة فعلا في الجهاز ولما اضغط بعدها scan تفتح وكأنها زر (Browse) مب زر مسح مباشر من السكنر الصور المرفقة ممكن توضح قصدي شكراً اخوي جعفر هل تريد أن اضيف ملف القاعدة تضيف تعدل عليها وتضاف النظام ؟! رابط هذا التعليق شارك More sharing options...
Hoor قام بنشر أغسطس 21, 2019 مشاركة قام بنشر أغسطس 21, 2019 سلام عليكم اخوان انا حاليا دااشتغل برنامج صادر ووارد في الاكسل واريد اسوي زر تحميل مرفقات من الحاسبة علمود يحفظها بقاعدة البيانات وايضا من اريد اسوي بحث عن الكتات تطلع صورته وياه او الملف المحمل مو شرط صورة يحتمل pdf او xls او اي ملف اخر اريد الكود لانو صراحة مالكيت رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أغسطس 21, 2019 مشاركة قام بنشر أغسطس 21, 2019 تفضل هذا التعديل اخي الكريم Private Sub add_Click() If IsNull(Me.Title) Or IsNull(Me.iso) Then MsgBox "xxxxxxxxxxxxx " 'MsgBox Exit Sub Else Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("unread") Rs.AddNew Rs!id = id Rs!Title = Title Rs!User = User Rs!Date = Date Rs!Time = Time() Rs!subj = subj Rs!Attachment.Fields("FileData").Value = Attachment Rs.Update Set Rs = Nothing Me.Title = "" Me.MsBox = "" MsgBox "Done " DoCmd.Close End If End Sub مرفق مثال على ذلك اضافة الصور.accdb رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان