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

السلام عليكم 🙂 اخي الفاضل ، قاعدة بيانات الاكسس لن تعمل على كمبيوتر لا يوجد به: 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 هل كده تمام وتمت الاجابه ؟

عفوا المهندس قاسم ، الظاهر انه صار التباس في فهم كلامي !! انا لم اقل انه لن يكون هناك اطار ، وليس هذا طلب اخونا احمد صاحب السؤال ، وانما الطلب كان: ان تظهر نماذجه بنفس الشكل في جميع اصدارات الوندوز 🙂 فأذا ممكن ان تجربه بهذه الطريقة 🙂 وللعلم ، فالاكسس لن يطبق نسق الوندوز غلا على برنامج انت عملته : جعفر

وعليكم السلام 🙂 الاكسس يأخذ اعدادات "نسق الوندوز" Windows theme ، ليعطي برنامج الاكسس نفس شكل الوندوز من ناحية البراويز والاطارات ووو مثلا ، هذا الشكل يعطيه للوندوز فستا و وندوز 7 . وطبيعي ان يتغير مع الاصدارات الاخرى للوندوز ، بينما نستطيع ان نطلب من الاكسس ان يوقف التعامل مع نسق الوندوز ، فيعطينا هذا الشكل ، والذي به لن يتغير بتغيير الوندوز : . هذا الاعداد المؤشر عليه بعلامة الصح داخل المربع الاحمر في الصورة ادناه (لاحظ انه يخص قاعدة البيانات هذه فقط) : . احذف علامة الصح ، ثم شغل برنامجك على كمبيوترات تحمل وندوز مختلف 🙂 ولكن حذار ، فانت ستغير كل اشكال الكائنات في برنامجك ، فرجاء تجربة جميع نماذجك والتقارير قبل ان تعطي البرنامج للزبون 🙂 جعفر

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

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

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

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

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

الصور

تستطيع تنفيذ ما تريد بواسطة الكود لو تكرمت بوضع نموذج سيتم التنفيذ عليه ان شاء الله y = Format$("\#mm\/dd\/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 باسم حقل التاريخ عندك واضبط الحدث عند تحميل النموذج مثلا او اي حدث تراه مناسبا

اتفضل اخى الفاضل ابو الحسن بالنسبه للتعديلات تم اضافه حقل chek فى الجدول tblData وقيمته الافتراضيه نعم تم اضافه استعلام qryDcount وده علشان احسب عدد السجلات التى قيمتها نعم قبل يوم 1 فالشهر الحالى لتحويلها الى لا يوم 10 فالشهر ومدخلش فالاجراء الخاص بالتحديث كل ما افتح الفورم تم تعديل الكود Private Sub Form_Current() Dim z As String, d As Integer z = DateSerial(Year(Date), Month(Date), 10) 'day 10 TempVars.Add "MonthNow", DateSerial(Year(Date), Month(Date), 1) d = DCount("*", "qryDcount") If Date >= z And d > 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tblData SET tblData.chek = False " & _ "WHERE (((tblData.Registration_Date)<[TempVars]![MonthNow]));" DoCmd.SetWarnings True End If If Me.chek = True Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True Else Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False End If End Sub ده باختصار واليك المرفق بعد التعديلات بالتوفيق Date_2_trueOrfalse.accdb

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

وعليكم السلام اخى احمد اعتقد بان السبب برمجه ويندوز 8 فما فوق ب wbf وفيه النماذج مختلفه عن برمجه ويندوز 7 وهذا والله اعلم بالتوفيق

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

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

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

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

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

السلام عليكم 🙂 فيه خطوط جاهزة تعمل مثل خطوط شاشات العرض LCD ، مرفق احدها ، واليك طريقة استعمال الخط Font : أ. قم بتنصيب الخط في الوندوز ، ثم في الاكسس استعمله كأي خط عادي ، وفي حالتك ، استعمله للارقام 🙂 ، او ب. او اذا لا تريد ان تنصب الخط في الوندوز (قد لا تستطيع الوصول لحاسبة جميع المستخدمين) فيمكنك ان تجعل برنامجك يستعمله لبرنامجك فقط (في احد برامجي ، استعمل خط الباركود code39.ttf ويجب ان يكون في البرنامج علشان ينتج الباركود ، فاستعمل هذه الطريقة) : 1. ضع الخط في نفس مجلد برنامجك ، 2. اعمل وحدة نمطية مستقلة ، احفظها باسم mod_AddFonts ، واضف فيها هذا الكود: Option Compare Database Option Explicit Private Declare PtrSafe Function AddFontResource Lib "gdi32.dll" Alias "AddFontResourceA" ( _ ByVal lpFileName As String) As Long Public Function AddFonts(Font_Name_Path As String) Dim result As Long result = AddFontResource(Font_Name_Path) 'MsgBox Result & " fonts added" End Function 3. في حدث "عند تحميل" اول نموذج في برنامجك ، نادي الدالة اعلاه هكذا (طبعا تكتب اسم الخط ومساره في مجلد برنامجك) : 'Code39.ttf Font, install it, just in case it is not installed before Call AddFonts(CurrentProject.Path & "\Barcode_Font\code39.ttf") 4. بس على كمبيوترك (كمبيوتر المبرمج) ، يجب ان تنصب الخط في الوندوز لأول مرة ، ثم تعمل برنامجك ، ولما كل شيء يكون تمام ، تقدر تحذف الخط من الوندوز ، وتستعمل الطريقة اعلاه 🙂 وبما انه خط عادي ، فما فيه داعي لكود خاص علشان تعرض الارقام ، والتعديل والالوان وحجم الخط ووووو ، يكون بكل سهولة ، لأنه مجرد خط 🙂 جعفر digital-7.zip

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة بالتنسيق الشرطى =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) جعفر

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