أريد كود على الاكسيس لحفظ الصورة من ملف.
عندي جدول في حقل اسمه Photo من نوع OLE
أريد كود لاختيار صورة من الهارد ديسك ومن ثم ضغط حفظ لحفظ الصورة في هذا الحقل
انتظركم
وشكرا
أريد كود على الاكسيس لحفظ الصورة من ملف
EngPeek كتب:47 مشاهدة ولا مجيب
ما بعرف لشو فاتحين القسم هذا
اولا ارفق دائما مثالا لسؤالك لتسهيل حل اجابتك واختصار الوقت على المساعدين
ثانيا تفضل هذا المثال وبه زر الاختيار .. لاحظ الوحدة النمطية به .
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
لو انك حاولت ان تساعد نفسك و تضع مرفق يوضح طلبك
لكان أفضل من الحديث بهذا الشكل الغير لائق
مع من حاول مساعدتك
الاخ السائل
يرجى الحديث بشكل من الاحترام مع الاخوة حتى لا تتعرض مشاركتك للاغلاق
و كما قلت من قبل عندما تضع مرفق انت تساعد نفسك و تسهل الامر على من يريد مساعدتك
عموما هذا كود حاول تعديله حسب ما يناسبك و ان فشلت فضع مرفق للتعديل عليه
On Error GoTo Err_AddImage
Dim db As DAO.Database
Dim rsParent As DAO.Recordset
Dim rsChild As DAO.Recordset
Set db = CurrentDb
Set rsParent = Me.Recordset
rsParent.Edit
Set rsChild = rsParent.Fields("pic").Value
rsChild.AddNew
rsChild.Fields("FileData").LoadFromFile ("c:\Sunset.jpg")
rsChild.Update
rsParent.Update
Exit_AddImage:
Set rsChild = Nothing
Set rsParent = Nothing
Exit Sub
Err_AddImage:
If Err = 3820 Then
MsgBox ("File already part of the multi-valued field!")
Resume Next
Else
MsgBox "Some Other Error occured!", Err.Number, Err.Description
Resume Exit_AddImage
End Ifاخي المحترم
فيه اداة اسمها DBPIX جربها تنفعك اذا كنت تبي تحفظ في الجدول عشان هي تحفظ الصورة مباشرة وكذلك تغير حجمهاا بدون تغير جودتها ووضوحها
انا جربتها في احد برامجي وكان حجم البرنامج 70 ميقا وبعد الاداة هذه صار 5 ميفا ومن ميزاتها تشفر الصورة وحاجات كثيره بس يعيب عليها انها بفلوس جرب وحسب حاجتك
وفقنا الله واياكم لما يحب ويرضى
اخوك خليفة