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

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

Recommended Posts

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

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

 

فهل من حل

 

 

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

Microsoft Office 15.0 Object Library

 

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

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

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

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

 

فهل من حل

 

شكرا

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

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

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

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

  • Thanks 1

شارك هذه المشاركه


رابط المشاركه
شارك

وجدتها :

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

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

اخي ابو خليل

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

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

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

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

G7jbgW.png

 

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

 

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

Untitled2.jpg

Untitled.jpg

شارك هذه المشاركه


رابط المشاركه
شارك
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:

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

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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 اعضاء متواجدين الان

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

×
×
  • اضف...