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

السلام عليكم ورحمة الله وبركاته إليك الملف بعد التعديل لعل يكون هو المطلوب. النسب5.rar

السلام عليكم جرب الكود التالي Public Sub Ali_Rebt() Dim Nm As Variant Dim Nm_Cl As New Collection Dim Tr_Nm As Variant Nm = Range(Cells(1, 2), Cells(2, 11)).Value On Error Resume Next For Each Tr_Nm In Nm Nm_Cl.Add Tr_Nm, Tr_Nm Next Tr_Nm On Error GoTo 0 For Tr_Nm = 1 To Nm_Cl.Count Cells(4, Tr_Nm) = Nm_Cl(Tr_Nm) Next Tr_Nm End Sub

اخى الحبيب يمكن ان تزور هذا الرابط وستجد طلبك باذن الله http://www.officena.net/ib/index.php?showtopic=42476 وهذا الرابط ايضا http://www.officena.net/ib/index.php?showtopic=42526&page=1

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

الاكسس يحفظ آليا بمجرد ادخال لبيانات وهذا هو كود الحفظ DoCmd.Save أو DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

بعد اذن اخوي ابو خليل الاخ فارس مع ابقاء الكود اعلاه ، قم بانشاء زر في راس الفورم Form Header ثم من خصائص الزر ضع خاصيه Transparent من تاب Format الى نعم , ومن تاب other ضع خاصيه Cancel الى نعم بعد ذلك ضع الكود التالي في حدث on Click للزر DoCmd.Close acForm, Me.Name ثم قم بالحفظ و تجربه مفتاح ESC

الاخ فارس بارك الله فيك هناك قاعده مهمه في الاكسس وهي لا تقم بتخزين القيم المحسوبه الناتجه عن عملية حسابيه بين حقلين في جدول او اكثر ، بل الاكسس يقوم بالعمليات الحسابية عن طريق الاستعلام لانه لا يوجد فائده من تخزينها لكي لا تضخم قاعده البيانات اذا كان لابد من ذلك راجع الرابط التالي الذي يشرح الطريقه باستخدام الاستعلام الحاقي http://office.microsoft.com/ar-sa/access-help/HA010076526.aspx بالتوفيق

أخي ( office 2003 ) إليك ماطلبت تم تعديل الرابط بسبب شرط المعادلة =AND(COUNTIF($B$2:$B28;$B3)=1;LEN(B3)<=7;ISNUMBER(B3)) حيث تم تغيير شرط (LEN(B3)<=7 )بدل (LEN(B3)=7 ) حيث يقوم بقبول القيم الأقل من عدد الأحرف الأقل من ال7 أحرف أما عن شرح المعادلة: تشمل المعادلة ( 3 ) شروط هي : 1- (COUNTIF($B$2:$B28;$B3)=1 ) وبالطبع هذه المعادلة قتلت بحثا وسبق وزملائي الأعزاء بشرحها وهي خاصة بعدم تكرار الرقم 2- ( LEN(B3)<=7 ) وهي دالة تقوم بالموافقة علي القيم التي لايزيد عدد أحرفها عن سبع أرقام 3- ( ISNUMBER(B3 ) وهي الأهم حيث تحدد هذه الدالة أن القيم الموجودة في الخلية والغير مكررة وعددها لايزيد عن ( 7 ) أرقام لابد وأن تكون رقم وليست نص أي أن الخلية لاتقبل ( إلا الأعداد وليس النصوص ولاتكرر وليزيد عدد أرقامها عن ( 7 ) أرقام . وبالطبع نستطيع تغيير شرط الرقم لتقبل أعداد عدد حروفها أكبر ، ونجعلها تقبل النصوص أيضا وهكذا منع تكرار رقم في العمود4.rar