ابوخليل

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

هذا ما تيسر وآمل ان يحقق الفائدة On Error GoTo Err_erru_Click Dim scfil, fil1, pafil As Object ' اعلان عن متغيرات تمثل كائنات 'اعلان عن متغير يمثل قاعدة بيانات Dim db As Database ' اعلان عن متغير يمثل سجلات Dim rs As Recordset ' اعلان عن متغير يمثل مصفوفة نصية Dim i As String ' القاعدة الحالية Set db = CurrentDb ' فتح سجلات الجدول Set rs = db.OpenRecordset("tbl1") 'انشاء كائن ضمن انظمة الملفات Set scfil = CreateObject("Scripting.FileSystemObject") ' الحصول على الملفات داخل مجلد الصور Set pafil = scfil.GetFolder(CurrentProject.Path & "\photos\").Files 'بداية دوارة : كل ملف في المسار الهدف For Each fil1 In pafil ' استخراج اسم اللاحقة او ما يسمى بالامتداد i = scfil.GetExtensionName(fil1.Name) ' ارجاع الى حروف كبيرة وهي زائدة فلسنا بحاجتها فاسماء الملفات ارقام i = UCase(i) ' بداية الشرط : اذا كانت اللاحقة (؟) وهنا يمكنك تحديد نوع الملفات المستخرجة If i = "JPG" Then ' اضف سجلات جديدة rs.AddNew ' استخراج اسم الملف ' rs("picNm") = (scfil.GetBaseName(fil1.Name)) السجلات ' تحديث rs.UpDaTe ' نهاية الشرط End If 'عودة للدوارة Next Exit_erru_Click: Exit Sub Err_erru_Click: DoCmd.CancelEvent Resume Exit_erru_Click Set scfil = Nothing Set pafil = Nothing Set rs = Nothing

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

لست بحاجة الى نقل الرقم حيث انه سينتقل من ذات نفسه .. كيف ؟ نحن نتعامل في ادخال البيانات عبر النماذج وليس الجداول اليس كذلك ؟ وما دمت ى ربطت علاقة بين الجدولين بعلاقة واحد لمتعدد فيمكنك انشاء نموذج رئيسي يكون مصدر بيثاناته الجدول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% من الحقول في جداولك الحالية زائدة

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

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