ابوخليل

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

تفضل حسب طريقتك SandAll3.rar

لم انتبه الى وجود 5 مربعات متراكبة ,, الآن زال عجبي لوجود هذه الاكواد على طريقتك فالامر يسير جدا ولكن امهلني امارس هوايتي في عكس الاتجاه ..

السلام عليكم تم التعديل ولكني عطلت اخفاء الحقل حتى ترى كيف تمت العملية SandAll2.rar

مع الشكر للاستاذ ابو ياسين ، خبرة في التفصيل ، فهو اعطى حلول رائعة حسب طلب السائل الفكرة من البداية غير صحيحة ، ودائما اعقب على مثل هذه المشاركات ولا اعلم كيف تنتقل هذه الافكار للتطبيق على قواعد البيانات قاعدة : اي بيانات تكتب في سجل داخل قاعدة البيانات يتم التعامل معها وهي في مكانها من غير نقل ولا نسخ كيف يتم التعامل معها ؟ يتم باضافة حقول ضمن السجل تكون كأشارات مرجعية لوصف حالة السجل مثل 1- حقل نعم/ لا لاظهار السجل من عدمه 2- حقل لادراج السنة ( من اجل التصفية مستقبلا ) 3- حقل كذا من اجل كذا ........ وهكذا هذه الطريقة اقوى واشمل وتجعل جميع الاحداث ضمن دائرة واحدة ومن خصائصها اختصار الكائنات داخل المشروع اتمنى ان يكون الشرح واضح ومفهوم اي شخص يتعامل مع فكرة القص والنسخ والترحيل ، سيذكر كلامي هذا عندما يعمل على قواعد كبيرة كــ sql مثلا في حالاات ضيقة يمكن اللجوء الى ترحيل النتائج النهائية في جداول جديدة منفصلة عن المشروع وتطبيقاته وهي لا تبعد كثيرا عن التصدير الى ملفات اكسل ، وتختلف الحاجة الى هذه العمليات من مشروع الى آخر احبتي : انا اكتب للفائدة العامة ولمن يمر من هنا فلربما صاحب السؤال قد شارف على نهاية مشروعه

ابحث داخل المنتدى عن "تحزيم"

السلام عليكم الترتيب يمكنك عمله في الاستعلامات ومستقبلا في التقارير الترتيب في الجداول غير مهم عمل مفتاح (او مفهرس) ترقيم تلقائي في الجدول مهم

تفضل لاحظ اني وضعت جدولا للتحكم بالقيم ، ما دمت ستأخذ القيم من حقول ايضا مادامت القيمة واحدة في الحقلين الاولين فيكتفى بحقل واحد iif2.mdb

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

انسخ هذا السطر والصقه اعلى الكود On Error Resume Next

2010 و 2016 , وانا معشوقتي mdb بجهازي ولا تقبل الضرائر الى ان يتهيأ نسخة حديثة لعل احد من الاخوة الاعضاء الكرام ممن جرب وعمل معه ان يفيدنا

اذا الشاشة الرئيسية مصدرها الجدول " اكتب في حقل غير منضم : =count("*") واذا الشاشة مصدرها غير الجدول او بدون مصدر اكتب في الحقل : =DCount("*";"tblName")

هل ينفع هذا

السلام عليكم تفضل : Dim rst As DAO.Recordset Dim x As Integer Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [studient]") rst.MoveLast rst.MoveFirst RC = rst.RecordCount Forms!YWMA!YWMA_sub.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To RC If rst!namestudient = Null Or Len(rst!namestudient & vbNullString) = 0 Then x = rst!idstudient Forms!YWMA!YWMA_sub.SetFocus DoCmd.GoToRecord , , , x - 1 Forms!YWMA!YWMA_sub.Requery Exit Sub End If rst.MoveNext Next i فحص الفراغ.rar

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

جرب ادرج الكلمة PtrSafe بين الكلمتين Declare PtrSafe Function كما في المثال

DoCmd.DeleteObject acForm, "form1" DoCmd.DeleteObject acQuery, "Query1"

احتمال الخطأ وارد ، لانك لم ترفق ادواتك التي تعمل عليها واعتقد ان الخطأ في الامتداد غير صحيح او في اسم النموذج تم التعديل بحيث لا يدع مجالا للخطأ ، لاني ارفقت الادوات التي كان من المفترض ان ترفقها فك الضغط عن المرفق في اي مكان واتركهما جانب بعض ، وتصفح القاعدتين قبل التنفيذ لتطلع على النماذج ثم نفذ من القاعدة a Dim objdb As Access.Application Set objdb = GetObject(CurrentProject.Path & "\B.accdb") objdb.DoCmd.DeleteObject acForm, "frm11" objdb.Application.Quit Set objdb = Nothing a.rar

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

انا جربته يعمل 100% ‘ وتم على قاعدة بيانات على صيغة mdb C:\db2.mdb هو اسم وموقع قاعدة البيانات البعيدة formName هو اسم النموذج في قاعدة البيانات البعيدة

Dim objdb As Access.Application Set objdb = GetObject("C:\db2.mdb") objdb.DoCmd.DeleteObject acForm, "formName" objdb.Application.Quit Set objdb = Nothing

تفضل المورد2.rar

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

ابو ياسين اعتقد انك تقصد كذا If IsNull(Me.QSold) or [QSold] > [QAvilable] Then undo MsgBox " الكمية المتاحة لا تكفي" Me.Refresh end if لانه اصغر او يساوي يجب ان يعمل

السلام عليكم تم التعديل واتمنى يكون هو مطلوبك test5.rar