ابو عارف

حياك الله اخي انا في خدمة

اخي محمد جربت اكثر من مرة لا يوجد اي مشكلة يمكن حدوث تلك المشكلة حين تغير صورة تكون مربع يوزر فارغة و الا يعمل حسب المطوب ولكن كاتت هناك مشكلتان 1)مع تغير اسم المستخدم كانت تدرج صورة جديدة دون حذف صورة القديمة و تم تعديل 2) اعادة صورة قديمة في نموذج بعد كبس زر حفظ بيانات ولاكن كانت تختفي بعد اعادة فتح النموذج و تم حلها ايضا و اليك المرفق المعدل: BK .accdb

راجع

و جزاك الله بمثله اخي نزل المرفق مجدداً حيث تم تعديل عليه

و هذا احد حلول New Microsoft Access قاعدة بيانات.accdb

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

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

تفضل أخي محمد بعد تعديل بيانات اضغط على زر "حفظ بيانات" في اسفل النموذج BK .accdb

ان شاء الله جاري عمل عليه

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

السلام عليكم اخي محمد صلاح الصق هذا كود في حدث بعد تحديث للمربع نص مراد كتابة رقم تليفون فيه If IsNull(ActiveControl) Or ActiveControl = "" Then Exit Sub Dim vl As String vl = ActiveControl.Value vl = Replace(vl, "(", "") vl = Replace(vl, ")", "") vl = Replace(vl, "-", "") vl = Replace(vl, " ", "") If Mid(vl, 4, 1) = 0 Then vl = Format(vl, "(000) 0000-0000-000") Else vl = Format(vl, "(000) 000-00-000") End If ActiveControl = vl Database1712.accdb

السلام عليكم اخي جرب التعديل ادخل بيانات في نموذج كما في سابق ثم افتح استعلام QR و انظر النتيجة و يمكن عمل النموذج على استعلام نفسه حسب المناسب ملاحظة : قبل فتح استعلام اخرج التركيز من سجل الجديد رغم الكود مزود بأمر حفظ السجل ولكن من اجل تاكيد Database151.accdb

انظر موضوعك الجديدة

اخي جرب التعديل قيم الموجودة في جدول مشتريات نموذج مبيعات لاحظ كمية 10 بسعر 15 =150 +كمية 10 بسعر 18= 180 المبلغ = 330 عودة الى جدول مشتريات انظر الكمية ب 15 قد نفد و الكمية ب 18 خصم منها 10 فقط علما بان السعر تكتب أليا بعد تحديث الكمية اتمنى التعديل يكون على حسب مطلوب Database151.accdb و الكود: On Error Resume Next Dim DB As DAO.Database Dim rst As Recordset Dim Thisv As Integer Dim Total As Integer Dim ThisAdad As Integer Dim sail As Long Thisv = 0 ThisAdad = Co Set DB = CurrentDb Set rst = DB.OpenRecordset("select * from Q_IN where code=" & Nm.Column(1) & " ORDER BY dt") rst.MoveLast rst.MoveFirst Total = DSum("[Item_Count]", "Q_IN", "[code]=" & Nm.Column(1)) If ThisAdad > Total Then MsgBox "عفواً الكمية بهذالقدر غير متوفرة": Undo: Exit Sub Do While ThisAdad > rst!Item_count ThisAdad = (ThisAdad - rst!Item_count) Thisv = Nz(Thisv) + (rst!Item_count * rst!Price) rst.Edit rst!Item_count = 0 rst.Update rst.MoveNext Loop If ThisAdad > 0 And Not rst.EOF Then Thisv = Thisv + (ThisAdad * rst!Price) rst.Edit rst!Item_count = rst!Item_count - ThisAdad rst.Update End If Price = Thisv Set DB = Nothing Set rst = Nothing

تم تعديل document1.accdb

تفضل document1.accdb

وعليكم السلام تفضل

السلام عليكم و رحمة الله و بركاته اخي الكريم ترتيب تاريخ صحيح كما قال الاستاذ kha9009lid حاليا الا اذا كتبت تاريخ اقدم مما تم كتابته مسبقا مثلا في سجل الاول كتبت 12/12/2019 و في سجل الثاني كتبت 12/11/2018 لهذا جعلت مصدر النموذج منشئ استعلام و بنسبة بحث برقم تليفون اليك التعديل اذا كتبت اسم او جزء من الاسم يظهر نتائج على حسب الاسم و اذا كتبت رقم تليفون في نفس خانة يرجع نتايج على حسب رقم تلفون بتوفيق Database18.rar

وعليكم السلام و رحمة الله و بركاته تفضل اخي Database8.rar

السلام عليكم اخي اليك التعديل حسب فكرتي بشرط القيد يساوي منقول لان لا يوجد خيار ناجح حلقة تكرارية.rar

السلام عليكم و رحمة الله و بركاته هذا صحيح ولكن يبدو استاذ جعفر لم ينتبه الى تنسيق حقل درجات (نص) في جدول، يجب تغيره الى رقم مثلا لو مؤظف حصل على 100 درجه اكيد سيختفي من من حصل على 90 أو اكثر في عامين متتاليين لان 100 في تنسيق نص أقل من 90 و بنسبة طلب الاخير اليك المثال في المرفق حسب فهمي 1091.1.accdb

السلام عليكم و رحمة الله و بركاته اليك المثال ب اضافة تنقل بين عناصر القائمة ب ازرار الاسهم test.accdb من اجل تحديث مصدر الصف الكومبو ، مع كتابة كل الحرف ينتقل التركيز الى Txt ثم تحدث مصدر صف القائمة ثم ينتقل الي القائمة مرة اخرى و هكذا لان لايمكن تحديث مصدر الصف و داخله تركيز بتوفيق،،،

السلام عليكم و رحمة الله تفضل اخي علي ان شاء الله يكون حسب المطلوب يمكن تعديل علبه اخفاء "يشمل: 0 " في حالة عدم وجود سجلات مكررة H_R.zip

عليكم السلام استاذ علي،حسب معوماتي امامك خيارين لتغلب على تلك المشكلة 1: فتح جدول TBL1 في وضع تصميم ثم تغير خاصية مفهرس لـ ID الى نعم تكرار مقبول او الى لا. 2: نغير تنسيق حقل ID في جدول TBL1 الى ترقيم تلقائي ثم تغير متغير UpdtQry الى: UpdtQry = "INSERT INTO TBL1(firstname,[date],tell) SELECT TBL.firstname,TBL.[date],TBL.tell FROM TBL;" بتوفيق،

نعم ممكن ان شاء الله تفضل Random.accdb