عبد الله قدور

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

السلام عليكم اخي @Aliko لتطبيق هذه الحماية اعمل الخطوات التالية 1- اوصل الفلاشة التي ستصبح دارة الحماية لبرنامجك 2- افتح النموذج flash سيظهر في النموذج رقم التسلسلي للفلاشة قم بنسخ هذا الرقم 3- افتح النموذج hi في عرض التصميم واذهب الى الحدث عند عداد الوقت وافتحه 4- قم باستبدال رقم الفلاشة القديم بالجديد كما في الصورة 5- ثم انسخ هذا الكود الى نموذج الترحيب الموجود في برنامجك او قم بنقل هذا النموذج الى برنامج واجعله نموذج الترحيب اي الذي يفتح عند فتح البرنامج سيقوم الكود عند فتح البرنامج بالتاكد من اتصال هذه الفلاشة في الكمبيوتر فاذا وجدها اكمل عمل البرنامج واذا لم يجدها يغلق البرنامج طبعا هذا ليس له علاقة بالمستخدمين داخل البرنامج هو في حال تم بيع نسخة من البرنامج للزبون مع الفلاشة لا يمكنه بيع هذه النسخة لشخص اخر دون الرجوع اليك

السلام عليكم بالنسبة لي انا استخدم هذا الكود في حدث عند التحميل في النموذج الافتتاحي DoCmd.ShowToolbar "ribbon", acToolbarNo

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

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

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

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

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

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

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