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

الطريقة الاسهل بعيد عن زحمة الاكواد اجعل مصدر التقرير استعلام مضمن في حقل n اجعل المعيار Like "*" & [Forms]![Fsearch]![x1] & "*" في حقل datein اجعل المعيار Between Nz([Forms]![Fsearch]![x2];"01/01/1900") And Nz([Forms]![Fsearch]![x3];"01/01/2100") الملف مرفق New Microsoft Access قاعدة بيانات (3).accdb

Try this code Sub fil_empty() Range("A1").CurrentRegion.SpecialCells(4) = "Abscent" End Sub

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

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

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

اقترح عليك استبدال اسلوب الإدخال و استدعاء البيانات بالطريقة التالية اي الاتصال بقاعدة البيانات عند الحاجة لها و اغلاقها بعد جلب البيانات Dim openSQL As ADODB.Connection Dim rs As New ADODB.Recordset Dim ID As Integer ID = TextID Dim MyName As String MyName = TextIDMyName Set openSQL = New ADODB.Connection openSQL.Open "Provider=SQLOLEDB;Data Source=عنوان قاعدة البيانات" Set rs = openSQL.Execute("UPDATE [Plans1] SET [Subject]='" & MyName & "' where [NO]='" & MyName & "' ") MsgBox "تحديث البيانات بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" openSQL.Close

وبارك عليك اخي اما السؤال فلا يمكن وضع نصوص او كلمات او احرف او رموز داخل حقل نصي ولكن ممكن انشاء وحدة نمطيه تحدث البيانات المرتبطة وتغير حقل الربط لاى شئ تريدة بشرط يكون مفهرس وبارك الله فيك اخى ووفقك الله دائماً الى ما تحت وترضي . كود ممتاز اخى @kha9009lid شكراً لمشاركة الخبرات

ليس لدي نسخة 2003 للتجربة عليها ولكن المرفق يعمل عندي بغير مشاكل يبدو ان المشكلة بان الخاصية لا تقبل القيمة 0 في الاصدار 2003 جرب أن تجعل القيمة 1 مثلا وانظر النتيجة. لان الخطأ يظهر كما بالصورة عند القيمة 0 ولا يظهر عند القيمة 100

احسن الله اليكم يا ابا عبد الله وجزاك الله خيرا على الدعاء الطيب وفي ليلة مباركة النموذج من نوع مستمر مبني على استعلام يحتوى على معيار تصفية وحقل معيار التصفية متغير بناء على الحقل الذي نود التصفية من خلاله لذا عملنا قائمة باسماء الحقول وقائمة اخرى نحددة مصدرها بناء على مايتم اختياره من القائمة الاولى وفي حدث بعد التحديث وضعنا متغير يعد السجلات بعد الفلترة ثم استخدمنا Select Case لتحديد طول تذييل النموذج بناء على العدد Me.Requery Dim x As Integer x = DCount("*", "q_1") Select Case x Case Is = 1 Me.FormFooter.Height = 5000 Case Is = 2 Me.FormFooter.Height = 4500 Case Is = 3 Me.FormFooter.Height = 4300 Case Is = 4 Me.FormFooter.Height = 4100 Case Is = 5 Me.FormFooter.Height = 3400 Case Is = 6 Me.FormFooter.Height = 3000 Case Is = 7 Me.FormFooter.Height = 2900 Case Is = 8 Me.FormFooter.Height = 2500 Case Is = 9 Me.FormFooter.Height = 2300 case else Me.FormFooter.Height = 600 End Select الارقام نحددها بدقة بعد التجربة ليكون الارتفاع مناسب في حالة استخدام الواجهة العربية لاكسس تكون Me.FormFooter.Height = 5000 هكذا Me.تذييل_النموذج.Height = 5000 للاسف اني حذفت المثال بعد تصويره لذا اعتذر عن ارفاق المثال 😤

حفظك الله ورعاك يا استاذي الغالي والمبدع وجعلة الله في ميزان حسناتك

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

سبب المشاكل كلها هي الخلايا المدمحة (تم ازالة ما يعيق منها عمل الماكرو) Hid_col_1.xlsm

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

هل كل الموظفين ام المحددين وعند ترحيلهم يظهرو مره اخري فى نفس النموذج ام المرحل لا يظهر ولو على الترحيل استخدم هذا الكود : DoCmd.RunSQL "INSERT INTO tbl_Retr SELECT tbl_BB.* FROM tbl_BB;"

حرب هذا الكود اضفط الزر المناسب Option Explicit Sub Show_Only() Dim Rg As Range Dim col% Range("H1").Resize(, 72).EntireColumn.Hidden = True Set Rg = Range("H3").Resize(, 72).Find(Range("A1"), lookat:=1) If Rg Is Nothing Or Range("A1") = "" Then show_all Exit Sub End If col = Rg.Column Cells(4, col).Resize(, 2).EntireColumn.Hidden = False End Sub '+++++++++++++++++++++++++++++++ Sub show_all() Range("H1").Resize(, 72).EntireColumn.Hidden = False End Sub yasse.w.2010.xlsm

تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه لغه xml دعنا الان نبدا في تصميم شريط ريبون جديد RibbonXml تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه لحفظ الصور داخل القاعده البيانات button اضافه مكتبه برمجيه تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه مواضيع أيضا ذات صله تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه في الاكسيس يتم اضافه شريط ريبون لاعطاء البرنامج شكل احترافي مبسط لسهوله الاستخدام من قبل المستخدم النهائي للبرنامج في اصدار اوفيس 2003 كان من السهل تصميم شريط ادوات يشبه شكل الريبون بشكل مبسط لانه كان بنظام قوائم منسدله مبسطه لكن بدايه من اصدار اوفيس 2007 تطور شكل الريبون ليعطي شكل مصور بالقوائم بشكل احترافي و تم تعديل طريقه تصميمه ليكون بناء علي نموذج بلغه xml لغه xml هي لغه تنتمي للغهHTML و هي شبيه بها في قواعد كتابه اللغه الي حد كبير و هي اختصار لـ eXtendable Markup Language و هي لغةالترميز القابلة للتوسع . XML صُمّمت لتخزين و نقل البيانات يمكن استخدامها في تصميم بعض البرامج للاندرويد او تصميم المواقع وغيرها دعنا الان نبدا في تصميم شريط ريبون جديد في البدايه نحتاج الي اضافه جدولين جدول لحفظ كود xml و جدول لحفظ الصور المصغره التي نريد وضعها علي الشريط( يمكن ان هذه الصور في ملف مستقل خارج قاعده البيانات الا ان هذا الامر قد يؤثر ببعض المشاكل عند محاوله نقل ملف قاعده البيانات من جهاز الي اخر ) سنقوم بانشاء الجدول الاول جدول حفظ كود xml و سنقوم بحفظه باسم USysRibbons id AutoNumber RibbonName Text RibbonXml Memo او Long Text حيث ان RibbonName يمثل اسم شريط الريبون RibbonXml يمثل مكان حفظ كود xml و تم وضعه هذا الحقل Memo او Long Text حتي يتناسب مع الاكود التي تزيد عن 255 حرف حيث ان short text او text اقصي قدره استعابيه لها في الاكسيس 255 حرف يعد اسم جدول USysRibbons من جدول النظام و بمجرد حفظها لن تظهر بشكل افتراضي و يجب اظهار جداول النظام حتي نستطيع التحكم بها و أيضا أذا اردنا ان يكون شريط الريبون مصور والصور داخل قاعده البيانات سنقوم باضافه جدول باسم tblImagesRibbons idImage AutoNumber imageRibbon Attachment حيث ان imageRibbon من النوع”Attachment” و ذلك تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه لحفظ الصور داخل القاعده البيانات يفضل ان تكون صيغه هذه الصور من النوع ico لتكون متناسقه مع شريط الريبون الان دعنا نتعرف علي كود xml و أيضا طريقه كتابه هذا الكود ليتناسب مع الاكسيس نبدا بكتابه معرف التالي <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="fncRibbon" loadImage="fncLoadImage"> <ribbon startFromScratch="true"> <tabs> <!-- نص الكود هنا --> </tabs> </ribbon> </customUI> و نلاحظ أيضا التشابه الكبير في بين لغه xml و لغه html و طريقه صياغه الاوامر البرمجيه هذا الوسم يتوافق مع اصدار اوفيس 2010 فيما فوق و أيضا نحتاج طبعا الي بعض الخبره البسيطه في قواعد كتابه لغات xml او لغه htmlلنتمكن من كتابه هذا الكود نقوم باضافه الوسم <tab id="MyTab1" label="اسم القائمه"> </tab> وذلك بعد الوسم tabs في كل مره نريد اضافه قائمه جديده و أيضا لاضافه مجموعه جديده داخل القائمه نستخدم الوسم group و يكون بالصيغه التاليه <group id="MyGroup1" label="اسم المجموعه"> </group> button و لاضافه الازرار داخل الجروب نستخدم الوسم button <button id = "bt1" label = "الاسم الظاهر للزر" image="1.ico" size="large" onAction = "fncOnAction" /> و نلاحظ أيضا ان المعامل id يكون لاعطاء اسم برمجي عند استدعاء هذا الزر برمجيا و يختلف هذا المعامل عن معامل label فهو للاسم الظاهر للمستخدم النهائي بينما الخاصيه imageتستخدم لاضافه صوره علي هذا الزر و المعامل onActionيستخدم لحجز متغر في الكود البرمجي عند استدعاء الزر البرمجي او عند الضغط علي هذا الزريتم اعطاء ارقام او اسماء لكل زر بحيث لا يتكرر اي اسم حيث انه في حاله تكرر اي اسم سيتوقف كود xml و لن يظهر شريط الريبون في التصميم ليظهر الكود بشكل كامل كما يلي <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="fncRibbon" loadImage="fncLoadImage"> <ribbon startFromScratch="true"> <tabs> <tab id="MyTab1" label="الاعدادات"> <group id="MyGroup0" label="اعدادات"> <button id = "bt00" label = "اعدادات النسخ الاحتياطي" image="00.ico" size="large" onAction = "fncOnAction" /> </group> </tab> </tabs> </ribbon> </customUI> يتم تخزين جميع الصور في جدول الصور الذي سبق و ان قمنا بتصميمه tblImagesRibbons اضافه مكتبه برمجيه نحتاج في هذا العمل لأضافه مكتبه برمجيه التي تسهل علي الاكسيس استدعاء الصور من الجداول و أيضا يمكن ان نستخدم المكتبه البرمجيه Microsoft office 16.0 object libraryحيث يمثل الرقم 16 لرقم اصدار الاوفيس و بالتالي سيختلف من اصدار الي اصدار اخر و في حاله عدم عثورنا علي هذه المكتبه البرمجيه يمكن البحث عنها داخل ملفات النظام و هي موجوده ضمن الملف MSO.DLL نقوم أيضا باضافه داله برمجيه لتشغيل ازار شريط القوائم و نستخدم الامر البرمجي Select Case و ذلك للمرور علي كافه ازار التشغيل في الشريط ففي حاله الضغط علي زر يقوم هذا الكود بتحديد الزر و تشغيل الكود الذي يخص هذا الامر Public Sub fncOnAction(control As IRibbonControl) Select Case control.Id Case "bt0" MsgBox "مرحبا" Case "bt1" MsgBox "22222222" Case Else MsgBox "عفوا لا تمتلك صلاحيه الوصل " & control.Id, vbInformation, "انتبه" End Select End Sub تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه يمكن استخدام الداله dlookup لاستخراج الصور من الجدول لاضافتها في الشريط يجب تشغيل xml بمجرد تشغيل قاعده البيانات و أذا قمنا باي تعديل علي هذا الكود لن يظهر تاثير هذا التاثير الا عند اعاده فتح ملف قاعده البيانات من جديد لمزيد من المعلومات يمنكم زياره رابط الموضوع علي موقع المحاسب العربي https://acc-arab.com/2020/05/blog-post_92.html يمكنك تحميل برنامج المحاسب العربي مصمم بشريط ريبون احترفي من هنا مواضيع أيضا ذات صله شاهد أيضا تحويل صيغه ملف الاكسيس برمجيا من accdb الي accde تعرف أيضا علي الاستعلامات في الاكسيس شاهد أيضا مشاكل نقل ملفات قواعد البيانات من جهاز الي اخر و طرق حلها تعرف ايضا علي انشاء كشف حساب عميل او مورد بالاكسيس شاهد أيضا ايقاف الحفظ التلقائي في الاكسيس

صحيح تفضل التعديل DATA200013.zip

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

العفو أخي. و أنا كذلك أخبرني بها صديقي @AlwaZeeR منذ مدة

السلام عليكم تم اضافة خانة جديده كما في الصورة ادناه لحذف ايام اخرى حسب الاختيار انظر للملف واي استفسار اعلمني سجل غياب جديد.xlsm

الله الله الله ... أسأل الله في هذه الساعات المباركات أن يوفقكم ويسعدكم سعادة لا شقاء بعدها أبدا،،، تميز

تفضل التعديل DATA200013.zip

مشاركة مع اخي @king5star واستاذي القدير @أبو عبدالله الحلوانى الفكرة باختصار لاداعي لتغيير تنسيق الحقل الى 0000 وايضا لاداعي لوضع قناع ادخال للحقل ( اكثر خاصية اتجنبها ) وبالتالي نتحكم بمدخلات الحقل وتنسيقها عن طريق كود بسيط في حدث بعد التحديث لحقل رقم If Not IsNumeric([رقم]) Or Len([رقم]) > 4 Then MsgBox "هذا الحقل رقمي فقط وبعدد 4 ارقم" Me.رقم = "" Else Me.رقم = Format([رقم], "0000") End If اذا اردنا ارقام اكثر نغير رقم 4 الى اي رقم اكبر وكذلك نضع اصفار في السطر الخامس بنفس عدد الرقم في السطر الاول الملف مرفق الأرقام.accdb

ومن الممكن استخدام الوحدة النمطية الاتيه فقمت بتصميمها لاجلك ! Public Function ZeroComplete(ZCount As Integer, NumValue As String) As String ' ___ _ ___ _ __ _ ___ _ _ ' | \ (_) ___ | _ ) _ _ | |/ / __ _ _ _ (_) _ __ | __| | | | |_ ___ ___ ___ ___ _ _ _ _ ' | |) | | | (_-< | _ \ | || | | ' < / _` | | '_| | | | ' \ | _| | | | ' \ / _ \ (_-< (_-< / -_) | ' \ | || | ' |___/ |_| /__/ |___/ \_, | |_|\_\ \__,_| |_| |_| |_|_|_| |___| |_| |_||_| \___/ /__/ /__/ \___| |_||_| \_, | ' |__/ |__/ ' _ ___ __ _ ___ ____ ____ ___ ____ ____ _ ___ _ ' _| |_ |_ ) / \ / | |_ ) |__ | |__ | ( _ ) |__ | |__ | / | | __| / | ' |_ _| / / | () | | | / / / / / / / _ \ / / / / | | |__ \ | | ' |_| /___| \__/ |_| /___| /_/ /_/ \___/ /_/ /_/ |_| |___/ |_| ' 'ZCount =عدد الاصفار المطلوبة 'NumValue = النص المراد استكمالة باصفار 'ZeroComplete = القيمة الاخيرة بعد التعديل ' ' Dim L_NumValue As Integer, Sub_Count As Integer L_NumValue = Len(NumValue) Sub_Count = ZCount - L_NumValue If Sub_Count < 0 Then MsgBox "ان طول عدد الاصفار المراد تكميلها أصغر من حجم الرقم برجاء التأكد من طول الرمز ." Else ZeroComplete = String(Sub_Count, "0") & NumValue End If End Function ولاستدعائها قم بالاتي : Private Sub txt1_AfterUpdate() txt1 = ZeroComplete(5, Me.txt1) End Sub ***** ملحوظة اخيره يجب ان يكون نوع الحقل نصي او text

السلام عليكم جميعا اخواني السلام لهذا المنتدى الرائع والراقي جدا من اعضاء ومدراء ومشرفين اضع بين يديكم فورم للتعلم والعمل سهل جدا نرجوا منكم الدعاء iraq.rar