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

تفضل إضافة و حذف مرفقات.rar

السلام عليكم عودة ميمونة أخي أبا جودي إليك كود إضافة المرفقات لجدول: On Error Resume Next DoCmd.Save Dim i As Integer Dim txtpath As String Dim rsPictures Dim db As DAO.Database Dim rsEmployees As DAO.Recordset 'Dim rsPictures As DAO.Field i = CurrentRecord - 1 With Application.FileDialog(1) .AllowMultiSelect = False .Title = "ÇÎÊÑ ãßÇä ÇáÍÝÙ" If .Show = -1 Then txtpath = .SelectedItems.Item(1) End If End With '------------------------------------------ Set db = CurrentDb Set rsEmployees = db.OpenRecordset("tbl") rsEmployees.Move (i) rsEmployees.Edit Set rsPictures = rsEmployees.Fields("attach1").Value rsPictures.AddNew rsPictures.Fields("FileData").LoadFromFile txtpath rsPictures.Update rsEmployees.Update Set rsEmployees = Nothing Set rsPictures = Nothing Me.Refresh و هذا كود الحذف: On Error Resume Next DoCmd.Save Dim i As Integer Dim txtpath As String Dim rsPictures Dim db As DAO.Database Dim rsEmployees As DAO.Recordset i = CurrentRecord - 1 '------------------------------------------ Set db = CurrentDb Set rsEmployees = db.OpenRecordset("tbl") rsEmployees.Move (i) rsEmployees.Edit Set rsPictures = rsEmployees.Fields("attach1").Value rsPictures.Delete rsEmployees.Update Set rsEmployees = Nothing Set rsPictures = Nothing Me.Refresh مع العلم أن tbl هو اسم الجدول و attach1 هو اسم الحقل و هذا مرفق للتوضيح. attach.rar

جرب المرفق 123.accdb Private Sub n_AfterUpdate() If IsNumeric([n]) Then m = 0 Else m = 20 End If End Sub

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

العفو أخي وفقك الله إلى ما يحبه و يرضاه إن شاء الله

وهذا ما تريده على مرفق استاذى الحبيب واخى الاستاذ @صالح حمادي ولكن لم اضف ال gif لانها لن تتحرك إضافة و حذف مرفقات.accdb

جرب هذا التعديل attach.rar

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

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

@kha9009lid جزاك الله كل خير .. نعم هذا هو المطلوب شكرآ جزيلآ لك @ابا جودى وفقك الله و حقق ما في بالك شكرى جزيلآ لك تمت الإجابة و لله الحمد

طبعا استاذى الجليل واخى الجبيب والعزيز على قلبى الاستاذ @Barna جزاه الله خيـــر كفى ووفى وإثراء للموضوع اضف هذا المرفق - اختزال كامل وشامل لكود حساب العمر - الحساب مباشرة داخل النموذج بمجرد وضع التاريخين - عدم اضافة اى بيانات داخل الجدول نتيجة لاحتساب العمر فقط يحتسب العمر من الدالة داخل الموديول ومن خلال الاستعلام دفعة واحدة لاى عدد من السجلات مهما كان الفرق بين تاريخين.mdb

طبعا كل اساتذتى الكرام واخوانى الاحباب كفوا ووفوا جزاهم الله خيرا ومساهمة من العبد الفقيـر الى الله هذا المرفق للاستاذى الجليل ومعلمى القدير الاستاذ @أبو آدم جمال المرفق فى انه ان وجدت اكثر من طابعة يمكن فى كل مرة اختيار احداهم بكل يسر ومرونة NA_ReportPrenter.mdb

وتيسيرا على احبابى الاستاذ @محمد صلاح1 و الاستاذ @عبد اللطيف سلوم هذا مثال عملى getMacAddress.mdb

السلام عليكم ورحمة الله تعالى وبركاته الجزء الاول من صلاحيات دخول المستخدمين الى البرنامج فى هذا الجزء - فى حالة عدم وجود مستخدم مسجل اى عند فتح القاعدة للمرة الأولى يتم انشاء المستخدم الأدمن اليا يا سلام يا سلام -البيانات فى الجداول مشفرة << -----------< تلبية ورغبة لطلب احبائى الكرام -تم إخفاء معظم كائنات قاعدة البيانات التى تخص دخول المستخدمين -نموذج الدخول يمكن من خلاله تسجيل مستخدم جديد فى انتظار الادمن للموافقة عليه وتصنيفه تبعا لمجموهة الصلاحيات << -----------< الادمن كده هيستريح الله الله الله -نموذج الدخول يمكن من خلاله استرجاع كلمة المرور فى حالة النسيان ولكن بعد ادخال بيانات التسجيل الصحيحة ( اسم الدخول - الاسم الرباعى - الايميل- سؤال الامان - اجابة السؤال) -امكانية كشف نجوم كلمة المرور ما تيجو نشوف كده قد يكون هناك اخطاء سهوا منى وقد تكون هناك لدى احد اساتذتى الكرام واحبائى فكرة افضل يسعدنى تلقى مقترحاتكم حول المرفق القاعدة مطروحة للتجربة ـــــــــــــــــــــــــــــــــــــــــــــ SecurityLevel group.accdb SecurityLevel group.mdb

شكرا

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

شكرا أخي ابا جودي نستطيع استعمال الكود بهذا الشكل من أجل ظهور جميع صيغ الصور في وقت واحد. .Filters.Add "IMAGE Files", "*.png, *.bmp, *.jpg, *.wmf"

قم بادراج ورقة وتسميهتا Salim (أو قم بتسمية اي ورقة فارغة Salim) ثم نفذ هذا الكود (و ترى النتيجة في شيت Salim) Option Explicit Sub REMOVE_DUPL() Sheets("Salim").Range("a1").CurrentRegion.Clear Sheets("Feuil1").Range("a1").CurrentRegion.Copy _ Sheets("Salim").Range("a1") Sheets("Salim").Range("a3").CurrentRegion.RemoveDuplicates _ Columns:=Array(2, 6, 7, 8, 9, 10 _ , 11, 12, 13, 14, 15), Header:=1 Application.CutCopyMode = False End Sub الملف مرفق Classeur32_A.xlsm

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

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

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

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

عمل رائع ومجهود ممتاز مشكور وجزاك الله خيراً

وفقك الله استاذي المحترم @ابا جودى عذبتك معي و الله .. ولكنني اظن اني انا من اسأت التعبير و المقصود !! في حال أن المربع n يحتوي على قيمة متضمنة لنص و ارقام معآ مثلا [79wwdddd652 ] فان قيمة m هي 20 أما في حال أن المربع n يحتوي على قيمة متضمنة لارقام فقط مثلا [123456789] فان قيمة m هي 0 حقك علي و الله

اتمنى اكون قدرت افهمك كويس اتفضل جرب 123-up.accdb

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

شكرا تم الانتهاء يغلق شكرا جزيلا استاذي مهند حسين

تفضل هذا التعديل الحاق من النموذج الي الجدول.accdb

نور الموقع بعودتك @ابا جودى الحمد لله على السلامة

تفضل لك ما طلبت ربط قائمة منسدلة بأخرى.xlsm

وعليكم السلام-تفضل ان لم يكن هذا هو المطلوب فعليك بتوضيح المطلوب اكثر ووضع شكل النتائج المطلوبة موزع.xlsx

قريبا إن شاء الله بسيطة

بعد ادن الاستادأحمد يوسف تفضل جرب المرفق مخزن الأثاث.xlsm

الماكرو يجب وضعه في كود الصفحة التي تحتوي على cmdSearch وليس في Module مستقل

تفضل Test 2.rar

بارك الله فيك -تحت أمرك

أخى الكريم محمد انا قلت لك سابقا ربما هناك مشكلة معى مع ملفك فلا اعلم ما هو سبب عدم استطاعتى وضع اى كود فى ملفك لذلك ارسلت لك هذا الرابط من داخل المنتدى ربما يفيد طلبك كثيرا https://www.officena.net/ib/topic/59928-شاشة-دخول-مع-صلاحيات/

تفضل index3.xlsm

اخى الكريم شوف بنفسك بارك الله فيك

استاذ محمد يوسف انا مش عارف افيدك لأنى مش عارف اضع اى كود فى ملفك لو ممكن تقوم برفعه بدون حماية

أخى الكريم كيف تقوم برفع ملف محمى وتطلب المساعدة انا لا استطيع اضافة اى كود ؟ من فضلك عليك برفع الملف مرة اخرى بدون حماية الصفحات بارك الله فيك

تفضل دالة تاريخ.xlsx

وعليكم السلام-لاحظ الصور هذه اسهل طريقة

وعليكم السلام تفضل ارشيف.rar

اخى الكريم لماذا لم ترى الملف ؟ كيف تقول ان هناك اختلاف وهو نفس الملف الذى ارسلته ارسل صورة الإختلاف لو سمحت طالما انك ترى ان هناك اختلاف

تفضل دفتر اليوميه كمال.xlsx

وعليكم السلام تفضل المطلوب.xlsx

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

الملف ليس به أى أكواد !!!! كما انك لابد من شرح المطلوب بكل دقة على الملف

أخى الكريم تم التعديل لاحظ بنفسك هذا هو الكود الجديد Sub DatedIf_User() Dim ws As Worksheet, Sh As Worksheet, Mh As Worksheet Dim ShName As String, Rng As Range, C As Range Dim LR As Long, VlDate As Variant Application.ScreenUpdating = False Set ws = Sheets(ActiveSheet.Name) VlDate = ws.Range("E2").Value '---------------------------------- LR = ws.Cells(Rows.Count, "C").End(xlUp).Row ws.Range("F10:H" & LR + 1).ClearContents Set Rng = ws.Range("E10:E" & LR) '---------------------------------- If IsEmpty(VlDate) = True Then MsgBox "من فضلك ادخل تاريخ حساب السن" Exit Sub Else On Error Resume Next For Each C In Rng If C.Value <> "" Then YY = Year(VlDate) y = Year(C.Value) mm = Month(VlDate) m = Month(C.Value) dd = Day(VlDate) D = Day(C.Value) '----------------------- If D > dd And m > mm Then C.Offset(0, 1) = dd + 30 - D C.Offset(0, 2) = mm - m + 11 C.Offset(0, 3) = YY - y - 1 '----------------------- ElseIf D <= dd And m > mm Then C.Offset(0, 1) = dd - D C.Offset(0, 2) = mm - m + 12 C.Offset(0, 3) = YY - y - 1 '----------------------- ElseIf D >= dd And m = mm Then C.Offset(0, 1) = dd - D + 30 C.Offset(0, 2) = mm - m + 11 C.Offset(0, 3) = YY - y - 1 '----------------------- ElseIf D >= dd And m < mm Then C.Offset(0, 1) = dd - D + 30 C.Offset(0, 2) = mm - m - 1 C.Offset(0, 3) = YY - y '----------------------- Else C.Offset(0, 1) = dd - D C.Offset(0, 2) = mm - m C.Offset(0, 3) = YY - y End If End If Next End If Application.ScreenUpdating = True End Sub