mrnooo2000

اليك التعديل Dim x, i, c As Integer Dim rst As Recordset Set rst = Me.RecordsetClone c = rst.RecordCount DoCmd.SetWarnings False DoCmd.RunSQL " delete from tbsub where mainid=" & Me.ID For i = 1 To c For x = 0 To Me.NezamElsdad DoCmd.RunSQL " insert into tbsub…

ضع المرفق لتتضح الصورة ربما تجد حل عند احد الاخوه

ضع مثال مبسط حتى لا تشتت من يريد مساعدتك

اخى العزيز لماذا تجزأ سؤالك و لماذا لا تضع مثال يعكس مالديك بشكل واضح ؟

تفضل اخى لاحظ مصدر التقرير reports_up.rar

الاستعلامين بسيطيين و يعتمدان على شرط بسيط و هو مقارنة تاريخ نهاية الصيانة بتاريخ اليوم

اعتقد انه حدث خطأ اثناء التركيب اعد تركيبه مره أخرى

اخى الكريم اليك هذا الرابط الذى وجدته بالمنتدى /index.php?showtopic=167586&st=0&p=844137&hl=mscomm32.ocx&fromsearch=1entry844137 وانا سأراجع المرفق لانه ليس لدى اى اجهزة يمكن توصيلها على هذا المنفذ الان

اليك اخى ما استطعت التوصل اليه و لكن ذلك سيجعل النموذج بطىء جدا db1.rar

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

اعتذر اليك اخى الكريم هذا الكود كان لحل سؤال اخر لاحد الاخوه يمكنك الغاء هذا الكود من عندك

اليك ما طلبت db5.rar

اخى مادام الملف mdb فيمكنك فتح الملف مع ضغط الشيفت للوصول الى الكائنات اختر نماذج و حدد النموذج المطلوب و كليك يمين و اختار عرض التصميم او design view و بالتوفيق

اخى الكريم تحتاج فقط الى اضافة هذا السطر الى الكود لديك Me.subform_tak.Form.AllowEdits = True

تفضل اخى لاحظ التعديل فى الاستعلام مصدر هذه العناصر ( الكومبو التى لم تكن تظهر بها البيانات ) فى النموذج الخلفيه 1 التوجيه0.rar

اخى الكريم لا تحصر نفسك مع شخص معين فتحرم نفسك من مساعدة الاخرين اليك ما تريد New تطبيق Microsoft Office Access.rar

اخى الكريم انظر الى حقول التاريخ فى الجدول و ستعرف السبب حول نوع الحقلين الى تاريخ

اليك التعديل test.rar

لا يطابق اى رقم ؟؟

بداية اى شهر اخى عموما ربما يفيدك هذا ضع هذا التعبير فى حقل الاستعلام d: Day([date]) و غير الاسم date لانه اسم محجوز فى الاكسس