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

بالخدمة استاذ وتفضل التعديل Database32-3.rar

تفضل التعديل rrr (2).accdb

تفضل التعديل rrr.accdb

استكمالاً لتطوير برنامج المطاعم أرفق لكم النسخة مفتوحة المصدر آملاً أن تحوز على رضاكم وستحسانكم ولا تنسونا ومعلمينا من دعائكم ،،، كما أشكر مساهمة أستاذي @ابو عارف أنقر هنا للتحميل بدون ضغط Restaurant.rar

تفضل هذه المحاولة ارجو ان تكون موفقة Database32-2.rar

تفضل التعديل Database2.accdb

اتفضل If StrComp(name1, name2) = 0 Then MsgBox ("النصوص متماثلة") Else MsgBox ("النصوص مختلفة") End If

D43.accdb

السلام عليكم كل عام وانتم الى الله اقرب التطبيق يحتوى على عدد 2 جدول الاول : tblMassagesSetting به اسماء الأزرار والتى يمكن ترجمتها الى اى لغة يريدها المصمصم الثانى : tblMassages وهو الجدول الذى يمكن للمصمم اضافة الرسائل به ليسهل تغير محتوى الرسائل او تعديلها دون الدخول الى وضع التصميم تعريف لمحتويات الجدول tblMassages ( جدول الرسائل ) الحقل IDMasg : معرف الرسالة هنا يتم وضع كود لا يقبل التكرار لكل رسالة ليتم استدعاء الرسالة داخل صندوق الرسائل من خلاله الحقل MasgPrtOne : نص الرسالة (السـطر الأول) هنا يتم كتابة السطر الأول من الرسالة الحقل MasgPrtTow : نص الرسالة (السـطر الثانى) هنا يتم كتابة السطر الثاني من الرسالة الحقل MasgPrtThree : نص الرسالة (السـطر الثالث ) هنا يتم كتابة السطر الثالث من الرسالة الحقل MasgHead : عنوان الرسالة هنا يتم كتابة عنوان الرسالة الحقل MasgType : معرف رمز الرسالة هنا يتم كتابة رقم رمز التى تريد ظهورها مع الرسالة والتى تدل على نوع الرسالة الحقل MsgBtn :معرف عدد الأزرار هنا يتم كتابة رقم عدد الأزرار التى تريد لها الظهور فى صندوق الرسائل يتم استدعاء الرسالة بالسطر الاتى مع تغيير معرف الرسالة الى الرقم الدال عليها MakeMsg (معرف الرسالة) اترككم مع الاستمتاع بتجربـة المرفق full control arabic Message Box 32x,64x .mdb

كل الشكر والتقدير لك سيدي الفاضل لكن في حالة اذا يوجد خمسة او اكثر من سجل لنفس اسم المدرسة لانه في هذه الحالة ياخذ سجل واحد فقط انا كررت الاسم وتبين انه ياخذ اسم واحد فقط هل يتم معالجة ذالك ولك مني الشكر والثناء Database32-2.accdb

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

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

ربما؟ think 2.xlsm

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

تفضل هذا التعديل الرتب.mdb

تفضل هذا التعديل الصق هذا الكود في اي مكان داخل محرر الأكواد سيتم انشاء مجلد بإسم Im في حال عدم وجوده و سيتم حفظ نسخة من الصورة Public Function SaveImag(ImagtPath As String, FileNewName As String) On Error GoTo ErrH Dim fso As Object, Syso As Object, fldrname As String, fldrpath As String, MyFile As String, DstFile As String fldrname = "Im" Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If MyFile = ImagtPath DstFile = CurrentProject.Path & "/" & fldrname & "/" & FileNewName & ".jpg" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing SaveImag = DstFile MsgBox "تم اضافة الصورة بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" Exit Function ErrH: MsgBox "رقم الخطأ" & " : " & Err.Number & vbNewLine & "وصف الخطأ" & " : " & vbNewLine & Err.Description, vbExclamation + vbMsgBoxRight, "تنبيه" End Function من المفترض انه يوجد لديك العناصر التالية - مربع نص اسم الصورة - مربع نص مسار الصورة - ازرار اختيار الملف - ازرار تنفيذ الإجراء او حفظ الصورة في ازار اختيار الصورة استخدم الكود التالي Dim Addfile As Object Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = False .InitialFileName = "" .title = "اختيار صورة" .Filters.Clear .Filters.Add "All Files", "*.jpg,*.png" If .Show = True Then ImagePathText = Trim(.SelectedItems(1)) ' مربع النص الذي سيتم تخزين مسار الصورة به Else Exit Sub End If End With و في ازرار الحفظ ضع الكود التالي call SaveImag(ImagePathText, FileName) ImagePathText تعني مربع نص مسار الصورة FileName تعني اسم الصورة مرفق مثال تطبيق لذلك MyData16.accdb

ربما لو ازفقت الملف او الجزء الذي به المشكلة نتوصل للحل

أخي الكريم * حتى تظهر الصفوف الجديدة ضمن نتائج البحث يجب نسخ المعادلة في النطاق H5:M17 إلى الصف المطلوب بعد إظهار هذه الأعمدة المخفية * فلسفة هذه الطريقة من البحث بالمعادلات تعتمد على تلوين الصف الذي يحتوي على كلمات البحث وهو في مكانه * السجل الجديد يتم إضافته بعد آخر صف مكتوب فيه وإذا أردت تغيير هذه الفلسفة إلى الفلترة وظهور الصفوف التي تحتوي على كلمات البحث فيمكنك الاستفادة من هذا الموضوع بالتوفيق

الشكر لله الذي بنعمته تتم الصالحات

تفضل اخي الكريم عسى ان يكون هو المطلوب. وافنا بالنتيجة تحياتي Test112.rar

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

Private Sub TextBox1_Change() Dim dFrom As Date, dTo As Date, lr As Long With ActiveSheet lr = .Range("B" & Rows.Count).End(xlUp).Row If TextBox1.Text <> "" Then .AutoFilterMode = False dFrom = .Range("F1").Value2 dTo = .Range("G1").Value2 With .Range("B2:Q" & lr) .AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlOr .AutoFilter 8, ">=" & CLng(dFrom), xlAnd, "<=" & CLng(dTo) End With Else .AutoFilterMode = False End If End With End Sub

تفضل جرب المرفق الترحيل معدل.xlsm

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

* لا لن تضاف تلقائيا ؛ لأنك حددت مصدر بيانات الجدول المحوري من A1:H6 وحتى تضاف تلقائيا يجب تنسيق المدى الموجود في ورقة1 كجدول format as table من تبويب الصفحة الرئيسية home ثم تعديل مصدر بيانات الجداول المحورية change data source إلى نفس المدى في ورقة1 ولكن هذه المرة سيظهر المدى باسم جدول1 أو table1 * لتعديل عناوين في الجداول المحورية مثل rows labels & columns labels & grand total يتم تحديد الخلية ثم كتابة التسمية المطلوبة ثم ضغط مفتاح الادخال Enter بالتوفيق

المطلوب الاول والثاني موجودان في شيت ورقة3 والمطلوب الثالث موجود في ورقة4

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