نجوم المشاركات

تفضل التعديل auto no-1.rar

اتفضلوا البرنامج العملاء_والديون_اقساط_0777134668.accdb

شوف المثال .. استخدمت Dlookup salary.accdb

جزاكم الله خيرا على المساعدة وكل عام وحضراتكم بخير عيد أضحى سعيد

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

استاذ khaledalsaher السلام عليكم اعتذر منك لاني لم اذكر التغييرات هو المعرف وليس مربع التحرير والسرد ملاحظة : الابتعاد عن التسميات باللغة العربية مراعاة عدم تسمية الجداول والنماذج والحقول وغيرها باسماء محجوزة

هذا اسم مربع التحرير والسرد ...هل غيرته عندك ؟

ارفق الملف مع بعض البيانات

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

لا معروف ولا اي شي .. الشكر لله اولا ولهذا المنتدى ثانيا

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

ربما تفيدك هذه النتائج https://www.officena.net/ib/search/?q=يوزرفورم بحث&updated_after=any&sortby=relevancy&search_and_or=and

أ.HussienAlkinani هل هذا هو المقصودالبرنامج.accdb

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

آرائهم ياهلا بمهندسنا الفاضل دائما هناك عدة طرق للوصول للنتيجة وهناك حل وهناك حل افضل وفي النهاية صاحب القرار يختار مايناسبه مشاركة مجموعة من الاشخاص بطرح افكارهم وآرائهم يسهم في ايجاد الحلول ويفتح المجال لافكار جديدة فكرتك ربما تلقى القبول من صاحب الموضوع "وهي فكرة جديرة بالاحترام" ونكون وصلنا للحل المناسب له اما انا لا افضل زيادة عدد النماذج طالما نستطيع تجنب ذلك وهو رأيي شخصي ولا يعني انني على صواب تحياتي وتقديري لك اخي وكل عام وانتم بخير 🌹

في خدمتك اخي وصديقي عبد لللطيف وكل وعام وانتم بخير

اخي حلبي الامر صحيح ولكنه يعمل مع الاصدارات الحديثة حيث ان اوامر RunCommand هي البديل لـ DoMenuItem وبالتالي فان الامر الذي وضعة الاستاذ @محمد أبوعبدالله في الحقيقة هو نفس الامر الذي وضعة الاستاذ @مسفر DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 = DoCmd.RunCommand acCmdFind وكذلك يمكن كتابة الامر الاخير هكذا DoCmd.RunCommand 30 وهنا 👇 بعض اوامر DoMenuItem وما يكافئها في runcommand على سبيل المثال لا الحصر والا فالحديث يطول acFormBar, acEditMenu, 2 = acCmdCopy acFormBar, acEditMenu, 6 = acCmdDeleteRecord acFormBar, acRecordsMenu, 5 = acCmdRefresh تحياتي

جرب DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

وعليكم السلام ورحمة الله وبركاته ضع الامر التالي في زر امر DoCmd.RunCommand acCmdFind تحياتي

تحليل دقيق جدا من استاذنا ومعملنا الاستاذ/ @jjafferr جزاك الله كل خير ـ وكل عام وانت بخير استاذى المحترم / @ nabial انت محتاج تغير اسماء النماذج الفرعية

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

يا رجال ، وانا حاط لي لوحة في توقيعي تقول : خلينا نستفيد من افكارك 🙂 جعفر

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

السلام عليكم 🙂 الخطأ يقول ان الكائن tbl_dece لا يوجد في النموذج Data member not found) : . اذا تلاحظ اسم حاوية النموذج الفرعي في النموذج ، اسمها يطابق الاسم في الكود ، فلم تحصل على خطأ هنا : . ولكن اسم حاوية النموذج الفرعي في النموذج ، اسمها لا يطابق الاسم في الكود ، لذا فالاسم الموجود في الكود غير موجود في النموذج اصلا : . وهذه طريقة اخرى للتأكد بأن الكائن المذكور في الكود لا يوجد في النموذج : فعندك خيارين للحل: 2. يا انك تُبقي الكود كما هو ، وتغيّر اسم حاوية النموذج الفرعي الى : . 2. او انك تُبقي على اسم حاوية النموذج الفرعي كما هي ، وعليه يتغيّر الكود الى : . ولاحظت انه عندك نفس الكائن بعدة مسميات ، فانت تلخبط نفسك ، وستكون المشكلة اكبر في المستقبل لما تريد عمل اي تعديل !! اعطيه نفس اسم النموذج ، والسلام : . ونصيحة اخرى ، وهي تنسيق الكود ، فلما يكون الكود كله يبدأ من اول السطر ، فلا تعرف بداية ونهاية كل مجموعة ، بينما لما يكون منسّق هكذا ، فمن السهل معرفة البداية والنهاية بمجرد النظر في الكود ، ولا داعي لقراءة الكود لمعرفة بدايته ونهايته ، هكذا : Private Sub Form_Load() If DCount("*", "Tbl_bb", "م") < 1 Then Me![addnew].Enabled = True Me.Next.Enabled = False Me.previous.Enabled = False Me.dlet.Enabled = False Me![cmdcols].Enabled = True Me![Edit].Enabled = False Me![sav].Enabled = False Me![traghh].Enabled = False AllowAdditions = True AllowEdits = False AllowDeletions = False Me.tbl_promotion.Form.AllowEdits = False Me.tbl_promotion.Form.AllowDeletions = False Me.tbl_promotion.Form.AllowAdditions = False Me.tbl_Retr.Form.AllowEdits = False Me.tbl_Retr.Form.AllowDeletions = False Me.tbl_Retr.Form.AllowAdditions = False Me.tbl_dece.Form.AllowEdits = False Me.tbl_dece.Form.AllowDeletions = False Me.tbl_dece.Form.AllowAdditions = False End If End Sub جعفر

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

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

مشاركة مع معلمي محمد أبو عبد الله حفظه الله ورعاه examp.accdb

وعليكم السلام ورحمة الله وبركاته استخدم استعلام تحديث بالشكل التالي UPDATE [Table] SET [Table].Country = [ادخل كلمة لتحديث البيانات]; examp.accdb تحياتي

واذا اردت استخراج اسماء الطابعات برمجيا هذه الوحدة النمطية للحصول على اسماء الطابعات المثبتة في جهازك Public Function GetPrinters() As String Dim prn As Printer Dim strPrinter As String If Application.Printers.Count > 0 Then For Each prn In Application.Printers strPrinter = strPrinter & """" & prn.DeviceName & """;" Next GetPrinters = Left$(strPrinter, Len(strPrinter) - 1) End If End Function ويمكنك مناداة الوحدة النمطية اعلاه واظهار الاسماء في مربع تحرير داخل النموذج اكتب هذا الكود في حدث الفتح او التحميل للنموذج Dim strMsg As String Dim strTemp As String strTemp = GetPrinters() If Len(strTemp) = 0 Then Cancel = True strMsg = "No installed printers found." Else Me.cboPrinter.RowSource = strTemp End If باعتبار Me.cboPrinter هو اسم مربع التحرير في النموذج