ابو عارف

وعليكم السلام تفضل اجر وظيفي.rar

جرب الان او اكتب قيمة مكتوبة في A1 و B2

جرب هذا =([A1]/100)*[B2]

نعم أخي تفضل accessReportToPdf.accdb

اخي الكريم ماذا لو يتم اصدار تقرير مباشر الى pdf المثال accessReportToPdf.accdb

المرفق الجديد Worker (4).rar

تفضل أخي محمد علما بان الصورة No.jpg ضع في فولدر (123) فقط لا داعي وضع تلك الصورة في جميع مجلدات Worker (4).rar

وعليكم السلام و رحمة الله و بركاته غير فنكشن في وحدة نمطية الى: Public Function FileName(ImagName) Dim ImgPath As String ImgPath = "D:\Photo\12 3" FileName = Dir(ImgPath & "\" & ImagName & ".*") If FileName = "" Then FileName = ImgPath & "\No.jpg" Else FileName = ImgPath & "\" & FileName End If End Function

اخي الكريم الخطاء في اكثر من مكان تغير اسماء حقول ، علاقات جداول و الاستعلامات ، مصادر حقول ... استعلامين Qr1 و Qr3 لا تغير فيهما شيئ حذف او اضافة حقول الا تغير اسماء حقول في حالة تغير حقل المصدر و الباقي عملت تقارير للتجربة يمكن تعديلهما حسب فكرتك و اليك المرفق Stor.accdb

الاستاذ محمد/ سبب مشكل هو نقص فنكشن بأسم (ErrMsg) لان صاحب موضوع رفع جزء من البرنامج حتى بعد تخطي خطوة هذا ستواجه مشكلة تالية و هي عدم وجود نموذج لانتقال اليه بعد دخول و للتجربة الصق هذا كود داخل وحدة نمطية في الرنامج Function ErrMsg(num As Integer) As Variant Dim Myarray(1 To 40) As Variant Myarray(9) = "" Myarray(23) = "انتباه" Myarray(32) = "فضلاً يجب أن تقوم بإدخال اسم المستخدم" Myarray(33) = "فضلاً يجب أن تقوم بإدخال كلمة السر" Myarray(34) = " يجب ألا تتجاوز كلمة السر خمسون حرف أو رقم" Myarray(35) = "من حُسن إسلام المرء تركه ما لا يعنيه" Myarray(36) = "اسم المستخدم أو كلمة السر غير صحيحة ،،، يرجى إعادة المحاولة" Myarray(37) = "سيتم إغلاق البرنامج الآن ،،، يرجى مراجعة المبرمج" ErrMsg = Myarray(num) End Function و اليك المثال Stor.accdb

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

اخي محمد جربت اكثر من مرة لا يوجد اي مشكلة يمكن حدوث تلك المشكلة حين تغير صورة تكون مربع يوزر فارغة و الا يعمل حسب المطوب ولكن كاتت هناك مشكلتان 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