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

السلام عليكم ورحمة الله وبركاته طريقة عمل نسخة احتياطية للبرنامج مرفق فورم ومديول كل ما عليك نسخهم واضافتهم للبرنامج ووضع زر امر لفتح الفورم من الشاشة الرئيسية وتستطيع عمل نسخة احتياطية للبرنامج في اي وقت وتخزينها في اي مكان تختاره على الكمبيوتر اتمنى لكم الفائدة backupform.accdb

جرب هذا الماكرو Option Explicit Dim arr Sub coloriz_row(My_row) arr = Array("معلم", "معلم اول ا", _ "معلم خبير", "مدير عام", "معلم اول") Cells(My_row, 1).Resize(, 3).Interior.ColorIndex = 3 End Sub '================================ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Row > 2 Then Cells(Target.Row, 1).Resize(, 3).Interior.ColorIndex = 0 End If If Target.Column = 3 And _ Target.Count = 1 And _ Target.Row > 2 And _ IsError(Application.Match(Target.Value, arr, 0)) Then Cells(Target.Row, 1).Resize(, 3).Interior.ColorIndex = 0 coloriz_row (Target.Row) End If Application.EnableEvents = True End Sub

اخي saladen تم تعديل المثال بالكود و حسب ما فهمت من السؤال طلب المساعدة.accdb

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

بارك الله فيك استاذى الكريم

ممكن تستبدل Sheets("Salim") ب Activesheet

Public Function CheckLinks() As Boolean On Error GoTo CheckLinksErr Dim tdf As TableDef Dim strNewMDB As String Dim fd As FileDialog For Each tdf In CurrentDb.TableDefs If UCase(Left(tdf.Name, 6)) <> "CROSGAD" Then If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then If Len(strNewMDB) = 0 Then MsgBox "لا يمكن الاتصال بقاعدة البيانات ، سيتم غلق البرنامج" DoCmd.Quit End If tdf.RefreshLink End If End If Next tdf CheckLinks = True CheckLinksDone: Exit Function CheckLinksErr: MsgBox "Error #" & err.Number & ": " & err.Description, vbCritical Resume CheckLinksDone End Function

شكرا لكل من شارك في الموضوع وللمرة الألف الروابط تعمل 100% ولكن يبدو أن بعضنا يجيد سياسة الأخذ ولا يجيد سياسة العطاء وأرجو أن يفتح الله صدر أحبابي لقراءة هذا الموضوغ جيدا والتفاعل معه سواء بالسلب أو بالإيجاب بانتظار آراء الأصدقاء

عاشت ايدك استاذ @ابو اشرف سلوم جاي التطبيق

اخواني اعضاء المنتدى الرائع اسعد الله مسائكم بكل خير اخواني بحثت عن كيفية اخفاء الاكسس عند فتح برنامج معمول على الاكسس وقد وجدت كثير من الاكواد وتعمل بشكل جيد ولاكن احياناً عند فتح البرنامج مباشرة بعد فتح الكمبيوتر تظهر واجهة الاكسس لبضع ثواني ثم تختفي . السؤال هل يمكن منع الظهور حتى ولو لبضع ثوان مع العلم اني قد شاهدت بعض البرامج المعمولة بالاكسس لا تظهر واجهة الاكسس نهائياً . كيف يمكن عمل ذلك ولكم جزيل الشكر ,,,,

استاتذتي وأخواني الكرام السلام عليكم ورحمة الله وبركاته منذ فترة طلب مني ألاخ / أبوادم علي البريد فـورم لنموذج فاتورة مبيعات باللغة الانجليزية مع الطباعة وبعد ان صممت النموذج أحببت ان اشارككم فيه عسي ان يكون فيه النفع وان يكون عام ليستفيد منه الباحث عن شيء شبيه النموذج مفتوح(( يمكن تطويعه لاي عمل اخر )) تنويه (( العلامة التجارية "الشعار"" والاسماء بالنموذج من محض الخيال وليس لها علاقة باي علامة تجارية حالية وذلك حفاظا علي الحقوق ولا تعتبر نوع من انواع الدعاية لاي جهة )) أحببت ان انوه فقط ربما تصادف اسم شركة قائمة. ( نموذج الفورم ) ------------------------- ----------------------------- والله ولي التوفيق نموذج فاتورة.rar

السادة الكرام / عمالقة الإكسل, جزاكم الله عنا كل خير كان لى طلب يرجى التكرم بإفادتنا به لتعم الفائدة على المبدئين فى vba ومشكورين على وقتكم ومجهودكم

دائماً في المواقف الصعبة استاذ سليم بارك الله لك

وعليكم السلام و رحمة الله و بركاته اخي عبدالله غير كود حدث عند تحميل النموذج على: Dim Pt As String Pt = Dir(SelectImage(1, jpg)) Me.Picture = IIf(Pt = "", "", SelectImage(1, jpg)) بتوفيق،،،

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

بعد اذن الاخي و الاستاذ فارس بني هلال عدلت مثال على معايير تالي عند فراغ حقل picFile2 او سجل جديد ، لا يظهر شئ عند وجود مسار في حقل picFile2 و الصورة محذوفة او تغير اسم الصورة ، يظهر صورة (صورة غير موجودة) و غير ذالك يظهر الصورة كما في مسار حقل picFile2 Photo.zip

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

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

تفضل المطلوب العجز والزيادة.xls

وعليكم السلام الحمد لله على حصولك الحل

تفضل اخي نفس برنامجك الاول مع اضافه بسيطه بدون اي كود الشخص الجديد والذي لم تظف له صورة تضهر الصورة غير موجودة التي ارفقتها Test Photo.mdb

تفضل صديقي في استعلام testq Testlast (1)_2.accdb

السلام عليكم استاذنا الكبير ابو عارف رائع .....وهو المطلوب

بعد اذن استاذنا علي تفضل فقط ادخل اسم العميل والصنف والعدد والسعر في (صفحة الحركات )تلقائي يدخل تاريخ ورقم الحركة والدين t (1).xlsm

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

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

إن شاء الله تجد ما تبحث عنه هنا ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ونشر هذه المعلومة فلو بخل بها غيرك ما وصلت إليك

شكرا وجزاك الله كل خير

وعليكم السلام أخي الغالي أبو يوسف الحمد لله أن تم المطلوب على خير ، حتى لا تظن أن عجلات القطار ستتوقف في كل المحطات .. فما زال في القطار بعض العجلات التي يمكن أن تساعد على السير قدماً تقبل وافر تقديري واحترامي

السلام عليكم ورحمة الله وبركاته اعتقد ان دمج شرطين في شرط واحد قد يؤدي الى نتائج غير صحيحة . مثلا : الشرط الاول و الثاني 1 و12 الدمج =121 واذا كان الشروط في صف لاحق الشرط الاول و الثاني 21 و1 الدمج =121 وهو نفس الشرط المدمج السابق وبالتالي سوف تعيد الدالة الدمج الاول فقط . ويمكن حل هذا الاشكال بادراج فاصل في الدمج مثل 1-12 و21-1 في المرفق حل اخر اضافة الى حل الاخوة وباستخدام MATCH و INDEXكصفيف البحث بشروط.rar

السلام عليكم تاكيدا للحل وضمان صلاحيته اليك البحث ب 3 شروط بنفس الدالة البحث ب 3شروط.rar