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

وعليكم السلام 🙂 انا عانيت الكثير مع الخط Al-Mohanad Extra Bold ، واضطررت الى تركه ، وانتهت مشاكلي 😁 مع العلم بأن مشاكل الخط موجودة في برنامج الوورد اكثر منها من مشاكله في الاكسس !! المشكلة تكون لما المؤسسة التي تتعامل معاها يقولون لك انه الخط المعتمد وما نقدر نغيره (فتأخر استعمالهم لاحد التقارير المهمة لمدة حوالي 5 سنوات ، ولما جاءت ادارة جديدة على طول وبدون اي مشكلة ، استعملو خط آخر واستعملو التقرير !!) . من وجهة نظري ، عندك حلين: 1. استعمال خط آخر قريب في الشكل لهذا الخط ، والحمدلله فيه خطوط قريبه منه ، 2. تستعمل الاكسس 2007 فما فوق (صيغة accdb ، لأن صيغة mdb لا تملك هذه الميزة) ، بحيث في التقرير ، تجعل تنسيق نص الحقل : . مما يجعله يقبل التنسيق وتغيير اي جزء فيه : . . وبما ان هذا التنسيق يعمل بلغة HTML ، فممكن ان نعمله برمجيا (بما اني لا اعرف لغة HTML ، فالطريقة اللي اعملها هي: اعمل التنسيق اللي اريده كما في الصورة ، وبعدين اعرض كود HTML اللي الاكسس عمله (debug.print me.text4) ، واضبط برمجتي على اساسه 🙂 ) ، وتظهر لي هذه النتيجة: . حسب ما يراه الكمبيوتر <div align=right><font face="Calibri (Detail)">نص وارقام </font><font face="Times New Roman" size=5 color=red>123456 </font><font face="Calibri (Detail)">ثم نص وارقام</font></div> بعد ان عملت عليه التعديل ليناسب برمجتي <div align=right> <font face="Calibri (Detail)">نص وارقام </font> <font face="Times New Roman" size=5 color=red>123456 </font> <font face="Calibri (Detail)">ثم نص وارقام</font> </div> . فالمطلوب الآن عمل كود ليعرف الارقام : . اما اذا كانت الارقام باللغة العربية ، فبدل Asc يجب ان نستعمل AscW ، لأن الارقام العربية لها ارقامها الخاصة برمجيا : . جعفر

جميل ، اذن LisetViewData ليس اسم النموذج ، سوف نرسل قيمتين في المتغير OpenArgs ، يجب ان يكون الامر عندك هكذا ، نرسل اسم النموذج وقيمة حقل LisetViewData : DoCmd.OpenForm "frm_QualityEvaluation", , , , , acDialog, me.name & "|" & LisetViewData . عند اغلاق النموذج frm_QualityEvaluation ، اكتب : dim x() as string x=split(me.openargs,"|") Forms(x(0)).Visible = True او Forms(split(me.openargs,"|")(0)).Visible = True . وبالنسبة للسجل: dim x() as string x=split(me.openargs,"|") rs.Open "SELECT * FROM tbl_QualityEvaluation WHERE id_Ccallg = '" & x(1) & "' And Deletrecord =1 ORDER BY tbl_QualityEvaluation.id_Ccallg DESC;", sqldb او rs.Open "SELECT * FROM tbl_QualityEvaluation WHERE id_Ccallg = '" & split(me.openargs,"|")(1) & "' And Deletrecord =1 ORDER BY tbl_QualityEvaluation.id_Ccallg DESC;", sqldb . جعفر

سيدي الفاضل ، ما اعرف وين المشكلة ، ولكن خلينا نحاول نصيدها ، بتجزئة الكود 🙂 شو نوع الحقل id_Ccallg ، نص او رقم ؟ 1. اوقف عمل الاسطر 1 و 2 و 3 (اعمل الاشارة ' على يسار السطر ، او كلمة Rem) ، والمفروض الكود يعطيك كل النتائج حسب Deletedrecord=1 ، 2. اسمح للاسطر 1 و 3 بالعمل ، والمفروض تحصل على نفس الخطأ السابق (هنا نتعامل مع الحقل id_Ccallg كنص) 2. اوقف السطر 1 ، واجعل السطر 2 يعمل (هنا نتعامل مع الحقل id_Ccallg كرقم) Dim x() As String, myWhere As String x = Split(Me.OpenArgs, "|") myWhere = "[id_Ccallg]='" & x(1) & "'" '1 'myWhere = "[id_Ccallg]=" & CInt(x(1)) '2 myWhere = myWhere & " And" '3 myWhere = myWhere & " [Deletrecord]=1" rs.Open "SELECT * FROM tbl_QualityEvaluation WHERE myWhere ORDER BY id_Ccallg DESC;", sqldb جعفر

الشكر لله بالتوفيق ان شاء الله ولو وقفت في حاجه ان شاء الله لن نتاخر في المساعده

مو انت بس .... كلنا راجعنا المعلومات معكم فشكرا لكم جميعا ....

لي الشرف في انك تراجع معلوماتي القديمة ، واشوف انها لا تزال صحيحة 🙂

من واقع خبرتي ، كنت استعمل متغير variant ، ولكن صادقتني مشاكل فيه ، فتحولت الى نص ، والحمدلله بدون مشاكل الى اليوم 🙂 طبعا لاحقا ، يمكننا تحويل كل جزء/قيمة الى اصلها عن طريق الاوامر CInt و Cdate . هل فيه اشكال في هذا الاستعمال؟ جعفر

مما فهمت هل هذا ما تريد datex.accdb

برنامج حساب أرباب العهد بالمصالح الحكومية محدث 2022 تم تعديل البرنامج طبقا لقرار وزير المالية 610 لسنة 2021 والكتاب الدورى رقم 171 لسنة 2021 بقوم البرنامج بحساب القيمة الخاصة بأرب العهد بالمصالح الحكومية لعدد 14 موظفا بالمصلحة وكل ما عليلك سوى ادخال البيانات التالية : 1- إسم الموظف 2- الوظيفة 3- عدد شهور مدة التأمين والافتراضى انها 12 شهر سنة مالية كاملة 4- تحديد نوع الاجر سواء كان ( اجر وظيفى - اجر أساسى) 5- القيمة التقديرية لرب العهدة 6- بالضغط على زر الطباعة لطباعة نموذج ارباب العهد الملف مرفق https://docs.google.com/spreadsheets/d/1kxGqlK8rAoK6c427RZpQmsX052qJLGZx2q57z1p17WY/edit?usp=sharing حساب أرباب العهد عام 2022.xlsm

أ / محمد فتح الله عليك ..............هو ده المطلوب يا هندسة ......بارك الله فيك واشكرك على اهتمامك وتعبك ...... اشكرك بجد

أخي علي أنهيت 90% تقريبا من العمل ولله الحمد ..🙂 بقي لدي سؤال .. هل ستكون الأيام من السبت الى الجمعة؟.. أم من الأحد إلى الخميس ؟

اخي ضع الكود التالي في حدث التغير Private Sub Worksheet_Change(ByVal Target As Range) ' Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. ' Set KeyCells = Range("A1:C10") lastrow = æÑÞÉ11.Cells(Rows.Count, "b").End(xlUp).Row Set KeyCells = æÑÞÉ11.Range("b2:b" & lastrow) If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then ' Display a message when one of the designated cells has been changed. ' Place your code here. MsgBox "Cell " & Target.Address & " has changed." End If ' End Sub شاهد المرفق المصنف1.xlsm

السلام عليكم فضلا ً هل يمكن إيقاف معادلة في خلية واحدة عن العمل بإستخدام IF او طريقة أخري ولكن بشرط ان تستمر بقية الخلايا في العمل بشكل طبيعي. مثلا a1=2 b1=3 c1=a1*b1 d1 تحتوي علي TRUE او FALSE ..هل من الممكن النظر في محتوي الخلية d1 فان كانت true يتم ايقاف النتيجة علي قيمة ( 6 ) حتي لو غيرت القيم في a1 , b1 ? وعندما تكون d1 = False تعود المعادلة للتحديث بناء علي القيم الموجودة في a1 و b1 ...مع جزيل الشكر test.xlsx

تعمدت تاخير الرد الى ان يجد صاحب الموضوع الاجابة المطلوبة والحمد لله وجد ذلك مع الشكر والتقدير لك وللاستاذ جعفر على الحل الجميل ------------------------------------ في بعض البرامج الكبيرة مثل بعض برامج الموارد البشرية نحتاج الى العديد من الجداول ذات القيمة الثابتة وفي العادة هذه الجداول تحتوي على حقلين او ثلاثة حقول على سبيل المثال جدول مسميات الوظائف جدول الادارة جدول الاقسام جدول الفئة الوظيفة جدول الجنسية جدول المؤهلات جدول الوقعات جدول الراتب جدول نوع القرار جدول البدلات جدول الجنس جدول الحالة الوظيفية ... الخ قد تصل الى 30 جدول وربما اكثر من ذلك هذة الجداول تستخدم قيمتها في نماذج البرامج المختلفه بعض المبرمجين يستخدمون مربع التحرير والسرد ليقوم مدخل البيانات باختيار القيمة المطلوب من اي من هذة الجداول ولا يجد حاجة الى انشاء نماذج لهذا النوع من الجداول بل يذهب البعض ابعد من ذلك ويستخدم قائمة القيم كمصدر لمربعات التحرير لبعض هذة القوائم ولا يرون حاجة الى هذه الجداول المساندة ولكن البعض الاخر يتجنب استخدام مربعات التحرير ويفضل استخدام عدد 2 حقول نصية الاول لادخل الرمز والاخر للعرض للحصول على القيمة لكونها اسرع واكثر سهولة على مدخل البيانات والا حاجة لا ستخدام الماوس وفي هذه الطريقة لابد من وجود نماذج على سبيل المثال لو نسي مدخل البيانات رمز وظيفة فقط يضع رقم صفر في خانة الرمز فيتم فتح النموج جاهز للفلترة وهكذا لبقية هذه الحقول ولكن من غير المنطقي ان اضيف 30 نموذج وربما اكثر من ذلك هنا نستخدم نموذج واحد يتغير مصدر بياناته و مسمياته وبعض تنسيقاته وفق للقيمة المحمله مع امر الفتح وهذة القيمة يتم تحديدها وفقا للحقل الذي وضعنا فيه امر الفتح باستخدام رقم صفر بالنسبة للتطبيق العملي انا حاليا اهتم بالجانب النظري مع ذلك فالامر بسيط انظر للمثال الذي اشار اليه الاخ جعفر في مشاركتي وكذلك الكود الذي قام بكتابة ستجد الامر بسيط ولا يحتاج الا الى قليل من الجهد والتفكير . مع ذلك ربما لاحقا اضع مثال مصغر تحياتي

لا ما اشتغل ، يعطيني اخطاء !! على العموم ، ننتظر النسخة الاخيرة ونجربها ان شاء الله 🙂 جعفر

أخي الغالي محمد ، جزاك الله خيراً وبارك في علمك ووسع رزقك. الحمد لله ، ردك شافي وحل المشكلة ووفرت عليا تعب كتير. ربنا يبارك في عمرك

في أحد برامجي صممت شيء مشابه لذا الموضوع نوعا ما .. ولكنه يحتاج لشغل محترم للتنفيذ 👌🏼 سأحاول أن أمشي معك خطوة خطوة للتنفيذ ..

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

تفضل اخى الكريم ترحيل الغياب.xlsm

اشكرك جزيل الشكر اخى حسونة على تعبك ووقتك إن شاء الله جار دراسة السيلينيوم

استخدم كود استاذ موسى ..لان اعتقد اكسس 2010 لايستخدم الفاصلة المنقوطة

على راسي..بس الجدول كبير جدا ولا اعرف حيثياته او كيف ممكن ربط الجداول لكن سؤالي عن مخرجات التقرير مثلا ؟ تحتاج الى ورقة عرضها متر سارى مايممكنني عمله ان سمح وقتي ..لكن يفضل ان تطرح تساؤلاتك في المنتدى وعلى الرحب والسعة

وعليكم السلام اخي ابو هالة سؤال بريء..انت شو جابك على هيك جدول وانت من الجزائر؟☺️ على كل حال ..يوجد نقص في قوس الغلق IIf([mon]>0 And [days]>0;("الضريبة" & "=" & [text _bb] & "-" & [tax_old] & "=" & [text _bb]-[tax_old]);0) ثانيا انت محمل الجدول اكثر من طاقته في حقل محسوب وهذا مما لايفضله المبرمج..الجدول لديك فيه مشكلة ولايقبل اضافة اي حقل (لا اعلم لماذا) اقتراحي ان تعمل استعلام للحقول المحسوبة وتضيف لها الكود اعلاه انظر للمرفق بعد عمل ضغط واصلاح له لان كان حجمه كبير جدا Database4.rar

شاهد المرفق اخي مثال النسخ.xlsm الباك اب هو فلدر في نفس مسار الملف

لا لايوجد اشكال بعد ردك جربت مع OpenArgs لحقول مختلفة وبعضها null ولم اجد مشكلة اما سبب السؤال فقد اعتدت ان استخدم متغير variant اذا كانت الحقول مختلطة وايضا من تجارب سابقة حصلت على خطا في احد الاكواد عندما استخدمت متغير رقمي وكان الحقل فارغ فغيرت الى variant وعمل الكود تحياتي ايها المعلم الفاضل

الامر DoCmd.OpenForm لفتح النموذج frm_QualityEvaluation ، السؤال: ما هو الحقل LisetViewData وما قيمته ؟ سؤالك الاصل كان : لهذا السبب انا اقترحت عليك استعمال المتغير OpenArgs في امر فتح النموذج (لاحظ اننا ارسلنا اسم النموذج الذي نحن عليه الآن me.name كقيمة عن المتغير OpenArgs) : DoCmd.OpenForm "frm", , , , , , me.name وانتهى الكلام عن فتح واغلاق النموذج ---------------------------------------------------------- فتح النموذج على السجل الذي نحن عليه الآن . والجواب كان (رجاء التركيز على جملة التصفية فقط ) : docmd.OpenForm "frm",,,"[ID]='" & me.lst_1 & "'",,acDialog, me.name . ولكنك في جملة rs التالية استعملت OpenArgs بدل عن me.lst_1 rs.Open "SELECT * FROM tbl_QualityEvaluation WHERE id_Ccallg = '" & OpenArgs & "' And Deletrecord =1 ORDER BY tbl_QualityEvaluation.id_Ccallg DESC;", sqldb ======================================================= اعتقد سؤالك كان لازم يكون كالتالي: 1. frm1 و frm2 نقوم من خلالهما فتح النموذج frm ، وعند اغلاق frm اريد ارجع للنموذج الذي تم فتحة منه ، 2. عند فتح النموذج frm عندي جملة SQL لفتح سجل معين في النموذج frm ، وهذا السجل هو السجل الذي يقع عليه التركيز في مربع القائمة في النموذج frm1 او frm2 . رجاء تأكد لي ان مفهومي صحيح علشان اكتب لك الرد ، واذا كان مفهومي غير صحيح ، فرجاء تعطينا الصورة كامله عن قصدك ، لأني الى الآن ما فاهم !! جعفر

الله يطول عمرك ، انت خلطت الحابل بالنابل !! احنا استعملنا المتغير OpenArgs لإرسال اسم النموذج ، وهو يعمل بطريقة صحيحة حسب الصورة اعلاه ، ولكنك هنا تحتاج الى: فإذن استعمل الحقل ID هنا (ID هو عبارة عن حقل فيه قيمة فريدة تميز السجلات) 🙂 جعفر

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

وان شاء الله اول ما تفتح محرر الاكواد ابحث عن الاداه ستجدها كما في الصورة بنعلم علامة صح على Selenium Type Library ونضغط أوك .. وعذرا على كثره المشاركات لانى اعمل على الموبايل

الملف اللي اسمه chromedriver دا تنسخه للمسار التالي C:\Users\%username%\AppData\Local\SeleniumBasic أو لو المسار دا مش موجود هتلاقيه في مجلد Program Files .. هتلاقي مجلد باسم SeleniumBasic ... هتلصق الملف وتوافق على الاستبدال

رابط تحميل السيلينيوم https://github.com/florentbr/SeleniumBasic/releases/download/v2.0.9.0/SeleniumBasic-2.0.9.0.exe رابط تحميل الدريفر الخاص بالسلينيوم https://chromedriver.storage.googleapis.com/102.0.5005.27/chromedriver_win32.zip الكروم درايفر لابد ان يكون اصداره مثل اصدار الكروم المصطب على جهازك

تفضل اخى حسام شرح للسلينيوم باللغه العربيه الرابط

السلام عليكم مشاركه مع اخى العزيز مهندس قاسم جزاه الله كل خير لعلها تكون ما تريد Private Sub أمر13_Click() x = Me.rsdall DoCmd.GoToRecord , , acNewRec Me.rsd1 = x End Sub تقبلوا مرورى وتمنياتى لكم بالتوفيق رصيد_1.accdb

جزاك الله خيرا اخي العزيز @أبو عبدالله الحلوانى

وعليكم السلام ورحمة الله وبركاته تفضل اخى الكريم ترحيل الغياب.xlsm

وعليكم السلام 🙂 مثل ما يقول المثل: اش لك في البحر واهواله ، و رزق الله على السيف 🙂 فيه طريقة اسهل من طريقة اخوي موسى السهلة 🙂 في امر فتح النموذج ، في آخر متغير في هذا الامر ، هناك متغير اسمه OpenArgs ، استعمله في ارسال اسم النموذج الذي تريد تفتحه ، هكذا (لا تغير في السطر شيء ، إلا اذا اردت ان تضيف امر تصفية ، او ارسال معلومات اخرى في المتغير OpenArgs) : DoCmd.OpenForm "frm", , , , , , me.name . وعند اغلاق النموذج frm1 او frm2 ، اكتب : Forms(me.openargs).Visible = True جعفر

طبعا هذا مجرد فاصل (ممكن يكون علامة/علامات او رقم/ارقام او حرف/حروف) بين بيانات الحقول ، وممكن استعمال اي فاصل ولكن بشرط هذا الفاصل لا يكون في بيانات الحقول ، لأن هذه الحقول يتم تجميعها كجمله واحدة ، مثلا: اذا كانت بيانات : الحقل1: /ذهبت الى السوق، ومنها الى المتجر./ الحقل 2: /قيمة المادة: 75/ الحقل 3: /الاحد - 22/05/2022 // 11:32ص/ فإذا جمعنا الحقول الثلاث اعلاه ، فتكون الجملة: /ذهبت الى السوق، ومنها الى المتجر.//قيمة المادة: 75//الاحد - 22/05/2022 // 11:32ص/ فيجب ان نختار فاصل غير موجود في هذه الجملة (او اي جمل في المستقبل) ، فبإختيار مبرمج سابق العلامة | تصبح الجملة اعلاه: /ذهبت الى السوق، ومنها الى المتجر./|/قيمة المادة: 75/|/الاحد - 22/05/2022 // 11:32ص/ ونلاحظ من السهل فصل الجملة الى 3 جُمل 🙂 نعم ممكن استعمال اي فاصل آخر (نلاحظ بأن العلامات التالية موجودة في الحقول الثلاث اعلاه هي: ، . : - / _ فلا يمكن استعمالها) ، فممكن نستعمل (لاحظ اني استعملت عدد كبير من الارقام او الاشارات ، فأكون متأكد انه من المستحيل ان يكون هذا الفاصل جزء من بيانات الحقول) : 11111 فتصبح الجملة: /ذهبت الى السوق، ومنها الى المتجر./11111/قيمة المادة: 75/11111/الاحد - 22/05/2022 // 11:32ص/ جججججج فتصبح الجملة: /ذهبت الى السوق، ومنها الى المتجر./جججججج/قيمة المادة: 75/جججججج/الاحد - 22/05/2022 // 11:32ص/ /\/\ فتصبح الجملة: /ذهبت الى السوق، ومنها الى المتجر.//\/\/قيمة المادة: 75//\/\/الاحد - 22/05/2022 // 11:32ص/ ******** فتصبح الجملة: /ذهبت الى السوق، ومنها الى المتجر./********/قيمة المادة: 75/********/الاحد - 22/05/2022 // 11:32ص/ ولكن حذار من استخدام // كفاصل ، وإلا ستكون الجملة اعلاه من 4 حقول وليس من 3 !! امثله اخرى من الفواصل اعلاه وانها تعمل بطريقة صحيحة ، وسأترك لكم طريقة تفكيك الحقول الثلاث : 11111 : عدد الطلبة 11111111معدل الدرجات1111111وهذه نسبة ضئيلة جججججج : تأجججججججججمال القمرججججججيوم اصبح بدرا شكرا اخوي ابو عبدالله ، واخوي مبرمج سابق ، خليتونا نعصر افكارنا 🙂 جعفر

وعليكم السلام -نعم يمكن ذلك بهذا الكود Sub Splitbook() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub أو كان عليك من البداية استخدام خاصية البحث بالمنتدى قبل طرح مشاركتك فبها طلبك كيفية فصل الشيتات الموجودة داخل الملف إلى ملفات منفصلة الملف به اربع صفحات.xlsm

اتفضل احد هذه الموضوعات وبالبحث ستجد اكثر

السلام عليكم ورحمة الله وبركاته،،،، بداية تأكد من التباعد والموضع بين الأحرف طبيعي (عادي)، وذلك بالضغط على Ctrl+d ستظهر قائمة خاصة بالخط، اختار تبويب "خيارات متقدمة" ستجد تباعد وموضع اختار "عادي". أرجو إعلامي لطفاً بالنتيجة، لتوجيهك لحل ثاني في حالة عدم نجاح المحاولة الأولى دمتم بخير

لاحظ الفيديو اوتستخدم الخط Simplified Arabic Fixed

غير في نمط الخط الى نمط وورد 2007 والسلام

ممكن أستاذ محمد تستخدم هذا الكود بعمل ذر له فى الصفحة التى تريدها وتحدد رقم الصفوف التر تريد اخفائها كود لإخفاء الصفوف واظهارها.xls

أخي الحبيب جرب التالي اذهب إلى محرر الفيجوال بيسك ثم من قائمة Tools اختر Reference ثم ابحث عن كلمة Missing وأزل علامة الصح التي بجانبها