ازهر عبد العزيز

Dim strSql As String, x As Integer x = MsgBox("This book is not available, would you like to add it?", vbYesNo + vbDefaultButton1) If x = vbYes Then strSql = "Insert Into TBbook (Namebook) values ('" & NewData & "')" CurrentDb.Execute strSql Response = acDataErrAdded Else Response = acDataErrContinue End If End Sub

وعليكم السلام هذة محاولة مني فلدي تجربة سابقة في ذا النوع من البرامج JOB.rar

بارك الله فيك وزادك علما

بالضبط استاذ هذا الذي اريدة

ماشاء الله استاذ عذرا لم اوصل لك المشكلة بشكل صحيح القصد عند استخدام هذا الجزء من الكود في الاسفل تمام ثم اقوم باضافة كتاب جديد ييقى التركيز على الكتاب القديم Else 'j Me.Parent!finfo.Form.Bookmark = rst_fy.Bookmark Me.Parent!finfo.SetFocus Me.Parent!finfo.Form.Bookmark = rst_fy.Bookmark + 1 'j Me.Parent!finfo!numberreadbook = Me.Parent!finfo!numberreadbook + 1 ''''''!!!!!! ??? End If rst_fy.Close End Sub

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

بالتوفيق اخي

ربط 2 مربح و تحرير وسرد.accdb

ربط 2 مربح و تحرير وسرد.accdb

جزاك الله عني كل خير لما تقدمة من خدمات بعجز الكلمات عن شكرك 🌼

السلام عليكم هذا الكود لاحد الاساتذة جزاهم الله خير ويعمل يشكل ممتاز لكني حاولت تطبيقة على قاعدة بيانات جديدة لكني تفاجئت بعد اضافة اسطر مني للكود ان تنفيذ الكود اصبح بطئ ... الاسطر التي اضفتها مكتوب معلم عليها بكلمة ( هنا ) ارجو المساعدة ولكم مني جزيل الشكر Option Compare Database Option Explicit Dim rst_fy As DAO.Recordset Dim rst_n As Integer ' Private Sub namebook_Click() 'take the Recordset one time, use it many times If rst_n = 0 Then Set rst_fy = Forms!freadermain!finfo.Form.RecordsetClone rst_n = 1 End If rst_fy.OpenRecordset rst_fy.FindFirst "namebook='" & Me.namebook & "'" If rst_fy.NoMatch Then Me.Parent!finfo.SetFocus DoCmd.GoToRecord , , acNewRec '''''!!!!!! هنا Me.Parent!finfo!namebook = Me.namebook ''''''!!!!!! هنا Me.Parent!finfo!Serialnamebook = Me.Serialnamebook ''''''!!!!!! هنا DoCmd.GoToRecord , , acNewRec ''''''!!!!!! هنا Else Me.Parent!finfo.Form.Bookmark = rst_fy.Bookmark Me.Parent!finfo.SetFocus Me.Parent!finfo!numberreadbook = Me.Parent!finfo!numberreadbook + 1 ''''''!!!!!! هنا End If rst_fy.Close End Sub

وجهة نظر سديدة لهذا الافضل ادراج الاستعلام بالطريقة التقليدية مع هذة الطريقة للمقارنة بين الطريقتين وان كنت متاكد من ان طريقة الاستاذ جغقر ستكون هي الاسرع لكن للتجرية لا اكثر

دائما ثلاث ثواني لكن البرنامج توقف بعد تشغيل استعلام الالحاق

اعتقد اني وجدت الحل لك وذلك عن طريق الكود للاستاذ @Eng.Qassim If Me.tot = 0 Then Dim ID As Long ID = CurrentRecord - 1 Me.tot.Value = DLookup("tot", "asas", "ID=" & ID) End If

اسف لايوجد عندي حل لكني منتظر معك الاجابة

استخدم الكود Private Sub tot_AfterUpdate() If Me.tot = 0 Then Me.oldtot = Me.tot.OldValue End If End Sub teatea.accdb

جرب هذا المرفق لعله بفيدك note.rar

Me.lastupdate = Date ضع في حدثث بعد التحديث للحقول الثلاثة

ممكن تفهمني هذا الجدول ماهو وماذا تقصد بالحقل TABOL_NO هل هو رقم الموظف ؟

عذرا لم افهم الطلب هل من الممكن التوضبح اكثر

حسب فهمي لطلبك 1782942947_.accdb

وغليكم السلام استخدم اسنعلام التحديث ولن تحتاج الى كود

جزبل الشكر استاذ على هذا الكود الاكثر من رائع

جزبل الشكر بااخي وهو المطلوب

السلام عليكم في النموذج Fimg مريع صورة مسار الصورة له هو ="C:\bookimg\img\1.jpg" كيف اجغل هذا المسار مخصص لفولدر قاعدة البيانات اي لو تم نقل فلودر قاعدة البيانات الى بارتيسن اخر ولنفرض e لايتاثر مسار الصورة بمعنى ماذا اضع بدل حرف c ليفهم الاكسس ان هذة الصورة موجوده في قولدر قاعدة البيانات دائما bookimg.rar