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

بالاذن من الاستاذ محمد هشام. طريقة أخرى Sub test() Range("A1:AI35").Interior.Color = xlNone For I = 14 To 15 Range("A1:AI35").Cells.Find(Range("AL" & I), , , 1).Interior.Color = vbRed Next End Sub

السلام عليكم ورحمه الله وبركاته يجب عليك الابتعاد عن الاسماء المحجوزه ومنها Name تم التعديل ع الوضع الحالى فالسطر التالى a = DLookup("[ID]&'|'&[Name]&'|'&[age]", "Patient", "[Name]='" & Me!Name & "'") بالتوفيق برنامج الطفيليات_2.accdb

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

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

أخي الفاضل ابحث بالمتدى عن كلمة (كتشنة) بتحصل العديد من البرامج . ووافني بالرد .

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

استاذ kkhalifa1960 المحترم الله يحفظك ويوفقك وفيت وكفيت . والله يحفظ بلدي الثاني البحرين واهلها الطيبين .

أستاذ @بونس الخطابي هل المرفق هذا طلبك ؟ واذا غير طلبك وضح من فضلك . اذا كان هذ طلبك لا تنسى الضغط على أفضل اجابة . تدوير الحقول-2.rar

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

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

استخدم هذا الكود مع اى فورم هذا للاضافة Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("tabr", dbOpenDynaset) With rst .AddNew ![id] = ![nom] = ![sand] = ![datee] = ![resever] = ![rasee] = ![faree] = ![onde] = ![oytde] = ![indo] = ![outdo] = ![daleel] = ![notes] = ![years] = .Update .Close End With Set rst = Nothing db.Close Set db = Nothing عطل ما تريد تعطيله وفعل ما تريد ترحيله ------------------------------------------ هذا للتعديل Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("tabr", dbOpenDynaset) With rst .FindFirst Criteria:= If Not .NoMatch Then .Edit ![id] = ![nom] = ![sand] = ![datee] = ![resever] = ![rasee] = ![faree] = ![onde] = ![oytde] = ![indo] = ![outdo] = ![daleel] = ![notes] = ![years] = .Update End If .Close End With Set rst = Nothing db.Close Set db = Nothing اتمني هذا ما تريده

وانتم كذلك . 1-انت أخذت القيم من الكروستاب كوىري فلازم يعطيك الفراغات فعملت الكوريي1 وأخذت منه القيم في كويري الاضافة . 2- هل تقصد اضافة حقل جديد أي اسم جديد أو ماذا فصل من فضلك .

تفضل أخي ووافني بالرد . تدوير الحقول-1.rar

أخي الكريم هناك مشكلة في البيانات التي في الجدول Data ، فمثلاً عندك الصف الأول تكرر ٧٥ مرة ، مع العلم أنه في الجدول tb_sry لديك مجموعتين من كل صف ولم يتم تحديد المجموعة في الجدول data . على العموم ، قمت بإضافة حقل جديد في الجدل data برقم المجموعة ، وهذه تجربتي البسيطة ، فقط قم باختيار الصف في النموذج وسيتم انشاء الرقم السري حسب البيانات . الرقم السري.accdb

اتفضل اخي الكريم هذا هو الملف بعد ما تم التعديل عليه كما تريد 19-1.rar

وعليكم السلام ورحمة الله تعالى وبركاته تفضل جرب اخي Sub FindCouleur() Dim j(1 To 2) As String, F As Variant Dim a As Range, R As Range, T&, Cpt&, lCol&, lrow& Dim WS As Worksheet: Set WS = Worksheets("0") Application.ScreenUpdating = False lrow = WS.Cells.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row lCol = WS.Cells(1, Columns.Count).End(xlToLeft).Column j(1) = [Al14]: j(2) = [Al15] Set a = WS. _ Range("A1", WS.Cells(lrow, lCol)) F = Array(j(1), j(2)) With a .Interior.ColorIndex = xlNone For Cpt = LBound(F) To UBound(F) Set R = .Cells(.Cells.Count) For T = 1 To WorksheetFunction.CountIf(a, F(Cpt)) Set R = .Cells.Find(What:=F(Cpt), LookIn:=xlValues, LookAt:=xlWhole, _ After:=R, MatchCase:=False) R.Interior.Color = vbYellow Next T Next End With Application.ScreenUpdating = True End Sub أرقام.xlsm

تفضل hakim11.xlsm

هذه طريقتي في إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) هو كود وقد عملت له نموذج لتسهيل العمل .. 🙂 الكود يقوم أيضا بترتيب وتنسيق العناصر في شكل منتظم لتسهيل عملية التصميم 😊 إقرأ الملاحظات جيدا قبل أن تطبق 😉👌🏻 النموذج : النتيجة ستكون هكذ : ( من >>>> إلى ) >>>> >>>> للاستفادة من هذا النموذج .. قم بنقل النموذج لقاعدة البيانات عندك وسيتعرف تلقائيا على النماذج التي عندك 🙂 ملف التحميل : إعادة تسمية العناصر مع الترتيب بواجهة مرنة.accdb

اهداء لأخوتي في المنتدى فورم ادخال بسيط وتم عمل شاشة دخول للبرنامج بباس ورد ويوزر يمكن تطويعة كيفما تريد عسى ان ينفع به احد الاخوة للدخول للبرنامج User Password Wael Wael@19637 Elhadi 2014 حماية الكود Wael@19637 login.rar

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

الاخوة الاعزاء طبتم بناء عن طلب احد الأخوة قمت بفضل الله بعمل ملف يقوم بتشفير البيانات وثحويلها لباركود ثم العملية العكسية لفك التشفير فيما يمكن استخدامه ؟ 1-تشفير كلمات المرور 2-تشفير البيانات بالكامل داخل ملفات الاكسيل والعديد من الافكار ادعوا الله ان يكون مفيدا" باركود مع التشفير واعادة فك التشفير.rar

اي خدمة يا معلم :) ما عاش اللي يخبي عليك الاكواد :) login - Copy.rar