Shivan Kurdi

حسب فهمي لا يستخدم هذا الكود مفردا بل مع بعض اكود اخرى مثل هذا Sub VSApplication() Dim objGen As Object Dim dbGen As Database Dim gVar As Variant Dim strMDB as String On Error GoTo VSApplication_ERROR strMDB = "c:\my documents\vststcmp.mdb" Set objGen = CreateObject("Access.Application.8") objGen.OpenCurrentDatabase (strMDB) Set dbGen = DBEngine.Workspaces(0).OpenDatabase(strMDB, False, False, "") gVar = dbGen.Containers("Modules").Documents(0).Name If Not IsNull(gVar) Then objGen.DoCmd.OpenModule CStr(gVar) objGen.DoCmd.RunCommand acCmdCompileAndSaveAllModules End If VSApplication_EXIT: On Error Resume Next objGen.CloseCurrentDatabase objGen.Quit Set objGen = Nothing dbGen.Close Set dbGen = Nothing Exit Sub VSApplication_ERROR: MsgBox Error$, 16, "VSApplication" Resume VSApplication_EXIT End Sub هذا والله يعلم تحياتي

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

سؤال هل تريد ان تعطل تلك الازرار ام تريد تنقل بشكل عمودي

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

هل تريد تلك الرموز فقط وهل تريد ان يكون لكل رموز عدده محدودة او ممكن توضيح اكثر

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

استخدم هذا الكود عند الخروج من المربع النصي وليس بعد تحديث Private Sub Arabic_t1_Exam_Exit(Cancel As Integer) If Me.Arabic_t1_Exam = "غ" Or Me.Arabic_t1_Exam <= 40 Or Me.Arabic_t1_Exam = "" Then Exit Sub Else Cancel = -1 Me.Arabic_t1_Exam = "" MsgBox "الدرجة من 40 واكتب حرف غ للغياب" End If End Sub جربه واذا ما نجحت انا راح اعمل لك تحياتي

فقط غير هذا السطر strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & ctl.Value & "'" بهذا strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & "*" & ctl.Value & "*" & "'" وهذا المرفق تحياتي search _02.rar

حدد النص اولا او استخدم Ctrl + A للتحديد الكل وبعد تحديد النص اضغط ضغط مطولا على زر Alt ولا ترفع عليه حتى تضغط مرة واحدة على حرف H وبعدين رقم 0 اللي فوق الحروف اي في راس الكيبورد تحياتي

ممكن ترفع نسخة مصغرة قاعدة بيانات اللي بيظهر فيه هذه الرسالة

اتفضل استخدمت هذا الكود Dim sql As String sql = "UPDATE tab SET tab.a = Null, tab.b = Null, tab.c = Null, tab.d = Null, tab.e = Null, tab.f = Null, tab.g = Null, tab.h = Null;" If MsgBox("هل انت متأكد من تفريغ البيانات", vbYesNo) = vbYes Then DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) DoCmd.SetWarnings (warningson) Me.Refresh MsgBox "تم تفريغ البيانات" Else Exit Sub End If مرفقك بعد تعديل حذف بيانات.rar

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

ارفق قاعدة بيانات مصغرة لكي اجرب بعض العمليات عليه

اتفضل CostDB12.rar

اتفضل الكود مع طلبك 037.rar

acviewNormal

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

نعم

غير الكود في محرر الفيجوال بهذا DoCmd.OpenReport "Report_worker", acViewReport تحياتي

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

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

ممكن توضح ماتريد بالضبط او ترسم اللي تريد

والسبب يرجع لخطأ عند ادخال البيانات اي يعني عندك تريقيم تلقائي وتدخل البيانات اليوم مثلا ورحت حتى رقم 12 مثلا وتدخل في حقل تاريخ تاريخ اليوم غدا عند تدخل البيانات لا يجب ان تدخل تاريخ اقدم من تاريخ السابق اي هل يجوز ان يرجع تاريخ الى الوراء

ما تريد بالضبط هل ممكن ترسم لنا او شوف هدول الصورة هل تريد اي واحد منهما تحياتي

غير تلك الجملة بهذا =IIf(IsNull([ID_School]);"";DLookUp("[School]";"[Tp_School]";"[ID_School]=" & [ID_School]))