تبديل صورة _ تغيير شعار

[ابوخليل]

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

في المثال ما يغني عن المقال

changePic.rar

[REDA.M.A]

ما شاء الله على الجمال و الابداع  تسلم يدك  - وبارك الله فيكم

[علي المصري]

بسم الله ما شاء الله

عمل بتقدير ممتاز

يتيح لي الفرصة في تغيير شعر المدرسة بسهولة من قبل المستخدم إذا تم استخدام قاعدة البيانات في مدرسة اخرى

[علي المصري]

الملف الخاص بك استاذ ابو خليل يعمل بطريقة ممتازة

ولكن عندما نقلت الكود وبنفس المسميات

عند التنفيذ يعطى الخطأ كما بالصورة

مع العلم اني اعمل على اكسيس 2013

 

فهل من حل

 

 

[علي المصري]

ارجو المعذرة اخي الكريم

لقد اكتشفت ااني لابد من اضافة

Microsoft Office 15.0 Object Library

 

سؤال هل في كل مرة استخدم فيها البرنامج على جهاز آخر سوف يعطي نفس المشكلة

ولابد من اضافة هذه المكتبة

لان البرنامج الذي اقوم العمل عليه الان برنامج سوف يستخدمه معلمي المدرسة عندي

وانت تعلم ان الكثير من المعلمين لا يعرفون الكثير عن اكسيس

 

فهل من حل

 

شكرا

[ابوخليل]

سبب ظهور المشكلة ان المكتبة تكون في موقع يختلف عن الجهاز الآخر

ستقع في هذه المشكلة بالتأكيد اذا اختلفت الانظمة بين 32 و 64 بت لاختلاف موقع الملفات

المكتبة المسؤولة اسمها   mso.dll

هناك اكثر من حل

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

الثاني اعتقد بوجود وحدة نمطية تقوم بعمل هذه المكتبة وتدرج داخل البرنامج ( سابحث لك عنها )

[ابوخليل]

وجدتها :

تم ارفاق المثال نفسه بعد التعديل

وتم الاستغناء عن المكتبة المذكورة

جرب ووافنا بالنتيجة

changePic2.rar

[علي المصري]

شكرا اخي ابو خليل

جعله الله في ميزان حسناتك

[علي المصري]

بعد اذنك استاذ أبو خليل

 

أضافة بسيطة من تلميذك لتجنب الرسالة عند عدم اختيار صورة

On Error GoTo ErrHandler

Dim filename As Variant
Dim SourceFile, DestinationFile
Dim picturepaht
 picturepaht = GetOpenFile_CLT("", "اختر صورة :")
     With picturepaht
        If picturepaht <> "" Then
            Me.imgLogo.Picture = picturepaht
            logo = picturepaht
              Else
            MsgBox "No image selected."
            
            
        End If
    End With
  SourceFile = logo
 DestinationFile = CurrentProject.Path & "\" & "shar" & ".jpg"
 FileCopy SourceFile, DestinationFile
 MsgBox "تم تغيير الشعار "
ErrHandler:
    If Err.Number = 94 Then
  
'لابقاء الصورة السابقة إذا لم يتم اختيار صورة 
      imgLogo.Picture = CurrentProject.Path & "\" & "shar" & ".jpg"    
MsgBox "لم يتم تغيير الشعار"
End If

[ابوخليل]

جزيت خيرا ،،،

[ابو الآء]

استاذى الفاضل 

ممكن الملف بعد ادراج الكود الجديد

[waleed907]

اخي ابو خليل

السلام عليكم ورحمه الله وبركاته

بخصوص هذا الموضوع قمت بتطبيقة على برنامج يعمل على 2007 ولكن يظهر خطا فالبرنامج 

لا اعلم سبب الخطاء 

مرفق لك جزء من البرنامج الحاصل فيه الخطاء عند محاولة فحص الاخطاء يظهر مكان الخطاء مباشرة

 

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

 

قاعدة بيانات1.rar

[waleed907]

@ابوخليل

ننتظر ردك ابو خليل

[ابوخليل]

نظام وندوز كم عندك ؟  32  أو 64  ؟

[ابوخليل]

عموما هذا شرح بالصورة للنظامين لما يجب عليك عمله 

[ابو جودي]

On Error GoTo ErrHandler

Dim filename As Variant
Dim SourceFile, DestinationFile
Dim picturepaht
 picturepaht = GetOpenFile_CLT("", "اختر صورة :")
     With picturepaht
        If picturepaht <> "" Then
            Me.imgLogo.Picture = picturepaht
            logo = picturepaht
              Else
            MsgBox "No image selected."
            
            
        End If
    End With
  SourceFile = logo
 DestinationFile = CurrentProject.Path & "\" & "shar" & ".jpg"
 FileCopy SourceFile, DestinationFile
 MsgBox "تم تغيير الشعار "
ErrHandler:
    If Err.Number = 94 Then
  
'لابقاء الصورة السابقة إذا لم يتم اختيار صورة
      

        If picturepaht <> "" Then
        imgLogo.Picture = CurrentProject.Path & "\" & "shar" & ".jpg"
        Else
        imgLogo.Picture = ""
        Exit Sub
        
        End If
        
MsgBox "لم يتم تغيير الشعار"
End If

 

changePic -2.mdb

[محمد سلامة]

السلام عليكم .. مشاركة مع اخواتى ابوخليل وابا جودى

مثال بصيغة 2010 و 2003 وبكود بسيط جدا 

Private Sub Command1_Click()
On Error GoTo ABC
Dim X As Object
Set X = Application.FileDialog(3)
With X
If Not IsNull(ImgPath) = True Then
.InitialFileName = ImgPath
Else
.InitialFileName = ""
End If
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "All File", "*.*"
.Filters.Add "All png", "*.png"
.Filters.Add "All jpg", "*.jpg"
 If .Show = True Then
 Me.Image0.Picture = Trim(.SelectedItems(1))
 Me.ImgPath = Trim(.SelectedItems(1))
 End If
 End With
 Set X = Nothing
ABB:
Exit Sub
ABC:
Resume ABB
End Sub

Logo2003.rar

Logo2010.rar

شكرا لكم 

تحياتى

[waleed907]

مشكورين جدا 

اجابات وافية وكافية

[علي هندسة]

9 ساعات مضت, محمد سلامة said:

السلام عليكم .. مشاركة مع اخواتى ابوخليل وابا جودى

مثال بصيغة 2010 و 2003 وبكود بسيط جدا 

السلام عليكم استاذ محمد سلامة المحترم

نفس مثالك السابق هل ممكن رفع الصورة في الجدول بدل تحديد المسار ليكون جزء من قاعدة البيانات عند نقلها الى كمبيوتر اخر وشكرا

[محمد سلامة]

7 ساعات مضت, علي هندسة said:

السلام عليكم استاذ محمد سلامة المحترم

نفس مثالك السابق هل ممكن رفع الصورة في الجدول بدل تحديد المسار ليكون جزء من قاعدة البيانات عند نقلها الى كمبيوتر اخر وشكرا

وعليكم السلام اخي الكريم

من الخطأ حفظ الصور والمرفقات داخل قاعدة البيانات لما قد يمثل خطر كبير اذا تلفت القاعدة أو تعرضت لعطب أو اي شئ 

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

تحياتي

[علي هندسة]

3 دقائق مضت, محمد سلامة said:

وعليكم السلام اخي الكريم

من الخطأ حفظ الصور والمرفقات داخل قاعدة البيانات لما قد يمثل خطر كبير اذا تلفت القاعدة أو تعرضت لعطب أو اي شئ 

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

تحياتي

السلام علبكم استاذ محمد سلامة المحترم

كلامك صحيح 

لكن طلبي (نفس مثالك السابق هل ممكن رفع الصورة في الجدول بدل تحديد المسار ليكون جزء من قاعدة البيانات عند نقلها الى كمبيوتر اخر)

 الغاية منه اولا التعلم وثانيا احتاج هذه الفكرة في بعض البرامج علما اني دائما احتفظ بنسخه احتياطية خوفا من فقدانها كما تفضلت

[محمد سلامة]

8 ساعات مضت, علي هندسة said:

 

ما هو أصدر الأوفيس لديك؟

[علي هندسة]

7 دقائق مضت, محمد سلامة said:

ما هو أصدر الأوفيس لديك؟

استاذي 

2007

[محمد سلامة]

استخدم اخي حقل من نوع مرفق في الجدول فهو يمكنك من اضافة اكثر من مرفق دتخل القاعدة

ولكني اعيد التاكيد بان هذه غير مفضل 

[علي هندسة]

18 دقائق مضت, محمد سلامة said:

استخدم اخي حقل من نوع مرفق في الجدول فهو يمكنك من اضافة اكثر من مرفق دتخل القاعدة

ولكني اعيد التاكيد بان هذه غير مفضل 

استاذ محمد سلامة 

ممكن اذا تفضلت تطبيق ذلك على المثال السابق مشكورا