ابوخليل

رأينا المظهر فاشتقنا للمخبر شكرا جزيلا استاذنا وحبيبنا هل يوجد نسخة 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 اذا الشرح غير كافي يمكنني زيادة الايضاح

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

تمام الفحص عن قرب يبين المشكلة مشكلتك في حقل Emp_No في جدول tblEmployeess هو الآن غير قابل للتكرار اجعله يقبل التكرار ولزيادة الضبط اجعل الحقول الثلاثة مفاتيح .. انظر التعديل الترحيل6.rar

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

اعتقد لا يوجد مشكلة ارفق المثال الذي عملت عليه وخرجت المشكلة حتى يتم الاصلاح

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

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