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

السلام عليكم عند حدث عند التركيز للمربع النص ضع هذا الأمر: Me.txt_date.SelStart = 0 Me.txt_date.SelLength = 1 بحيث txt_date هو اسم مربع النص السطر الأول يعني بداية التحديث، و القيمة 0 تمثل الحرف الأول و 1 يمثل الحرف الثاني و هكذا.. السطر الثاني يحدد طول التحديد أو عدد الأحرف المحددة. بالتوفيق إن شاء الله

ضع هذا الكود .... Dim tBox As Textbox Set tBox = Screen.ActiveControl If TypeOf tBox Is Textbox Then tBox.SelStart = Len(tBox) - 1 tBox.SelLength = 1 End If

هل جربت تعديل هذه الخيارات ؟؟؟؟

بعد اذنك اخي شيفان اظنه قال اذا وجد الصنف يضاف له اللي في النموذج بيكون هكذا StrSql = "UPDATE Alsnaf SET Alsnaf.Sanf =[Forms]![ÇÝÊÊÇÍí]![Sanf], Alsnaf.rsdaolalmdh =rsdaolalmdh+ [Forms]![ÇÝÊÊÇÍí]![rsdaolalmdh]WHERE (((Alsnaf.ID_Sanf)=[Forms]![ÇÝÊÊÇÍí]![ID_Sanf]));"

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. بعد نزع خاصية انشاء شريط القوائم بالأكسس في النسخ بعد 2003 أصبح هناك عائق كبير في إضافة هذه الأشرطة و لأنه يتوجب عليك العمل على ملف 2003 أو استعمال Ribbon بلغة Html و هي أصعب من الفكرة الأولى. مما جعلني أفكر في طريقة تجعلنا نستغني عن هذه الطرق المرهقة بعض الشيء. و قمت بتصميم برنامج يستطيع أن يضيف شريط قوائم للنموذج الرئيسي لقاعدة البيانات مهما كانت نسختها 2003 أو النسخ التي تأتي بعدها. نبدأ على بركة الله في شرح البرنامج: بعد فتح البرنامج نتبع الخطوات التالية: 1 - أكتب اسم القوائم التي تريد أن تضيفها مع وضع رقم كل قائمة بالترتيب (1,2,3,....و هكذا) 2- أضف العناصر أو الأوامر التي تندرج تحت كل قائمة في النموذج الفرعي رقم العنصر , تسمية العنصر ثم الكود الذي تريد أن ينفذه هذا العنصر 3- أختر قاعدة البيانات سواءا كانت 2003 أو ما بعدها ثم اختر اسم النموذج الذي تريد أن تضيف له الشريط 4- قم بالضغط على زر "إنشاء الشريط" 5- افتح قاعدة بياناتك و أنظر للشريط المضاف حتى لو كان النموذج منبثق و شاشة الأكسس مخفية سوف ترى الشريط شروط استخدام البرنامج: 1- قبل البدئ أحفظ نسخة إحتياطية من قاعدة بيانات 2- يجب أن لا يكون لديك في قاعدة بيانات نماذج بهذه الأسماء : list1,list2,list3..... و هكذا 3- يجب أن يكون حدث عن النقر للنموذج الرئيسي خال من أي كود 4-بعد الإنتهاء أدعولي و لوالدي و لعائلة بالخير و الصلاح. هذا هو البرنامج انشاء شريط قوائم.rar

السلام عليكم اكيد انني ادخلت الملل في قلوبكم من فورمات البحث هذه ولكن للضرورة احكام ولكل شخص رغبة معينة في تنفيذ شي معين ولعل هذا التعدد في الملفات يفي بجوانب كثيرة في البحث موضوعنا هذا اليوم طبعا فورم للبحث ولكنه يبحث ليس في ملف واحد فقط وانما يبحث في مجموعة ملفات ( تكون في ملف واحد مع الملف الرئيسي) وايضا يقوم بفتح اي ملف مغلق من هذه الملفات تلقائيا عند دخولك فورم البحث مباشرة وايضا نتيجة هذا الكم من مجموعة البحث عملت زر( للبحث افتراضي) ختى تستطيع ان تكمل كلمة البحث التي تريدها بدون ان يقوم الكود مياشرة بالبحث عند ادخال اي حرف وايضا ابقيت الخاصية السابقة للبحث التلقائي ( اختياري) (وهذا العمل يصلح لاي واحد تكون معه ملف رئيسي ومجموعة ملفات ملحقة يقوم بالبحث فيها) العمل ده طلب الاخ SAFWAT ارجوا ان نكون عملنا جولة كاملة في اغلب نواحي البحث ونرجوا من الله القبول بفضله وكرمه في هذا الشهر الكريم تقبل الله منا ومنكم صالح الاعمال ودمتم في حفظ الله ======================================== ارجوا ملاحظة الملف المعدل في المشاركة رقم 10 التعديل: في الصفحة الرئيسية اضفنا جدول يتم من خلاله التحكم في اعدادات البحث الملفات والاوراق ونطاق البحث ======================================== Class.rar

السلام عليكم ورحمة الله لدينا حقل التاريخ وبه تاريخ مكتوب سابقا وعند الانتقال إليه أود من مؤشر الكتابة أن ينتقل إلى بداية التاريخ (اليوم) لأن التاريخ كالتالي:سنة/شهر/يوم أي كما في هذا المثال:30/10/2018 فبدلا من تظليل كامل التاريخ أريد من مؤشر الكتابة أن ينتقل إلى أول رقم وهو كما في المثال السابق (3) لأن أكسس عند الانتقال إلى حقل به بيانات يتم تظليل كافة الحقل ثم تختار ما تريده لأجل التعديل وهذه عمليه مملة خاصة عند تعديل البيانات نأمل أن يكون المطلوب واضحاً

قمت بالتعديل على هذا الكود بناءا على رأى حضرتك فى ان اهم صفحة هى صفحة الخزينة ولا يهم الأحتفاظ بالبيانات فى باقى الصفحات بارك الله فيكم

وعليكم السلام اخى الكريم تفضل لك كل ما طلبت تركات تعديل.xlsm

السلام عليكم ابو خليل جربت الكود مع الموقع ادناه ةلاكن للاسف لم يعمل ارجو المساعده ولكم جزيل الشكر https://et.musaned.com.sa/employers

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

تم عمل كود بصفحة Data لجلب التاريخ كما انه تم عمل كود ايضا للطباعة فى صفحة Search2 ,وبهذا اعتقد ان كل الطلبات تمت ولا يوجد شيء اخر بحث3.xlsm

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

وعليكم السلام ورحمة الله وبركاته =Int([minlate]/60) & ":" & Format([minlate] Mod 60,"00")

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

مرحباً أخي المسألة حسب ما رأيت أعقد من ذلك فأسماء الملفات و مساراتها و الملفات المفقودة كلها لها دور في جعل الاعتماد على ملفات DLL أمراً غير مستحب . أما أن نضع متطلبات للتشغيل كالبرامج الكبيرة و الألعاب فهو أمر (( غير مقبول )) في حال كان العمل مجرد ملف إكسل أو قاعدة أكسس صغيرة للعمل في بيئة عمل مغلقة .

اتفضل هل تريد هذا Private Sub ID_Sanf_AfterUpdate() Dim Teakid As String Teakid = Nz(DLookup("[ID_Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'"), "") If Teakid <> "" Then ' Me.ID = DLookup("[ID]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'") Me.Sanf = DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'") Me.rsdaolalmdh = DLookup("[rsdaolalmdh]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'") Else Me.Sanf = "" Me.rsdaolalmdh = "" End If End Sub Private Sub أمر13_Click() Dim StrSql As String If DCount("[ID_Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'") > 0 Then StrSql = "UPDATE Alsnaf SET Alsnaf.Sanf = [Forms]![افتتاحي]![Sanf], Alsnaf.rsdaolalmdh = [Forms]![افتتاحي]![rsdaolalmdh]WHERE (((Alsnaf.ID_Sanf)=[Forms]![افتتاحي]![ID_Sanf]));" MsgBox "تم تحديث الصنف " Else StrSql = "INSERT INTO Alsnaf ( ID_Sanf, Sanf, rsdaolalmdh ) SELECT [Forms]![افتتاحي]![ID_Sanf] , [Forms]![افتتاحي]![Sanf] , [Forms]![افتتاحي]![rsdaolalmdh] ;" MsgBox "تم حفظ صنف جديد" End If DoCmd.SetWarnings False DoCmd.RunSQL (StrSql) DoCmd.SetWarnings True Me.ID_Sanf = "" Me.Sanf = "" Me.rsdaolalmdh = "" End Sub اضافه تعديل.accdb

السلام عليكم في الملف وضعت الأمر مع الانتباه إلى إضافة المكتبة المناسبة من مكتبات vba . مع أني أنصحك أخي الفاضل بطريقة الأخ @Shivan Rekany و قد أجريت على المعادلة تعديلاً طفيفاً يمكن أن يكون ذا نفع لعملك ،فطريقته أسلم و لن تحتاج منك إلى إضافة المكتبات في كل مرة تشغل البرنامج على جهاز جديد و ما يعترض ذلك من صعوبات . ROUNDUP EXCEL FUNCTION - VBA.accdb

مرحباً أولاً أعتذر عن تأخري بالرد حتى الآن و لكن تمهلت بالإجابة ريثما أقوم ببحث إضافي . المشكلة في تطبيق هذا الأمر أن بعض النسخ( أوفيس و ويندوز) لسبب أو لآخر تفتقد بعض ملفات DLL أو أنها تحمل أسماء و مسارات أخرى . و في حالة ملفات EXE فقد تكون المكتبة المراد إضافتها لا تتوافق مع الملف . مما يسبب مشكلة أثناء إضافة المرجع و ينجم عنها قفل محرر الفيجوال مما سيضطر المستخدم إلى إجراء إصلاح للأوفيس . إن لصق الكود في محرر الفيجوال بيزيك و استدعائه بالأحداث ليس بالمسألة المعقدة و لكن معاناتي مع نسخ الأوفيس الناقصة و المختلفة (حتى تلك المشتراة عن طريق النت ) هي ما دعتني لطلب المساعدة. فالمسألة أكثر تعقيداً من إضافة مكتبة فحسب . كنت أتمنى أن يحظى السؤال باهتمام أكبر عدد من الخبراء ممن أنست منهم معرفة عميقة بملفات النظام و علاقتها بمكتبات الفيجوال ... - مع الشكر العميق للأستاذ @ابو ياسين المشولي على مساهمته القيمة و وقته الثمين - مما سيثري الموضوع أكثر ... فواحدة من أكبر مشكلات البرمجة كما مر معي : "PLATFORMS COMPATIBILITY " فلو كنت قادراً على تبديل نسخة الأفيس على جهاز أو اثنين فكيف بعشرات الأجهزة التي سيعمل البرنامج عليها ، أو على أقل تقدير عمليات جراحية لاستبدال ملف تالف أو تسجيل آخر مفقود أو البحث عن ثالث ضائع !! كنت قد هممت بتوجيه السؤال لأسماء محددة من رواد الموقع دون إهمال أي من رواده الأكارم إلا أن ذلك قد يدعو بعض الأعضاء من أصحاب الخبرة للإحجام عن المشاركة .

تم التعديل اللازم كما تريد ليأخذ اى احتواء او ما يشمل هذه العبارة بحث2.xlsm

السلام عليكم اخواني في الملف المرفق تعليمة تفقيط عربي انكليزي أنا أخذتها من ملف اكسس كيف استدعيها أو استخدمها في شرط الدالات في اكسل ممتاز التفقيط عربي انجلزي.accdb

وعليكم السلام اخى الكريم تفضل هذا الملف لعله المطلوب تفقيط عربى وانجليزى.xlsm

هنا اضفت اكثر من 8 مكتبات Database25.accdb

السلام عليكم أخي الكريم مرفق مجلد به 32 ملف رمزي غير الملف الأساسي "Report.xlsm" ستجد زرين لكل واحد منهما كود الأول يعمل لك ليستة بالملفات الموجودة بالمجلد اللي موجود به الملف الأساسي "Report.xlsm" يجب أن تضغط عليه أولا ليعطيك قائمة بالملفات الموجودة بالمجلد بداية من الخلية B4 نزولا للأسفل ثم الزر الثاني يعمل لك الهايبر لينك للملفات الموجودة بالمجلد وموجود إسمها بالملف الأساسي "Report.xlsm" تفضل المجلد ولو لك أسئلة لاتتردد TEST.rar

الكثيرون لحماية الخلايا يستعملون حماية الشيت (Protect Sheet) لكن في نطاق معين (تختاره بواسطة الكود) كيف يمكن ان نستعمل الخلية مرة واحدة فقط بحيث لا يمكن مسحها ولا التعديل عليها فيما بعد الا اذا تم توقيف الكود عن العمل كل ذلك بدون ( Protect Sheet) الكود Option Explicit Dim Old_value Dim New_value Private Sub Worksheet_SelectionChange(ByVal Target As Range) Old_value = Target.Cells(1, 1).Value End Sub '============================================== Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False On Error GoTo Final_Step If Intersect(Target, Range("A1:F12")) Is Nothing Then GoTo Final_Step New_value = Target.Value If Old_value = "" And Target.Cells.Count > 1 Then Application.Undo GoTo Final_Step End If If Old_value = "" Then Target.Value = New_value Else Application.Undo End If Final_Step: Application.EnableEvents = True End Sub الملف تحت التصّرف Protect_without Protect.xlsm

وعليكم السلام انظر الي هذا واعمل كما في الصوره

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

السلام عليكم ورحمة الله تعالى وبركاته سبحانك لا علم لنا الا ما علمتنا انك انت العليم الحكيم الحمد لله تعالى الذى تتم بنعمته الصالحات يارب لك الحمد حمدا كثيرا طيبا طاهرا مباركا فيه ربنا لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك كل الشكر والتقدير والعرفان لكل اساتذتى الذين اتعبتهم وارهقتهم فتحملوا جهلى بعلمهم وتحملوا خطأى بحلم طبعا تم طرح الموضوع من قبل وبأكثر من شكل فى شتى المنتديات العربية منها والأجنبية ولكن بفضل اطرح الموضوع عليكم بشكل مختلف كل الاختلاف عما شاهدته قد أكون مخطئ فإن اخطأت فتحملونى بحلمكم وسعة صدركم الموضوع طبعا مطروح للنقاش القاعدة مش مشفرة ومش عامل فيها اى حركات ☺ القاعدة مطروحة للتفكير وللتطوير وللنقاش فى انتظار افكاركم وردود حضراتكم للعلم الموضوع اخد منى وقت وجهد كبير جدا جدا جدا جدا ولان للمنتدى ولروادة من اساتذتى اخوانى الفضل بعد رب العزة سيحانه وتعالى فيما وصلت اليه لا اعز ثمر مجهودى عليكم باختصار القاعدة حضرتك بتحدد فيها كل اول عام الاتى - الاجازات الرسمية - اجازات الموظفين فى بداية العام وبعد ذلك من نموذج واحد تقدر تدخل اجازات جميع العاملين وبتنوع الاجازات يقوم البرنامج بحساب كل نوع على حده والاجمل من هذا تقرير مفصل لكل موظف على حده بايضاح حركة يوميات الاجازات تفصيلا واجمالا وتقرير لكل الموظفين معلش التنسيقات والاشكال لم اهتم بهم جيدا لشدة تعبى لى عوده وفى انتظار ردود حضراتكم بكل الحب والود HR_up.rar

وكل عام وانتم بخير اخي حلبي وجميع اخواننا المسلمين تفضل TreeView0.Font.Italic = True TreeView0.Font.Bold = True ويمكن تغيير الكود السابق ولنوع الخط الى TreeView0.Font.Name = "Calibri" حيث ان اسم الخط هي الخاصية الافتراضية فتم اختصارها سابقا بالتوفيق

السلام عليكم أخي العزيز في أوفيس 2003 من قائمة Data إختر Import External Data ثم New Web Query ونفس عنوان الويب وباقي الخطوات كما هي مرفق ملف 2003 وبه شرح بالصور أيضا بور صة مصرية.rar

السلام عليكم تفضل أخي المرفق به ورقة بالمطلوب وورقة للشرح بور صة مصرية.rar