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

السلام عليكم 🙂 اخي الفاضل ، قاعدة بيانات الاكسس لن تعمل على كمبيوتر لا يوجد به: 1. برنامج الاكسس كاملا ، سواء الاكسس بمفردة او كجزء من حزمة الاوفيس ، او 2. الاكسس المجاني والذي يعمل بطريقة RunTime ، والذي فقط يشغل قواعد بيانات الاكسس ولا تستطيع عمل برامج به ، وهذا رابط اكسس 2016 RunTime فعليه ، تغيير صيغة برنامج الاكسس من accdb او accde الى ملف تنفيذي بصيغة exe لن يعمل في كمبيوتر لا يوجد به احد الاختيارين اعلاه ، فما الفائدة منه اذن !! جعفر

النسبة عبارة عن رقم ضرب 100 : 1 = 1 * 100 = 100% 0.75 = 0.75 * 100 = %75 0.5 = 0.5 * 100 = %50 0.1= 0.1 * 100 = %10 فأرقام النسبة ستكون من الرقم صفر الى الرقم 1 (لهذا السبب اقترحت عليك حقل Double ، لأنه يقبل الارقام قبل الفاصلة العشرية 🙂 ) ، وهكذا تقدر تفرق بين ارقامك 🙂 ولا تحتاج الى حقل المؤشر 🙂 جعفر

السلام عليكم اخي احمد 🙂 الموقع بإسم مايكروسوفت ، مثله مثل الكثير من المواقع ، ولكن لا علاقة لمايكروسوفت رسميا بإجاباته ، فالخبراء والشركات التي تتعامل معها مايكروسوف ، هم من يقوم بالرد ، وقد يكون احد موظفي مايكروسوفت 🙂 انظر في الرابط : https://answers.microsoft.com/ar-sa/page/faq#faqWhosWho1 ، ثم انظر في "السير الذاتية في المجتمع" 🙂 جعفر

وعليكم السلام 🙂 استخدم حقل رقم ، Double 🙂 جعفر

تفضل جرب المرفق طباعة الشهادات1.xlsm

وعليكم السلام ورحمة الله وبركاته اجعل نوع الحقل نص بالجدول ثم املأه بأي شىء ارقام او نسبة مائوية لن يضرك من ذالك شىء وان كان الأمر متعلق بعمليات حسابية فدوال تحويل الأنواع مثل (Cint - Cbyte- Cduble) ستحل لك الاشكال ان شاء الله ربما أخطأت في كتابة بعض اسماء الدوال لأني بعيد عن الأكسس الآن تأكد من مسميات هذه الداول مرة أخري وجزاكم الله عنا خيرا

AutoFilter with 34 Dynamic Filter Criteria اتوفلتر ب 34 دينامك شرط كما لم تراه من قبل !!!_XlDynamicFilterCriteria.xlsb

اتفضل اخى @alsihran كما اشار لك اخى ومعلمنا وشيخنا الجليل @ابوخليل جزاه الله عنا كل خير 🌹 ان شاء الله يكون كما تريد Private Sub btn1_Click() Me.ListData.RowSource = "SELECT tbl_Employ.id, tbl_Employ.Name, format(tbl_Employ.Startdate,'yyyy/mm/dd'), format(tbl_Employ.EndDate,'yyyy/mm/dd') FROM tbl_Employ;" End Sub بالتوفيق FormatListBox.accdb

اخي شاهد المرفق حدد المدي الذي تريد تصويرة ثم اضغط الزر ستجد الصورة علي الديسك توب Rng_To_Jpeg_1.xlsm

معلش اسمح لي ما دام لا تسبب مشكلة لك فالموضوع بسيط ومن وجهة نظري المتواضعة الشكل افضل بدون حدود كما في اوفيس ٢٠١٣ فما فوق او في ويندوز اعلي من ٧ تحياتي 🌹

جرب هذا التعديل 5-5.mdb ايضا هذا حل اخر 5-5.mdb

تفضل 46.xlsx

تفضل اخي الكريم ووفقنا الله واياكم لما يحب ويرضى والكود المستخدم Sub Red_Letter() Dim a As Long, b As Long, c As Long, r As Range For Each r In Range("D2", Cells(Rows.Count, "D").End(xlUp)) For b = 1 To Len(r) If r.Characters(b, 1).Font.Color = vbRed Then a = InStrRev(r, " ", b) + 1 c = InStr(b + 1, r, " ") If c = 0 Then c = Len(r) + 1 r.Offset(, 1).Value = Mid(r, a, c - a) r.Offset(, 1).Replace ",", "" End If Next b Next r End Sub لم يتم اضافة الكود لكي لا يتم تغيير امتداد الملف لديك ولو حبيت تشتغل بيه مرة اخرى متنساش تفك دمج الخانات اولا ......وده ملف اخر به مثال للاستفادة يتضمن الكود استخراج الكلمة من النص.xlsx مثال _استخراج الكلمة من النص.xlsm

In standard module Dim timerActive As Boolean Public Sub Start_Timer() timerActive = True Application.OnTime Now() + TimeValue("00:00:01"), "Timer" End Sub Public Sub Stop_Timer() timerActive = False End Sub Public Sub Timer() If timerActive Then UserForm1.Label1.Caption = Time Application.OnTime Now() + TimeValue("00:00:01"), "Timer" End If End Sub then in userform module Private Sub UserForm_Activate() Call Start_Timer End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Call Stop_Timer End Sub

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

خطرت في بالي فكرة Dim myPercent As String If Left([IndicatorType], 4) = "نسبة" Then myPercent = Format(Me.AnnualTargetY1 / 100, "Percent") Me.AnnualTargetY1 = myPercent End If

السلام عليكم ورحمة الله وبركاته مرفق لكم ملف لدوامات الموظفين اريد ان استخرج الايام المفقودة لكل موظف شكرا att test.xlsb

طيب بما ان قد تم الاجابه والحمد لله ع هذا الموضوع وحتى لا نخالف قواعد الموقع بما انه ده سؤال تانى وبما اننا نتعلم فلا اريدك ان تغش بل تتعلم وتعتمد ع نفسك قم برسم النموذج الذى تريده ع ورقه ماذا تريد فيه من حقول ومن اين تاتى وماذا تريد منه ثم قم بتصميمه ثم قم بعدها بتكويد كود التحديث واستخدم استعلام التحديث وضع الشروط فى الاستعلام هتحدث سجل مين ومن فورم ايه جرب على المثال الاخير الذى وقفنا عنده 👇 ثم بعدها انتقل للتنفيذ على برنامج فى نسخه منه الى ان تستقر انقله لبرنامجك الاساسى وان وقفت حينها فى شىء افتح موضوع جديد كما اتفقنا لان ده سؤال تانى خالص واشرح ما تريد وما تم عمله وما تريد الوصول اليه حتى تتم مساعدتك فيما وقفت عنده من قبل اخوانك واساتذتنا جزاهم الله عنا كل خير تقبل تحياتى وبالتوفيق

على فكرة بجاوب على قد معرفتى 😇

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

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

ولا يهمك اخى @abouelhassan يجب اضافه خانه الشيك بوكس chek للنموذج Financial_Records1 تم اضافته وعندك تاريخين لشهر 5 وشهر 6 لسنه 2022 دول المسموح بالتعديل فيهم بالتوفيق TestLOck.accdb

نعم يمكنك ذلك

جزاكم الله خيرا وبارك ربي في أوقاتكم وعلمكم ونفع بكم وجعل جهودكم خالصة لوجهه عز وجل وأسال الله لنا ولكم التوفيق والسداد

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير اخى @abouelhassan هل كده تمام وتمت الاجابه ؟

السلام عليكم الصور هي في المشاركة الاولى وشكرا لكم

بعد إذن الأستاذ محمد يوسف ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & [d5], Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False d5 الخلية الموجود بها أسم العميل اقتراح للاستاذ سيد يمكن في الخلية H7 وضع رقم للفاتورة ويتم حفظ الفاتورة باسم الشخص والرقم والله الموفق

واياك .... الله يسلمك استاذي الفاضل ... المنتدى منور بوجودكم والاعضاء الكرام

وعليكم السلام تفضل ... وهذا فيديو أيضاً للتوضيح projet2.xlsx

جزاك الله خيرا اخى ابوالبشر ومنور حمدالله ع السلامه 💐

مشكور استاذ : محمد احمد لطفى على المعلومة القيمة : بارك الله فيك تابعت المثال وهو حل جيد التحويل من : DD/MM/YYYY الى YYYY/MM/DD حتى يصبح التاريخ مقروء بالعربي

تستطيع تنفيذ ما تريد بواسطة الكود لو تكرمت بوضع نموذج سيتم التنفيذ عليه ان شاء الله y = Format$("\#mm\/dd\/yyyy\#")

افتح على وضع التصميم اخى وضع التنسيق التالى DD/MM/YYYY بالتوفيق ان شاء الله

من تنسيق الخلية فى الجدول اجعله d/m/yyyy or dd/mm/yyyy حسب ما تريد 🚋 test.mdb

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

عليكم السلام Dim i As Byte i = Day(Date) If i = 1 Or i = 2 Or i = 3 Or i = 4 Then MsgBox "ضع ما تريد توضيحه هنا" End If Day(Date) يرجع رقم اليوم من التاريخ الافتراضي يمكنك استبدال Date باسم حقل التاريخ عندك واضبط الحدث عند تحميل النموذج مثلا او اي حدث تراه مناسبا

شاهدي المرفق Tq.xlsm

السلام عليكم معني Range("e5").Select يعني.. بقول له بعد تنفيذ الكود خلي المؤشر واقف في خلية e5

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

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

ليس هناك علاقة بين الوارد والمنصرف حسب تعلق الامر بموضوع خزينة المدرسة فالوارد له جهاته ..والمصروف له جهاته المختلفة وان كان سؤالك حول استخراج قيمة الخزينة الحالية بعد طرح مجموع الوارد من مجموع المصروف فلنفرض لديك جدول وارد وجدول منصرف ..يمكنك استخراج الميزانية عبر كود الاستعلام التالي SELECT Sum([جدول الوارد].الوارد) AS [مجموع الوارد], Sum([جدول المنصرف].المنصرف) AS [مجموع المنصرف], Sum([جدول الوارد]!الوارد-[جدول المنصرف]!المنصرف) AS Balance FROM [جدول الوارد], [جدول المنصرف]; طبعا لا ارغب بان تكون المسميات باللغة العربية ...لكن للتوضيح

حضرتك ممكن تعمل جدول واحد للاتنين ويكون فيه عمود يفرق بين الدخل و المصروف

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة بالتنسيق الشرطى =C$2=$G3 تنسيق 1شرطي.xlsx

Sub Test() Dim r As Long, m As Long Application.ScreenUpdating = False r = 1: m = 7 Do Cells(m, 4).Resize(, 6).Value = Application.Transpose(Cells(r, 1).Resize(6).Value) m = m + 1: r = r + 6 Loop Until r >= Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = True End Sub

شكرا على محاولاتك ، وصبرك جعفر

حياك الله والفضل يعود للأستاذ رمهان جعفر

في نفس الحدث ، وبدل السطرين ، جرب السطر التالي: msgbox Me.ID_Tarif.Column(1) واخبرنا النتيجة بالصورة لوسمحت جعفر

السلام عليكم غيّر الكود: بدل Me![Désignation] = Me![ID_Tarif].Column Me![Prix_unitaire] = Me![ID_Tarif].Column الى Me![Désignation] = Me![ID_Tarif].Column(1) Me![Prix_unitaire] = Me![ID_Tarif].Column(2) جعفر

السلام عليكم أخي المشكلة عندك ليست في الكود ، وانما في اعدادات الوندوز !! اعد تضبيط اعدادات الوندوز الى تلك التي كانت لما عملت البرنامج ، في اعتقادي اللغة الفرنسية: جعفر