ابوخليل

تفضل prog2.rar

كما ذكرت في مشاركتي الاولى ان الامر مقارنة بل مقابلة بين ارقام في مجلد خارجي مع ارقام ضمن جدول في قاعدة البيانات وعند اختلال احد الطرفين لا يظهر الخلل الا بعد المقابلة مرة اخرى تم التعديل بتحويل الكود الى وحدة نمطية عامة نستدعيها عند الحاجة card14.rar

المثال مرفق بعد تعديل الملاحظتين card12.rar

المشكلة تتمثل في جدول الملفات حيث يجب تفريغه من البيانات قبل جلبها مرة اخرى ضع هذه الاسطر في أعلى الوحدة النمطية وبالضبط تحت سطر on Error DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tbl1.*, * FROM tbl1" DoCmd.SetWarnings True

انظر هذا وفي مكتبتي العديد من هذه الانواع ان لم يعجبك سأرفق لك غيره استيراد وتصدير اكسل اكسس خبور.rar

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

هذا ما تيسر وآمل ان يحقق الفائدة 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