اذهب الي المحتوي
أوفيسنا

تعديل كود المرفقات


علــــي

الردود الموصى بها

السلام عليكم ورحمة الله

عندي كود لزر حفظ البيانات في الجدول لكن عندي خلل في المرفقات لا أعرف تعديل الكود

 

ياريت لو ممكن احد يتفضل بالمساعدة وشكرا

 

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

 

فما هو التعديل كي يتعرف على المرفقات ويضعها في الجدول بعد ضغط الزر

رابط هذا التعليق
شارك

وعليكم السلام :rol:

 

هذا الرابط من مايكروسوفت يعطيك الكود:

https://msdn.microsoft.com/en-us/library/bb258184(v=office.12).aspx

 

ولكن لا يُنصح بحفظ الصور في جداول قاعدة البيانات ، والافضل حفظها في مجلد الوندوز وربطها بالبرنامج بالكود :rol:

 

 

جعفر

رابط هذا التعليق
شارك

منذ ساعه, jjafferr said:

وعليكم السلام :rol:

هذا الرابط من مايكروسوفت يعطيك الكود:

https://msdn.microsoft.com/en-us/library/bb258184(v=office.12).aspx

ولكن لا يُنصح بحفظ الصور في جداول قاعدة البيانات ، والافضل حفظها في مجلد الوندوز وربطها بالبرنامج بالكود :rol:

جعفر

 

انا استخدمه في نظام ارشيف من تصميمي ويستخدمه أكثر من شخص على السيرفر 

في حال تحويل الصور للسيرفر احس بيحتاج صعوبات كثيرة صعبة علي ... وأفكر أحولها SQL بسبب كبر حجمها بس للحين ما بحثت عن الطريقة

يعني في مجال لتعديل الكود الحالي بدون حفظها على الوندوز ؟ 

 

شكرا اخوي جعفر

رابط هذا التعليق
شارك

1 ساعه مضت, علــــي said:

1. انا استخدمه في نظام ارشيف من تصميمي ويستخدمه أكثر من شخص على السيرفر 

2. في حال تحويل الصور للسيرفر احس بيحتاج صعوبات كثيرة صعبة علي ...

3. وأفكر أحولها SQL بسبب كبر حجمها بس للحين ما بحثت عن الطريقة

4. يعني في مجال لتعديل الكود الحالي بدون حفظها على الوندوز ؟ 

 

2. بالعكس ، المسألة سهلة ، ويمكنك اضافة حقل المسار في الجدول ، ويمكن بدون حقل المسار في الجدول (انا لا استخدم المسار في الجدول) ، راجع الروابط التالية:

و

و

و

 

3. نعم ، اذا حفظت الصور داخل قاعدة البيانات ، فنعم ، حجم قاعدة البيانات ستكبر ، و SQL سيكون مناسب ، ولكن لو جربت المادة 2 اعلاه ، فلن تحتاج الى هذه الخطوة :rol:

4. رابط مايكروسوفت اللي اعطيتك اياه يقوم بالمطلوب.

 

 

جعفر

رابط هذا التعليق
شارك

في 4/11/2016 at 13:38, jjafferr said:

 

2. بالعكس ، المسألة سهلة ، ويمكنك اضافة حقل المسار في الجدول ، ويمكن بدون حقل المسار في الجدول (انا لا استخدم المسار في الجدول) ، راجع الروابط التالية:

 

جعفر

 

مرحبا اخوي جعفر، شكرا على مساندتك ودعمك

انا طبقت شروحاتك وضبطت السنكر للتجربة فيه مشكلة وهي عدم عمل السنكر من خلال نظام access مع ان في برنامج NAPS2 شغال كل شي تمام والبروفايل محفوظ لكن من الأكسس ما يفتح السكنر

 

 

Untitled1.jpg

Untitled2.jpg

رابط هذا التعليق
شارك

وعليكم السلام اخوي علي :rol:

 

انت سؤالك كان شئ ، والآن اشوفك تنط الى سؤال آخر :rol:

الخطأ 2220 معناه انه ما فيه صوره في المسار :blink:

استخدم Windows Explorer وشوف اذا الصورة موجودة في المسار :rol:

 

 

جعفر

رابط هذا التعليق
شارك

46 دقائق مضت, jjafferr said:

وعليكم السلام اخوي علي :rol:

 

انت سؤالك كان شئ ، والآن اشوفك تنط الى سؤال آخر :rol:

الخطأ 2220 معناه انه ما فيه صوره في المسار :blink:

استخدم Windows Explorer وشوف اذا الصورة موجودة في المسار :rol:

 

 

جعفر

 

هلا اخوي جعفر ... مسامحه لو اختلطت الأمور وتوسعت

بمناسبة اني خذت بنصيحتك وقررت استخدم حفظ المرفقات بملف وليس على القاعدة مثل ما نصحتني وراح ادمج البرنامج الي انت أرفقته مع برنامجي

وعلى هالاساس جربته وما ضبط معاي زر  scan بسبب أنه مب محصل الصورة في المسار .. طبعا هي مب موجودة وانا اريد سحبها من السكنر واضافتها

فبرنامج السنكر ما يعمل على سحب الصورة  ... أكرر أسفي ولو تفضل أني افتح موضوع ثاني حاضر أخوي

وشكراً لك

رابط هذا التعليق
شارك

12 دقائق مضت, jjafferr said:

مرحبا أخوي جعفر

1. نزلت المرفقين (مع برنامج الحيوانات - ومن غير برنامج الحيونات)

2. بداية لم أغير أي شي مجرد اتبع خطوات ربط السكنر واربطه

3. لما استخدم زر scan الي هو المفروض يفتح لي برنامج السكنر لا يعمل وانما يتطلب مني اني اضع مسار الصورة واسم الصورة ويجب ان تكون موجودة فعلا في الجهاز ولما اضغط بعدها scan

تفتح وكأنها زر (Browse) مب زر مسح مباشر من السكنر

 

الصور المرفقة ممكن توضح قصدي

 

شكراً اخوي جعفر

 

هل تريد أن اضيف ملف القاعدة تضيف تعدل عليها وتضاف النظام ؟!

Untitled1.png

Untitled2.png

Untitled3.png

رابط هذا التعليق
شارك

  • 3 years later...

سلام عليكم اخوان انا حاليا دااشتغل برنامج صادر ووارد في الاكسل واريد اسوي زر تحميل مرفقات من الحاسبة علمود يحفظها بقاعدة البيانات وايضا من اريد اسوي بحث عن الكتات تطلع صورته وياه او الملف المحمل مو شرط صورة يحتمل pdf او xls او اي ملف اخر اريد الكود لانو صراحة مالكيت 

رابط هذا التعليق
شارك

تفضل هذا التعديل اخي الكريم 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information