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

mohammed ali alhababi

عضو جديد 01
  • Posts

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

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

مشاركات المكتوبه بواسطه mohammed ali alhababi

  1. ظهور رموز قي الفيجوال بيسك بالرغم انني ادخلتها بيانات باللغه العربيه وعند البحث عن تلك البيانات لاتظهر لي بشكل اللغه العربيه بل بشكل رموز غريبه ماهو الحل 

     

     

     

     

    كذلك لم استطيع ان اعمل اضافه صوره سأحاول

    Screenshot_20211019-132144_Gallery.jpg

  2. قمت بتثبيت الويندوز ١٠ 

    وحصلت انطفأت مفاجأه للجهاز بسبب الكهرباء

    والان اشغل الجهاز  وتظهر لي رساله 

    an operating system wasnt found 

    try disconnecting any drives that dont contain an operating system 

     

    وانا قمت بتنصيب ويندوز اخر ولكن في قايمه البووت ليس هناك خير ممكن للاقلاع من السيدي الا ساتا ١ و ساتا ٠ وعند الاقلاع يتم فتح هذه الرساله مالحل ؟

  3. only some of the microsoft visual studio 2010 products on this computer have been upgraded to service pace 1. none will work correctly until all have been upgraded 
    to upgrade close all visual products and then install service pace1 which you can donload here if setup starts in maintenance mode select repair 
    will now close

     

     

     

     

    ظهور هذه الرساله عند النقر على ليقونه فتح المايكروسوفت فيجوال ستديو ٢٠١٠

  4. راجع0

    في ٣٠‏/٨‏/٢٠٢١ at 15:14, عمر ضاحى said:

    على افتراض ان مصدر الاسماء فى النموذج كمبوبوكس اسمه AAA

    وان مصدر بداية الفتره فى النموذج هو D1

    وان مصدر نهاية الفتره هى D2

    هترح للاستعلام بتاعك 

    عند الاسم  هتضيف المعيار بتاعك هو 

    Forms![NameOfForm]![AAA] 

    وفى التاريخ هتحط المعيار 

    >=[Forms]![NameOfForm]![d1] And <=[Forms]![NameOfForm]![d2]

     

     

    في ٢‏/٣‏/٢٠١٥ at 20:19, ابا جودى said:

    انا مش قادر افهم كويس يعنى ايه المقصود من الجملة  مع الاستفادة من الأرقام المحذوفة ؟

     

     

    ركز معى فى الاتى

    المثال يحتوى على عدد  (2)  وحدة نمطية  :gift2: 
     

    ـــــــــــــــالوحدة الاولى ــــــــــــــــــ
    تقوم باعادة ترتيب او تصفير الترقيم التلقائى بمجرد فتح البرنامج بعد إغلاقه 


     المميزات 
    ــــــــــــــــ

    - تقوم بتصفير الترقيم التلقائى ككل لو تم مسح كل السجلات  

    - تقوم بإعادة ترتيب الترقيم التلقائى لو تم مسح بعض السجلات فقط وذلك دون اى تدخل من المستخدم

    - الاهم من ذلك أنها تتعامل مع الحقل الخاص بالترقيم التلقائى فى الجدول وهذا ما يميز الوحدة الاولى

    -تخرج التقارير من خلال الجدول بالترقيم السليم بعد اعادة ترتيبه ان اردت الترقيم من واقع الجدول يظهر فى التقرير   :yes:    :wink2: 

    العيب 
    ـــــــــ

    لا يتم تنفيذ الترتيب او التصفير الا بعد اغلاق البرنامج واعادة فتحه 

     

     


    ـــــــــــــــــــــــــــالوحدة النمطية الثانيةـــــــــــــــــــــــــــــــ
    الميزة الوحيدة 
    ترى اعادة الترتيب او التصفير بمجرد اعادة تحميل النموذج فقط دون اغلاق البرنامج

    امممممم
    العيب
    ــــــــ
    غير مرتبطة بالترقيم الاصلى بجدول قاعدة البيانات  لانها ترقيم تلقائى تخيلى فقط تراه بالنموذج دون الجدول مصدر البيانات الذى اعتمد النموذج عليه فى جلب ومعالجة البيانات والعمليات



    المرفق الثانى


    مكون من ثلاث امثله

     

    الاول -----  وحدة نمطية   ModAutoNumFixID   تعيد الترقيم التلقائى لعدد  1  جدول    A1 من خلال ماكرو  AutoExec

    الثانى ----- وحدة نمطية   ModAutoNumFixID   تعيد الترقيم التلقائى لعدد  2  جدول   A1 , A2  من خلال ماكرو  AutoExec

    الثالث ----- وحدة نمطية   ModAutoNumFixID   تعيد الترقيم التلقائى لعدد  3  جدول   A1 , A2 , A3  من خلال ماكرو  AutoExec

     

    لاحظ الفرق بين كود الوحدة النمطية لكل مثال

    المثال الاول الذى يحتوى على عدد  1  جدول

    Option Compare Database
    Option Explicit

    Public Function Mohammed_Essam_AutoNumFix()
    On Error Resume Next

    Dim strSQL1, strSQL2 As String

    strSQL1 = "ALTER TABLE [A1] DROP COLUMN [AutoNumber] ;" ' الجدول الأول
    strSQL2 = "ALTER TABLE [A1] ADD [AutoNumber]AUTOINCREMENT;" '
    الجدول الأول


    DoCmd.RunSQL strSQL1 ' الجدول الأول
    DoCmd.RunSQL strSQL2 '
    الجدول الأول

    End Function
     

     

     

    المثال الثانى والذى يحتوى على عدد 2  جدول 

    Option Compare Database
    Option Explicit

    Public Function Mohammed_Essam_AutoNumFix()
    On Error Resume Next

    Dim strSQL1, strSQL2, strSQL3, strSQL4 As String

    strSQL1 = "ALTER TABLE [A1] DROP COLUMN [AutoNumber] ;" ' الجدول الأول
    strSQL2 = "ALTER TABLE [A1] ADD [AutoNumber]AUTOINCREMENT;" '
    الجدول الأول

    strSQL3 = "ALTER TABLE [A2] DROP COLUMN [AutoNumber] ;" ' الجدول الثانى
    strSQL4 = "ALTER TABLE [A2] ADD [AutoNumber]AUTOINCREMENT;" '
    الجدول الثانى


    DoCmd.RunSQL strSQL1 ' الجدول الأول
    DoCmd.RunSQL strSQL2 '
    الجدول الأول

    DoCmd.RunSQL strSQL3 ' الجدول الثانى
    DoCmd.RunSQL strSQL4 '
    الجدول الثانى

    End Function

     

     

     

    المثال الثالث والذى يحتوى على عدد 3  جدول 

    Option Compare Database
    Option Explicit

    Public Function Mohammed_Essam_AutoNumFix()
    On Error Resume Next

    Dim strSQL1, strSQL2, strSQL3, strSQL4, strSQL5, strSQL6 As String

    strSQL1 = "ALTER TABLE [A1] DROP COLUMN [AutoNumber] ;" ' الجدول الأول
    strSQL2 = "ALTER TABLE [A1] ADD [AutoNumber]AUTOINCREMENT;" '
    الجدول الأول

    strSQL3 = "ALTER TABLE [A2] DROP COLUMN [AutoNumber] ;" ' الجدول الثانى
    strSQL4 = "ALTER TABLE [A2] ADD [AutoNumber]AUTOINCREMENT;" '
    الجدول الثانى

    strSQL5 = "ALTER TABLE [A3] DROP COLUMN [AutoNumber] ;" ' الجدول الثالث
    strSQL6 = "ALTER TABLE [A3] ADD [AutoNumber]AUTOINCREMENT;" '
    الجدول الثالث

    DoCmd.RunSQL strSQL1 ' الجدول الأول
    DoCmd.RunSQL strSQL2 '
    الجدول الأول

    DoCmd.RunSQL strSQL3 ' الجدول الثانى
    DoCmd.RunSQL strSQL4 '
    الجدول الثانى

    DoCmd.RunSQL strSQL5 ' الجدول الثالث
    DoCmd.RunSQL strSQL6 '
    الجدول الثالث


    End Function

    ملاحظة هامه  

    الحقل الخاص بالترقيم التلقائى إسمه فى كل الجداول  AutoNumber  ويجب الايكون مفتاح اساسى

     

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

     

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

    تقبل تحياتى اخى الحبيب بكل الحب والتقدير   :fff: 

     

    وبعد ان اجبتك بما فهمته على قدر عقلى البسيط

    فقط اهمس بود لو استخدمت البحث الخاص بالمنتدى لوجدت الكثير ولى سبيل المثال وليس الحصر انظر الرابط التالى   :fff:  :fff:  :fff: 
    http://www.officena.net/ib/index.php?app=core&module=search&do=search&fromMainBar=1

    الترقيم التقائى-officena.rar

    الترقيم التقائى-officena (2).rar

     

    لم افهم الوحده النمطيه هذه بيظهر لي اخطاء 

    لدي جداول باسم فواتير المشتريات وفواتير المبيعات اين اضع كل اسم جدول وماهي باقي البيانات 

    للووووو تكرمتووووووو

  5. بارك الله فيكم اخواني في هذا المنتدى 

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

    مثل فاتوره مبيعات الرقم التلقائي عند حذف بعض السجلات اريد ان يعيد الترقيم او يغير الترقيم الى ترقيم تلقائي 

    ماالحل 

  6. فلتره في جدول تقرير مبيعات 

    استعلام تقرير مبيعات فيه الاسم والتاريخ واجمالي الفاتوره 

    اريد البحث بين تاريخين بااسم محدد فقط 

    لااريد البحث بجميع الاسماء ..

    كذالك انا لاااستطيع ادراج ملف لاننا استخدم الهاتف في الارسال ..

×
×
  • اضف...

Important Information