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

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

  1. الـعيدروس

    الـعيدروس

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


    • نقاط

      17

    • Posts

      3,277


  2. Ali Mohamed Ali

    Ali Mohamed Ali

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


    • نقاط

      14

    • Posts

      11,621


  3. kha9009lid

    kha9009lid

    الخبراء


    • نقاط

      9

    • Posts

      1,347


  4. essam rabea

    essam rabea

    الخبراء


    • نقاط

      9

    • Posts

      634


Popular Content

Showing content with the highest reputation on 19 أكت, 2019 in all areas

  1. استاذي @essam rabea وضع الحل عن طريق نموذج فرعي مخفي يتم اضهارة وتحديثة عند التغيير وهنا حل اخر بدون الحاجة الى نموذج فرعي test2.accdb
    5 points
  2. السلام عليكم هذا الموضوع اقتطعه من احد برامجي اللي شغال عليها الان وهي تسجيل رقم عداد السيارة السابق تلقائيا لما يكون عندي سيارات كثيرة وبدي اسجل رقم العداد عند المغادرة وعند العودة يعني سابق ولاحق اكيد رح يصير عندي خربطة لكن مع هذه الطريقة مجرد ان اختار رقم السيارة يقوم البرنامج بادراج اخر قراءة تم تسجيلها الطريقة عملتها بواسطة استعلامين ومايكرو وحجز متغير يمكن حدا يطبقه ابواسطة اكواد فيجوال بيسك لكن ارى ان المايكرو اسهل مرفق قاعدة البيانات يمكن تستفيدوا من هذه الطريقة بتسجيل عداد الكهرباء السابق والحالي او تسجيل عداد المياة السابق والحالي اتمنى لكم الفائدة رقم عداد السيارة.accdb
    5 points
  3. تفضل أخى rey360 عسى أن يكون المطلوب بالتوفيق test2.accdb
    4 points
  4. عجبنى الموضوع ده قلت أشاركه معكم بإختصار هو سكريبت لعمل مكان موثوق لملفات الأكسيس من مكان تشغيله .. بمعنى لو شغلته من Desk Top تقدر تفتح أى ملف أكسيس على Desk Top بدون ظهور Enable Content. ولو عندك فولدر لمشاريعك فى أى مكان سواء سى أو دى أو .... ضع هذا السكريبت داخله وشغل وخلاص بقى كل ما بداخل الفولدر منطقة أمان. إنشئ ملف نص بأى إسم وضع فيه ما يلى على أن تغير إمتداده الى vbs. Const HKEY_CURRENT_USER = &H80000001 Dim oRegistry Dim sPath Dim sDescription Dim bAllowSubFolders Dim bAllowNetworkLocations Dim bAlreadyExists Dim sParentKey Dim iLocCounter Dim arrChildKeys Dim sChildKey Dim sValue Dim sNewKey Set WshShell = CreateObject("WScript.Shell") strCurDir = WshShell.CurrentDirectory Set oRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv") sPath = strCurDir sDescription = "YourTrustedLocationDescriptionGoesHere" bAllowSubFolders = True bAlreadyExists = False sParentKey = "Software\Microsoft\Office\16.0\Access\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\16.0\Excel\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\16.0\PowerPoint\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\16.0\Word\Security\Trusted Locations" iLocCounter = 0 oRegistry.EnumKey HKEY_CURRENT_USER, sParentKey, arrChildKeys For Each sChildKey in arrChildKeys oRegistry.GetStringValue HKEY_CURRENT_USER, sParentKey & "\" & sChildKey, "Description", sValue If sValue = sDescription Then bAlreadyExists = True If CInt(Mid(sChildKey, 9)) > iLocCounter Then iLocCounter = CInt(Mid(sChildKey, 9)) End If Next 'If bAlreadyExists = False Then sNewKey = sParentKey & "\Location" & CStr(iLocCounter + 1) oRegistry.CreateKey HKEY_CURRENT_USER, sNewKey oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Path", sPath oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Description", sDescription If bAllowSubFolders Then oRegistry.SetDWORDValue HKEY_CURRENT_USER, sNewKey, "AllowSubFolders", 1 End If كما يمكن تفعيله للاكسيل والوورد والباور بوينت مع مراعاة نسخة الاوفيس لديك وتغيرها فى الكود: أوفيس 2019 : 16.0 أوفيس 2016 : 16.0 أوفيس 2013 : 15.0 أوفيس 2010 : 14.0 أوفبس 2007 : 12.0 أوفيس 2003 : 11.0 أظن أنه لا يوجد أحد أعضاء منتدانا الكريم يعمل على أوفيس XP 😊 عسى أن يفيد .. إذا اشتغل يعنى والله الموفق EAR TrustAnyWhere.zip
    3 points
  5. السلام عليكم جرب المرفق غياب_A2 مع الغياب بعذر .xlsm
    3 points
  6. أشكركم أساتذتي الكرام أحمد الفلاحجى و essam rabea وkha9009lid على المجهود الذي قمتم به و أرجو أن يكون في ميزن حسناتكم شكرا جزيلا لكم
    2 points
  7. عن طريق dlookup مرة واحدة واستدعاء اي عدد من الحقول On Error GoTo ErrHandler Dim X() As String a = DLookup("[item_no] & '|' & [item]& '|' & [s_price]& '|' & [Quantity] ", "item", "[item_no]='" & [Item_No] & "'") X = Split(a, "|") Me.item = X(1) Me.s_price = X(2) Me.Quantity_Available = X(3) DoCmd.GoToRecord , , acNewRec ErrHandler: If Err.Number <> 0 Then Me.Undo MsgBox " باركود غير مسجل " End If End If عن طريق قائمة منسدلة Me.item = Me.Item_No.Column(1) Me.Quantity_Available = Me.Item_No.Column(2) Me.s_price = Me.Item_No.Column(3)
    2 points
  8. العفو اخى فهمت ما تريد لكن مش عارف اظبطها ممكن تتظبط لو مكان العرض ليست بوكس مثل مثال الاستاذه زهره المرفق وان شاء الله احد الاساتذه يساعد فيما تريده والله اعلى واعلم تمنياتى لك بالتوفيق SearchInListBox.rar
    2 points
  9. أ.بلال اليامين هل هذا المطلوب 111.zip
    2 points
  10. بعد اذن الاستاذ عبد الله الصاري جرب كود حدث الفورم Private Sub UserForm_Initialize() Dim ws As Worksheet: Set ws = Sheets("sheet1") Dim b Me.ListBox1.ColumnCount = 1 lr = ws.Cells(Rows.Count, 1).End(xlUp).Row For b = 4 To lr Me.ListBox1.AddItem ws.Cells(b, 1).Value Next b End Sub
    2 points
  11. وعليكم السلام هل تقصد هكذا فاتورة.xlsm
    2 points
  12. وعليكم السلام ,كان لزاما عليك رفع ملف لتوضيح المطلوب بكل دقة كما انه لابد رفع مشاركتك منفصلة بعيداُ عن المشاركات القديمة حتى تكون محل اهتمام من الأساتذة فقد قمت برفع ثلاثة ملفات لك بثلاثة أمثلة مختلفة للتنقل بين الصفحات ومنها :-الكمبوبوكس والقائمة المنسدلة واخيرا بالقائمة التنقل لإسم الصفحة من القائمة المنسدلة.xlsm الذهاب الى الشيت من خلال الكمبوبوكس.xlsm كود التنقل الى اي صفحة في ملف اكسيل.xls
    2 points
  13. من فضلك عليك برفع الملف بعد تعديل الإعدادات ويجب ان تلاحظ انك لو رفعت من البداية الملف الصحيح لكان وفر علينا كثيرا من الوقت
    2 points
  14. اتفضل الملف لعله يفى بالغرض نسخة من الاسماء.xlsx
    2 points
  15. السلام عليكم استاذي kanory المحترم اشكرك الشكر الجزيل وبارك الله بجهودك القيمة اطلعت على المرفق من خلال الماكرو المديول عمل يستحق التقدير وانا اسف على التأخر في الرد لان شبكة الانترنيت لدي متردية جداً شكراً جزيلاً استاذي محمد سلامة على المشاركة وابداء الرأى وبارك الله بجهودك
    2 points
  16. أحسنت استاذ عبد اللطيف بارك الله فيك وجزاك الله خير الثواب
    2 points
  17. السلام عليكم عدل بهذا السطر ActiveWindow.SelectedSheets.PrintOut , , 2
    2 points
  18. وهنا برقم التليفون Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("Clients", dbOpenDynaset) rs.FindFirst "Tel = '" & Me!Tel & "'" If Not rs.NoMatch Then rs.Bookmark = rs.Bookmark Me.Societé = rs!Societé Me.Adresse = rs!Adresse Me.Tel = rs!Tel Me.Email = rs!Email Me.nomClien = rs!nomClien Me.Ville = rs!Ville Else 'غير ذلك اي انه لم يجد سجل MsgBox " يـرجـاء الـتـأكـد .... لا يـو جـد زبون بـهـذا الرقم : " & Me.Tel, , " : خـطـاء " End If
    2 points
  19. تم التعديل على المشاركة السابقه اعد تحميل الملف
    2 points
  20. انظر هذا الموضوع بطريقة أخرى لأخي الفاضل @kaser906
    2 points
  21. وعليكم السلام-تفضل لك كل ما طلبت بصمة-1 5.xlsm
    2 points
  22. فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الفورم الملف فورم بحث بالاسم ودبل كليك لعرض البيانات.rar
    1 point
  23. بارك الله فيك اخي العزيز اريد ان تظهر الرسالة عند اضافة بيانات جديدة ، لانه من المفترض عدم تكرار الاسم مرتين ، الله يوفقك و يسعدك ، ردك بعث الامل فيني شكرا لك
    1 point
  24. الحمدلله اللذى بنعمته تتم الصالحات جزاهم الله خيرا استذتنا الافاضل وسلمت ايديهم واسال الله ان يكتب لهم بكل حرف حسنه ويبارك لهم فى جميع ما يحبون
    1 point
  25. وعليكم السلام ورحمة الله وبركاته جرب هذا لعله يقترب من مرادك الفورم loginform بمرفقك كانت توجد به مشكلة لذي قمت بتغيره وتعديل ما يلزم جرب ووافنا بالنتائج New Microsoft Access Database.rar
    1 point
  26. السلام عليكم و رحمة الله وبركاته بالاضافة الى حل اخي العيدروس فكرة اخرى اضف ورقة و انا هنا سميتها وصولات (2) ثم استخدم = وصلات A1 يعني نسخة للورقة الاولا بدالة بسيطة و اجعل الطباعة من و رقة وصولات (2) في الكود كما في المرفق طبع وصولات - وصلين.xls
    1 point
  27. برنامج يدير الفندق نزلاء وعمالة برمجة عوض كارو دخول عوض 123 نرجو ارائكم وملاحظاتكم فندق_اسماء_وارقام_.xlsm
    1 point
  28. اتفضل اخى مثالك بد التعديل Like "*" & [Forms]![f_listeclients]![Texte51] & "*" بالتوفيق ان شاء الله test2.accdb
    1 point
  29. السلام عليكم ورحمة الله تم عمل المطلوب بإضافة عدة أعمدة (عمود الترتيب-عمود رقم التسجيل-عمود الصفة-عمود تاريخ الدخول-عمود تاريخ الخروج) في شيت التلاميذ... تم حذف أعمدة يومي الجمعة والسبت من جدولي ورقتي التلاميذ والأساتذة... مع تعديل كل المعادلات اللازمة... إذا كانت هناك اقتراحات أو تعديلات أخرى أستطيع عملها، إن شاء الله تجدونني في الخدمة.... كل الأوراق محمية بالكلمة السرية 123 ما عدا ورقة التوقيت T... بن علية حاجي 123.xls
    1 point
  30. تفضل هذا التعديل تعديل بسيط بحيث اذا لم يجد الاسم يضيفه بعد اخر اسم مع التاريخ في صفحة الغياب غياب_A1.xlsm
    1 point
  31. الف شكر استاذي نعم انه المطلوب ولكن هناك مشكلة في الدالة واذا كان احد الغياب طالب غير موجود في القائمة تتوقف الدالة عن العمل كما في الملف الاول اذا كان الغياب شخص واحد فقط تخرج مشكلة كما في الصورة كما في الملف الثاني طالب غير موجود .xlsm طالب واحد.xlsm
    1 point
  32. السلام عليكم بعد اذن الاستاذ حسين جرب المرفق غياب_A.xlsm
    1 point
  33. وعليكم السلام ورحمة الله وبركاته لست أمتلك جهاز بصمة فهل أخرج من الموضوع هل تقصد آلية عمل الجهاز في تخزين بصمة الاصبع أم ماذا؟! أعتقد أنه يتم ترجمة صورة البصمة بشكل ترميزي معين يتم اضافتها مع بيانات المستخدم وليست كصورة علي حد علمي تجد هنا بعض المعلومات عن أجهزة البصمة https://mawdoo3.com/كيف_يعمل_جهاز_البصمة
    1 point
  34. جرب هذا المرفق لأستاذنا أبي جودي صلاحيات مجموعات المستخدمين.rar
    1 point
  35. احذف الكود الموجود في الفورم الاول
    1 point
  36. 1 point
  37. السلام عليكم تفضل شاهد التوضيح في المرفق شرح.rar
    1 point
  38. السلام عليكم تفضل بحث_للاوراق.xlsm
    1 point
  39. السلام عليكم ورحمة الله تعالى وبركاته قمت بفضل الله بتصميم مكتبة dll يمكن اضافتها للاكسس نعم هى بسيطة ولكنها اول تجربة وان شاء الله احاول ان اصمم مكتبات اخرى هى اداة مثل البروجرس بار هذه شكلها بعد التسجيل ستجدها موجودة فى عناصر Active x وهذه صورة اثناء تصميم الاداة على vb.net قريبا ان شاء الله explorer bar وهذا فيديو اثبات عملى للاداة اما عن طريقة التسجيل فستجد ملف من نوع .bat ارفقته مع الاداه اسمه " تسجيل الاداة " قم بفتحة با النوتباد وقم بتغيير مسار الاداه وقم بحفظ الملف وعن التسجيل قم بفتح الملف كمسؤل وسيقوم بتسجيل المكتبةتلقائيا هذه هى المكتبة axload5.rar اتمنى ان تجربوها وتخبرونى بالنتائج دمتم لنا سندا حاجة اخيرة ايه ممكن استفاد من الاداة هذه ممكن مثلا تضعها فى نموذج مخفية وعند تنفيذ امر معين تظهرها وعند انتهاء الامر تقوم باخفائها وهكذا
    1 point
  40. اعتقد انى توصلت الى خطأ ما فى اداة التسجيل الا وهو مسار الفريمورك كل اصدار لنظام التشغيل يختلف معه مسار netframwork مثلا 32 بت تجد المسار هو C:\Windows\Microsoft.NET\Framework اما 64 بت تجد المسار هو C:\Windows\Microsoft.NET\Framework64 اصدار 32 bit تسجيل الاداة - 32bit.rar اصدار 64bit تسجيل الاداة - 64bit.rar فقط قم بتغيير المسار الخاص بالاداة ثم احفظ وقم بتشغيلها كمسؤول وبعد التسجيل ستجد فى عناصر تحكم active x تم تسجيل نسخة اخرى من الاداة فقط قم بتجربة الثانية الجديدة او اللى تشتغل معاك ههههههههههههه ومرة اخرى شكرا والله لطول صبركم
    1 point
  41. بارك الله فيك يا اخى الكريم ال current system local فقط اود ان انوه يجب عليك فحص النموذج الذى ستضع فيه axload5 قد يكون هناك اسماء بعض الكائنات قد اضيف لها رموز غريبة او ما شابه ذلك مع العلم ان استخدم نفس اصدار نظام التشغيل لديك
    1 point
  42. السلام عليكم ورحمة الله تعالى تم اضافة بعض الخصائص الان يمكنك تغيير نوع البروجرسبار وهذا فيديو لطريقة العمل ولكن لن اضيفها الان حتى اتاكد من الاخوة هل تعمل المكتبة معهم ام لا
    1 point
  43. السلام عليكم تم تعديل بعض الاكواد داخل المكتبة وهذه هى بعد التعديل يجماعة مش عاوزكم تيأسو هههههههههههه عاوزين نخرج المشروع جدا للنور هنستفاد منه كتير والله فى الاكسس وجزاكم الله خير الجزاء axload5.rar اما رسالتك هذه اخى الكريم تفيد ان مساء المكتبة غير صحيح قم بتعديل مسار المكتبة اولا ثم احفظ وافتح الملف كمسؤول (Run as admistroter )
    1 point
  44. اتفضل جرب والشرح ان كان هذا ما تريد بعد التجربة وان كان هذا ما تريد لا تنسي الدعاء الوفير لاستاى الجليل ومعلمى القدير الاستاذ @jjafferr والله اهدانى هذا الكود فى يوم من الايام دون ان اطلبه حتى كنت اسال عن شئ وكتبت كود كبير جدا ومطول لاصل لمبتغاى بعد ان توصلت لاجابة على سؤالى والذى لم يكن له علاقة تقريبا بهذه الطريقة وبهذا الكود اهدانى اياه معلمى حتى لا يكون الامر شاقا على بكتابة الكثير من الاكواد لاصل لهذه النتيجة اسأل الله تعالى ان يرزقه عن كل حرف كتبه ليعلم به حسنه واسال الله تعالى ان يضاعفها بكرمه وجوده الى اضعافا لا تحصى ولا تعد يارب العالمين فتثقل ميزان اعماله فيترتقى اعلى درجات الجنان يارب العالمين شقق ومخازن ايجارات - Copy.accdb توضيح فقط لم ارد جلب البيانات اصلا مرة اخرى لاننى بالفعل املكها فى احد الجداول لماذا اجلبها وحمل القاعدة ببينات تتكرر من الاساس
    1 point
  45. ان شاء الله اجيبك واتيك بنا يسر قلبك ولكن لى سؤال لماذا تكرر كتابة تلك القيم مرارا وتكرارا فى كل شهر وتحمل الجدول والقاعدة ببيانات ممكن عدم تكرارها اصلا كان يكفى ان يكون جدول المستأجرين به كل البيانات مره واحده فقط وعمل علاقة بين جدول المستأجرين وجدول الايجار برقم المستأجر او ايا كان مفتاح الربط الذى تربط من خلاله
    1 point
×
×
  • اضف...

Important Information