اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

نجوم المشاركات

  1. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      8

    • Posts

      9,814


  2. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      7

    • Posts

      8,723


  3. فريدة العصر

    فريدة العصر

    02 الأعضاء


    • نقاط

      6

    • Posts

      81


  4. kha9009lid

    kha9009lid

    الخبراء


    • نقاط

      5

    • Posts

      1,347


Popular Content

Showing content with the highest reputation on 27 ينا, 2021 in all areas

  1. استاذ سليم حاصبيا وأستاذ ابوالحسن شرف كبير مروركم الكريم ودائما الفائدة والاستفادة من حضراتكم لا تثمن ولا يكفيها الشكر بارك الله فى حضراتكم وربنا يجزيكم خيرا
    3 points
  2. كود لجلب الاسماء اوتوماتيكياُ الى ComboBox دون تكرار اختر الاسم والتاريخ واضغط بحث Option Explicit Private Sub CommandButton2_Click() Unload Me End Sub '+++++++++++++++++++++++++++++++++ Private Sub Cmd_Search_Click() Dim x, K As Long, bol As Boolean Dim My_date As Date, Ctr As Control x = Sheets("Main").Cells(Rows.Count, 2).End(3).Row Txt_B = "": Txt_C = "": Txt_D = "": Txt_E = "": Txt_F = "" If Comb_Name = "" Or T_date = "" Then MsgBox "Please Type Name and Date": Exit Sub Else My_date = CDate(T_date) For I = 2 To x With Sheets("Main").Cells(I, 2) If .Value = Comb_Name And _ .Offset(, 3) = My_date Then bol = True Txt_B = .Value: Txt_C = .Offset(, 1) Txt_D = .Offset(, 2): Txt_E = .Offset(, 3) Txt_F = .Offset(, 4): Exit Sub End If End With Next End If If Not bol Then MsgBox "No data" End If End Sub '++++++++++++++++++++++++++++++++++++++++++++ Private Sub UserForm_Initialize() Dim a%, I% a = Sheets("Main").Cells(Rows.Count, 2).End(3).Row With CreateObject("Scripting.Dictionary") For I = 2 To a .Item(Sheets("Main").Cells(I, 2).Value) = Empty Next I Comb_Name.List = .Keys End With End Sub Fathi_combo.xlsm
    3 points
  3. عليك ادراج نفس اسم الزر في الكود كما هو في قائمة (Properties) لاحظ الصورة
    2 points
  4. تفضل اختر من الكومبوبوكس اي اسم ثم اختر من الليست عدل ما تشاء واضغط زر تعديل بحث بمعيار الأسم ثم معيار التاريخ-1.xlsb
    2 points
  5. أستاذنا الفاضل / حسين مأمون اقتراح حضرتك افضل واجمل بس بشرط عند الاختيار من الليستت تظهر النتيجة فى التيكست أسفله ويمكننى التعديل على تلك البيانات فى التيكست وشكرا جزيلا على اهتمامك وربنا يبارك فيك وفى جميع أساتذة المنتدى الكرام
    2 points
  6. اخي الكريم لما لا تضيف ليستبوكس للفورم وهكذا تبحث عن الاسم فقط وياتيك بهذا الاسم ثم تختار ما تيد في الليستبوكس (اقتراح فقط) هكذا كمثال
    2 points
  7. جرب هذا الكود تم تغيير اسم الصفحة الرئيسية الى اللغة الأجنبية (Central) لسهولة نسخ الكود ولصقة (دون ظهور احرف غريبة فيه) Option Explicit Sub One_For_all() Dim Ar_sheet() Dim m%, x%, Ro%, Itm, ct_ro% Dim Rg As Range, CT As Worksheet Dim ct_rg As Range Dim Var_rg As Range, var_ro%, var_col% Application.ScreenUpdating = False Set CT = Sheets("Central") Set ct_rg = CT.Range("A1").CurrentRegion ct_ro = ct_rg.Rows.Count If ct_ro > 1 Then ct_rg.Offset(1).Resize(ct_ro - 1).Clear End If For m = 0 To Sheets.Count - 1 If Sheets(m + 1).Name <> CT.Name Then ReDim Preserve Ar_sheet(m) Ar_sheet(m) = Sheets(m + 1).Name End If Next m = 2 For Each Itm In Ar_sheet Set Var_rg = Sheets(Itm).Range("A1").CurrentRegion var_ro = Var_rg.Rows.Count var_col = Var_rg.Columns.Count If var_ro > 1 Then CT.Cells(m, 2).Resize(var_ro - 1, var_col - 1).Value = _ Sheets(Itm).Range("B2") _ .Resize(var_ro - 1, var_col - 1).Value m = m + var_ro - 1 End If Next Itm If m > 2 Then With CT.Range("A2").Resize(m - 2, var_col) .Columns(1) = Evaluate("Row(1:" & m - 2 & ")") .Borders.LineStyle = 1 .InsertIndent 1 .Font.Bold = True .Font.Size = 14 .Interior.ColorIndex = 35 End With End If Application.ScreenUpdating = True End Sub الملف مرفق Moustafa7.xlsm
    2 points
  8. السلام عليكم ورحمة الله تم تعديل الكود ارجو ان يكون هو المطلوب Sub FinalResult() Const Res = "ناجح ومنقول إلى الصف السابع بتقدير" Dim ws As Worksheet Dim LR As Long, I As Long, x As Integer Dim Mad As String t = Timer Application.ScreenUpdating = False Set ws = Sheets("ك.د.سد") On Error Resume Next ws.Range("F" & I + 3).ClearContents LR = ws.Range("C" & Rows.Count).End(3).Row I = 11 Do While I <= LR If ws.Cells(I, 33) = "ناجح" Then ws.Cells(I + 3, 6).Value = Res & "" & ws.Cells(I, 29).Value ElseIf ws.Cells(I, 33) = "له دور ثان في" Then x = 38 Do While x <= 50 Mad = Mad & "-" & ws.Cells(I, x).Value ws.Cells(I + 3, 6).Value = ws.Cells(I, 33).Value & " " & Mad x = x + 2 Loop End If Mad = "" I = I + 4 Loop Application.ScreenUpdating = True 'MsgBox Round(Timer - t, 2) End Sub
    2 points
  9. السلام عليكم 🙂 المرفق يحتوي على النسختين mdb و accdb ، ويعمل على النواتين 32بت و 64 بت 🙂 النسخة السابقة: عندما يعطي برنامج الاكسس اخطاء - النسخة رقم 3 - قسم الأكسيس Access - أوفيسنا (officena.net) بعض الاوقات عند تشغيل برنامج اكسس ، نجد انه يغلق بدون سبب ، بمثل هذه الرسالة: . او يُظهر اخطاء ، مثل هذه الرسائل وغيرها : . . . هذا معناه ان برنامجك يحتاج تنظيف من الاخطاء التي فيه ، او يحتاج الى استعادة حيويته مرة اخرى ، بالتنظيف والصيانة 🙂 وعادة نقوم بهذا العمل على برنامج الواجهات FE ، ولكن برنامج الجداول BE يستفيد منه كذلك. نافذة البرنامج : . 1. نختار الملف ، سواء mdb او accdb ، اما ملفات mde و accde ، فلن تستفيد من Decompile/Compile ، ولكنها ستستفيد من الضغط والاصلاح ، وعمل نسخ اضافية ، 2. اذا البرنامج فيه كلمة سر (ليس كلمة سر المستخدمين ، ولا كلمة سر الكود VBE) ، فيمكنك كتابة كلمة السر هنا ، وسيقوم البرنامج بحفظه/نسخه في ذاكرة الكمبيوتر ، وتستطيع استعمال الالصاق Ctl+v عندما يسألك البرنامج ، كما يقوم البرنامج بإستخدامه في فتح برنامجك لمراجعة الاخطاء. اذن هناك خطوة يمكن للبرنامج ان يستخدم كلمة السر مباشرة ، وهناك خطوة يجب عليك ادخال كلمة السر عن طريق اللصق Ctl+v ، تم إضافة ميزة عمل النسخ الاحتياطية لبرنامجك ، بحيث تحفظ نسخة من برنامجك بعد التنظيف ، في المجلد الذي تختاره ، ويكون الحفظ المسلسل هكذا : . يعني بدل ان تحفظ نسخة من برنامجك بطرقك الخاصة ، تستطيع وبعد تعديل برنامجك ، ان تتأكد انه خالي من الشوائب ، ويعمل نسخه منه تلقائيا 🙂 وهناك عدة طرق لإختيار مجلد الحفظ: 3. حفظ الملف في نفس مجلد البرنامج ، 4. اختار المجلد ، وبعد اختياره ، تستطيع ان تنقر على الزر 9 ليقوم البرنامج بحفظ هذا المجلد/المسار في البرنامج للمرات القادمة ، 5. اول مسار تريد حفظه هو: استعمل الخطوة 4 في فتح المجلد الرئيسي لحفظ النسخ الاحتياطية (واذا ما كان عندك ، فقم بعمله من الآن) ، ثم احفظ المجلد/المسار بالزر 9. وبعدها ، البرنامج تلقائيا يختار هذا المجلد (اذا قمت بحفظه بواسطة الزر 9) كلما فتحت البرنامج ، اي انه اول سجل في الجدول ، 6. عن طريق الخطوة 4 ، تستطيع حفظ اي عدد من المجلدات ، ولاحقا تستطيع ان تختار هذا المجلد لحفظ النسخة الاحتياطية فيه ، 7. عدم عمل نسخ احتياطية ، للأسف الشديد 😞 8. عند اختيار اي من الاختيارات اعلاه ، سيضع البرنامج مسار مجلد النسخ الاحتياطية هنا ، 11. الآن نطلب من البرنامج ان يقوم بعمله ، بالخطوات التالية : أ. يحفظ نسخة من البرنامج وقبل مساسه (حتى اذا لا قدر الله وحصلت مشكلة في العمل ، يمكنك الرجوع لهذه النسخة) ، ويقوم البرنامج بعمل النسخة في مجلد برنامجك ، بإضافة bak_ في نهاية اسم الملف ، كما في الصورة ، واذا احتجت لإستعمال الملف لاحقا ، فقط قم بحذف bak_ وسيعمل البرنامج : ب. ضغط واصلاح : لما تحذف سجلات من برنامجك ، فإن البرنامج يعطي اشارة الى الجدول بإخفائه ، ولا يقوم بحذفه إلا بعد الضغط والاصلاح ، عند عمل فهرسة لحقول في الجدول ، فإن البرنامج يحتاج الى ضغط واصلاح حتى يقوم بترتيب اعدادات الفهرسة ، عند العمل على البرنامج لفترة طويلة بإضافات وتعديل وحذف ، فالبرنامج يحتاج الى ضغط واصلاح لإعادة ترتيب الفهرسة لسرعة عمل البرنامج ، قد يتم خطأ في تسجيل سجل ، ربما بسبب انطفاء الكهرباء ، او اغلاق الكمبيوتر وبدون اغلاق البرنامج ، وهذا السجل يجعل الجدول لا يعمل بطريقة صحيحة ، والضغط والاصلاح يحل هذه الاشكالية ، البرنامج عبارة عن ملف في الكمبيوتر ، ولما تعمل البرنامج ، فإن الكمبيوتر يحفظ البرنامج على المكان الفارغ من القرص الصلب ، ولما تضيف سجلات جديدة ويكبر حجم البرنامج ، فقد يحفظ الكمبيوتر الجزء الجديد في مكان آخر على القرص الصلب ، مكان غير ملاصق للجزء الاصل (وهذه طريقة حفظ الكمبيوتر للملفات) ، وبهذه الطريقة يصبح الملف موجدا على اجزاء مختلفة من القرص الصلب ، مما يجعل البرنامج ابطأ ، ولما تعمل ضغط واصلاح ، فإن الاكسس يقوم بحساب المساحة المطلوبة للبرنامج ، ثم يقوم بعمل برنامج جديد في مكان جديد على القرص الصلب ، وينسخ البرنامج اليه ، مما يجعل البرنامج اسرع ، بالاضافة الى امور اخرى لا يتم حلها إلا بالضغط والاصلاح ، الضغط والاصلاح لا علاقة له بالكود ، ولا يقوم بفحصه. ج. Decompile : لما نكتب الكود ، الاكسس يحتفظ بكل سطر بلغة P-Code الخاصة بمايكروسوفت (والتي تُستخدم لبعض البرامج الاخرى كذلك) ، وعند تنفيذ الكود ، فالاكسس ينفذ كود لغة P-Code ، وفي بعض الاحيان من كثرة التعديلات على الكود ، فإنه لا يتم تحديث P-Code بطريقة صحيحة ، فينتج عنه رسائل اخطاء اكسس ولا يعمل البرنامج بطريقة صحيحة ، وعند عمل Decompile ، فالاكسس يحذف كود P-Code القديم ، ويسجل فيه كود جديد من VBA ، مما يجعل البرنامج اصغر في الحجم زيادة في الكفائة. د. Compile : بهذه الطريقة ، نتأكد من عدم وجود اخطاء في الكود ، وبقايا ومخلفات ، مثل: لما نحذف كائنات في النموذج/التقرير ، ولا نحذف الحدث الخاص بها ، فالكود يجب حذفة ، لعدم وجود الحدث الي يستعمله ، لما نحذف كائن في النموذج/التقرير ، وفي الكود نكون قد اعطيناه قيمة ، فيجب حذف المسمى من الكود ، عند كتابة كود بطريقة غير صحيحة وغير مكتملة ، فيجب تصحيحها ، وهذه الخطوه مهم لتحويل البرنامج الى mde او accde . يحاول البرنامج القيام بهذا العمل لبرنامجك ، ولكنه اذا لم يستطيع ويحصل على اخطاء ، فإنه يخبرك بهذا ، ويخبرك مكان الخطأ في الكود ، سواء وحدة نمطية او نموذج او تقرير ، ويعطيك مثل الرسالة التالية ، والتي اذا اخترت نعم ، فيوقف البرنامج ، . ويأخذك لبرنامجك الى نافذة الكود VBE ، ثم يجب عليك ان تعمل التالي يدويا: . وتُصلح الاخطاء التي في برنامجك ، الى ان لا يعطي برنامجك اخطاء اخرى ، وبعدها تستطيع ان ترجع الى البرنامج ليقوم جميع الخطوات مرة اخرى. هـ. اذا اشتغلت خطوات البرنامج وبدون اخطاء ، فهنا يقوم البرنامج بعمل نسخة احتياطية من برنامجك ، وبالتسلسل الصحيح ، وفي المجلد الذي اخترته. 12. البرنامج يخبرك عن الخطوات التي تمت 🙂 جعفر Decompile_4.accdb..zip Decompile_4.mdb..zip Decompile_4.2.accdb.zip
    1 point
  10. السلام عليكم اخواني بحثت كتير ولم اجد حلا لطلبي فارجو الله عز وجل ان يساعدوني الاخوة هنا عندي نموذج اضفت اليه زر مربع بحيث عند الضغط على الزر يقوم بحذف السجل المحدد هل من امر يؤدي ذلك ؟
    1 point
  11. هذه الخطوة غير صحيحة ، وقد عملت لك جدول خاص بالصفحات tbl_Pages ، وتستطيع التعديل على المسميات هناك ، اما ارقامها فهي التي نستعملها في الجدول tbl_Items ، قصدك اللي في المربع اللي في الاسفل ، فهو يعمل ، والآن يطلب منك اختيار من القائمة ، جعفر 1311.5.Data.accdb.zip
    1 point
  12. مداخلتي خارج الموضوع وقد شدني رد استاذي الحلواني بعاليه قليل من يستخدم اساتيذ لجمع كلمة استاذ مع صحة الجمع أساتذة وأساتيذ وأستاذون فائدة ليسا استاذين استاذين مثنى منصوب باليا خبر ليس والف الاثنين اسمها وهو الاصح وان كان هناك شواهد لبعض لهجات العرب نصبت المثنى بالحركات وهو قليل منها قول ابو النجم العجلي وهو حجة في اللغة إنّ أباها وأبا أباها .... قد بلغا في المجد غايتاها وكذلك العرب استخدمت الجمع للاثنين من ذلك قوله تعالى ( وَدَاوُودَ وَسُلَيْمَانَ إِذْ يَحْكُمَانِ فِي الْحَرْثِ إِذْ نَفَشَتْ فِيهِ غَنَمُ الْقَوْمِ وَكُنَّا لِحُكْمِهِمْ شَاهِدِينَ ) وقوله تعالى ( قَالَ ٱهْبِطَا مِنْهَا جَمِيعًۢا ۖ بَعْضُكُمْ لِبَعْضٍ عَدُوٌّ ۖ فَإِمَّا يَأْتِيَنَّكُم مِّنِّى هُدًى فَمَنِ ٱتَّبَعَ هُدَاىَ فَلَا يَضِلُّ وَلَا يَشْقَىٰ ) واجازت التثنية للجمع ومن ذلك قول نصيب أقول لركب صادرين لقيتهم ... قفا ذات أوشال ومولاك قارب قفوا خبرونى عن سليمان إننى ... لمعروفه من أهل ودان طالب فعاجوا فأثنوا بالذى أنت أهله ... ولو سكتوا أثنت عليك الحقائب واعتذر مقدما عن خروجي عن الموضوع
    1 point
  13. اردت ان اغلق الموضوع بكلمتين: ملاحظتك سليمة 🙂 ولكني خفت انك تفهمني خطأ ، لأنك "تعرف سلوكيات ونفسيات الاعضاء والمشرفين" ، فجعلني ارد ، مع ان الموضوع من وجهة نظري انه ما يستاهل كل هذا !! مشاركتك السابقة تكن بهذا الوضوح ، وانما قلت: وقولك مبهم ويمكن ان يُؤخذ بأني انا الذي الذي اضفت السطرين (ولم تعطي تفاصيل اخرى عن السطرين) ، وممكن ان يؤخذ ان الكود هو الذي اضافهم ، لأنك في بداية السطر كنت تتكلم ان الكود لم يحل الموضوع !! ولا انا قلت هذا الكلام ، وهذا دليل على احترافك 🙂 طيب ، نفرض اني انا الغلطان ، واني ما فهمت قصدك ، فهل يحق لي ان اسأل وين الخطأ في الكود الذي عملته ، مو انت اللي قلت : لم تحل عزيزي ولو تركز قليلا سوف ترى أن الأستاذ جعفر أضاف سطرين في آخر السجل الأول ولم ينجح الكود في التعامل معهما. ولو اني جبتها كمزحة لما اثرت سالفة "نحن الشيّاب" ، ولكني اعتذر اني ادخلت شيء خارج الموضوع وخالفت قوانين المنتدى وتكلمت عن نفسي ، مع العلم انك اخبرتني سابقا انك كنت مشرف في احد المنتديات 🙂 جعفر
    1 point
  14. ههههههه الجمع ( أُستاذِين ) وهذه الكلمة مقتبسة من جملة قالها الإمام مسلم رحمه الله لشيخه الإمام البخاري رحمه الله حينما سأله عن إسناد حديث كفارة المجلس . فأجابه رحمه الله فقال له الإمام مسلم : «دَعْنِي حَتَّى أُقَبِّلَ رِجْلَيْكَ يَا أُسْتَاذَ الْأُسْتَاذِينَ، وَسَيِّدَ الْمُحَدِّثِينَ، وَطَبِيبَ الْحَدِيثِ فِي عِلَلِهِ» . دمت بود @أبو عبدالله الحلوانى
    1 point
  15. ابسط الحلول التي تتبادر الى الذهن هو استخدام حقل بديل مخفي يتم اجراء التايمر عليه ويتم تحديث الحقل الهدف منه
    1 point
  16. بارك الله فيكم جميعا جزاكم الله خيرا يا رب
    1 point
  17. نعمل ممكن ، ونفترض ادخل bbb@hotmail.com ، وهذا الحقل اسمه iUser : if instr(me.iUser, "@")>0 then msgbox mid(me.iUser, 1, instr(me.iUser, "@")-1) endif جعفر
    1 point
  18. السلام عليكم ورحمة الله وبركاته.. الكثير يجهل امكانية الأكسس في جعل البرامج بشكل responsive أي انه: لو كانت لديك شاشة كبيرة سيتغير شكل برنامجك وتوزيع الأزرار والعناصر لتتناسب مع حجم الشاشة ولو كانت الشاشة صغيرة ايضا ستتغير اماكن العناصر لكي تتناسب مع طبيعة الشاشة وعدم فقدان أي عنصر او ضياعه عندك تغيير الشاشات. قبل البدء، سأقدم لكم مثال على ما اقصده: هذا اخر مشاريعي في الأكسس وهو يتغير تبعاً لأختلاف الشاشات. لنبدأ: سأقوم بوضع Button في منتصف الشاشة بحيث لا يتغير مكانه لو تغير حجم الشاشة ثم قم بعملية الأدراج من جميع الأماكن ( يسار, يمين, أعلى , أسفل ) بحيث يصبح كالأتي: ثم من الطرف اليمين، نختار الأرتساء الأفقي ( كلاهما ) وكذلك الحال بالنسبة لليسار كذلك الحال نطبق على الأعلى والأسفل لكن هذه المرة سوف نعدل الأرتساء العمودي وكذلك بالنسبة للأعلى جرب الآن وسوف ترى ان الـ Button سيبقى في الوسط مهما تغير حجم الشاشة لو وضعت شاشة كبيرة أو صغيرة سيظل بنفس مكانه في الوسط. أي سؤال أنا موجود، تحياتي لكم.
    1 point
  19. انا استخدم هذه الطريقة : تكبير النموذج بدون تغطية شريط قائمة إبدأ - قسم الأكسيس Access - أوفيسنا (officena.net) وبعد اذنك دكتور حسنين ، فقد عملت تغيير على نموذجك ، الى : . وادخلت بقية الكائنات اللي في الرابط اعلاه ، فجرب تشغيل البرنامج بدون مسك زر الشفت (حتى النموذج اعلاه يتسع حسب شرح الدكتور) ، ثم افتح البرنامج مرة اخرى بمسك زر الشفت لترى تفاصيل البرنامج 🙂 جعفر example_semo.zip
    1 point
  20. اخي الفاضل ، اخي العزيز ، هدئ اعصابك 🙂 وصدقني اني اجرب كل طريقة تقترحها ، ولما احصل على محترف يحاول بطريقة اخرى ، اشحذ الهمة "حبتين زيادة" علشان تعرفون ان نحن الشيّاب فينا همّه باقية (ولا تسألني شو تعشيت البارحة ، لأني ما اذكر 🙂 ) 🙂 ولهذا السبب ، فتوقيعي يشير الى هذا: نعم ، قد اكون كتبت شيء يكون مبهم لك ، وقد تكون انت كتبت شيء مبهم لي ، والسؤال لا يعني التقليل من افكار الطرف الآخر ، وانما هو لتوضيح الامور 🙂 سؤال: نحن ننظر للموضوع من داخل الصندوق ، ولكن اذا نظرنا له من خارج الصندوق ، نرى ان هذه البيانات تأتي من ملف وورد ، والوورد متخصص في هذه الامور ، فممكن يكون افضل ان ننظف ملف الوورد (برمجيا طبعا) بأوامر الوورد ، ثم نستورد الملف نظيف وجاهز😁 جعفر
    1 point
  21. اخي العزيز طاهر تصميم الجداول والعناية بضبطها بالطريقة العلمية المتبعة هي بداية الاحتراف ، لأن 80% من عمل اي مشروع يرتكز على الجداول يستحيل على اي مبرمج وحتى العباقرة والخبراء فهم الاكواد التي تختلط فيها الحروف العربية بالأجنبية لان الكلمات والدوال الموجودة تختلط يمينا ويسارا والسبب ان الحروف العربية تبدأ من اليمين . حاول ان تعيد النظر في جداولك وعدل ما يلزم حسب التالي : 1- اكتب جميع اسماء الحقول واسماء الجداول بحروف لاتينية 2- لاتترك مسافات بين الكلمات ويمكنك استخدام الشرطة تحت السطر للفصل بين الكلمات ويمكنك ايضا الاستعاضة عن الشرطة بان تكتب الحرف الأول من كل كلمة كابيتال 3- اكتب تسمية عربية للحقل في حصائص الحقل في : التسمية التوضيحية ارفع مثالك مرة اخرى وانا في خدمتك
    1 point
  22. ألف شكر على تعبك وأستجابتك السريعة وربنا يجعله فى ميزان حسناتك وما زلت عاجز عن الشكر استاذ حسين مأمون تمام التمام هذا هو المطلوب ربنا يبارك لك فى علمك وعملك
    1 point
  23. أخبرتني العصفورة أن الموضوع تم حله ب Layout مختلف ومع ذلك بالنسبة لل الموجود هنا إليك Master (2).xlsm
    1 point
  24. انظر الاستعلام1 مثال (11).accdb
    1 point
  25. شهاده اعتز بها اخي واستاذي العزيز @kha9009lid وهذا مما تعلمنا منكم ومن اساتذتنا الأفاضل جزاكم الله عنا كل خير 💐
    1 point
  26. بالنسبه لما قمت به هو رفع أمان الماكرو فسيقوم الاكسس بتعطيل الأكواد والمطالبه بالتمكين وعندها لم أقم بالتمكين ودخلت على الاعدادات وتفعيل الخيارات هذا ما قمت به بارك الله فيكم اساتذتي وجزاكم الله خيرا
    1 point
  27. ههههه لا يا استاذي ابو الكرم انا حذر جدا 🌹 ما يحتاج يسحبنا يا ابا عبدالله الدكتور حسنين استاذ في الهندسة العكسية
    1 point
  28. تحياتي لشخصك الطيب اخي العزيز جعفر 😉 🙂 وتحية حارة للاخ خالد الذي كاد ان ينجر وراء الدكتور الطيب حسنين عموما الحمد لله ان هناك ضوابط وقوانين تمنع مثل هذه الامور تحياتي
    1 point
  29. انا مطمئن لما اتعامل مع عمالقة مثلك ومثل اخونا الكبير ابو الكرم ، وكل اللي تقولوه على راسي 🙂 بس كنت خايف من الحرفين الباقين ، ترى الدكتور حسنين مو سهل ، يسحبنا شوي شوي 😁 جعفر
    1 point
  30. بتاتا البته لن ننزلق بعون الله حقوق الاخرين محفوظة قانونا وشرعا
    1 point
  31. الحمد لله اننا لازلنا محافظين على قوانين المنتدى ، بقية بس شعرة واحدة وننزلق الى المحظور 😁 جعفر
    1 point
  32. ما يحتاج اصطياد لكسر محرر الاكواد مجرد حرف واحد b=x وهذا برنامج اخونا بعد كسره
    1 point
  33. يمكن فكها بتغيير رمز واحد فقط ولكن القوانين لا تسمح وهذا افضل ان لا تسمح
    1 point
  34. واياك .... الحمد لله رب العالمين ....
    1 point
  35. العفو وبارك الله فيك ولك مني كل الحب والتقدير
    1 point
  36. بسم الله الرحمن الرحيم دليل الهاتف الإصدار الثاني بامكانية استيراد سجلات جديدة من ملف ونسخ قاعدة البيانات وتامين الملف بكلمة السر بالاختيار _________________2.rar
    1 point
×
×
  • اضف...

Important Information