عبد الله قدور

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

السلام عليكم اليك الحل

Function FirstRcd(Frm) If Frm.Dirty = False Then On Error GoTo err: DoCmd.GoToRecord , "", acFirst Exit Function err: If err.Number = 2105 Then MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ" End If Else MsgBox "Êã ÊÛííÑ ãÍÊæíÇÊ ÇáäÇÝÐÉ íÑÌì ÇáÍÝÙ ÇáÊÛííÑÇÊ", vbCritical End If End Function Function NextRcd(Frm) If Frm.Dirty = False Then On Error GoTo err: DoCmd.GoToRecord , "", acNext Exit Function err: If err.Number = 2105 Then MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ" End If Else MsgBox "Êã ÊÛííÑ ãÍÊæíÇÊ ÇáäÇÝÐÉ íÑÌì ÇáÍÝÙ ÇáÊÛííÑÇÊ", vbCritical End If End Function Function prevRcd(Frm) If Frm.Dirty = False Then On Error GoTo err: DoCmd.GoToRecord , "", acPrevious Exit Function err: If err.Number = 2105 Then MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ" End If Else MsgBox "Êã ÊÛííÑ ãÍÊæíÇÊ ÇáäÇÝÐÉ íÑÌì ÇáÍÝÙ ÇáÊÛííÑÇÊ", vbCritical End If End Function Function LastRcd(Frm) If Frm.Dirty = False Then On Error GoTo err: DoCmd.GoToRecord , "", acLast Exit Function err: If err.Number = 2105 Then MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ" End If Else MsgBox "Êã ÊÛííÑ ãÍÊæíÇÊ ÇáäÇÝÐÉ íÑÌì ÇáÍÝÙ ÇáÊÛííÑÇÊ", vbCritical End If End Function السلام عليكم اخي الكريم بالنسبة لي انا استخدم الوحدة النمطية التي ارفقتها وهي تعطيك تنبيه ايضا في حال لم يتم الحفظ ويمكنك استدعاؤها بالكود التالي في زر السجل الاخير Call LastRcd(Me) في زر السجل الاول Call FirstRcd(Me) في زر السجل السابق Call prevRcd(Me) في زر السجل التالي Call NextRcd(Me)

السلام عليكم أرفق لكم قاعدة بيانات فيها جدول فيه ايات القران الكريم كاملا عمود فيه القران بالتشكيل وعمود بدون تشكيل وقد بدأت بعمود يحوي على الرسم العثماني لكن لم استطع اكماله بعد وستجد فيه ايضا رقم الجزء ورقم السورة ورقم الاية والحزب تحياتي للجميع ayat.zip

السلام عليكم اخي الكريم عبد الفتاح اظن اني قد اثقلت عليك فيها لكني لم استخدم do قبل ابدا ولا اعلم عن الية استخدامها بشرط او بدونه فان كان بالامكان ان تضع الكود كاملا كما في المرة الاولى او التعديل على المرفق التالي على النموذج addacc بحيث اريد تعديل الاسم بشرط المفتاح الاساسي Database2.zip

جزاك الله كل خير اخي عبد الفتاح الكود يعمل بشكل جيد لكن لاحظت ان الكود يتأكد من كل السجلات الموجودة ولو تطابق الكود في اول مرة يعني ان امر do يكمل عمله ولو وجد القيمة من المرة الاولى او ثانية او الخامسة اريد ان يتوقف عندما يجد ما التطابق من اول مرة لاني ساستخدم المفتاح الاساسي في البحث عن التطابق

السلام عليكم اخواني الكرام عندي كود لاضافة البيانات الى جدول النموذج غير مرتبط به وهو Dim mydb As Database, Q1 As Recordset Set mydb = CurrentDb() Set Q1 = mydb.OpenRecordset("man") Q1.AddNew Q1!id = Trim(Me![pid]) Q1!accname = Trim(Me![paccname]) Q1!mob = Trim(Me![pmob]) Q1!note = Trim(Me![pnote]) Q1.Update اريد ان استخدم هذا الكود في تعديل سجل ما في الجدول

حل جيد ويفي بالغرض ان شاء الله ولكن يدفعني هذا الى الطمع اكثر بعملك ومعرفتك واسأل ماذا اذا كان الامتداد من اربعة احرف مثل jpeg هنا كيف سيكون الحل

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

فعلا تستحق احلى لايك

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

السلام عليكم كيف يمكنني ايقاف عملية التنقل بين السجلات باستخدام page up و page down لتنقل بين السجلات المطلوب ايقاف عمل هذين الزرين في النموذج

السلام عليكم ضع في المكان الذي في الصورة مسار الايقونة على ان يكون المسار جانب البرنامج او في مجلد جانب البرنامج وضع نقطة قبل المسار على الشكل التالي .\img\iconName.ico هذا المسار يدل على ان الايقونة في مجلد جانب البرنامج اسمه img واسم الايقونة هو iconName

السلام عليكم اهلا وسهلا بك بيننا اخي الكريم اذا ممكن تضع مرفق للتعديل عليه يساعدك ويساعدنا في مساعدتك

السلام عليكم بامكانك ذلك باحدى الطريقتين : 1- اضافة جدول لتسجيل اسم المستخدم الحالي فيه بعد تسجيل الدخول مباشرة 2- تخزين اسم المستخدم في متغير من نوع public وتستخدمه في اي مكان تريد بالنسبة لي انا افضل الطريقة الاولى

السلام عليكم اذا سمحتم لي ببعض الاسئلة في هذا الخصوص 1- هل يمكن ان تكون القاعدة المضافة كمرجع هي قاعدة بيانات التي تحتوي الجداول ويمكن الاضافة على الجداول من خلال نموذج في القاعدة المضاف لها ؟ 2- ما الوضع في حال كانت قاعدة البيانات المضافة محمية بكلمة مرور 3- كيف يمكن اضافة والغاء الاضافة قاعدة بيانات المرجع برمجيا في حال اردت استبدال الاضافة بقاعدة اخرى

مبارك أخي الكريم أبو إبراهيم الغامدي على الترقية

السلام عليكم اخواني الكرام الفكرة عندي هي 1- انشاء وحدة نمطية لاستدعاء الصورة من مجلد جانب البرنامج اسمه img يتطلب هذا الامر استخدام براميتر لاسم الصورة وبراميتر لامتداد الصورة ندخلهم عند كود الاستدعاء وصلت الى هذه الوحدة النمطية Function selectimage(imageName, typeimage As typeimg) Dim typeimg As String Select Case typeimage Case 1 typeimg = ".png" Case 2 typeimg = ".jpg" Case 3 typeimg = ".bmp" Case 4 typeimg = ".ico" End Select selectimage = Application.CurrentProject.Path & "\img\img\" & imageName & typeimg End Function بحيث استخدمها عند استدعاء اربع انواع من الامتدادات حصرا لكن كما هو واضح من الكود اني استدل على الامتداد برقم وبعد مرور الوقت قد انسى ان الرقم 3 يرجع الى اي امتداد او عدد الامتدادات المسموح استخدامها لذلك استخدمت enum لعرض الامتدادات المسموح بها اثناء كتابة كود الاستدعاء على الشكل التالي بهذه الطريقة عرفت الامتدادات وعددها ولم استخدم الارقام في التعريف عن الامتداد لكن القيم بداخلها هي قيم رقمية احتاج الى الامر select حتى احولها الى نصية الى الان الوضع تمام والكود شغال ممتاز لكن طمعي بكود اقصر واداء افضل بحيث عندما اختار من القائمة تكون القيمة المخزنة فيها نصية واستخدمها مباشرة دون الحاجة الى استخدام select

اخي الكريم هناك خطا في المثال ولا يعمل بشكل جيد الاستعلام لا يفتح وتظهر رسالة خطا

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

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

مفعلة عندي اخي الكريم لكن لا تظهر القوائم التي اقوم بانشاءها انا

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

السلام عليكم اخواني الكرام 1- اريد انشاء فانكشن function واضافة براميتر له وهذا البراميتر يجب ان يعرض على شكل قائمة اثناء استخدام الفانكشن في البرمجة بحيث يعرض لي قائمة اختار منها احد الخيارات المتاحة 2- الطلب الثاني كيف يمكنني ان اجعل البراميتر اختياري وليس اجباري في الفنكشن

السلام عليكم قد يكون وصل حجم قاعدة البيانات الى 2 جيكا بايت قاعدة بيانات اكسس عندما يصل حجمها الى 2 جيكا لا تقوم بادخال سجلات