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

بسم الله الرحمن الرحيم كما تعودنا واستكمالا لشروحات الفورم التفاعلي باضافات بعض الحيل والافكار للوصول لشكل يسهل للمستخدم التعامل مع اليوزفورم النهاردة هانتعلم الذاي نعمل قائمة منسدلة لجميع تبويات الفورم من خلال بعض الاعدات في شيت منفصل بعيدا عن تعقيدات الاكواد وتكرارها باستخدام Class Modules كود واحد ومختصر وقائمة واحدة تتغير حسب التبويب كنت وعد احد الاخوة في موضوع الدرس الأول للفورم التفاعلي الاخ اسامة فوزي واحتياجه لفورم متعدد المهام والوظائف ليطور عمله ففضلت ان تكون الاجابة عامة حتى يستفيد منها الجميع وادعوا الله ان اكون عند حسن ظنه وظنكم في. أطروحتنا النهاردة بسيطة وشيقة اشبه بمغامرة انك تعبر عن قدرتك وتعاملك في التصميم والكود كانك رسام يرسم لوحة وبربط بين تفاصيلها لتعبر عن رؤية بصرية محددة في مخيلة من قام بالرسم وحياكة التفاصيل حياكة متناسقة لتصل الي المتلقي بسهولة ويستطيع ان يتعامل معها ويمكنك تغيير المسميات للقوائم المنسدلة او الرئيسية من خلال شيت الاعدادات بكل سهولة وتضيف كما تشاء من تبويات بكل سهولة اسيبكم مع الملف واي شيء يحتاج لشرح او توضيح لا تتردوا في طلبه والله ولي التوفيق Create Dynamic Drop-Down Menu In Excel Userform الملف بالمرفقات مفتوح المصدر Create Dynamic Drop-Down Menu In Excel Userform Officana.xlsm

السلام عليكم تم عمل المطلوب في الملف المرفق... asb2.xlsm

Right(a, Len(a) - InStrRev(a, "\")) تحديد اسم المرفق.rar

مرحبا نعم كان هناك خطأ في معادلات هذا العمود حيث كان النطاق يتوقف عند الصف رقم 1031 وقد تم تمديد النطاق إلى الصف رقم 1127 مثل ما هو موجود في الأعمدة الأخرى... New Evaluation01.xlsx

اخي محمد شكرا ممكن نموذج علشان افهم

لا يمكن لان التاريخ يشترك فيه اكثر من واحد يوجد حل وهو ان نمنع التكرار بشرط : الكود + التاريخ اسهل طريقة وهي مضمونة 100% هو ان تجعل الحقلين يشتركان في مفتاح الجدول اليك التعديل copy table2.accdb

السلام عليكم معذرة أخي ولكن ليس لي كثيرا في الأكواد... اصبر لعلك تجد من المنتدى من يلبي طلبك بالأكواد...

لم افهم قصدك ولكن هذه الطريقة اسرع وافضل تفضل DoCmd.RunSQL "INSERT INTO Table1 ( coud, nam, periode ) SELECT Table2.coud, Table2.nam, Table2.periode FROM Table2" يجب ان تحتاط لعملية التكرار لأن كل ضغطة زر سوف يعيد الالحاق مرة اخرى يجب ان يكون ضمن الجدول حقل فريد لا يمكن تكراره ينبني عليه عمل شرط copy table (1).accdb

عليكم السلام استخدم استعلام الحاق وخذ احتياطك في مسألة تكرر البيانات

شوف الموضوع هذا تجد فيه حاجتك ، سواء تريد المجلد الاول او الثاني ...

هذا مثال بسيط لما تريده job_hala.accdb

جزاك الله خيرا

وعليكم السلام ورحمة الله وبركاتة بعض الاحيان لاتحتاج عمل علاقة بين الجداول يجب اولا تحديد نوع البيانات المراد عمل علاقة بينهم ثم نفوم بانشاء العلاقات اما بخصوص سؤالك لماذا لم تظهر البيانات في الاستعلام ببساطة لانة لايوجد حقول مشتركة بين الجدولين لاحظ يعد اضافة اسم علي الى الجدول 2 ظهرت بيانات في الاستعلام كما في هذا المثال New Microsoft Access قاعدة بيانات.accdb اما اا اردت دمج جدولين من تصميم في الاستعلام اختر استعلام دمج كما في هذا المثال New Microsoft Access قاعدة بيانات.accdb

if isnull(tnv) or tnv = "" then exit sub end if

او mid(a, InStrRev(a, "\") +1)

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

أحييك أستاذ حمدي على الإنجاز الرائع .. وجهودك المضنية وصبرك للحصول على النتيجة النهائية 😉🌹 وهدية مقبولة منك 🙂 جزاك الله خيرا 🌹

وعليكم السلام 🙂 يحتاج نعطيك وسام "الصبر والمثابرة" على جهدك لإنجاز مطلبك 🙂 وشكرا على الاطراء 🙂 جعفر

الدرس الاول في UserForm عناصر الدرس 1- اضافة التبويبات الرئيسية للفورم 2- اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module اولا : اضافة التبويبات الرئيسية 1- نقوم باضة userForm ثم نضيف اطار Frame ونضيف داخله عدد 5 Lebel بالنسبة لعنوان اكتب ما تشاء عربي انجليزي لكن المهم Label Name ( Btn1-Btn2-Btn3-Btn4) ا BackStyle =0 BorderStyle=0 واليبل الخامس لتغير خلفية النص Name=AnlBtn BackColor=&H8000000E& ثم نضيف ليبل خاص بالعنوان نسميه PageNo ثم نضيف MultiPage ونضيف في ال Page1 ثانيا ربط التبويبات بالفورم نضيف Class Module نكتب داخله الكود التالي Public WithEvents LblBtn As MSForms.Label Private Sub LblBtn_Click() ' للحركة بين التبويبات UserForm1.AniBtn.Left = LblBtn.Left 'ربط صفحات المالتي بيج مع التبويبات UserForm1.MultiPage1.Value = Right(LblBtn.Name, 1) - 1 'شريط العنوان UserForm1.PageNo.Caption = "Page No " & UserForm1.MultiPage1.Value + 1 & " ( " & LblBtn.Caption & " )" End Sub وفي الفورم Dim LblEvent(3) As New Class1 Private Sub UserForm_Initialize() With Me.MultiPage1 'لتغير استايل المالتي بيج .Style = fmTabStyleNone: .Value = 0 End With 'عدد التبويبات 4 من صفر الي 3 For AddEvent = 0 To 3 Set LblEvent(AddEvent).LblBtn = Me("Btn" & AddEvent + 1) Next AddEvent End Sub الملف بالمرفقات ياريت ننفذ الخطوات ولو اي استفسار ماتترد اتمني من الله اكون بسط الشرح ويكون فيه الاستفادة مع تحياتي MultiPage Officana.xlsm

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

شكرا استاذي الفاضل علي الهدية القيمة

هكذا =IIf(Len([a7] & "")=0;0;1) + IIf(Len([a8] & "")=0;0;1) + IIf(Len([a9] & "")=0;0;1) + IIf(Len([a10] & "")=0;0;1)

تم الرد علي استفسارك علي الرابط https://www.officena.net/ib/topic/118185-create-dynamic-drop-down-menu-in-excel-userform/

ياريت لو تشوفوا هذه المشاركات حتى اثبت كلامي : . http://arabteam2000-forum.com/index.php?/topic/291451-ربط-النماذج-الفرعيه/&do=findComment&comment=1393167 . .

وعليكم السلام ورحمة الله تعالى وبركاته اليك حل اخر =IF(A5<>"";DATE(YEAR(A5);MONTH(A5);DAY(A5)+1);"") '''''''''''''''''''''''''''''''''' =IF(A5<>"";DATE(YEAR(A5)+1;MONTH(A5);DAY(A5)-1);"") تاريخ.xlsx

مرحبا جرب الملف المرفق لعل فيه ما تريد... بالنسبة لعمود Notes في ورقة TOTAL يجب أن يكون فيه جدول لتوزيع الملاحظات حسب المعدل Average ضمن مجالات تحددها... New Evaluation01.xlsx

تفضل ضع هذه المعادلة في خليه السابعة =IF(A5>0;A5+1;"") ضع هذه المعادلة في خليه الثامنه =IF(A5>0;A5+365-1;"")

طبعا الفاصلة المنقوطة تحولت عندي الى فاصلة عادية عندما غيرت اعدادات اللغة للحاسوب الى الانكليزي قبل يومين .. قبلها لم اكن منتبه لهذه الجزئية

وعليكم السلام 🙂 Gggg.rar

يمكنك مراحعة البريد المسجل فى لوحة التحكم و تغييره ان شئت

شكرا جزيلا اخوي قاسم ، هو كما قلت انت ، مع تغيير اسماء الحقول ، وتغيير الفاصلة الى فاصلة منقوطة 🙂

شكرا شكرا ما شاء الله حل نموذجى من رجل خبير الله يرضى عنكم وعن والديكم

بالاضافة لماتفضل به الاساتذة..تستطيع استخدام جملة السكوال في الاستعلام SELECT Count(Table1.case) AS CountOfcase FROM Table1 HAVING ((((Table1.case))="يعمل"));

استخدم كود استاذ جعفر هكذا =IIf(Len([N1] & "")=0,0,1)+IIf(Len([N2] & "")=0,0,1)+IIf(Len([N3] & "")=0,0,1)+IIf(Len([N4] & "")=0,0,1)

رجاء اعمل نسخ من الكود الذي وضعته في الحقل ، ضعه هنا ، حتى نرى المشكلة !! جعفر

السلام عليكم اخي العزيز استخدم دالة DCOUNT سواء من الاستعلام او من النموذج بشرط يعمل مثال =DCount("[الحالة]";"TABLE";"[الحالة]='يعمل'") تحياتي

في المعادلة بدل الفاصلة , استخدم فاصلة منقطة ;

Peace be upon you. You have to be more organized and specific in your explanation to the problem Create a new workbook with `xlsm` extension in the same path of your files and name it `MAIN.xlsm`, then open the workbook Press Alt + F11 to login VBE then insert a new module, put the following code Sub Get_Data_From_Closed_Workbooks() Dim a, wb As Workbook, ws As Worksheet, sFile As String, sPath As String, lr As Long, m As Long Application.ScreenUpdating = False sPath = ThisWorkbook.Path & "\" sFile = Dir(sPath & "*.xlsx") m = 2 With shSales.Range("B1").CurrentRegion.Offset(1) .ClearContents: .Borders.Value = 0 End With Do While sFile <> "" Set wb = Workbooks.Open(sPath & sFile, ReadOnly:=True) Set ws = wb.Sheets(2) With ws lr = .Cells(Rows.Count, "E").End(xlUp).Row a = .Range("B2:H" & lr).Value .Parent.Close False End With shSales.Range("B" & m).Resize(UBound(a, 1), UBound(a, 2)).Value = a m = m + UBound(a, 1) sFile = Dir() Loop With shSales.Range("B2:H" & m - 1) .Borders.Value = 1 End With With shSales.Range("D2:D" & m - 1) .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" .Value = .Value End With Application.ScreenUpdating = True MsgBox "Done", 64 End Sub I will attach the file just for you. Click on the icon in the quick access bar MAIN.xlsm

السلام عليكم 🙂 طبعا المرفق يسهل عملنا ، ولكن نقدر نساعد بدونه ايضا ان شاء الله 🙂 خلينا نفترض اسماء الحقول: N1 = نوع المعاملة 1 N2 = نوع المعاملة 2 N3 = نوع المعاملة3 N4 = نوع المعاملة 4 وحقل المجموع هو T ، في مصدر بيانات الحقل T ، ضع هذه المعادلة : = iif(len(me.N1 & "")=0,0,1) + iif(len(me.N2 & "")=0,0,1) + iif(len(me.N3 & "")=0,0,1) + iif(len(me.N4 & "")=0,0,1) جعفر

!! لم تحدد اذا الحقول او حقل لتحدد عدد المعاملة !!ه احاول المساعدة :استعمل الشرط عند الضغط او بعد التحديث اذا كان لكل معاملة حقل للحقل = مرفق اسم المعاملة* if isnull me.حقل المعاملة then exit sub else نفذ end if :للحقل بعدد* او اذا كان حقل بالقيمة if me.حقل القيمة .value = 1 then end if if me.حقل القيمة .value = 2 then end if ارفق مرفق في فورم واحد وليس المشروع

استاذ كريم نظيم شكرا لحضرتك للاهتمام ومحاولة المساعدة ولكن للاسف انا مافهمتش انا ممكن اطبق الطريقة دى ازاى وده طبعا بسبب فهمى القاصر وقلة علمى ولو امكن من حضرتك تطبيقها على المثال المرفق علشان تساعدنى على الفهم واخيرا تحياتى واحترامى لحضرتك وشكرا للمساعدة

وعليكم السلام ورحمه الله وبركاته 1- قم بتحميل برنامج Selenium من الرابط او من ميديا فاير ثم قم بتسطيبه كأي برنامج 2- تفتح الكروم علي هذه الصفحه chrome://settings/help لنعرف ما هو اصدار الكروم ولنفرض اننا وجدناه كما لدي Version 109.0.5414.120 (Official Build) (64-bit) نأخذ الرقم 109.0.5414.120 ثم نبحث في الصفحه علي هذا الرقم او ما يقرب له ثم نفتح الصفحه لدي كان اقرب رقم له هو https://chromedriver.storage.googleapis.com/index.html?path=109.0.5414.25/ ثم نقوم بتحميل الملف المسمي chromedriver_win32.zip بعد التحميل تقوم بفك الضغط عنه باي برنامج ضغط ثم تقوم بنسخه للمسار التالي %LOCALAPPDATA%\SeleniumBasic\ لو المسار دا مش موجود هتلاقيه في مجلد %ProgramFiles%\SeleniumBasic\ لو المسار دا مش موجود هتلاقيه في مجلد %ProgramFiles(x86)%\SeleniumBasic\ وتوافق على الاستبدال بندخل على محرر الأكواد عن طريق Alt + F11 .. من القائمة Tools نضغط على References ونضيف المكتبة الخاصة بالأداة Selenium بنعلم علامة صح على Selenium Type Library ونضغط أوك كما بالشكل التالي ثم ضع هذا الكود في ملفك في الفورم المسماه UserForm1 Private Sub CommandButton14_Click() Dim bot As New WebDriver, Keys As New Selenium.Keys Dim i As Long, WS As Worksheet Set WS = ThisWorkbook.Sheets("البيانات") With bot .AddArgument "kiosk-printing" .Start "chrome", "https://apps.moe.gov.jo/App/Clearance/" For i = 2 To WS.Cells(Rows.Count, "C").End(xlUp).row .Get "/" .Wait 1000 .FindElementById("txtNumber").SendKeys WS.Cells(i, "C") .FindElementById("btnSearch").Click .Wait 1000 .ExecuteScript "window.print()" Next i End With End Sub

السلام عليكم اساتذتى وزملائى الكرام مرفق الى حضرتكم برنامج لادارة الموارد البشرية للاسف انا لا اجيد كتابة المواضيع (سامحوني على هذا) لكن احب اولا ان اشكر كل من قدم لى المساعدة والنصح والارشاد حتى يخرج البرنامج بهذا الشكل خاصة استاذى الجليل @jjafferr وايضا @ابو جودي وايضا @Eng.Qassim @Moosak @ابوخليل والكثير من الاستاذة الاجلاء حفظهم الله لا استطيع ان اتذكرهم الان سائل المولى عز وجل ان يزيدهم من علمهم ويبارك فى صحتهم هم وزويهم واصحابهم وجميع المسلمين ناتي للبرنامج البرنامج فيه الكثير من الامور التى يصعب علي تسجيلها كلها هنا مثل نظام صلاحية المستخدمين (هو موجود لكن هناك الكثير من النماذج لم اقم باضافتها لاني انا المستخدم الوحيد للبرنامج فتكاسلت عن ظبطها لجميع النماذج) ايضا 1- تسجيل بيانات الموظفين (بيانات كاملة وشامله لاغلب ما يمكن ان يتطلب* 2-نظام الحضور والانصراف للموظفين وترحيلها 3-نظام تحضير وتجهيز الرواتب 4- طباعة ورقة الحضور للموظفين اليومي ....... الكثير الكثير من الاستعلامات الخاصه مثل الاستعلام عن حضور وانصراف و اضافى الموظفين و البحث عن الموظفين والتسجيل لهم غياب مرضى او اجازة عمرة او حج ..... الخ سوف اضع بعض الصور للبرنامج وقوائهم قائمة التكوين والاعدادات قائمة الاجراءات قائمة الاستعلامات هذا كل ما يمكن ان اذكره والباقى على المحتاجين للبرنامج استكشاف البرنامج والادوات الموجودة فيه ملاحظه : قمت بازالة لوجو الشركة عندي كل ما عليك وضع شعار الشركة او المؤسسة عندك فى التقارير ايضا (اكيد هيكون هناك بعض الاخطأ فى البرنامج لم اقم باصلاحها لانى توقفت عن استخدام البرنامج من فتره طوووويله ^_^ بسبب وجود جهاز للبصمه وتم الاستغناء عن نظام الحضور والانصراف فى البرنامج لكن باقى الامور ان شاء الله تعمل جيدا واذا كان هناك اى اصلاحات مطلوبه واستطيع ان اصلحها انا فى الخدمه واذا لم يكن فى امكاني فسوف اطلب المساعدة من اساتذتى الكرام حفظهم الله) كل ما احتاجه منكم دعوة لى فى ظهر الغيب ولاهلى وان تدعو لامي ان يغفر لها ويرحمها 😢 ولكم جزيل الشكر والعرفان . HR-OmarDahy.rar Key.rar

تفضل هذا طلبك أخي @naguib_3778 🙂 Private Sub Command1_Click() Dim s As String s = InputBox("أدخل الرقم السري", "", "123") If s = 123 Then '--------------------------------(إخفاء الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarNo ' Hide Navigation Pane: DoCmd.NavigateTo ("acnavigationcategoryobjecttype") DoCmd.RunCommand (acCmdWindowHide) End If End Sub Private Sub Command0_Click() Dim s As String s = InputBox("أدخل الرقم السري", "", "123") If s = 123 Then '--------------------------------(إضهار الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarYes Call DoCmd.SelectObject(acTable, , True) 'Unhide the navigation pane End If End Sub Hide Navigation Pane.accdb