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

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


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

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

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

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

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

  • 3 weeks later...

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

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

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

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

 

فهل من حل

 

 

post-29819-0-87307300-1409345113_thumb.j

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

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

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

Microsoft Office 15.0 Object Library

 

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

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

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

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

 

فهل من حل

 

شكرا

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

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

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

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

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

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

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

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

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

 

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

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

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

  • 2 months later...
  • 4 years later...

اخي ابو خليل

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

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

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

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

G7jbgW.png

 

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

 

قاعدة بيانات1.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
  
'لابقاء الصورة السابقة إذا لم يتم اختيار صورة
      

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

 

changePic -2.mdb

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

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

مثال بصيغة 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

شكرا لكم 

تحياتى

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

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

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

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

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

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

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

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

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

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

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

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

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

تحياتي

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

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

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

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

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

تحياتي

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

كلامك صحيح 

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

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

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

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

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

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

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

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

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

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

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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information