المسألة يكتنفها عائقان :
1- ان الصور لا يوجد لها روابط داخل قاعدة البيانات ، فلو وجدت هذه الروابط لتمكنا من الفلترة بكل يسر
2- ان عناصر الصور داخل النموذج غير منضمة فيصعب التعامل معها خاصة في النماذج المستمرة .
ومع ذلك :
اعتقد انه يمكن تحقيق الفكرة اذا تمكنا من المقارنة بين اسماء الصور في المجلد وبين المعرفات داخل القاعدة .
وهذا ما سأحاول تجربته ان استطعت ، وأسأل الله العون .
ملحوظة : يفضل اجراء ضغط وإصلاح لللمرفق قبل رفعه ، لاحظ حجم المرفق اعلاه بعد الضغط وكان حجمه قبل الاصلاح 1.6 ميجا
Sub ChangeTitle()
Dim obj As Object
Dim Dbs As Database
Const conPropNotFoundError = 3270
On Error GoTo ErrorHandler
' Return Database object variable pointing to
' the current database.
Set Dbs = CurrentDb
' Change title bar.
Dbs.Properties!AppTitle = "Contacts Database"
' Update title bar on screen.
Application.RefreshTitleBar
Exit Sub
ErrorHandler:
If Err.Number = conPropNotFoundError Then
Set obj = Dbs.CreateProperty("AppTitle", dbText, "Contacts Database")
Dbs.Properties.Append obj
Else
MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
End If
Resume Next
End Sub
Private Sub Form_Load()
ChangeTitle
End Sub
الحكم بعد التجربة
ضع المجلد على D
ChIco.rar
اخوتي الكرام
مسألة التحويل بضغطة زر هذا غير ممكن حسب علمي
ولتحقيق ذلك يلزم الانشاء والتصميم من الصفر
بمعنى تصميم برنامج على اكسس يقوم بمثل عمل البرنامج المرفق
بعد ذلك يمكن نقل جميع البيانات من اكسل الى اكسس
عثرت بالصدفة على تطبيق يقوم بتغيير الايقونة على شريط المهام بطريقة افضل
واعتقد انه يمكن تهذيبه لافضل من ذلك
كما عثرت على وحدة نمطية صغيرة تقوم بالمهمة سأرفقها مع التطبيق بعد التجربة
ChangeIcon0.rar
انت بحاجة الى تحليل بيانات مشروعك
وهي الخطوة الاولى الاساسية قبل بناء اي مشروع
ومن ذلك باختصار
1- بيان طبيعة العمل على ارض الواقع وكيف تتم ( وهي اهم الخطوات )
2- الاطلاع على البرامج السابقة ان وجدت الكترونية او ورقية
3- معرفة الفرق بين البيانات الثابتة والبيانات المتغيرة
4-تبيين وايضاح النتائج المنتظرة او المرجوة
بعد ذلك تدخل في تحليل النظام ويهمنا هنا انشاء وصياغة الجداول اللازمة لهذا المشروع
بعد ان تسلك هذا الطريق وتعرض هذا على اخوانك اهل الخبرة
ستجد ان 90% من الحقول في جداولك الحالية زائدة
نقلت مثالك الى جهاز آخر لاطلع عليه
واكتشفت حقيقة انك بعيد التفكير وفي هذا المثال شطحت بك افكارك كثيرا
المهم :
ارى انك تراجع طريقتك في تصميم الجداول ، فكأني بك قريب العهد من إكسل
if len([filde])=12 then
msgbox"فضلا أدخل العنوان"
end if
اما السؤال الثاني فيحتاج الى زيادة ايضاح
وحبذا ان يكون في مشاركة جديدة
ملحوظة : ادعم اسئلتك بارفاق امثلة للتطبيق
حقيقة يا اباعمر كلها يمكن تشبيهها بالعمليات القيصرية
1- الاستعانة بفيجوال وتوظيفه لالغاء تحذيرات اوفيس
2- توظيف وندز لكبح بعض خصائص اكسس المستعصية
كل هذا بسبب الحجر وتضييق الخناق من ميكروسوفت وفرض التبعية
ومع هذا اكسس من البرامج سهلة التعلم ويفي بالحاجة لمعظم الاعمال
ليس لي سابق خبرة مع الشيكات وطباعتها ، ولكني اعتقد ان اي طابعة يمكن ان تطبع احجام صغيرة كالمغلفات والظروف ، وذلك بعد اختيار نوع الورق في خصائص الطابعة .
وقد وجدت لك في محفوظاتي مثالا بهذا الخصوص لاخ لنا كريم آمل ان تجد فيه ما يفيدك
برنامج الشيكات عام.rar
يوجد ملف تنفيذي ضمن المرفقات
لعمل مثله / بعد فتح المشروع :
file/make project EXE
ثم تابع الخطوات
يمكنك تغييير الايقونة من خصائص الفورم
المشروع لالغاء تحذيرات اكسس 2003 ، 2007 ، 2010
مشروع تخفيض أمان أكسس.rar
يظهر اني خلطت الامور بين االغاء التحذيرات وبين ايقونة اكسس
ومع هذه المحاولات لم انجح
معلومة : يوجد برنامج يلحق بالفيجوال يقوم بتحويل اكسس الى فيجوال شريطة ان يكون تصميمه انجليزي 100%