ابوخليل

هل ينفع هذا

السلام عليكم تفضل : 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

جرب هذه Private Sub QSold_AfterUpdate() if [QSold]>[QAvilable] then undo MsgBox " الكمية المتاحة لا تكفي" Me.Refresh End If End Sub

انظر التعديل طبعا اختلفت الرؤية حسب الحاجة المهم ان الوحدة المعتمدة في البيع والشراء هي الحبة لما تسجل عدد كرتون في حقل الشراء يجب ان يدرج في حقل الحبة "qtyin" العدد (حبات) والعلبة غير مهم ولما يسجل في جدول البيع كرتون او علبة او حبة يجب ان يدرج في حقل الحبة "qtyout" العدد (حبات) اذا اردت الارصدة حسب كل مخزن فقط ادرج حقل المخزن في الاستعلام رصيد الاصناف4.rar

نعم او يمكنك اخفاء محدد السجلات فقط

وعليكم السلام المطلوب فيه غرابة !!! كيف عند الانتقال يبدأ العد من جديد ، هذا يعني انه يستمر يسجل الرقم 1 وهذا بالضبط مايدل عليه العنوان : عند الانتقال للسجل التالي يبدا حقل العدد بالعد من جديد اي من رقم 1 هل تريد الاستمرار بتسجيل الرقم 1 ؟ ام تقصد ان العدد عند الانتقال يستمر بالزيادة ؟ ، وضح ما تريد مفصلا

الحمد لله .. وشكرا على دعواتك الطيبات .. ولك اخي بمثل ما دعوت ..

اعتقد ليس هذا المكان المناسب للموضوع ساعدينا في البحث عن المنتدى المناسب داخل الموقع كي ننقله اليه واكتفي بتعديل العنوان ..

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

شوف جرب هذا ووافني بالنتيجة البديهي ان المسؤول عن الحسابات سوف يستخرج الاهلاك من التملك الى نهاية السنة الحالية ehlakAlosol_3.rar

يمكن سؤالي غير واضح انا اتكلم عن الاعمدة الاخرى المقابلة للقيمة الدفترية .. التراكمي والرصيد اذا حقل القيمة الدفترية =1 ما المتوقع للحقول الاخرى المقابلة

طيب والقيم الاخرى السالبة في الاعمدة الاخرى ماذا بشأنها ؟

انا اضفت عمود لعدد الاشهر من اجل الاستئناس

لاحظت في مثالي الاخير عمود الاهلاك السنوي انه يكون كامل .. فيما يقابل السنة الناقصة .. هل في هذا اشكالية