عمر ضاحى

اخي الكريم اذا بحثت ستجد الكثير من الموضيع التى تتحدث فى هذا الامر مثل https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=ربط+الاكسس+بجهاز+البصمه&sa=Search

ارفق ملف

كده مثلا ؟ اذا هكذا فقط ضع الشرط 0 تحت md و da وخلاص

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

بما ان مفيش ملف فهشرحلك على طول هتقوم بتحديث الحقول كلها وتذهب الى التنسيق الشرطي وتختار اضافة قاعدة جديده وتختار من القائمة تعبير هو وتحط التعبير بتاعك [s1]=-1 وتحتار اللون وتحفظ

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

هذا هو السبب لاحظ ان التاريح فى سنة 1932 خارج الحدود ال حضرتك عاملها

مشاركه مع استاذى @ابوبسمله قثط ضع هذا الاستعلام فى التقرير الرئيسي SELECT الاسم.رقم, الاسم.الاسم, [المؤهل العلمي].[المؤهل العلمي] FROM الاسم INNER JOIN [المؤهل العلمي] ON الاسم.رقم = [المؤهل العلمي].رقم WHERE ((Not ([المؤهل العلمي].[المؤهل العلمي]) Is Null));

فى الاول كتبهتا OR من غير ما اجرب النتائج لكن كانت النتيجة غير مظبوطه فعدلت الاجابة وكتبتها and وجربت ظبطة ممكن علشان كلها لنفس الحقل مفيش حاجه خارجية فتمشي كانها OR 😅

روح على الجدول وفى خصائص الحقل مطلوب اجعلها نعم

هنا انت هتستخدم دالة Dlookup مع الكود السابق ذكره

ممكن بهذه الطريقة If TxT1 <> "محمود" And TxT1 <> "عصام" And TxT1 <> "مدحت" Then MsgBox "خطأ ادخل الاسم الصحيح" End If طبعا استبدل txt1 باسم مربع النص

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

ده ممكن بسبب شئ متعارض مثل حقل نوع رقمي وانت مدخل نص او رقم مفتاح اساسي غير قابل للتكرار وانت بتحاول تضيفه مره اخري راجع بيانات (انواع الحقول) الجدول غندك او المفاتيح ربما تحتاج لايقاف مثل اضافة رقم ID فى حالة كان الرقم نوع تلقائى ده قد يكون المشكله او قد يكون هناك حقل مطلوب ولم تدخل البيانات الخاصه به

انا شايف ان الكود يعمل عندك عادي ممكن توضح ايه الخطأ ؟

استخدم هذا الكود مع اى فورم هذا للاضافة Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("tabr", dbOpenDynaset) With rst .AddNew ![id] = ![nom] = ![sand] = ![datee] = ![resever] = ![rasee] = ![faree] = ![onde] = ![oytde] = ![indo] = ![outdo] = ![daleel] = ![notes] = ![years] = .Update .Close End With Set rst = Nothing db.Close Set db = Nothing عطل ما تريد تعطيله وفعل ما تريد ترحيله ------------------------------------------ هذا للتعديل Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("tabr", dbOpenDynaset) With rst .FindFirst Criteria:= If Not .NoMatch Then .Edit ![id] = ![nom] = ![sand] = ![datee] = ![resever] = ![rasee] = ![faree] = ![onde] = ![oytde] = ![indo] = ![outdo] = ![daleel] = ![notes] = ![years] = .Update End If .Close End With Set rst = Nothing db.Close Set db = Nothing اتمني هذا ما تريده

اعذرنى انا مش فاهم المطلوب صراحتا

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

اتفضلى

لان الفريق هنا علمونا كده علمونا كيف نساعد غيرنا لانهم ساعدونا الكثير هنا من اساتذتى الكرام ساعدوني وشرحو لي والاهم علموني كيف اصتطاد فربنا يجازهيم عنا كل خير ويبارك لهم فى علمهم وصحتهم وحياتهم

الموضوع بسيط اكتبي توضيح للمطلوب واتركي الصوره تكمل طلبك

هو كان هيكون فى كلام يتكتب بس تقريبا كنتى مستعجله للدرجة انك نسيتى تكتبي 😅

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

انا ما فعلت حاجه زياده فقط طبق ما سبق ان اخبرتك به هنا ما فى اسهل من كده جرب تطبق ما تخاف من شئ