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

السلام عليكم بالاضافة الى طريقة اخي شفان ، هناك طريقتين بحثت عنهم: 1. https://msdn.microsoft.com/en-us/library/aa211469(v=office.11).aspx 2. كما في المرفق نستعمل الوحدة النمطية من الرابط التالي: http://access.mvps.org/access/api/api0068.htm والتي تمسك مفتاح الشفت برمجيا ، ومنه لا يعمل الماكرو Autoexec جعفر 609.zip

بالعكس اخي أوس ، انا اتعمد فك الكود الى اسطر بالتفصيل ، حتى يكون الكود سهل الفهم (بس الظاهر جبت اسمي وقصدك @رمهان بكوده المختزل) واليك شرح الكود: Dim rst1 As DAO.Recordset Dim rst2 As DAO.Recordset نحتفظ ببيانات الجدول1 في هذا المتغير#1 في ذاكرة الكمبيوتر المؤقته Set rst1 = CurrentDb.OpenRecordset("Select * From tbl1") بينما نحتفظ ببيانات الجدول2 في هذا المتغير #2 في ذاكرة الكمبيوتر المؤقته Set rst2 = CurrentDb.OpenRecordset("Select * From tbl2") من الآن ، تقريبا كل شغلنا على #1 ، حيث سنقرأ سجلات الجدول جميعها ، ثم نقارن حقلي الاسم والشهادة فاذا وجدنا القيم متساوية في #2 ، فاننا نحذف سجل #2 علشان نبدأ من اول سجل ، يجب ان نذهب الى آخر سجل ، ثم نرجع لأول سجل rst1.MoveLast: rst1.MoveFirst الآن نستطيع حساب عدد السجلات الموجودة في #1 RC1 = rst1.RecordCount الآن سنقرأ جميع سجلات #1 For i = 1 To RC1 اسم حقل الاسم يختلف في الجدولين ، فانتبه له ، بينما اسم الشهادة هو نفسه بين الجدولين لذا الذي نعمله هنا هو اننا نقارن حقلي الاسم والشهادة في السجل في #1 ، ونختبر وجودهما في الجدول #2 rst2.FindFirst "[degree]='" & rst1!degree & "' And [names]='" & rst1!fullnames & "'" اذا "عدم المطابقه" خطأ ، معناه انه في مطابقة بين الحقلين في هذا السجل ونستخدم هذه الطريقة ، لأنها الاسهل If rst2.NoMatch = False Then اذن ، احذف هذا السجل من #2 rst2.Delete End If انتقل الى السجل التالي في الجدول #1 rst1.MoveNext Next i هذه الجزئية جدا مهمة ، لأننا جعلنا الجدولين في ذاكرة الكمبيوتر المؤقته ولكي نُخلي الذاكرة ، يجب عمل التالي rst1.Close: Set rst1 = Nothing rst2.Close: Set rst2 = Nothing جعفر

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

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

أشكر لك حسن ظنك بى سأطلع على مرفقك وأوافيك بما أعرف ان شاء الله متى سمح الوقت ان شاء الله

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

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

للعلم اذا اردت ان تنادي عضو لموضوعك ، فهناك طريقة لإرسال تنبيه له ، هكذا: اكتب @ وبعدها اكتب الاسم مباشرة ، واذا اردت التنبيه لأكثر من عضو ، فاترك مسافة بينهم مثلا ، سأرسل تنبيه اليك والى اخي أوس واخونا العود ابوخليل: @Shivan Rekany @sandanet @ابو خليل

اليك هذا الحل غير اسم نموذج dll Alll الى dll_All واستخدم هذا الكود Dim appAccess As Access.Application Set appAccess = New Access.Application appAccess.OpenCurrentDatabase ("D:\end.accdb") appAccess.DoCmd.Close acForm, "del_all", acSaveNo appAccess.DoCmd.OpenForm "test" appAccess.Visible = True appAccess.UserControl = True اي تم اضافة كود اغلاق نموذج ديل ال فقط ... اي تم الاضافة الكود الاسفل فقط appAccess.DoCmd.Close acForm, "del_all", acSaveNo تحياتي

السلام عليكم جرب هذا الكود وأنت في الصفحة الثانية Sub n_print() LR = Sheets(1).[B9999].End(xlUp).Row rr = 3 5 If IsEmpty(Sheets(1).Cells(rr, 3)) Then GoTo 10 If rr > LR Then Exit Sub [E16] = Sheets(1).Cells(rr, 2) ActiveWindow.SelectedSheets.PrintOut Copies:=1 10 rr = rr + 1 GoTo 5 End Sub أو تفضل المرفق به زر معادلة.rar

كسر حماية الوحدة النمطية متوفر، والقصد من commercial معناه بأنهم يقومون بالعمل بأجر مادي شو المشكلة اخي الو عبدالله !! الموضوع ليس بجديد وصار له سنين ، والحمدلله ، مافي شئ من برامجنا تأثر واللي يريد يسرق ، يحصل له الف طريقة !! جعفر

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

يمكن ذلك AMAN salim sans eqts.rar

access.rar قاعدة البيانات

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

جميل جدا ما فعلته كان عبارة عن تقرير للجدول على شكل مستطيلات ما أريده هو بناء جدول كامل وليس فقط مستطيلات أي جدول مترابط مثل جداول الوورد لا أدري ان كان استفساري غير مفهوم ولكن جل ما أريده هو جدول وليس مستطيلات أو مربعات مثل جداول الوورد تماما