ابوخليل

Dim i As Integer i = DCount("number2", "tabl2", "number2=" & number1) If i > 0 Then Beep MsgBox "هذا العدد ضمن الاعداد الموجودة" Undo End If مثال.rar

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

If Combo4.Text = "" And Text2.Text = "" Then اولا وجود اللاحقة Text تستلزم وجود التركيز على الحقل عند تنفيذ الامر فإما ان تحذف وإما ان تستبدل بالقيمة Value الثاني انك استخدت And وهنا لن يعمل الكود حتى يكون الحقلان كلاهما فارغان والاولى استخدام Or لاننا لن نسمح لاي واحد منهما ان يكون فارغا

تفضل توقيت كل ثلاث ثواني لترى النتيجة ويمكنك تحديد الفترة حسب الرغبة حيث كل 1000 = ثانية واحدة timre.rar

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

تفضل 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