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

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

  1. Ali Mohamed Ali

    Ali Mohamed Ali

    المشرفين السابقين


    • نقاط

      38

    • Posts

      11,630


  2. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      6

    • Posts

      9,814


  3. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      5

    • Posts

      6,818


  4. عبد اللطيف سلوم

    عبد اللطيف سلوم

    06 عضو ماسي


    • نقاط

      4

    • Posts

      1,948


Popular Content

Showing content with the highest reputation on 30 يون, 2019 in all areas

  1. أحسنت استاذ عبد اللطيف بارك الله فيك وزادك الله من فضله ورحم الله والديك
    3 points
  2. أحسنت أستاذ سليم بارك الله فيك
    3 points
  3. ادعمولي القناة اخواني بوضع متابعة ولن ابخل عليكم بكل شيء جديد وحصري تفضلوا هذا الفيديو شاهدوا وطبقوا وسأزودكم بفيديوهات اخرى قريبا
    2 points
  4. تفضل تم الحل والإجابة المطلوبة من قبل الأستاذ أبو نور ولاحظ التغيير فى الملف بنفسك إيصال قبض وسند صرف.xlsm
    2 points
  5. وعليكم السلام أين الملف ؟!!!!!!!!!!!!!!
    2 points
  6. لا يمكن افضل من هذا -فكان عليك من البداية ضبط الملف قبل رفعه بالمشاركة نظام البصمة2.xlsx
    2 points
  7. بارك الله فيك أستاذ مجدى وجزاك الله كل خير
    2 points
  8. ليس ضعفا في الاكسس بناء الجدول حركات من البداية خاطئ يجب تقسيمه الى ثلاثة اقسام بيانات العملاء دفعات خصم مرتجعات وبناء عليه يتم ربط الجداول بمعرف ثابت هو رقم العميل وحبذا لو يتم التسميات بالانجليزية ولو كانت معربة أتمنى ان تستطيع عمل ذلك وسوف تكون النتائج افضل بكثير ::
    2 points
  9. يبدو انك انك مللت ولا تريد استكمال باقى خطوات فتح الملف هذه الطريقة بعد التاكد من فعاليتها وتجربتها خطوة بخطوة صحيح لن تمنع احد من نسخ البرنامج من مكان لاخر ولكن لن يستطيع احد كائن من كان الدخول لوضع التصميم
    2 points
  10. ممتاز أستاذ مجدى عمل رائع بارك الله فيك وجعله في ميزان حسناتك
    2 points
  11. أخى الكريم MAAAS ,معادلة الأستاذ سليم رائعة وتعمل بكل دقة له منا كل المحبة والإحترام يمكن قد حدث معك مشكلة وخطأعند نقل المعادلة من ملف الى اخر ,فهذه معادلة مصفوفة وليس معادلة عادية اى لابد بعد كتابة المعادلة الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات فاذا كان هناك مشكلة أخرى غير هذا تحدث معك فعليك برفع صورة او الملف الذى به المشكلة لمعاينة المشكلة والعمل على حلها
    2 points
  12. وعليكم السلام 🙂 تفضل: الكود يأخذ الاسم ، ولا يهمه صيغة الملف/الصورة ، واذا عندك اكثر من ملف بنفس الاسم ، ولكن بصيغ مختلفة ، فهو يأخذ آخر ملف Private Sub Form_Current() Dim img_Path As String 'img_Path = FileName("C:\Photo\", Me.Worker) img_Path = FileName(Application.CurrentProject.Path & "\Photo\", Me.Worker) Me.img_Employee.Picture = img_Path End Sub Public Function FileName(iPath_In As String, iCondition As Variant) Dim fdr As String fdr = Dir(iPath_In & iCondition & ".*") Do While fdr <> "" FileName = iPath_In & fdr fdr = Dir Loop End Function جعفر 1074.zip
    2 points
  13. كما اخبرك الأستاذ عمر بارك الله فيه وجزاه الله كل خير تفضل الملف بعد عمل المطلوب المبيعات اليوميه.xlsm
    2 points
  14. بارك الله فيك استاذ مجدى هذا رابط به شرح بالتفصيل لما تريد http://excel-egy.com/forum/t440&count=0#24704
    2 points
  15. ممتاز بارك الله فيك استاذ سليم وجعله فى ميزان حسناتك وزيادة فى اثراء الموضوع بعد اذن حضرتك طبعا استاذ سليم ,يمكن استخدام هذا الكود Sub NameSplit() Dim var As Variant Dim rw As Long With Worksheets("Salim") For rw = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row If CBool(Len(.Cells(rw, "A").Value2)) Then var = Split(.Cells(rw, "A").Value2, Chr(32)) .Cells(rw, "B").Resize(1, UBound(var) + 1) = var End If Next rw End With End Sub
    2 points
  16. موعدنا اليوم مع شرح طريقة كيف تعرف أسعار العملات اليوم بدون مغادرة برنامجك في VBA اوفيس 2003 أو 2007 أو 2010 أو 2013 أو 2016 أو 2019 سواء برنامج اكسس أو اكسل أو وورد أو باوربوينت مع التعرف على أكواد عملات العالم وكذلك اسماء العملات باللغة العربية والانجليزية التعرف على نسخ النص الموجود في مربع النص إلى الحافظة والكثير من المفاجآت اكتشفها بنفسك ثالثا لمن يريد تحميل الملف الذي تم استخدامه في الشرح يمكنكم التعليق سواء هنا في المدونة أو في اليوتيوب وسيصلكم رابط الملف بإذن الله والآن مع فيديو الشرح ************** ولا تنسوا أحبابي الدعاء لغيركم بظهر الغيب حتى يقول لك الملك: آمين ولك مثلها إن شاء الله وتذكر لو بخل بها غيرك ما وصلت إليك فشارك المعلومة مع جميع أصدقائك في جميع مواقع التواصل الاجتماعي ============ القادم أفضل بإذن الله
    1 point
  17. هذا برنامج لنسخ قاعدة البيانات اكسس وليس SQL Server مشكور على المشاركة للرفع احتاج كود لعمل نسخة احتياطية لقاعدة بيانات SQL Server من لها
    1 point
  18. فورم لاظهار عمليات قسمة وضرب وطرح وجمع الفيديو الصور الملف اظهار نتيجة الطرح فى الفورم.rar
    1 point
  19. السلام عليكم ورحمة الله تعالى وبركاته اولا وقبل اى شئ لم يتم ترتيب اسماء اساتذتى الكرام الذين تم كتابة اسمائهم لسبب محدد فالترتيب لا يعنى اى شئ اطلاقا فجميعهم النجوم اللامعة بمن نقتضى منهم فى هذا الصرح نهتدى ان شاء الله كما خو الحال مع باقى الاساتذة الذين لم اكتب اسمهم فلا يعنى ذلك اى شئ كلهم فى مرتبة واحدة وكلهم معلمينا الافاضل لا غنى لنا عنهم عذا فقط مجرد مثال اسرد اليكم الشـرح سريعا لفكرتى قبل البدء قد يتفق معى من يتفق ويختلف من يختلف لذلك انتظر ارائكم ان شاء الله فيشيد بهذه الطريقه من يشيد و يعترض من يعترض فنخرج ان شاء الله بأطيب النتائج هنا ان شاء الله اتعامل مع جدول باسم tblMainData والذى يختوى على الحقول A,B,C ونموذج باسم يضم الحقول على الترتيب txtA , txtB, txtC هذا الكود حتى اهئ النموذج للتعامل مع اختصار المفاتيح من الكيبورد Private Sub Form_Load() Me.KeyPreview = True End Sub وهذا الجزء حتى اسند القيم التى احتاج لنسخها الى متغيرات وكتبته هكذا ليسهل استدعاءه وقت الحاجة Private Sub SpecialCopy() 'الاعلان عن المتغيرات Dim VarFildeA As Variant Dim VarFildeB As Variant Dim VarFildeC As Variant 'اسناد قيم مربعات النص الى المتغيرات VarFildeA = txtA VarFildeB = txtB VarFildeC = txtC DoCmd.GoToRecord , , acNewRec 'سجل جديد 'نسخ قيم المتغيرات الى مربعات النص في السجل الجديد txtA = VarFildeA txtB = VarFildeB txtC = VarFildeC 'تفريغ المتغيرات VarFildeA = Empty VarFildeB = Empty VarFildeC = Empty End Sub وهذا الجزء لاسناذ القيم من المتغيرات الى مربعات النص للسجل الجديد وكتبته هكذا ليسهل استدعاءه وقت الحاجة Private Sub DoCopy() DoCmd.RefreshRecord If DCount("[ID]", "tblMainData") = 0 Then DoCmd.RefreshRecord Exit Sub ElseIf DCount("[ID]", "tblMainData") >= 1 Then If NewRecord Then DoCmd.GoToRecord , , acLast Call SpecialCopy Else Call SpecialCopy End If End If End Sub طبعا هنا اتأكد اولا ان كان هذا السجل الاول فى الجدول ام لا قبل ان تتم عملية اسناد القيم التى اريدها واهيرا استدعاء الكود من هلال زر امر لتنفيذ عملية نسه السجل الاأهير وقت الحاجة Private Sub BtnDuplicate_Click() Call DoCopy End Sub وهذا الجزء كما يقولون عنه الـ Hot Key استدعاء الكود من خلال زر من الكيبورد عن الضغط عليه Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 117 Then ' استبدل هذا الرقم برقم المفتاح بالاعلى كما يحلو لك Call DoCopy KeyCode = 0 Exit Sub End If End Sub تنويه ببعض الحيل ان اردنا نقوم بنسخ سجل محدد ان اردنا سجل بعينه تبعا لشرط او شروط محدده حسب ما تقتضى الحاجة واخيـــرا المرفق Duplicate Last Record.mdb
    1 point
  20. السلام عليكم ورحمة الله وبركاتة لا حرج اخي العزيز وبارك الله فيك ولك اضعاف ما دعوت لي 4 بنات دون متوسط + 1 بنت غائبة +2 متوسط + 2 جيد + 2 جيد جداً + 1 ممتاز =12 طالبة اين الطالبة 13 ستقول غائبة اقول لك تم احتسابها تحت فئة دون المستوى فيجب ان تكون الحسبة 5 بنات دون متوسط مع 1 بنت غائبة +2 متوسط + 2 جيد + 2 جيد جداً + 1 ممتاز =13 طالبة وهذا يتوافق مع عدد البنات المتقدمات فيكون المجموع الكلى للبنات حسب الفئات المستخرجة = عدد البنات المتقدمين و للامتحان وهو الصحيح حسب اعتقادي بمعنى ان 7 طالبات صحيح توزيعهم كما فعلت انت ولكن الخلاف فى فئة دون المستوي ارسم جدولا في صفحة اكسل واكتب فيه ما ذكرته انت ستجد ان عدد البنات الموزعات على الفئات لا يتطابق مع عدد البنات المتقدمات ستنقص واحدة راجع الملف جيدا ويسعدني من كل قلبى تقديم العون حسب قدرتي ولا تخجل من ابداء الملاحظات مهما كثرت تحياتي لك ولاحبابنا في المنصورة جعلها دائما عزيزة ومنصورة ولكل اهل مصر الملاحظة الثانية تجدها داخل الملف احصائيةالفصل الدراسى الأول 2019.xls
    1 point
  21. وعليكم السلام 🙂 تفضل ، هذا التعديل على الوجدة النمطية Public Function FileName(iPath_In As String, iCondition As Variant) Dim fdr As String FileName = iPath_In & "No.jpg" fdr = Dir(iPath_In & iCondition & ".*") Do While fdr <> "" FileName = iPath_In & fdr fdr = Dir Loop End Function جعفر
    1 point
  22. فورم للعمليات الحسابية قسمة وضرب وطرح وجمع الفيديو الصور الملف قسمة وضرب وطرح وجمع عمليات حسابية.rar
    1 point
  23. شكراً أستاذى @jjafferr جزاك الله خيراً سوف أكتفى بالوحدة النمطيه حل مشكلة عدم ظهور صورة jpeg
    1 point
  24. في مشكلة في صيغة jpeg ، يمكن لأنها 4 حروف ، ما ادري !! . . . جعفر 1074.1.Worker.mdb.zip
    1 point
  25. هل هذا يعمل معك سيدى ستخبرنى لاحقا واعرف بظهور رسالة تفيد انك لا تملك صلاحيات تشغيل هذا الملف ولن يفتح اصلا users lvl group By Access.zip والاستاذ @عبد اللطيف سلوم لو تكرمت فضلا وكرما اخبرنى انت ايضا بعد تجربتك ومحاولة فتح الملف بنفس الرسالة هذه المرة انت كذلك
    1 point
  26. 1 point
  27. للعمل بشكل جيد يجب 1-ازالة الخلايا المدمجة (عدو الاكواد) 2-ترتيب الييانات كما في الملف المرفق (صفحة Source) الكود اللازم Option Explicit Sub give_data_by_Order() Rem =====>> Created By Salim Hasbaya On 30/6/2019 Dim i#, r#, Fix_ro, t# Dim search_rg As Range Dim rg_to_copy As Range Dim m#: m = 2 Dim col As New Collection Dim last_row# last_row = Source_sh.Cells(Rows.Count, 1).End(3).Row For i = 1 To last_row On Error Resume Next If Source_sh.Range("e" & i) <> "" Then col.Add Source_sh.Range("e" & i).Value, Source_sh.Range("e" & i).Value End If Next On Error GoTo 0 Target_sh.Range("A:E").ClearContents For i = 1 To col.Count Set search_rg = Source_sh.Range("E:E").Find(col(i), after:=Source_sh.Cells(Rows.Count, "E")) r = search_rg.Row: Fix_ro = r If Not search_rg Is Nothing Then '=================== Do Set rg_to_copy = _ Source_sh.Range("a" & r + 1, Source_sh.Range("a" & r + 2).End(4).Resize(, 4)) Target_sh.Cells(m, 5) = search_rg.Value & " (" & t + 1 & ")" t = t + 1 rg_to_copy.Copy _ Target_sh.Cells(m, 1) m = m + rg_to_copy.Rows.Count + 1 Set search_rg = Source_sh.Range("E:E").FindNext(search_rg) r = search_rg.Row If r = Fix_ro Then Exit Do Loop '======================= End If t = 0 Next End Sub الملف مرفق Copy_Data_Please.xlsm
    1 point
  28. السلام عليكم اغلب الاختلاف المذكور اختلاف في الفهم في الصفحة 1 المقيد في الصف الاول 25 والمقيد في الصف الثاني 25 مجموعهما 50 في الصفحة 3 حسب الديباجة العليا مكتوب فيها مرسل لسيادتكم تحليل نتيجة امتحان الصف الأول والثانى الإعدادى - الفصل الدراسى الأول اي للصفين ومجموعهما 50 فلا يوجد اختلاف وهذا طبعا حسب فهمي لان حسب الديباجة فهمت ان الجدول للصفين الاول والثاني اما اذا كنت تقصد ان الجدول الاول خاص بالصف الاول فقط والجدول الذي تحته المشار اليه بالسهم الازرق خاص بالصف الثاني فاخبرني اخي العزيز حسب فهمي والذي طبقته على الجدول عندما يقال احسب عدد الطلاب الذين نسبتهم اقل من50% فيتم جمع الطلبة الذين تحصلوا على 49.999 الى اقل درجة وهي الصفرزعددهم في الجدول 5 للبنين عندما يقال احسب عدد الطلاب الذين نسبتهم اكثر من50% فيتم جمع الطلبة الذين تحصلو على 50% الى 100% وععدهم في الجدول 7 للبنين فيكون مجموع هذين الصنفين من الطلاب للبنين يمثل عدد حضور الطلبة وهو12 كم بالجدول وليس معها والأكثر من 65% والأكثر من 90% اما البنات فمجموعهما 13 فيكون المجموع 12+13 =25 طالب والحاضرون 24 والطالب الزائد غياب ويعتبر دون المستوي حسب جدول المستويات وهذا اتراه واضحا في الورقة 3 حيث يكون عدد الطلبة أكثر من 50 % مضافا اليه الطلبة دون المستوى ( اقل من50% ) مجموعهما يمثل العدد الكلي للطلبة ولا تجمع مغها اكثر من 65 واكثر من 90 لان اكثر من 50 تشملهما ونفس الشئ في الورقة4 الا اذا ا المقصود من اكثر من50% بمعني ان يجمع الطلبة اللذين تحصلوا على 50% واقل من 65% فهذا امر اخر ويمكن تعديل المعادلات ببساطة على كل حال سارفق لك الملفات الثلات راجع احداها وفي وجود عدم توافق لون الخانة واكتب القيمة الصحيحة اما الخانات الفارغة النسبة من الحاضر فلم افهم المعني اكتب انت النسبة الصحيحة في الخانات الفارغة وساكتب معادلتها باقي الصفحات كثيرة جعلتها ورقة واحدة لكل مادة اختر المستوي ثم اضغط على زر استدعاء لدقة الاحصائية يجب كتابة ارقام الجلوس وجنس الطالب وحضور الطالب اكتب لك هذه الكلمات من جهازي المحمول والذي قاربت بطاريته ان تنفذ منتظرا قدوم الكهرباء والتي لم تشرفنا منذ الساعة الثانية ظهرا والساعة الان الواحدة ليلا اي حوالي 11 ساعة بدون كهرباء ختى ارسل لك الملفات تحياتي احصائيةالفصل الدراسى الأول 2019.xls احصائيةالفصل الدراسى الثاني2019.xls احصائيةالفصل الدراسى الثاني2019الصف الثالت اعدادي.xls
    1 point
  29. ههههههه أهلا أخي ابو سليمان انتحار الملف يعني حذفه في الجهاز نهائيا أهلا أخي ابن الجنوب عملت لك هذا الكود ولكنه لن يحذف الملف (انتحار) بل سيتم أقفال البرنامج في الوقت الذي تحدده كلمة مرور الورقة هي 1223334 تقبل تحياتي المصنف8.xlsm
    1 point
  30. السلام عليكم 🙂 انا صادفت اكثر من 3 - 4 برامج ، المبرمج قافلها ، واصحاب العمل ما عارفين شو يعملون ، بعد ان تم عمل فورمات للكمبيوتر ، والمبرمج طالب المبلغ الفلاني لإعادة تنصيب البرنامج !! فرجاء ، رجاء ، اللي يريد ان يقفل برنامجه ، رجاء ان يضع برنامج او اي كود في برنامجه الحالي ، بحيث يقدر صاحب البرنامج ان يشتغل عليه من جديد ، وفي لابتوبات مافيها إلا البارتيشن C فقط . وهنا سؤال ، هل في اتفاق بينك المبرمج وبين صاحب البرنامج ، ان البرنامج لك ، او له !! فإذا مافي ، فمعناه ان البرنامج له ، وهو حر التصرف فيه !! جعفر
    1 point
  31. لا مشكلة في الحاق البيانات للجداول عن طريق جمل اس كيو ال لكن المشكلة هنا في ملفك هي ان بعض القيم والنتائج تعتمد على استعلام اعمار2 لاحظ الصورة في حال حذفت الاستعلام سيتم ارجاع القيمة الى صفر لعدم توفر المصدر اذا استطعت إيجاد القيم بعيدا عن اعمار2 فلا مشكلة وسيتم الحاق البيانات بجملة اس كيو ال أتمنى ان تكون قد فهمت مقصدي في المثال المرفق الالحاق يعمل بشكل سليم اذا وجد الاستعلام وفي حال حذفته سيرجع القيم الى صفر InsertTest.accdb
    1 point
  32. هههههههههههههههههههههههههههه دائما الحماية تتوقف وتقتصر على من يستطيع كسرها ودائما فوق كل ذى علم عليم ---------------- ريح بالك وسلم امرك الى الله فدائما هى مسألة وقت لمن اراد التلاعب من كان رزقه على الله قلا يحزن وفى السماء رزقكم وما توعدون يكفيك كتابة سطر واحد انك لا تحل لمن ينسخ عملك بطريقه غير شرعيه من خلالك او حتى يحاول التعديل عليه دون الرجوع اليك وترفع امره الى الله احكم الحاكمين الذى يعلم السر وما اخفى وتذكر معى ومن يعمل مثقال ذرة خيرا يره ومن يعمل مثقال ذرة شرا يره دائما هى الحماية نسبية فلا تشغل بالك بها كثيرا هههههههههههه هناك بنوك يتم قرصنتها
    1 point
  33. أخى الكريم تم عمل المطلوب ولكن ملفك مش عارف ليه ثقيل جدا وبه مشاكل كثيرة عليك بضبط الملف وتم عمل اجمالى صافى ساعات العمل للموظف في الخلية E1 نظام البصمة.xlsm
    1 point
  34. وعليكم السلام-تفضل تظليل تلقائى.xlsx
    1 point
  35. السلام عليكم جزء من المطلوب تم عمله في الملف المرفق (حساب عمود المتوسط لكل صفحة) أما الجزء الآخر يحتاج إلى الشرح أكثر (معدل عمود متوسط الجزء "20 صفحة")... بن علية حاجي تحصيل3.xlsx
    1 point
  36. وعليكم السلام يمكنك استخدام هذه المعادلة =IF(OR(A2="",B2=""),"",A2&"-"&B2) SEER.xlsx
    1 point
  37. تسلم ايديك بس أنا مش عارف ليك حضرتك كنت بادىء نطاق المعادلة من هنا ليه =INDEX(Copy!$U$2:$AZ$100,ROWS(C$1:C1),MATCH(C$2,Copy!$A$1:$AF$1,0)) قمت بتغيره إلى بداية النطاق فأصبح كالتالى لكى تقوم المعادلة بأداء المهمة صح =INDEX(Copy!$A$2:$AZ$100,ROWS(C$1:C1),MATCH(C$2,Copy!$A$1:$AF$1,0)) وشكرا جزيلا لك أستاذى الغالى وبارك الله فيك وفى أولادك
    1 point
  38. شكرا لك تم رفع الملف فى المشاركة الأولى
    1 point
  39. السلام عليكم أيها الزملاء الكرام أرجو التكرم على المساعدة وأخص بالشكر للزميل الكريم أستاذنا العزيز بن علية حاجى فأرجو منه متابعة هذا التصحيح على نفس المعادلة بزيادة شرط أخر وهو: الرجاء عمل اللازم فى هذه المعادلة وهو عندما يكون البند فى العمود E=البنود فى العمود D من صفحة Sources ,والموجود فى العمود O =البنود فى العمود Eمن ورقة Sources يكون الناتج فى هذه الحالة= H1*5+i1*3 from 01.12 till 15.12.2017.rar
    1 point
  40. بارك الله فيك وحفظك ورحم أمواتك طبعا ده مش غريب عليك أستاذنا الكبير وفعلا هو المطلوب دائما وأبدا فى تقدم
    1 point
  41. السلام عليكم أيها الزملاء الكرام أرجو التكرم على المساعدة الرجاء عمل اللازم فى هذه المعادلة وهو عندما يكون البند فى العمود E=البنود فى العمود B من صفحة Sources ,والموجود فى العمود O =البنود فى العمود C من ورقة Sources يكون الناتج فى هذه الحالة= صفر أما عندما يكون البيانات فى العمود E لا تساوى الموجود فى العمود B من ورقة Sources والبيانات فى العمود O تساوى الموجود فى العمود C من ورقة Sources يكون الناتج فى هذه الحالة H 1*5+i1*3 from 01.12 till 15.12.2017.rar
    1 point
  42. تسلم ايديك وبارك الله فيك أخونا العزيز بن علية -نعم هو ده المطلوب فعلا يا رب دائما زخرا لنا وجعلك الله دائما لمساعدتنا
    1 point
  43. تفضل أخى جرب هذا جدولة الموظفين.rar
    1 point
  44. تفضل أخى هذا الملف عدم التكرار.rar
    1 point
  45. حقيقه لا بد ان تقال ان جهودكم جباره يعطيكم الف عافيه لقد عملت المثال بشكل جيد وهو يعمل بالفعل يقال لا تطعمني السمك بل علمني كيف اصطاد والقصد اني قمت بالعمل بشكل نسخ ولصق ولكني اجهل الاليه المتبعه بشكلها العلمي او المنطقي لذلك طلبت الشرح للعمل كي اقف على اسس العمل نفسه ارفق اليكم مثال هو رائع يحتوي على كتابه متحركه اسفل نظام اكسس فارجوا ان تشرح لي طريقه تحريك الكتابه اسفل النظام 4ط§ظ„ط·ظ„ط§ط¨.rar
    1 point
  46. السلام عليكم لقد واجهت نفس المشكلة حيث كان الملف القاعدة معرض للحذف من أي شخص كان طالما أن المجلد يحمل صفة المشاركة. ولكني وجدت حل ليس جدري ولكن يقلل من أحتمال حذف الملف وحصر الملف على عدد معين من المستخدمين المخولين قصد من تم وضع الواجهة على اجهزتهم. الطريقة هي أولاً : بعمل مستخدم جديد على جهاز الخادم ( user ) وعمل كلمة سر ومن تم الدخول على خصائص المشاركة للمجلد وحدف كل مجموعات المصرح لها بستخدام هذا المجلد وأعطأ هذه الصلاحية للمستخدم الجديد الذي تم عمله. ثانياً : بتحديد عدد الاجهزة المسموح لها لوصول للمجلد بعدد من لديهم الواجهات للتطبيق ثالثاً : الذهاب إلى الاجهزة التي بها الواجهات وتنفيذ امر ( إدارة الجداول المترابطة ) وتحديد المسار الملف على جهاز الخادم وفي هذه المرة لن تستطيعي الوصول للملف وستظهر نافذة تسألك كتابة اسم المستخدم والباسورت وهنا ضعي بيانات المستخدم الذي تم عمله على الخادم مع الباسورت وضعي علامة صح على مربع حفظ اسم المستخدم والباسورت حتى لا يطلبها في اليوم التالي أو بعد تشغيل الجهاز في المرة القادمة. رابعاً : تفعيل خاصية اخفاء المجلد على الخادم والتأكد من وضع خاصية عدم اظهار الملفات المخفية على بقية الاجهزة خامساً : وهو الاهم قومي بشراء يو اس بي فلاش درايف بسعة مناسبة وقومي بعمل حفظ للقاعدة فيه يفضل يومي للحفاظ على اي طارئ من أي نوع. علماً بأنه من اساسيات النسخ الاحتياطي للملفات الاحتفاظ بنسخة خارجية ( Off shore ) أي ان لا تكون في نفس المكتب أو داخل نفس الجهاز تحسباً لأي حريق أو شي أخر لا قدر الله. مع تحياتي
    1 point
×
×
  • اضف...

Important Information