أ / محمد صالح

من قال أنها طريقة أخرى أخي الكريم؟؟!! هي نفس الطريقة والدليل لو استعملت الكود المذكور في المشاركة 9 بالطريقة الصحيحة يكون الناتج ملف كالمرفق ضعه في نفس مجلد myweb الخاص بك وشاهد النتيجة mas_web.rar

تفضل أخي الكريم هذا رابط لأحدث كود لهذا الغرض منقول من موقعه الأصلي http://blog.nkadesign.com/2008/ms-access-changing-the-color-scheme-programmatically/ ويمكنك تحميل ملف به الأكواد مرئية من نفس الموقع http://blog.nkadesign.com/wp-content/uploads/2008/05/ColorSchemeV1.3.zip ولمزيد من التوضيح الكود يقوم بقراءة اللون الافتراضي للأوفيس حاليا من خلال الريجيستري اعتمادا على نسخة الأوفيس 12 أو 14 وكود آخر يقوم بكتابة القيمة الجديدة في الريجيستري وكود آخر يقوم بإعادة تشغيل قاعدة البيانات ..... كل عام أنتم بكل خير

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

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

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

يمكنك عمل ذلك أخي الكريم بتعديل السطر الأخيرفي الدالة إلى التالي date_diff = IIf(years = 0, "", years & " عام و ") & IIf(months = 0, "", months & " شهر و ") & IIf(days = 0, "", days & " يوم و ") & IIf(Hours = 0, "", Hours & " ساعة و ") & IIf(Minutes = 0, "", Minutes & " دقيقة ") & IIf(Seconds = 0, "", "و " & Seconds & " ثانية ")

أخي الكريم تلاحظ أن علامات الفاصلة المزدوجة في الكود الأول حول اسم الملف فقط وليست حول كلمة مسار المشروع الحالي وتم وضعها حول جوجل لأنه نص أما في حالة وجود ثوابت أو متغيرات مع النص فلا يتم إحاطة الثوابت أو المتغيرات بعلامتي الفاصلة المزدوجة ويتم فقط إحاطة النص المختلط معها وهذا هو موضع الخطأ والصواب Private Sub Form_Load() Me.WebBrowser0.Navigate CurrentProject.Path & "\html\file1.html" End Sub وزيادة في الأمان يمكنك وضع المسار للملف بين قوسين Me.WebBrowser0.Navigate ( CurrentProject.Path & "\html\file1.html")

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

ضع هنا الكود الموجود في المشاركة 2 بدلا من جوجل سيتم استعراض الملف المذكور في المسار

أخي الكريم لإزالة الفرز أو حتى التصفية يمكنك استعمال هذا الكود DoCmd.ShowAllRecords

أخي الكريم يمكنك استعمال هذا الكود لتحديد الرابط الذي يتم فتحه في الكائن webbrowser في النموذج Private Sub Form_Load() Me.WebBrowser0.Navigate "http://www.google.com" End Sub أو عند الضغط على زر كما تحب وساعتها تستبدل جوجل بما تريد من روابط

أعتقد أن آلية عمل مراقبة لأعمال المستخدمين الآخرين ليست هكذا وإنما ينبغي علينا عمل جدول جديد وليكن اسمه actions يحتوي على اسم المستخدم و نوع الحركة وتاريخ الحركة وحينما يقوم مستخدم مثلا بإضافة سجل معين يكون ضمن كود الإضافة كود لإضافة سجل في جدول actions يوضح اسم المستخدم وأنه اضاف السجل رقم كذا في جدول كذا ويمكن للمراقب قراءة هذا الجدول ضمن صلاحياته هو وحده والله أعلم

والله أنا لم افهم ما تقصد ومادمت وصلت للحل فينبغي عرضه هنا لإخوتك فلربما تعرض أحدنا لمثل هذا الموقف ويفضل أن يكون عرضك للموضوع بالتفصيل ومدعما بالصور إن أمكن كل عام أنتم جميعاً بكل خبر

وعليكم السلام ورحمة الله وبركاته يمكنك جعل مسار الملفات مرتبط بمسار البرنامج فلو مثلا وضعت الصفحات في مجلد باسم html والملفات اسمها file1.html يمكن استدعاؤها كالتالي CurrentProject.Path & "\html\file1.html" وهكذا

نعم يمكنك ذلك أخي الكريم ضع في الخاصية interval القيمة 1000 وضع هذا الكود في حدث ontimer Private Sub Form_Timer() Label5.Caption = date_diff([NDate], Now()) End Sub تم إضافة تسمية label لظهور التاريخ الذي يتم تحديثه عليها ومرفق ملفك بعد التعديل Mas_TimeAndDate.rar

رائع أخي يحياوي كل عام أنتم بخير ولمن يريد إغلاق الملف وعدم إطفاء الجهاز يضع رمز التعليق قبل السطر التالي Shell "shutdown -s -t 02", vbHide لأنه هو المسئول عن إطفاء الجهاز

المشكلة في ملفك أخي الكريم هي جعلك لتنسيق التاريخ في حقل الآن hh:mm:ss والصواب yyyy/mm/dd hh:mm:ss حتى يظهر كما بالصورة المرفقة مني وكذلك التاريخ الثاني .... بالنسبة لآلية عمل الدالة من خلال تتبع الكود تجد أن : السنين هي السنة الجديدة - السنة القديمة وإذا كان الشهر القديم أكبر من الشهر الجديد يتم طرح سنة من السنوات وإضافة 12 شهر على الشهر الحالي وإذا كان الشهر الحالي أكبر فالشهور هي طرح الشهر الحالي - الشهر القديم وهكذا

اعذرني أخي الكريم فلم افهم المطلوب بالضبط ياريت توضح المطلوب على الملف المرفق في المشاركة 16 http://www.officena.net/ib/index.php?showtopic=39025&view=findpost&p=215168 وهل هو لا يفي بالغرض؟

كل عام أنتم بخير أخي الكريم أبا خليل لم أنتبه إلى أنه يوجد تنسيق في مربع النص لذلك بنيت فكرتي على أن يظهر الفارق بنصه الموجود في الكود .... وطبعاً كما قلت يجب الاستغناء عن تنسيق التاريخ الموجود في مربع النص بالنسبة للأخ lording كل عام والجميع بكل خير

بارك الله لك إنها سليمة 100% وهذا الدليل هذه هي البداية أن تحاول

نعم هذا ممكن إذا كان التاريخ القديم أيضا مسجل بتنسيق به الساعة والدقيقة والثانية وليس مجرد تاريخ به اليوم والشهر والسنة لأن في هذه الحالة سيتم اعتبار الوقت هو الثانية عشرة صباحاً بمعنى 1/1/2000 تساوي 1/1/200 00:00:00 ولكن أترك لك فرصة استنباط خط سير الكود وتنفيذه على الساعات والدقائق والثواني كما تم تنفيذه على السنين والشهور والأيام وتذكر المثل الرائع لا تعطني سمكة ولكن علمني كيف أصطاد

تفضل أخي الكريم المرفق كما تريد ... تم حذف التحقق من صحة الأوزان تغيير المعادلة لتقرأ من خلية أخرى بها الوزن بعد تنزيله لأقرب 500 mas_(3)_2.rar

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

خيراً فعلت أخي محمد ونعم الرجال أخي عبد الله وأخي عماد الحسامي وفقنا الله جميعاً لكل ما يحب ويرضى وكل عام أنتم جميعاً بكل خير

في هذه الحالة يمكنك استعمال هذا الكود في حدث بعد التحديث R_AfterUpdate Me.Recordset.FindFirst "المعرف = " & [R] بدلا من DoCmd.GoToRecord acDataForm, "نموذج1", acGoTo, [R] لأن الكود الثاني للذهاب لسجل معين بدلالة رقمه أما الكود الأول فهو خاص بالبحث عن السجل بدلالة حقل من حقول الجدول