ابوخليل

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

ابداع ليس له حدود عمل جميل مليء بالاكواد الاحترافية وهذه النسخة مرة اخرى معدلة لانها تخرج رسائل خطأ ، فأنت نسيت تعدل الصيغ داخل الاكواد قمت بتعديل اسماء الملفات داخل القاعدة من accdb الى mdb جزاك الله خيرا Elsayed Pro2003.rar

ما عليك زود اخوي كرار وشكرا لاخونا صالح على المتابعة والتطبيق

الخطأ يوجد مسافة فارغة في اول الجملة بين علامتي التنصيص " behavior entering field"

تفضل هذا مثال آخر عليه صبغة الاستاذة زهرة وفيه مطلوبك برنامج اقساط ممتاز%.rar

سبب المشكلة في تسمية الحقول في الجدول فالوحدة النمطية يتم الفلترة فيها بناء على حقل اسمه id ولكن في الجدول 2 لا نجد هذه التسمية كمفتاح للجدول تم تعديل الحقل الفرعي المرتبط الى id_2 وتعديل المفتاح الى id اتبع هذا الترتيب اذا اردت اضافة جداول اخرى tree customer5.rar

رأينا المظهر فاشتقنا للمخبر شكرا جزيلا استاذنا وحبيبنا هل يوجد نسخة mdb ؟

جرب بعد حذف البيانات اعمل ضغط واصلاح لقاعدة البيانات ويبدو ان القاعدة mdb والطريقة : من شريط الادوات / ادوات / ادوات مساعدة لقواعد البيانات / ضغط واصلاح قاعدة البيانات

الحل هو التحايل على مربع البحث وتحريره من التركيز جرب ارسال المفتاح كما هو موضح وافدنا بالنتيجة Dim X X = text1.Text text2 = X Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id] = " & text2 If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark Me.text1.SetFocus SendKeys "{f2}" Else DoCmd.GoToRecord , , acNewRec End If

نعم الايام معرفة مسبقا وتأخذ اليوم من التاريخ ()Date الذي هو فعلا تاريخ الجهاز ولاشتراط الجمعة والسبت تكتب الدالة هكذا : if Weekday(Date();1) = 6 or Weekday(Date();1) = 7 then على اعتبار يوم الاحد هو اول ايام الاسبوع

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

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

السلام عليكم يوجد افضل من ذلك وهي الدالة : Weekday(Date();1) تعطي رقم اليوم في الاسبوع من 1 الى 7 والرقم واحد الموجود في الدالة يدل على ان اول ايام الاسبوع هو يوم الاحد فلو كان اول ايام الاسبوع هو يوم الاثنين نضع رقم 2 بدل الواحد فاذا اردت ان تضع شرطا ليوم الجمعة يكون الكود كالتالي : if Weekday(Date();1) = 6 then

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

جزاك الله خيرا اخي صالح اخ moamen salem تفضل البحث في احد الحقول المنضمة Private Sub text1_BeforeUpdate(Cancel As Integer) Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Emp_No] = " & [text1] If Not rs.NoMatch Then Me.Undo Me.Bookmark = rs.Bookmark Else End If End Sub جعل الحدث قبل التحديث واضافة سطر للتراجع

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

ههه الله يخزي شيطانك صحيح اني اتسرع ولكن اعوذ بالله من التسلط ليتك بسطت فكرتك هناك او عدلت على الكود الموجود ثم بعد ذلك احلت على فكرتك يمكن يكون الرد الطف وشكرك اوجب مثالي هو الموجود هناك فقط اضف كلمة undo للتراجع عن الخطأ وغير الحدث الى قبل التحديث اهم عوامل الكود التي يكتبها اكسس هي : Recordset.Clone FindFirst Bookmark Not rs.EOF NoMatch

وعليكم السلام نعم يمكن جرب هذا الكود للشرط الثاني بعد ان تضيف نموذج فرعي Case Is = "o" Me.Controls("subfrm1").SourceObject = "frm2" Me.Controls("subfrm1").Form.Filter = "[ÑÞã]=" & Str2Int(node.Key) Me.Controls("subfrm1").Form.FilterOn = True

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

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

هذه الروابط لعموم الفائدة هذا من عام  2001 وهذا من عام  2007 هنا الكود من عام 2008 وهذا من عام  2010 وهذا من عام  2012 وهذا من ميكروسوفت حديث

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

تم تطبيق الدالة على المثال هنا التطبيق في حقل الرصيد في نموذج المبيعات

السلام عليكم ورحمة الله وبركاته وبعد احبتي اليكم طريقة لاستخراج ارصدة الاصناف المتوفرة في المستودع وهي دالة تخرج لنا رصيد الصنف بمجرد تمرير رقم الصنف عليها اليكم الدالة مع الشرح Public Function alRaseed(ByVal vsenf As String) ' vsenf هو متغير نصي ويمكن ان يكون رقمي وهو يمثل رقم الصنف Dim shra, bai As Integer 'متغيرات رقمية shra = Nz(DSum("kmyahB", "tbl_buy", "N_mad=" & vsenf), 0) ' مجموع عدد الاصناف المشتراه من الصنف المحدد bai = Nz(DSum("kmyahS", "tbl_sales", "N_Mda=" & vsenf), 0) ' مجموع عدد الاصناف المبيعة من الصنف نفسه alRaseed = shra - bai ' الرصيد المتبقي End Function 'وفي النموذج ا Private Sub Cmd1_Click() text1 = alRaseed("0000121") 'الرقم بين القوسين يمثل معرف الصنف 'ويمكن ان نضع داخله اسم حقل الصنف End Sub اذا الشرح غير كافي يمكنني زيادة الايضاح