mrnooo2000

استجدم هذين السطرين لفتح النموذج عند الرغبة فى الاضافة Response = acDataErrAdded DoCmd.OpenForm "EDIT _Nationality", acNormal, , , acFormAdd, acDialog

تفضل اخى Sample.rar

جرب اخى المرفق فقط تم ربط الجدولين فى الاستعلام A5.rar

أحبك الله للاسف لا يمكن تحقيق ذلك فى النموذج المستمر

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

اتمنى اخى ان توضح بشىء من التفصيل ما تريده

من المنطقى أن يحدث ذلك أخى لانك تحسب العدد بمقارنة المخزن و رقم المستند و لا تقارن التاريخ الحل هو اضافة التاريخ للكود عند المقارنة لكن الاشكالية هنا ليست اضافة التاريخ لعملية المقارنة و لكن الاشكالية هى : كيف ستقارن التاريخ و انت لم تدخله بعد و الحل هنا يتوقف…

ما تريده غير واضح فصل ما تريد

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

اليك أخى طريقتى فى عرض الصور board.rar

حتى تكون الصورة واضحة هذه الخاصية ليست من خصائص النموذج و لكنها من خصائص جزء التفاصيل بالنموذج و لالغاءها استخدم هذا الكود Me.Detail.AlternateBackColor = -2

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

اخى كل ما تحتاجه هو ازالة علامة التنصيص من هذا السطر sWhere = sWhere & "'" & c.ItemData(vItem) & "', " ليصبح هكذا sWhere = sWhere & c.ItemData(vItem) & ", " و هذا السطر sWhere = "st_student.numberh IN (" & Strings.Left(sWhere, Len(sWhere) - 3) & "') " & _ ليصب…

فى الوحدة النمطية ضع هذا الكود Sub hide_show_Objects(frm As Form) With frm .xxxx.Visible = False .Box_1.Visible = False End With End Sub و فى النماذج استخدم هذا الكود hide_show_Objects Me

استخدم هذين السطرين للحذف بدل الكود الحالى CurrentDb.Execute "delete * from payment where [سنة_الإشتراك]='" & Me.[سنة_الإشتراك] & "'" Me.Requery

هل جرب المرفق الاخير اخى

افتح النموذج Kaed Eftetahi_insert_Customer_Info فى عرض التصميم و من خصائص هذا النموذج اختر data ثم اذهب الى اخر خاصية recordlocks و عدلها من allrecords الى nolocks و جرب

تفضل اخى 123.rar

جرب المرفق اخى تعديل نموذج تسويات عجز المخزن.rar

اليك اخى هذا التعديل استبدل الكود بالنموذج بهذا الكود If Len(Me.name1 & "") = 0 Then Exit Sub If Len(Me.y & "") = 0 Or Len(Me.t & "") = 0 Then Exit Sub If Me.y <= Me.year5 Then Exit Sub Dim I As Integer For I = 1 To 5 If I < 5 Then Me.Controls("tartib" & I) = …