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

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

  1. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      23

    • Posts

      7221


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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      15

    • Posts

      8723


  3. essam rabea

    essam rabea

    الخبراء


    • نقاط

      15

    • Posts

      634


  4. احمد بدره

    احمد بدره

    الخبراء


    • نقاط

      9

    • Posts

      979


Popular Content

Showing content with the highest reputation on 04/24/19 in مشاركات

  1. السلام عليكم ورحمة الله تعالى وبركاته الجزء الاول من صلاحيات دخول المستخدمين الى البرنامج فى هذا الجزء - فى حالة عدم وجود مستخدم مسجل اى عند فتح القاعدة للمرة الأولى يتم انشاء المستخدم الأدمن اليا يا سلام يا سلام -البيانات فى الجداول مشفرة << -----------< تلبية ورغبة لطلب احبائى الكرام -تم إخفاء معظم كائنات قاعدة البيانات التى تخص دخول المستخدمين -نموذج الدخول يمكن من خلاله تسجيل مستخدم جديد فى انتظار الادمن للموافقة عليه وتصنيفه تبعا لمجموهة الصلاحيات << -----------< الادمن كده هيستريح الله الله الله -نموذج الدخول يمكن من خلاله استرجاع كلمة المرور فى حالة النسيان ولكن بعد ادخال بيانات التسجيل الصحيحة ( اسم الدخول - الاسم الرباعى - الايميل- سؤال الامان - اجابة السؤال) -امكانية كشف نجوم كلمة المرور ما تيجو نشوف كده قد يكون هناك اخطاء سهوا منى وقد تكون هناك لدى احد اساتذتى الكرام واحبائى فكرة افضل يسعدنى تلقى مقترحاتكم حول المرفق القاعدة مطروحة للتجربة ـــــــــــــــــــــــــــــــــــــــــــــ SecurityLevel group.accdb SecurityLevel group.mdb
    4 points
  2. استاذى الجليل ومعلمى المبجل ووالدى الحبيب الاستاذ @jjafferr جزاكم الله خيرا على حرصكم على الحفاظ على تعب الاخرين وصدقا يا والدى الحبيب انا اقدر ذلك و اشهد الله ان هذه قاعدتى وانا صاحبها واخونا السائل لا يدرى اصلا انها لى وتبسمت فور تحميلى للمرفق ومشاهدتها للعلم هذه اول قاعدة تقريبا حاولت التعلم فيها بتفكيك نظام الصلاحيات انا لا استسهل واستحل ان اضيع جهد من خاول منع الاخرين من الوصول الى تعبه
    3 points
  3. انصحك باستعمال هذا الملف الذي وضعته للمدرسة عندي Works_Days.xlsm
    2 points
  4. السلام عليكم اسمحوا لي بمداخلة اسأل الله الكريم ان ينفع بها المصلحة العامة المستقبلية في البحث ان يكون لكل موضوع سؤال واحد مستقل يصف المطلوب طرح كل فكرة او سؤال مهما كان صغيرا في موضوع مستقل مطلب مهم يجب ان نستشعر هذه المصلحة وان نتخلق بهذا في كل اعمالنا وهذا النهج يصب في مصلحة السائل قبل كل شي . ففيه يحصل السائل من جهة على تفاعل اكثر من الاعضاء ومن جهة اخرى يكون السائل خفيف الظل على اخوته
    2 points
  5. جرب هذا الكود البيانات كثيرة عندك كان يحب رفع نموذج عن الملف ولبي الملف بكامله (لمعرفة كيفية عمل الكود بشكل مريح) Option Explicit Sub give_uniques() Dim m%: m = 6 Dim Ro_wared%, Ro_Mons% Dim wared As Worksheet: Set wared = Sheets("وارد") Dim Mons As Worksheet: Set Mons = Sheets("منصرف") Ro_wared = wared.Cells(Rows.Count, 1).End(3).Row Ro_Mons = Mons.Cells(Rows.Count, 1).End(3).Row Dim my_sh As Worksheet: Set my_sh = Sheets("salim") my_sh.Range("a6:f5000").ClearContents my_sh.Range("a6:f5000").Font.ColorIndex = xlAutomatic '================================== my_sh.Cells(m, 1).Resize(Ro_wared - 4, 3).Value = _ wared.Cells(5, 1).Resize(Ro_wared - 4, 3).Value my_sh.Cells(m, 4).Resize(Ro_wared - 4, 1).Value = _ wared.Cells(5, 4).Resize(Ro_wared - 4, 1).Value my_sh.Cells(m, 6).Resize(Ro_wared - 4, 1).Value = _ wared.Cells(5, 5).Resize(Ro_wared - 4, 1).Value my_sh.Cells(m, 1).Resize(Ro_wared - 4, 6).Font.ColorIndex = 3 m = Ro_wared + 3 '====================================== my_sh.Cells(m, 1).Resize(Ro_Mons - 4, 3).Value = _ Mons.Cells(5, 1).Resize(Ro_Mons - 4, 3).Value my_sh.Cells(m, 5).Resize(Ro_wared - 4, 1).Value = _ Mons.Cells(5, 4).Resize(Ro_Mons - 4, 1).Value my_sh.Cells(m, 6).Resize(Ro_Mons - 4, 1).Value = _ Mons.Cells(5, 5).Resize(Ro_Mons - 4, 1).Value End Sub الملف مرفق alex_Wared.xlsx
    2 points
  6. أ/ishak19 إهدا علينا الله يكرمك حضرتك سألت السؤال وفى نفس اللحظة تقريبا رد عليك أستاذنا ابا جودى المنتدى ده مجموعة من الإخوة المحترفون والمبرمجون والهواه تربطهم علاقة حب المعرفة وتعليمها .. وعلى حسب وقتهم وإستطاعتهم يجيبون عن إستفساراتنا .. فكن صبوراً أخى الكريم .. ابا جودى أعطاك فكرة طبقها أنت كما تريد على برنامجك الذى لم تتفضل وترفقه كى يتم التعديل عليه. وعموما أرفق لك مثالا آخر أرجو أن أكون قد فهمت ما تريد. الرقم_الأكبر.zip
    2 points
  7. بعد اذن اخي مصطفى لا ضرورة لنبحث في العامود صفاً بعد صف عن رقم معين من خلال استعمال الحلقات التكرارية المرهقة للبرنامح (خاصة اذا كان هناك المئات او الالوف من الصفوف) يوجد طريقة اخرى من خلال الدالة المميزة Find التي تنبش المعلومة اينما كانت (وتضع بدها على الجرح مباشرة ---كما يقول المثل) وتملك خاصية ( النبش) مئات المرات دون كلل او ملل الكود Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$G$3" And Target.Count = 1 Then Get_Data End If Application.EnableEvents = True End Sub '+++++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub Get_Data() Dim ws As Worksheet: Set ws = Sheets("البيانات") Dim sh As Worksheet: Set sh = Sheets("البحث") sh.Range("a6").CurrentRegion.Offset(2).ClearContents Dim My_Number: My_Number = sh.Range("g3") Dim But_Rg As Range: Set But_Rg = ws.Range("a2").CurrentRegion.Columns(2) Dim ro%, fixed_ro% Dim m%: m = 7 Dim Search_Rg As Range Set Search_Rg = But_Rg.Find(My_Number) If Not Search_Rg Is Nothing Then ro = Search_Rg.Row: fixed_ro = ro Do sh.Cells(m, 1).Resize(, 10).Value = ws.Cells(ro, 1).Resize(, 10).Value m = m + 1 Set Search_Rg = But_Rg.FindNext(Search_Rg) ro = Search_Rg.Row If ro = fixed_ro Then Exit Do Loop Else MsgBox "No Data" End If End Sub Search_by Find.xlsm
    2 points
  8. معلش يا استاذ محمد ، اخذني على قدر عقلي ، طلبت منك عدم ادخال عدة اسئلة في الموضوع ، واذا بك واصلت في السؤال الآخر "على سبيل الدعابة ليس أكثر" ، وفي الموضوع الآخر كذلك عملت نفس المخالفة وسألت سؤال خارج عن الموضوع!! شو اللي تريد ان نعمله نحن المشرفين !! فنحن لسنا شرطة كما قال عنا البعض ، وانما نعطي من وقتنا الخاص لجعل المنتدى يعمل بسلاسة ، واذا تركنا المواضيع بدون رقابه والاعضاء يكتبون ما يشائون ، فذلك المنتدى سيتغير اسمه الى منتدى سوق السمك لقواعد البيانات 🙂 جعفر
    2 points
  9. ممكن تجربة التعديل على الكود الأخير الذي وضعه أستاذنا الفاضل سليم ComboBox With Drop List_new.xlsm
    2 points
  10. تفضل الكود خلف زر الأمر يصبح بهذا الشكل: Dim reportName As String Dim fileName As String Dim criteria As String fileName = CurrentProject.Path & "\نتيجة البحث" If Len(Dir(fileName, vbDirectory)) = 0 Then MkDir (fileName) ' إنشاء مجلد بالمسار المحدد End If reportName = "ResultPrint" fileName = fileName & "\" & reportName & ".pdf" 'criteria = "SomeTextField = 'ABC' AND SomeNumberField = 123" DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName DoCmd.Close acReport, reportName, acSaveNo
    2 points
  11. 2 points
  12. بارك الله بك, لو تضمن المرفق التاريخ الهجري لكانت الفائدة اكبر.
    2 points
  13. اتفضل الباس ورد 1 وصلحت لك نموذج الدخول وعملت لك استعلام لفك التشفير بس نصيخة انا واجهت مشاكل مع خوارزمية التشفير دى ان مهتم بموضوع الصلاحيات هاقولك سر ولا تحكى لحد تابع الموضوع ده New Microsoft Access Database.rar
    2 points
  14. بعد اذن اخي مصطفى حل اخر بواسطة الكود Option Explicit Sub get_missing_date() Dim my_min#, my_max# Dim cel As Range Dim Col As Object Dim i#, m%: m = 2 Range("G2:G" & Rows.Count).ClearContents Set Col = CreateObject("System.Collections.Arraylist") With Col For Each cel In Range("B2", Range("b1").End(4)) cel.Value = CDate(cel.Value) cel.NumberFormat = "d/m/yyyy" .Add CLng(cel.Value) Next: .Sort End With my_min = Application.Min(Range("B2", Range("b1").End(4))) my_max = Application.Max(Range("B2", Range("b1").End(4))) For i = my_min + 1 To my_max - 1 If (IsError(Application.Match(i, Col.toarray, 0))) _ Then Cells(m, "g") = i: m = m + 1 Next Col.Clear: Set Col = Nothing End Sub الملف مرفق Missing Dates.xlsm
    2 points
  15. السلام عليكم, في سنة 2017 قمت بكتابة كلاس بسيط لحماية برنامجي ولضمان برنامجي لا يعمل في غير كومبيوترات في حاله بيعه. مميزات الكلاس: 1- قفل قاعدة البيانات على ( رقم الهارد , البروسيسور , المذربورد , الماك أدريس ) 2- (استحاله) فك النماذج والتقارير في حال عدم تجاوزك لنموذج ( تسجيل الدخول ) ببساطة ستقول يمكنني العثور على باسورد القاعدة داخل الجدول ( الطريقة المعتادة لدينا جميعا في انشاء نموذج تسجيل دخول ). قبل كل شي ليكن لدينا مثلا جدول اسمة ( tbl_Login ) و نموذج اسمه ( frm_Login ) الجدول لتخزين اسم المستخدم وكلمة المرور والنموذج لعمل تسجيل الدخول عند ذهابنا للجدول ( tbl_Login ) ، سوف نحصل على باسورد مشفر من الجدول لو كان الباسورد مثلا ( 313 ) فإنك ستحصل على ( 701D6068 ) 2- عندما نقوم بتسجيل الدخول في النموذج سيقوم البرنامج بأخذ كلمة السر المدخلة ويقوم بتشفيرها ثم يقوم بمطابقتها مع الباسورد الموجود في الجدول اذا كان الباسورد المُدخل يطابق الجدول سيكتب قيمة معينة runtime ويقوم بازالة جميع القيود من النماذج والتقارير. اولا: كلاس الحماية Option Compare Database '----------------------------------------------------- ' Protection Module Coded By Hassanein Hirz Aldeen (SEMO.Pa3x) ' Date 26/11/2017 ' All rights reserved. copyright © 2017 '----------------------------------------------------- Public SEMO As String Function SEMO_GET() SEMO = SEMO SEMO_GET = SEMO End Function Function PR() As Boolean PR = False 'False=Disabled , True=Enabled End Function Function HWND_ID() HWND_ID = "3C3F4825" 'Your HWID End Function Function HWND_MSG() HWND_MSG = "...ليست لديك صلاحيات كافية لإستخدام هذا الاجراء" End Function Function KEY_ENDE() KEY_ENDE = "PA$X" End Function Function HWND_GET() Set root = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2") Set disks = root.execquery("select * from win32_logicaldisk") For Each disk In disks If disk.volumeserialnumber <> "" Then HWND_GET = disk.volumeserialnumber Exit For End If Next End Function Function HWND_PROTECTION() Set root = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2") Set disks = root.execquery("select * from win32_logicaldisk") For Each disk In disks If disk.volumeserialnumber <> "" Then HWND_PROTECTION = disk.volumeserialnumber Exit For End If Next If HWND_ID = HWND_PROTECTION Then HWND_PROTECTION = "True" Else HWND_PROTECTION = "False" End If End Function 'Code contained within module named mdlforencryptionanddecryption Public Function XORDecryption(CodeKey As String, DataIn As String) As String Dim arkdata1 As Long Dim strDataOut As String Dim intXOrValue1 As Integer Dim intXOrValue2 As Integer For arkdata1 = 1 To (Len(DataIn) / 2) 'The first value to be XOr-ed comes from the data to be encrypted intXOrValue1 = Val("&H" & (Mid(DataIn, (2 * arkdata1) - 1, 2))) 'The second value comes from the code key intXOrValue2 = Asc(Mid(CodeKey, ((arkdata1 Mod Len(CodeKey)) + 1), 1)) strDataOut = strDataOut + Chr(intXOrValue1 Xor intXOrValue2) Next arkdata1 XORDecryption = strDataOut End Function Public Function XOREncryption(CodeKey As String, DataIn As String) As String Dim arkdata1 As Long Dim strDataOut As String Dim temp As Integer Dim tempstring As String Dim intXOrValue1 As Integer Dim intXOrValue2 As Integer For arkdata1 = 1 To Len(DataIn) 'The first value to be XOr-ed comes from the data to be encrypted intXOrValue1 = Asc(Mid$(DataIn, arkdata1, 1)) 'The second value comes from the code key intXOrValue2 = Asc(Mid$(CodeKey, ((arkdata1 Mod Len(CodeKey)) + 1), 1)) temp = (intXOrValue1 Xor intXOrValue2) tempstring = Hex(temp) If Len(tempstring) = 1 Then tempstring = "0" & tempstring strDataOut = strDataOut + tempstring Next arkdata1 XOREncryption = strDataOut End Function الاستخدام لكل النماذج والتقارير اكتب في حدث Form_Load Option Compare Database Private Sub Form_Load() On Error Resume Next If HWND_PROTECTION = "False" Then MsgBox HWND_MSG, vbCritical, "عملية خاطئة" For i = 0 To Controls.Count - 1 Dim X As Control Set X = Me.Controls.Item(i) X.Visible = False Next DoCmd.Close DoCmd.CloseDatabase DoCmd.Quit End If If Protection.SEMO_GET = "SEMO" = False Then MsgBox HWND_MSG, vbCritical, "عملية خاطئة" For i = 0 To Controls.Count - 1 Dim XS As Control Set XS = Me.Controls.Item(i) XS.Visible = False Next DoCmd.Close DoCmd.CloseDatabase DoCmd.Quit End If End Sub الان عندما تريد اعطاء القاعدة لشخص ما قم باعطاءه اولا ملف الـ VBS هذا '----------------------------------------------------- ' ReCoded By Hassanein Hirz Aldeen (SEMO.Pa3x) ' Date 26/11/2017 ' All rights reserved. copyright © 2017 '----------------------------------------------------- ' Get clipboard text Set objHTML = CreateObject("htmlfile") Set Ws = CreateObject("WScript.Shell") Clipboardtext = objHTML.ParentWindow.ClipboardData.GetData("text") sText = HWND_GET 'Set Clipboard Ws.Run "mshta.exe ""javascript:clipboardData.setData('text','" & Replace(Replace(sText, "\", "\\"), "'", "\'") & "');close();""", 0, True MsgBox "Copied!" Function HWND_GET() Set root = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2") Set disks = root.execquery("select * from win32_logicaldisk") For Each disk In disks If disk.volumeserialnumber <> "" Then HWND_GET = disk.volumeserialnumber Exit For End If Next End Function وظيفة هذا الملف يقوم باستخراج ( رقم الهارد , البروسيسور , المذربورد , الماك أدريس ) ثم ينسخه بعدما يشغله سيقوم العميل باعطاءك هذا الرقم لكي تقوم انت بدورك بوضعه داخل الكلاس في المنطقة Function HWND_ID() HWND_ID = "Your HWID" End Function استبدل كلمة ( Your HWID ) بالرقم الذي سيعطيه لك العميل. ثم بعد ذلك قم بحفظ القاعدة بصيغة ( ACCDE ) واتحدا اي شخص يفتحها مرة اخرى: لكي تفتح النماذج والتقارير عليك بتخطي نموذج تسجيل الدخول ارفقت لكم قاعدة محمية وقاعدة بدون حماية مع ملف الـ VBS الذي يستخرج ارقام قطع الجهاز ويقوم بنسخها،، اتمنى لكم الفائدة جميعاً اهداء الموضوع الى مُعلمي الرائع @jjafferr حسنين Login_SEMO_Pa3x.rar
    1 point
  16. تمام أ/رمهان ولكنه يريد النتيجة تسجل فى حقل بالجدول
    1 point
  17. انا تفضلى .. ينفع كده .. يعنى مش واخد بالك من الشنب وانظارة .. طب مش لاعب
    1 point
  18. تفضل .. ولكن لا تعدل البيان فكلما عدلته سيتغير التاريخ لتاريخ اليوم 1.zip
    1 point
  19. ولو أنى كنت أفضل أن تحاول .. لكن تفضل alziraeia.zip
    1 point
  20. هههههههههه ماشي يل سيدى اهلا بيك الحمد لله انك راض عن اجابة استاذى ومعلمى الاستاذ @essam rabea فقط اتمنى ان لا تاتى غدا وتعدل مشاركتك وتقول ليس المطلوب هاهاهاهاهاهاهاهاهاها هذه المرة انا سجلت عليك اعجابك باجابة استاذى الغالى حتى لا يقع فى الفخ مثلى
    1 point
  21. لم يكن هناك أي خطأ في الكود بل الخطأ في البرمجة أنت وضعت الكود : [Forms]![مبيعات]![الكمية المتوفرة] = [Forms]![مبيعات]![الكمية المتوفرة] - [Forms]![مبيعات]![t2] و هذا الكود معناه أنقص العدد الموجود في مربع النص t2 من الكمية المتوفرة مثلا: الكمية المتوفرة 100 و الكمية المباعة 10 عند تعديلها إلى 20 يقوم الكود بالعملية التالية : 100-20=80 و هذا خطأ يجب إضافة الكمية القديمة إلى الكمية المتوفرة ثم نقوم بالعملية. لذلك وضعت متغير x_qeuntitie يأخذ قيمة الكمية المباعة قبل التعديل عليها و عدلت على الكود كالتالي: [Forms]![مبيعات]![الكمية المتوفرة] = [Forms]![مبيعات]![الكمية المتوفرة] + x_qeuntitie - [Forms]![مبيعات]![t2]
    1 point
  22. اتفضل مثالك بعد التعديل لاحتساب عدد كل ايام الاسبوع بين تاريخين عدد ايام الاجازة الاسبوعية فى الشهر.accdb
    1 point
  23. تفضل إجمالى السعر لكل صفحة والإجمالى العام آخر صفحة بالتقرير. تحياتى alziraeia.zip
    1 point
  24. 'الجمعة Public Function TotalFriDays(pYear As Integer, pMonth As Integer, pDay As Integer) Dim xindex As Integer Dim endDate As Integer endDate = Day(DateSerial(pYear, pMonth + 1, 0)) For xindex = 1 To endDate If Weekday(DateSerial(pYear, pMonth, xindex)) = pDay Then TotalFriDays = TotalFriDays + 1 End If Next End Function وبنحصل من خلاله على طلب حضرتك بالطريقة دى من النموذج xx= TotalFriDays(Format(txtDate, "yyyy"), Format(txtDate, "m"), Format(txtDate, "dd")) حيث ان txtDate = التاريخ على شكل 1/3/2019 من الاستعلام Fri: TotalFriDays(2019,3,1) لاحظ شكل التاريخ وكيفية كتابته السنة ثم , الشهر ثم , اليوم ----------------------------------------------- انا مش مبرمج انا مجرد هاوى انا بحثت على الانترنت عن مشكلتك الى تخص الجمع علشان اساعد ان امكننى ذلك والحمد لاقيت الكود
    1 point
  25. أسف تم تحميل الملف بدون الماكرو بالخطأ الملف الجديد alex_Wared.xlsm أسف لم انتبه الى ان الملف المرفوع بصيغة xlsx
    1 point
  26. تفضل معادلة للبحث عن قيمة بأكثر من شرط.xlsx
    1 point
  27. أحسنت أستاذ أحمد بارك الله فيك وجعل الله هذا العمل في ميزان حسناتك ووسع الله في رزقك وزادك من فضله ورحم الله والديك يعجز لسانى عن شكر حضرتك واسف عل تعبك معى وجزاك الله كل خير حقا هذا هو المطلوب
    1 point
  28. ههههههههه أي سر أخي الغالي @ابا جودى فقد عرفناه منك الآن روح مرحة .. وأخلاق عالية .. وتواضع .. هكذا تجعلنا نحترمك ونحبك أكثر وأكثر فهاكذا يجب أن يكون الخبراء .. أخلاقهم الحلم وأن جهل في حقهم غيرهم .. وهم قدوه لمن بعدهم .. أحببت أن أعلق على كلاماتك الرائعة التي أعجبتني ..
    1 point
  29. الله عليك استاذ سليم والله مبدع جزاكم الله خير الجزاء
    1 point
  30. العفو أستاذنا الفاضل إذا كنت تقصد خطأ عدم تشغيل الملف المضغوط فهو أن نسخ برنامج فك الضغط قديمة أما إذا كنت تقصد عدم إضافة الدوائر للطالب الذي مجموعه أكبر من النهاية الصغري ولكن راسب في ورقة الامتحان فالكود كان بحتاج شرط آخر وهو أن الطالب إذا كان رسب في ورقة الامتحان في مادة أو مواد توضع دائرة
    1 point
  31. تفضل أخى .. إفتح تقرير Query1 مخازن.zip
    1 point
  32. اللهمَّ إنكَ أعطيتني خير الإخوان في الدنيا، فلا تحرمني صحبتهم في الاخرة، اللهمَّ أسعدهم، وفرج همهُم، وحقق آمالهم، واجعل الجنة دارهم وقرارهم، واشفهم من كلِ مرضٍ يارب، واجمعني بهم في جناتِ النعيم.
    1 point
  33. بعد اذن استاذنا واخونا الحبيب الاستاذ على واثراء للموضوع هذا حل اخر بالاكواد ان كان هذا هو المطلوب نكمل لك الباقى نسخة من العملاء 2019.xlsm
    1 point
  34. والله يا استاذ انا كنت بافكر فى اضافة التاريخ الهجرى وام القرى فعلا
    1 point
  35. ما ٱجْمّل ٱن تْسَتيّقظ فيٌ الصَبّاح شّاگرٱ لِرّبگ مُعّترَفا بَفْضّلہ فتَقوڵ: { الـحـمد اللھٌ الذيٌ عَافانيْ في جَسّديْ ۈرد علي رۈحِّي ۈأذْنٌ ليْ بَذگرہٌ } صّباحَ جَميّل معّطر بذگر اللہ .. لا إلہ آلٱ اللہ محمد رسول الله
    1 point
  36. بارك الله فيكم جميعا ورفع شأنكم وزادكم علما وقبول.
    1 point
  37. تفضل أخى .. عسى أن يكون المطلوب .. وفى المرة القادمة إن شاء الله وضح فى سؤالك فيما نساعدك. تحياتى fahd2.zip
    1 point
  38. جرب هذا الملف الكود Option Explicit Private Sub ComboBox1_Change() fill_val_list End Sub '=============================================== Sub fill_val_list() Dim my_rg As Range Dim i% Dim st$: st = Sheets("Drop List").[b8] Dim arr Sheets("Drop List").Range("b10").Validation.Delete On Error GoTo No_Items Set my_rg = ActiveWorkbook.Names(st).RefersToRange ReDim arr(1 To my_rg.Cells.Count) With Sheets("Drop List").Range("b10").Validation For i = 1 To my_rg.Cells.Count arr(i) = my_rg.Cells(i) Next .Add 3, , , Join(arr, ",") End With Exit Sub No_Items: MsgBox "Wrong range", 64 End Sub '========== ComboBox With Drop List.xlsm
    1 point
  39. عليك السلام ورحمة الله وبركاته أولاً كان يجب عليك قبل طرح أي موضوع البحث في المنتدى ثانيًا يجب عند طرح موضوع إرفاق ملف ويكون به النتيجة المتوقعة المطلوبة حتى يقوم الأستاذة الأفاضل بالعمل عليها تفضلي هذا الرابط ربما يفيدك
    1 point
  40. إليك الملف غير مضغوط دوائر الشهادات1.xls
    1 point
  41. جرب هذا الملف DAYS_CALCULATION.xlsx
    1 point
  42. الخطأ بسيط أخى صلاح ويتلخص فى التالى استبدل strSQL = "SELECT Kaeel.IDKaeel, Kaeel.ISOName, Kaeel.KaeelFullName, Kaeel.Aboutkaeel" بـ strSQL = "SELECT Kaeel.IDKaeel, Kaeel.ISOName, Kaeel.KaeelFullName, Kaeel.Aboutkaeel" _ & " FROM Kaeel WHERE (" فى الحدثين الخاصين بهما وكذلك إستبدل DoCmd.OpenForm "frm_Kaeel", , , "[IDKeel]=" & Me.IDBook & "'" لرز Open على النموذج بـ DoCmd.OpenForm "frm_kaeel", acNormal, "", "[IDKaeel]=" & [IDKaeel], , acNormal وكذلك قم بتغيير إسم حقل القائل من TitleBook الى ISOName ولتعلم أخى الفاضل أنه لا يحك جلدك مثل ظفرك .. اعجبنى أنك حاولت وليس عيبا إن أخطأت فلكل منا عثراته .. واليك المرفق بعد التعديل ولكن حاول أنت أولا. غير فى شكل النموذج بما تحبه أنت وما يتلائم مع عملك تحياتى Officna - 1.accdb
    1 point
  43. انا آسف أخي حسين ، فا لاقتراح الوحيد المتبقى عندي هو ان تعمل تقرير جدولي مرة اخرى ، بحيث تستطيع ان ترى جميع الحقول فيه. جعفر
    1 point
  44. حياك الله أخوي حسين بس طلب لوسمحت تجرب وتخبرنا النتيجة: 1. مال مشاركتي الاخيرة اللي فيها Application.Echo False ، 2. وكذلك مال اخينا ابوعارف ، لأني اعرف اننا لا يمكن ان نعمل setfocus على حقل مخفي في نموذج ، فما ادري اذا ممكن نستخدم Docmd.SelectObject على تقرير مخفي جعفر
    1 point
×
×
  • اضف...

Important Information