ابوخليل

الحمد لله على توفيقه وفضله

لست بحاجة الى نقل الرقم حيث انه سينتقل من ذات نفسه .. كيف ؟ نحن نتعامل في ادخال البيانات عبر النماذج وليس الجداول اليس كذلك ؟ وما دمت ى ربطت علاقة بين الجدولين بعلاقة واحد لمتعدد فيمكنك انشاء نموذج رئيسي يكون مصدر بيثاناته الجدول1 وآخر فرعي ومصدر بياناته الجدول 2 فبمجرد ما تنتقل من النموذج الاول الى الفرعي سيتم تثبيت الرقم الجامعي في الجدول 2 امل ان يكون شرحي هذا مفهوما لديك ؟

حياك الله اخونا اسلام عن نفسي لم اتعامل باستيراد البيانات الا لاستيراد ملف معين لاجراء العمليات عليه تجد بالمرفقات مثالين بالاكسس لجلب بيانات اكسل ارجو ان تجد فيهما الفائدة علما انه يتوفر في المنتدى امثلة اكسل لتصدير البيانات الى اكسس واستيرادها كذلك في اكسس عند الالحاق المتكرر وخشية تكرار المعلومات نفسها حين ننقر على زر الالحاق اكثر من مرة نستخدم الاحتياطات غالبا داخل الجدول حيث نضع مفتاحا للجدول يمنع التكرار excel_to_access.rar

لربط المتجانسات انظر هنا http://www.officena.net/ib/index.php?showtopic=49144

تم التعديل آمل ان يلبي مطلوبك 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- توظيف وندز لكبح بعض خصائص اكسس المستعصية كل هذا بسبب الحجر وتضييق الخناق من ميكروسوفت وفرض التبعية ومع هذا اكسس من البرامج سهلة التعلم ويفي بالحاجة لمعظم الاعمال