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

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

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

لدي وندوز 7 واوفيس 2013 بعض البرامج لما افتحها لايظهر اطار للنموذج ..وبعضها يظهر الظاهر تعتمد على نسخة اوفيس

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

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

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

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

الصور

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

اتفضل اخى الفاضل ابو الحسن بالنسبه للتعديلات تم اضافه حقل 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

صراحه لااعلم وان شاء الله احد اخواننا واساتذتنا يشارك بما لديه وممكن تدخل على منتدى ميكروسوفت وتسال هناك برضه قم بالتسجيل والدخول https://answers.microsoft.com/ar-sa/ اختار الجروب اللى عاوز تسال فيه وهنا ويندوز وقم بالسؤال واخبرنا بالنتيجه عندما يتم الرد عليك بالتوفيق

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

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

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

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

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

السلام عليكم 🙂 فيه خطوط جاهزة تعمل مثل خطوط شاشات العرض 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

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) جعفر