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

السلام عليكم لدي نموذج رئيسي fy يحوي نموذج فرعي fx كيف استدعي الكود الموجود داخل النموذج الفرعي عن طريق الازرار الموجودة في النموذج الرئيسي بحيث يطبق هذا الكود على النموذج الفرعي fyfx.accdb

جزبل الشكر استاذ على هذا الشرح الوافي

السلام عليكم ممكن توضيح ماهية هذين الجدواين وكيف بالامكان الاستفادة منهما

بالعكس استاذ الجميل في هذا المنتدى الكل مستفاد وكل ماكانت الملاحظات اكثر زادت الفائدة

بعد التعديل.accdb الرسالة تعني ان الحقول الموجودة لاتشبة المصدر

حسب اعتقادي لن تحتاج الى ربط هذا الجدول انظر التعديل بعد التعديل.accdb

اعتقد يوجد اشخاص لديهم نظام اكسس بدل الوندوز عند تشغيل الحاسوب

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

مثال المطلوب.accdb

راجع هذا الموضوع ينفعك واقترح ان تيكون الربط بهذا الشكل

لا اعرف لكن التظام عندي حذف هذا الملف اثناء التنزيل

الملف يحتوي فايروس

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

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