رمهان

اخ سيفين ممكن تقول الهدف من الذي تريده ! لو قلنا انك تريد البحث في كل الجداول ! ماذا لو وجد البحث في اكثر من جدول ! واعتقد ان الكود هنا يحتاج اختزال ليسهل تتبعه والتعديل عليه ! بل فهمه ! فلم افهم لماذا الامر التالي عند عدم تطابق البحث rs.MoveNext ! فهذه مايبيلها اختزال بل يبيلها شلوطي من الكود ! تحياتي

ما رأيك بهذا السطر اخ كامل Application.FollowHyperlink "C:\Users\INFO-SEIF\Desktop\Doc2.docx" بالتوفيق

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

السلام عليكم مع انشغالي ولكن حبيت ان اوضح نقطة ممكن تخفى على الكثير وهي انه حسب نوع recordset ! قد تحتاج المرور على السجلات فقط اذا كان النوع dynaset مستخدما جملة sql ! بالتوفيق

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

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

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

عزيزي لا اعتقد انه سيتم الحذف عند اختيار "لا" من الرسالة التحذيرية مع وجود رسالة الخطا عالعموم لتلاشي هذه الرسالة التخذيرية وهي تسمى التاكيد للاستعلامات الاجرائية وتستطيع ايقافها من خلال خيارات الاكسس > اعدادات العميل > تعديل : وتمسح علامة الصح من الخيار استعلامات اجرائية وهنا في الكود نوقفها فقط لحظيا ونعيد تفعيلها وبعد الانتهاء من مهمة الكود هذا الكود ومحاولا ان يبقى كودك كما هو يقوم باطفاء الرسائل التحذيرية ومع وجود رسالة خيار للمستخدم بالاستمرار من عدمه Private Sub delete_Click() DoCmd.SetWarnings False If [passworddelet] = 123 Then If MsgBox("مواصلة الحذف ..؟", vbYesNo) = vbYes Then DoCmd.OpenQuery "delete", acViewNormal Else MsgBox " كلمة السر خاظئة " DoCmd.Close End If DoCmd.SetWarnings True End Sub بالتوفيق تفضل بشرح برنامجك ولماذا الحذف ولماذا حذف المواد وليظهر لنا التصور الصحيح لحالتك ! تحياتي

ضع هذا التعبير في المربع الاول =Mid([nall];1;1) وفي المربع الثاني =Mid([nall];2;1) وهكذا حتى المربع 10 =Mid([nall];10;1) بالتوفيق

ارفق مرفقك اخي الغالي

عمل رائع كصاحبه !

تفضل بالتوفيق

السلام عليكم الصق هذه الجملة في محرر الاستعلام ويمكنك عرض التصميم للفهم اكثر DELETE الطالب.[رقم الطالب], * FROM الطالب WHERE (((الطالب.[رقم الطالب]) In (select [رقم الطالب] from [الدرجة] where [تاريخ التقديم] between #1/1/2015# and #1/1/2016#))); تنبيه : لو كان هناك سجلا في الدرجات لاحد الطلاب به تاريخ يوافق شرط الحذف لمادة ولا يوافقه لمادة اخرى ! فانه وحسب تصميمك للقاعدة سيتم حذف المواد التي لاتوافق الشرط وذلك لانه تم حذف الاب وهو الطالب لتطابق سجل واحد للحذف وبالتالي ستحذف السجلات المرتبطة جميعا وضمنيا الغير مطابقة للشرط ! فانتبه ! بالتوفيق

عزيزي واخي الاستاذ جعفر طبعا انت ابو الاكواد ! فاكيد كل شي بيصير معك ما شاء الله ! انا واخينا محمد عصام اصبحنا مش قادرين نعمل استعلام " ركز استاذ جعفر استعلام اختيار " لجلب الاعمدة من الجداول الثلاثة ولتصبح كما بشكل ورقة البيانات الموجودة بالمرفق ! وهذا اعتبره الخطوة الاولى للحل ! وهنا ارفقت مرفق به جدول رابع لالحاق الحقول الثلاثة به ومن الجداول الثلاثة الاولى واعتمدت تسميتها بنفس تسمية الاخ محمد عصام في نفس المشاركة الاولى ! هنا استاذ جعفر تفضل علينا بطريقة الكود لعمل الالحاق وليظهر table4 به قيمة الاعمدة الثلاثة ومن الجداول table1,table2,table3 وليصبح كما بورقة الاكسل المرفقة بالتوفيق mo_esam_sample.rar

اليس هذا سؤالك اخ محمد ؟ لان في السؤال اختيار ثلاث حقول من ثلاث جداول ثم الحاقها في جدول ثالث ؟ وهنا احنا في جزئية الاختيار اولا ! وهنا للعلم : برضه انا مش قادر اعملها ؟ ولا اعتقد الاستاذ جعفر كذلك ! واعتقد ان الاكسس نفسه مش قادر ! وهنا لي عودة بعد نيفا من الوقت ! تحياتي

اخي بسام انت قمت بطريقة بحث وتعمل تمام ! فانت قمت باستخدام وضع علامة البدل * في الاول والاخير للنص المراد البحث عنه ! وبرنامجك يطبق هذا بنجاح ! فالكمبيوتر لا يعرف مايدور في ذهنك ! فالجملة :"/لوجستيك" تختلف عن "لوجستيك/" فيعتبر / هنا حرف ! وهنا ساسالك : هل الجملة :" ميناء/لوجستيك " موجودة؟ طبعا الجواب لا ! وهذا ماقام به البرنامج ! الان اعتقد انك تريد برنامج او فكرة اخرى : اعتبار الجملتين " ميناء/لوجستيك " و " ميناء/جدة/لوجستيك " هما واحدة عند البحث ؟ فهل هذا ماتريد؟ بالتوفيق

حياك الله اخينا الكريم ومع انه لم يتم ارفاق صورة للخطأ او نص رسالة الخطأ ولكن يتوقع ان تكون احد النقطنتين التالية : 1. تلاحظ وجود مسافة قبل اسم القاعدة وليصبح Source=D:\rr.mdb 2. التاكد من مسار القاعدة الصحيح وانه يوجد درايف باسم d بالتوفيق

حبيت انبه اخي جعفر بان المسؤول عن كشف نوع الاوفيس من ناحية 32 بت او 64 بت هو التعبير التالي : #If Win64 Then ' Win64 #Else ' win 32 #End If وليس vba7 فهذه لكشف اصدار محرر الفيجول بيسك والذي سيعتبر لكشف اصدار الاوفيس حيث 7 تشير لاوفيس 2010 وما فوق ! هذا وسيكون لي محاولة وبموضوع جديد حول الاصدارين 32 بت و 64 بت الفرق والاعتبارات ! تحياتي للجميع

السلام عليكم مع انني مشغول جدا ولكن السائل اعلى من كل انشغالاتي ولاني لم ارى الجواب شافي من اخي وحبيبي الاستاذ جعفر هنا يا استاذ محمد انت سالت سؤال تراوغ منه لغة الاستعلامات الاكسس ! لانها مش قادره عليه ! هنا خلينا نعمل حاجة في الاستعلامات select وحنسيب الالحاق لاحقا ! انا عملت مايدور في ذهنك او حسب سؤالك وارفقته كملف اكسس ! والمطلوب كملف اكسل وهذا اللي احنا عايزينه ! احنا خلينا نعمل نتيجة ت زي اللي بالاكسل بعدين نرجع لموضوع الالحاق ! فاريدك تحاول ! بالتوفيق mo_esam.rar

شفت اخوك كيف !؟

هذا نصيبي من الكود !

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

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

حياك الله اخ شوقي واتمنى لك التوفيق وهذا تعديل بسيط على الدالة Function access_work_days(fdate As Date, edate As Date) For i = fdate To edate x = x + (Weekday(i) = 6 Or Weekday(i) = 7) Next access_work_days = edate - fdate + x + 1 End Function واعتقد هي ادق في الحسبة وبعد التجربة ! قارن بين الدالتين وفي الاشهر 2 و 3 و 5 و 6 و 8 و 9 و 11 و 12

وده كلام برضه اخي شوقي ؟! هذا الكود عندك وساكت : Public Function WorkingDays(StartDate As Date, EndDate As Date) As Integer On Error GoTo Err_WorkingDays Dim intCount As Integer StartDate = StartDate + 1 intCount = 0 Do While StartDate <= EndDate Select Case Weekday(StartDate) 'الجمعه و السبت Case Is = 6, 7 intCount = intCount Case Is = 1, 2, 3, 4, 5 intCount = intCount + 1 End Select StartDate = StartDate + 1 Loop WorkingDays = intCount Exit_WorkingDays: Exit Function Err_WorkingDays: Select Case Err Case Else MsgBox Err.Description Resume Exit_WorkingDays End Select End Function وبامانة انت جايبه من مكان والا انت اللي عامله ! وفي نفس الوقت ماشوفتش الكود الرمهاني بتاعي في ملفك ؟ تحياتي