ابوخليل

تم التعديل آمل ان يلبي مطلوبك db1.rar

انظر مثالك بعد التعديل استخدمنا وحدة نمطية لجلب اسماء الصور وايداعها داخل جدول ثم وظفنا هذا الجدول داخل استعلام النموذج تم فحصه على اكسس 2003 جرب ووافني بالنتيجة card11.rar

صدقت واذا عرف السبب بطل العجب ، والسبب هو اني استعجلت بالحكم وعلى كل حال هونها وتهون : ايقونة اكسس مفتاح والمفتاح احسن من القفل

الف مبروك أعانك الله ووفقك

عجيب !! عندي تظهر الايقونة في الحالات الثلاث كلها . جرب بربط الايقونة من جديد

افتح موضوعا جديدا بسؤالك وارفق مثالك للتعديل عليه وللعلم فقط : للترحيل نستخدم استعلام الالحاق وللحذف نستخدم استعلام الحذف

الطلب بحاجة الى توضيح وارفق مثالك كزيادة في الايضاح

المسألة يكتنفها عائقان : 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

مطلوبك هنا http://www.officena.net/ib/index.php?showtopic=48922

قصد اخونا زمزم انك ترفق مثال الجواب : للأسف ما في تحديث مؤقت بدون نموذج هذا حسب علمي .. وفوق كل ذي علم عليم

انت بحاجة الى تحليل بيانات مشروعك وهي الخطوة الاولى الاساسية قبل بناء اي مشروع ومن ذلك باختصار 1- بيان طبيعة العمل على ارض الواقع وكيف تتم ( وهي اهم الخطوات ) 2- الاطلاع على البرامج السابقة ان وجدت الكترونية او ورقية 3- معرفة الفرق بين البيانات الثابتة والبيانات المتغيرة 4-تبيين وايضاح النتائج المنتظرة او المرجوة بعد ذلك تدخل في تحليل النظام ويهمنا هنا انشاء وصياغة الجداول اللازمة لهذا المشروع بعد ان تسلك هذا الطريق وتعرض هذا على اخوانك اهل الخبرة ستجد ان 90% من الحقول في جداولك الحالية زائدة

الأمر : اي امر تريده مكانه : عند عداد الوقت للنموذج الشرط : ان يكون النموذج مفتوحا ، ويمكنك اخفاؤه

نقلت مثالك الى جهاز آخر لاطلع عليه واكتشفت حقيقة انك بعيد التفكير وفي هذا المثال شطحت بك افكارك كثيرا المهم : ارى انك تراجع طريقتك في تصميم الجداول ، فكأني بك قريب العهد من إكسل

if len([filde])=12 then msgbox"فضلا أدخل العنوان" end if اما السؤال الثاني فيحتاج الى زيادة ايضاح وحبذا ان يكون في مشاركة جديدة ملحوظة : ادعم اسئلتك بارفاق امثلة للتطبيق

حقيقة يا اباعمر كلها يمكن تشبيهها بالعمليات القيصرية 1- الاستعانة بفيجوال وتوظيفه لالغاء تحذيرات اوفيس 2- توظيف وندز لكبح بعض خصائص اكسس المستعصية كل هذا بسبب الحجر وتضييق الخناق من ميكروسوفت وفرض التبعية ومع هذا اكسس من البرامج سهلة التعلم ويفي بالحاجة لمعظم الاعمال

هذا حل حسب ما فهمت و بلا شروط آمل ان يكون هو مطلوبك 303.rar

ليس لي سابق خبرة مع الشيكات وطباعتها ، ولكني اعتقد ان اي طابعة يمكن ان تطبع احجام صغيرة كالمغلفات والظروف ، وذلك بعد اختيار نوع الورق في خصائص الطابعة . وقد وجدت لك في محفوظاتي مثالا بهذا الخصوص لاخ لنا كريم آمل ان تجد فيه ما يفيدك برنامج الشيكات عام.rar

استخدم استعلام انشاء او تكوين جدول فهو يقوم بالمهمة فعند كل تشغيل ينشء جدولا جديدا ويحذف السابق

آمين ولك بالمثل