اذهب الي المحتوي
أوفيسنا

Shivan Rekany

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    3491

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    152

 نوع المحتوي 

كل منشورات العضو Shivan Rekany

  1. Shivan Rekany
    سؤال هل تريد ان تعطل تلك الازرار ام تريد تنقل بشكل عمودي
  2. Shivan Rekany
    السلام عليكم ورحمة الله وبركاته في البداية انا ما حملت قاعدة بياناتك لكن حسب فهمي لطلبياتك هذه الرابط راح تستفيد منه في بعض شيء شوفه اولا و ان شاء الله لي العودة مع طلبياتك واحد تلو واحد تحياتي
  3. Shivan Rekany
    هل تريد تلك الرموز فقط وهل تريد ان يكون لكل رموز عدده محدودة او ممكن توضيح اكثر
  4. Shivan Rekany
    طلبك مش واضحة لي هل ممكن تشرح بالتفصيل اي عند تعمل اي شي في اي نموذج تريد يعمل اي شي لنموذج اخر اي اعطينا اسماء و الحركة في اي نموذج تحياتي
  5. Shivan Rekany
    استخدم هذا الكود عند الخروج من المربع النصي وليس بعد تحديث 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 جربه واذا ما نجحت انا راح اعمل لك تحياتي
  6. Shivan Rekany
    فقط غير هذا السطر strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & ctl.Value & "'" بهذا strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & "*" & ctl.Value & "*" & "'" وهذا المرفق تحياتي search _02.rar
  7. Shivan Rekany
    حدد النص اولا او استخدم Ctrl + A للتحديد الكل وبعد تحديد النص اضغط ضغط مطولا على زر Alt ولا ترفع عليه حتى تضغط مرة واحدة على حرف H وبعدين رقم 0 اللي فوق الحروف اي في راس الكيبورد تحياتي
  8. Shivan Rekany
    ممكن ترفع نسخة مصغرة قاعدة بيانات اللي بيظهر فيه هذه الرسالة
  9. Shivan Rekany
    اتفضل استخدمت هذا الكود 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
  10. Shivan Rekany
    الكود الاعلاه يتم حذف كافة السجلات في الجدول لكن لذا تريد ان يبقى سجلات وفقط يمسح البيانات راح نشوف لك الطريق ان شاء الله لكن اولا لازم ترفق قاعدة بيانات صغيرة لكي نعمل عليه تحياتي
  11. Shivan Rekany
    ارفق قاعدة بيانات مصغرة لكي اجرب بعض العمليات عليه
  12. Shivan Rekany
    اتفضل CostDB12.rar
  13. Shivan Rekany
    اتفضل الكود مع طلبك 037.rar
  14. Shivan Rekany
    acviewNormal
  15. Shivan Rekany
    نعم ما يشتغل لانه لازم بيكون احد من حقول الجدول بيكون غير قابل للتكرار وحين تدخل البيانات مكررة في النموذج وتستخدم ذلك الكود راح يشتغل بشكل اعتيادي هذا والله يعلم تحياتي
  16. Shivan Rekany
    نعم
  17. Shivan Rekany
    غير الكود في محرر الفيجوال بهذا DoCmd.OpenReport "Report_worker", acViewReport تحياتي
  18. Shivan Rekany
    هناك سؤال لماذا حطيت لبعض الدرجات و ما حطيت على الاخرين اي يعني بأي مقياس او شروط تريد بيكون الدرجة في نصف الدائرة او في نصف مربع شبه منحرف
  19. Shivan Rekany
    حسب فهمي ان الرقم الخطأ للوقت التشغيل 3022 هو للتكرارية وعطيت شرط عند ظهور ذلك الخطأ اي عند ظهور التكرار بيظهر رسالة وبينهبك بذلك وبعدي بيرجع الى مثل القبل ذلك الحقل اي مثل قبل الادخال وبعدين بيستمر العمليات لكي لا يظهر رسائل الخطأ وبعدين انتهينا الشرط واسف على هذا الشرح غير مفصل تحياتي
  20. Shivan Rekany
    ممكن توضح ماتريد بالضبط او ترسم اللي تريد
  21. Shivan Rekany
    والسبب يرجع لخطأ عند ادخال البيانات اي يعني عندك تريقيم تلقائي وتدخل البيانات اليوم مثلا ورحت حتى رقم 12 مثلا وتدخل في حقل تاريخ تاريخ اليوم غدا عند تدخل البيانات لا يجب ان تدخل تاريخ اقدم من تاريخ السابق اي هل يجوز ان يرجع تاريخ الى الوراء
  22. Shivan Rekany
    ما تريد بالضبط هل ممكن ترسم لنا او شوف هدول الصورة هل تريد اي واحد منهما تحياتي
  23. Shivan Rekany
    غير تلك الجملة بهذا =IIf(IsNull([ID_School]);"";DLookUp("[School]";"[Tp_School]";"[ID_School]=" & [ID_School]))
  24. Shivan Rekany
    انظر نظرتا الى تقرير q1q1 و q2q2 attBackup.rar
  25. Shivan Rekany
    اليك هذا الصقه في محرر فيجوال للتقرير Private Sub Report_NoData (Cancel As Integer) MsgBox "There are no records to report", vbExclamation, "No Records" Cancel = True End Sub
×
×
  • اضف...

Important Information

  I accept