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

تفضل استاذى الكريم وقمت بعمل ايصا تاريخ النهاية فى عمود اخر Fisrt date-1.xlsx

السلام عليكم و رمضان كريم هدية للاعضاء والمنتدى الحبيب وكيفية تغير التسمية زر من جدول ... مع تحياتى Change caption.accdb

وعليكم السلام ورحمة الله هدية جديرة بالتجربة ...... شكرا لك أخ ريباز

الاخوة الاعضاء المحترمين اضع بين ايديكم برنامج بسيط من تصميمي اتمنى لكم الفائدة واتمنى تزويدنا بالملاحظات من خلال الردود لكي نطور البرنامج salloum68.rar

السلام عليكم يوجد كود يجلب اسم العميل ورقم الفاتورة ممكن تعديل على الكود باضافة فقرة اخرى جلب اسم المادة ليصبح الكود يجلب رقم الفاتورة + اسم العميل + اسم المادة جزيتم خيرا اضافة اسم المادة.rar

يمكن استعمال هذه المعادلة (بدون عامودمساعد) لاظهار اصغر تاريخ =MIN(IF($C2=$B$8:$B$100,$C$8:$C$100)) هذه لاظهار اكبر تاريخ =MAX(IF($C2=$B$8:$B$100,$C$8:$C$100)) المعادلات (Ctrl+Shift+Enter) و ليس (Enter) وحدها ليس شرط ان تكون التواريخ مرتبة تصاعدياً او تنازلياً

السلام عليكم آمل أن يكون هذا المطلوب اضافة اسم المادة11.7z

من خصائص النموذج مربع عنضر التحكم = لا

بارك الله فيك زفي جهودك الف شكر

كل عام وأنتم بألف خير

سلمت يداك . و هدية قيمة بمعنى الكلمة و بانتظار التحديثات و الإضافات .

كان يجب عليك تطبيق الامثلة اعلاه الخطأ الذي وقعت فيه هو انك في جدول الانتداب : المنطقة والادارة والتخصص عبارة عن نصوص وانت جعلت مربعات التحرير في نموذج التصفية في مثالك الجديد عبارة عن ارقام بينما مربعات التحرير في الحل الذي قدمته لك عبارة عن نصوص ، وانما عملتها لك كنصوص بناء على البيانات في جدول الانتداب ارجع وقارن بين مصادر مربعات التحرير في الامثلة اتمنى ان تتمكن من الوصول للحل بنفسك ..

اتبع خطوات المرفق

جزاك الله خيراً واكرمك الله فى هذا الشهر الكريم

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

كل عام وانتم بخير

وعليكم السلام أخى الكريم هذا حل بالمعادلات اضافة اسم المادة-1.xlsm

تفضل اخى الكريم وكل عام وانتم بخير ورمضان مبارك تفقيط.xlsx

تفضل dbx 2.mdb

السبب ان بعض الحقول خالية في الجدول والحل انك تسمح بعرض الحقول الخالية بحيث يصبح المعيار Like "*" & [forms]![frist]![Combo14] Or Is Null وفقك الله dbx (1).mdb

أخي الفاضل : أولا : غيرنا خصائص النموذج s2 شكلي أو مشروط الى .. لا ثانيا : أضفنا الكود التالي في خصائص النموذج واجه_المحاسبة في حدث عند تحريك الماوس والهدف من الكود هواغلاق النموذج s2 DoCmd.Close acForm, "s2", acSaveNo أرجو أن أكون قد وفقت في هذا الشرح السريع

ليصبح الكود كاملا Dim strSQL As String Dim db As DAO.Database strSQL = ("DELETE * FROM Tbl_State WHERE [country] = '" & Me.country.Value & "'") CurrentDb.Execute strSQL Me.Requery

هذا الكود Sub remove_const() With Selection If .Count > 1 Then Exit Sub .Offset(, 1 - .Column) _ .Resize(, .CurrentRegion.Columns.Count). _ SpecialCells(2, 23).ClearContents End With End Sub

عزيزي الاستعلام داخل التقرير اذا لم تختر شيئا من المربعات فسيتم عرض الجميع ، ولاحظ التدرج بالتصفية من العام الى الذي اخص منه ايضا يمكن التصفية حسب مربع واحد انظر وتفحص وابحث ففي المثال غنية عن الشرح والمقال dbx.mdb

تفضل اخى الكريم لمعرفة المخزون المتبقي.xlsx مخازن (1).xlsx

بالتوفيق أخي الكريم ولا تنسى التقييم

جرب هذا الماكرو Option Explicit Sub Show_Sheets() Dim i% For i = 1 To Sheets.Count If Sheets(i).Visible = 2 Then Sheets(i).Visible = 1 Next End Sub

السلام عليكم الآن ننتقل الى كود XML وكيفية انشاءه. كود XML لتخصيص شريط ادوات يبدأ ب <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> هنا نضع الكود الخاص بانشاء شريط الادوات <tabs> </ribbon> </customUI> طبعا انا هنا لن اتطرق لمفاهيم لغة XML لان هذا ليس موضوعنا كما اننى لا اعرف عنها الكثير ساشرح فقط ما نحتاجه لتخصيص شريط الادوات اولا نفتح CustomUI ونغلقه كما بالكود اعلى وبداخله نفتح Ribbon ونغلقه وننتبه لحالة الاحرف فى بداية Ribbon نكتب "StartFromScratch="false وهذه الخاصية اذا ضبطت على False تقوم بعمل الشريط بعد الاشرطة الافتراضية اما True تقوم باخفاء الاشرطة الافتراضية بعد ذلك نكتب الكود التالى <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> rRibbon startFromScratch="false"> <tabs> <tab id="customTb1" Label="MY NEW TAB" visible="true"/> </tab> </tabs> </ribbon> <CustomUI> هذا الكود يقوم باضافة tab جديد حيث customTb1 المعرف الخاص بالشريط MY NEW TAB الاسم الذى يظهر للمستخدم Visible="true" عملية اظهار الشريط الجديد ثم نقوم باضافة المجموعات الخاصة بالشريط بنفس الطريقة حيث نستبدل TAB ب Group <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb1" Label="MY NEW TAB" visible="true" > <Group id="CustomGR1" Lable="My Group"> </Group> </tab> </tabs> </ribbon> </customUI> نضيف المجموعة customGR1 المعرف الخاص بالمجموعة MY Group الاسم الذى يظهر للمستخدم قوموا بتنفيذ هذه الخطوات ثم اغلاق قاعدة البيانات ثم اعادة فتحه و قوموا بالذهاب الى options واختيار Current DataBase ومن ثم فى جزء Ribbon And Tool Bar Options اختار الشريط الذى قمنا بتصميمه ان شاء الله فى المشاركة القادمة نشرح كيفية اضافة الادوات والازرار الى الشريط والمزيد من خصائصها وبعدها ان شاء الله نشرح كيفية التحكم فى وقت فتح هذه الاشرطة سواء تخصيصها لفورم معين او فتحها عند فتح البرنامج وهذه القاعدة تنفيذ لما تعلمناه وهذا الكود النهائى <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb" label="MY NEW TAB" visible="true"> <group id="dbGroup" label="’My Group"> </group> </tab> </tabs> </ribbon> </customUI> Ribbon Customization Using XML.rar ملاحظات : 1- يجب الالتزام بحالة الاحرف الكبيرة والصغيرة 2- <ribbon>,<tab>,<group> هذه الاشياء تسمى فى لغة XML الاوسمة ومعظمها يفتح ثم يغلق ويفتح <الاسم> ويغلق <الاسم/> 3- لغة XML ليس لها اوسمة مخصصة شجعونى بآرائكم ومن كانت عنده زيادة او انتقاد او سؤال فلا يبخل علينا به

السلام عليكم قرأت عن وضع قيمة افتراضية لخلية بحيث إذا لم نكتب فيها شيء فإن قيمتها تكون officena وكان هذا هو الكود Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Range("a1").Value = "" Then Range("a1").Value = "Officena" End If End Sub ولكني عندما غيرت في النطاق من A1 إلى A:A وذلك لكي يشمل الكود العمود كاملاً كانت تظهر رسالة error 13 ,,,,, Type mismatch فما هو الحل برأيكم ودمتم

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Variant For Each c In Worksheets("Sheet1").Range("a:a") If c.Value = "" Then c.Value = "Officena" Exit For End If Next c End Sub