AlwaZeeR

بالتوفيق أستاذي 👍

المشكلة أستاذ حمدي كانت في ان الكود لا يتعرف على حقل التحرير والسرد انه فارغ Null تفضل: جرب هذا الكود Dim MyStringSql As String MyStringSql = "SELECT [Teacher Class].NAMEe " & _ " FROM [Teacher Class] " & _ "WHERE ([Teacher Class]." & Me.DDR & _ " Is Null Or ([Teacher Class]." & Me.DDR & ")="""")ORDER BY [Teacher Class].NAMEe;" Me.LST1.RowSource = MyStringSql Me.ff = Me.LST1.ListCount - 1 Me.LST1.Visible = True Me.Refresh

تفضل أيها المثابر Dim MyStringSql As String MyStringSql = "SELECT [Teacher Class].NAMEe " & _ " FROM [Teacher Class] " & _ "WHERE (([Teacher Class]." & Me.DDR & " Is Null)) ORDER BY [Teacher Class].NAMEe;" Me.LST1.RowSource = MyStringSql Me.ff = Me.LST1.ListCount Me.LST1.Visible = True Me.Refresh تحياتي لشخصك الطيب

تستطيع حسب حاجتك: ضع تحت زر امر مع تغيير مسمى الجداول بما يناسبك On Error GoTo Err_Handler With CurrentDb .Execute "DELETE * FROM Tbl1", dbFailOnError .Execute "DELETE * FROM Tbl2", dbFailOnError 'بنفس الطريقة تستطيع اضافة اي جدول سواء حذف او تحديث End With Err_Handler: If err <> 0 Then MsgBox err.desc & " (" & err.Number & ")" err.Clear Exit Sub Else 'MsgBox "All Deleted", vbInformation, "Deleted" End If

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

فقط غير منبثق الى نعم في النموذج people App_open.rar

ما عندي اوفيس 64 عموماً جرب المرفق ووافني بالنتيجة :: Database11.rar

=[Page]+1 في مربع نص ضع السابق مع تغيير 1 حسب ما يلزم

تفضل: فرز حسب كود المدرسة11.rar

هذا كان طلبك. أما بخصوص حذف سجل واحد فيعتمد على معيار محدد عموماً تفضل وغير حسب ما تراه مناسباً وهنا وضعت المعيار بناء على حقل رقم الموجود في الجدول Dim strSQL As String strSQL = "INSERT INTO ko11l SELECT * FROM kol" DoCmd.SetWarnings False DoCmd.RunSQL strSQL 'CurrentDb.Execute "DELETE * FROM kol" CurrentDb.Execute "DELETE * FROM kol WHERE [الرقم] =[الرقم] ", dbFailOnError DoCmd.SetWarnings True

بالتوفيق أن شاء الله عمل يستحق الثناء ... الى الأمام

وعليكم السلام ورحمة الله وبركاته كان الخطأ هنا بعد امر Declare Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (OFN As OPENFILENAME) As Boolean Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _ "GetSaveFileNameA" (OFN As OPENFILENAME) As Boolean Database1.rar

استخدم هذا الكود تحت زر امر Dim strSQL As String strSQL = "INSERT INTO ko11l SELECT * FROM kol" DoCmd.SetWarnings False DoCmd.RunSQL strSQL CurrentDb.Execute "DELETE * FROM kol" DoCmd.SetWarnings True طريقه نقل 11.mdb طريقه نقل 11.rar

تفضل: Private Sub Hb_GotFocus() Hb = Round((([Pcv] - 2) / 3), 1) End Sub

هكذا مع تغيير ما يلزم Raseed = Round(Nz([Fld1], 0) - Nz([Fld2], 0) - Nz(Fld, 0) + Nz(Fld, 0), 1) واذا لم تضبط معك ارفق مثالا لما تريد وان شاء الله تحصل على ما تريد :: تحياتي

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

جرب: NewTotal: Nz(DSum("[salary]","qur_stu","Nz([c_month],0)=" & Nz([c_month],0) & "AND Nz([c_safe],0)=" & Nz([c_safe],0)),0)

نعم يمكن قم بإضافة حقل نعم/لا افتح التقرير على عرض التصميم ثم افتح الاستعلام الداخلي الخاص به ثم ضع في المعيار للحقل الذي اضفته كلمة نعم

وعليكم السلام ورحمة الله وبركاته =Round([YourField],1)

مفتاح الـ ID فارغ في النموذج الفرعي يجب ان يكون 6 كما هو في الرئيسي

ضع هذا الكود تحت امر الطباعة لديك Dim strDocName As String Dim strWhere As String strDocName = "Rep" strWhere = "[ID]=" & Me!ID DoCmd.OpenReport strDocName, acPreview, , strWhere

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

اين التوزيع الآلي؟؟ في النموذج الموجود في مثالك التوزيع يدوي

ضع هذا الكود تحت امر موافق CurrentDb.Execute "INSERT INTO ts SELECT * FROM tf", dbFailOnError

وعليكم السلام ورحمة الله وبركاته تأكد أن هناك حقل في جدول TABOL_COSTMOR باسم fator_no ؟؟ اظن يجب ان يكون الاستدعاء من جدول tabol_post1 test2.rar