ابوخليل قام بنشر أغسطس 9, 2014 مشاركة قام بنشر أغسطس 9, 2014 السلام عليكم ورحمة الله وبركاته في المثال ما يغني عن المقال changePic.rar 1 3 رابط هذا التعليق شارك More sharing options...
REDA.M.A قام بنشر أغسطس 10, 2014 مشاركة قام بنشر أغسطس 10, 2014 ما شاء الله على الجمال و الابداع تسلم يدك - وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر أغسطس 10, 2014 مشاركة قام بنشر أغسطس 10, 2014 بسم الله ما شاء الله عمل بتقدير ممتاز يتيح لي الفرصة في تغيير شعر المدرسة بسهولة من قبل المستخدم إذا تم استخدام قاعدة البيانات في مدرسة اخرى رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر أغسطس 29, 2014 مشاركة قام بنشر أغسطس 29, 2014 الملف الخاص بك استاذ ابو خليل يعمل بطريقة ممتازة ولكن عندما نقلت الكود وبنفس المسميات عند التنفيذ يعطى الخطأ كما بالصورة مع العلم اني اعمل على اكسيس 2013 فهل من حل رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر أغسطس 29, 2014 مشاركة قام بنشر أغسطس 29, 2014 ارجو المعذرة اخي الكريم لقد اكتشفت ااني لابد من اضافة Microsoft Office 15.0 Object Library سؤال هل في كل مرة استخدم فيها البرنامج على جهاز آخر سوف يعطي نفس المشكلة ولابد من اضافة هذه المكتبة لان البرنامج الذي اقوم العمل عليه الان برنامج سوف يستخدمه معلمي المدرسة عندي وانت تعلم ان الكثير من المعلمين لا يعرفون الكثير عن اكسيس فهل من حل شكرا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 29, 2014 الكاتب مشاركة قام بنشر أغسطس 29, 2014 سبب ظهور المشكلة ان المكتبة تكون في موقع يختلف عن الجهاز الآخر ستقع في هذه المشكلة بالتأكيد اذا اختلفت الانظمة بين 32 و 64 بت لاختلاف موقع الملفات المكتبة المسؤولة اسمها mso.dll هناك اكثر من حل احدها ان تجعل المكتبة ضمن مرفقات البرنامج وتعمل على نسخها وتسجيلها عند تنصيب البرنامج الثاني اعتقد بوجود وحدة نمطية تقوم بعمل هذه المكتبة وتدرج داخل البرنامج ( سابحث لك عنها ) 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 29, 2014 الكاتب مشاركة قام بنشر أغسطس 29, 2014 وجدتها : تم ارفاق المثال نفسه بعد التعديل وتم الاستغناء عن المكتبة المذكورة جرب ووافنا بالنتيجة changePic2.rar رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر أغسطس 30, 2014 مشاركة قام بنشر أغسطس 30, 2014 شكرا اخي ابو خليل جعله الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر أغسطس 30, 2014 مشاركة قام بنشر أغسطس 30, 2014 بعد اذنك استاذ أبو خليل أضافة بسيطة من تلميذك لتجنب الرسالة عند عدم اختيار صورة 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 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 30, 2014 الكاتب مشاركة قام بنشر أغسطس 30, 2014 جزيت خيرا ،،، رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر نوفمبر 9, 2014 مشاركة قام بنشر نوفمبر 9, 2014 استاذى الفاضل ممكن الملف بعد ادراج الكود الجديد رابط هذا التعليق شارك More sharing options...
waleed907 قام بنشر ديسمبر 19, 2018 مشاركة قام بنشر ديسمبر 19, 2018 اخي ابو خليل السلام عليكم ورحمه الله وبركاته بخصوص هذا الموضوع قمت بتطبيقة على برنامج يعمل على 2007 ولكن يظهر خطا فالبرنامج لا اعلم سبب الخطاء مرفق لك جزء من البرنامج الحاصل فيه الخطاء عند محاولة فحص الاخطاء يظهر مكان الخطاء مباشرة فضلنا فتح الموضوع على نفس الصفحة حتى لا يتشتت الاستفسار عن نفس مشاكل الموضوع ويمكن للمتابعين معرفة المشاكل وحلولها قاعدة بيانات1.rar رابط هذا التعليق شارك More sharing options...
waleed907 قام بنشر ديسمبر 20, 2018 مشاركة قام بنشر ديسمبر 20, 2018 @ابوخليل ننتظر ردك ابو خليل رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 21, 2018 الكاتب مشاركة قام بنشر ديسمبر 21, 2018 نظام وندوز كم عندك ؟ 32 أو 64 ؟ رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 21, 2018 الكاتب مشاركة قام بنشر ديسمبر 21, 2018 عموما هذا شرح بالصورة للنظامين لما يجب عليك عمله رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 21, 2018 مشاركة قام بنشر ديسمبر 21, 2018 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 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر ديسمبر 21, 2018 مشاركة قام بنشر ديسمبر 21, 2018 السلام عليكم .. مشاركة مع اخواتى ابوخليل وابا جودى مثال بصيغة 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 شكرا لكم تحياتى 1 رابط هذا التعليق شارك More sharing options...
waleed907 قام بنشر ديسمبر 21, 2018 مشاركة قام بنشر ديسمبر 21, 2018 مشكورين جدا اجابات وافية وكافية 1 رابط هذا التعليق شارك More sharing options...
علي هندسة قام بنشر ديسمبر 22, 2018 مشاركة قام بنشر ديسمبر 22, 2018 9 ساعات مضت, محمد سلامة said: السلام عليكم .. مشاركة مع اخواتى ابوخليل وابا جودى مثال بصيغة 2010 و 2003 وبكود بسيط جدا السلام عليكم استاذ محمد سلامة المحترم نفس مثالك السابق هل ممكن رفع الصورة في الجدول بدل تحديد المسار ليكون جزء من قاعدة البيانات عند نقلها الى كمبيوتر اخر وشكرا 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر ديسمبر 22, 2018 مشاركة قام بنشر ديسمبر 22, 2018 7 ساعات مضت, علي هندسة said: السلام عليكم استاذ محمد سلامة المحترم نفس مثالك السابق هل ممكن رفع الصورة في الجدول بدل تحديد المسار ليكون جزء من قاعدة البيانات عند نقلها الى كمبيوتر اخر وشكرا وعليكم السلام اخي الكريم من الخطأ حفظ الصور والمرفقات داخل قاعدة البيانات لما قد يمثل خطر كبير اذا تلفت القاعدة أو تعرضت لعطب أو اي شئ وانما الاصح هو الاحتفاظ بالمرفقات الصور وخلافه بفولدر بجوار البرنامج او في اي مكان وادراج الرابط فقط داخل القاعدة أو اسم المرفق ..هذا افضل تحياتي رابط هذا التعليق شارك More sharing options...
علي هندسة قام بنشر ديسمبر 22, 2018 مشاركة قام بنشر ديسمبر 22, 2018 3 دقائق مضت, محمد سلامة said: وعليكم السلام اخي الكريم من الخطأ حفظ الصور والمرفقات داخل قاعدة البيانات لما قد يمثل خطر كبير اذا تلفت القاعدة أو تعرضت لعطب أو اي شئ وانما الاصح هو الاحتفاظ بالمرفقات الصور وخلافه بفولدر بجوار البرنامج او في اي مكان وادراج الرابط فقط داخل القاعدة أو اسم المرفق ..هذا افضل تحياتي السلام علبكم استاذ محمد سلامة المحترم كلامك صحيح لكن طلبي (نفس مثالك السابق هل ممكن رفع الصورة في الجدول بدل تحديد المسار ليكون جزء من قاعدة البيانات عند نقلها الى كمبيوتر اخر) الغاية منه اولا التعلم وثانيا احتاج هذه الفكرة في بعض البرامج علما اني دائما احتفظ بنسخه احتياطية خوفا من فقدانها كما تفضلت رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر ديسمبر 22, 2018 مشاركة قام بنشر ديسمبر 22, 2018 8 ساعات مضت, علي هندسة said: ما هو أصدر الأوفيس لديك؟ رابط هذا التعليق شارك More sharing options...
علي هندسة قام بنشر ديسمبر 22, 2018 مشاركة قام بنشر ديسمبر 22, 2018 7 دقائق مضت, محمد سلامة said: ما هو أصدر الأوفيس لديك؟ استاذي 2007 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر ديسمبر 22, 2018 مشاركة قام بنشر ديسمبر 22, 2018 استخدم اخي حقل من نوع مرفق في الجدول فهو يمكنك من اضافة اكثر من مرفق دتخل القاعدة ولكني اعيد التاكيد بان هذه غير مفضل رابط هذا التعليق شارك More sharing options...
علي هندسة قام بنشر ديسمبر 22, 2018 مشاركة قام بنشر ديسمبر 22, 2018 18 دقائق مضت, محمد سلامة said: استخدم اخي حقل من نوع مرفق في الجدول فهو يمكنك من اضافة اكثر من مرفق دتخل القاعدة ولكني اعيد التاكيد بان هذه غير مفضل استاذ محمد سلامة ممكن اذا تفضلت تطبيق ذلك على المثال السابق مشكورا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان