أ / محمد صالح

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

شكرا لك أخي الكريم ولكن هذا البرنامج يعمل فقط على أوفيس 2007 وتم تضمينه في أوفيس 2010

البرنامج جميل وأنا استعمله من سنوات ولكن لا أدري لماذا يظهر برنامج avast6 أنه فيروس ولا يسمح لي بتشغيله ويخبر أنه قد يضر بجهازك

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

هذا الشيء يوجد بصورة افتراضية في شريط التنقل الموجود أسفل كل نموذج

أخي الكريم ممكن أقوم بها ولكن حاول أنت أولاً معنى الكود الذي في الزر التالي هو إذا كان السجل الحالي اقل من عدد السجلات في جدول1 يتم الانتقال للسجل التالي وإذا كان مساويا لعدد السجلات لا يتم الانتقال بل يتم ظهور الرسالة ............ جرب أنت أن تضع الكود للزر السابق للعلم لن تستعمل عدد السجلات لآنك لن تحتاجه في شيء

بسم الله الرحمن الرحيم كل عام أنتم جميعاً بخير ..... يوجد امتداد ملفات اسمه shs وهو خاص بميكروسوفت أوفيس Shell Scrap Object File وينتج هذا الملف عند نسخ نص من ملف وورد مثلا أو أي برنامج ضمن الأوفيس ثم لصق ما تم نسخه في مجلد وليس في ملف من جنسه هذا الامتداد كان يفتح بمجرد الضغط المزدوج بالفارة على الملف في أوفيس 2003 وويندوز إكس بي ولكن اختلف الأمر مع ويندوز 7 فهذا الملف غير مدعوم ولا يفتح مع برامج الأوفيس 2007 أو 2010 ............. ولمن عانى من هذه المشكلة واستكمالاً لسلسلة (ما خف وزنه وغلا ثمنه) أقدم لكم الحل الأكيد فقط اتبع التعليمات في المرفق وستجد كل شيء على ما يرام ..... ولا تنسوني من صالح دعائكم open .shs in win7.rar

يمكنك استعمال هذا الكود أخي الكريم Private Sub Command13_Click() If CurrentRecord < DCount("المعرف", "جدول1") Then DoCmd.GoToRecord , , acNext else msgbox "لا يوجد سجل لاحق" End If End Sub

أخي الكريم أنس للانتقال إلى خلية معينة وليكن مثلا A1 استعمل الكود التالي range("a1").select نأتي إلى نقطة في ورقة محمية إذا كانت الورقة محمية ضد تحديد الخلايا المحمية يجب عليك تضمين كود إلغاء حماية الورقة قبل كود الانتقال وهو كالتالي ActiveSheet.Unprotect Password:="mas" نأتي إلى عند الضغط على مفتاح الإدخال Enter وهنا أقول لك اختر اي مفتاح آخر غير انتر لأنك ستفقد وظيفته الأساسية إذا قصرت وظيفته على هذا الأمر وساعتها سأعرض لك الكود بإذن الله

بارك الله فيك أخي سعيد ونفع بك وجزاك الله كل الخير في الدنيا والآخرة

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

أخي الكريم lordring ضع في حدث الضغط على زر التالي هذا الكود Private Sub Command13_Click() If CurrentRecord < DCount("المعرف", "جدول1") Then DoCmd.GoToRecord , , acNext End If End Sub وجرب وأخبرني بالنتيجة

بارك الله فيك أخي الكريم أبو خليل وزادك الله علما ونفع بك

أخي شاعر لوقف هذه الرسائل استعمل الأمر التالي DoCmd.SetWarnings False قبل كود الاستعلام ولا تنس أن تعيد قيمتها إلى true بعد تنفيذ الاستعلام DoCmd.SetWarnings True ..... وبالنسبة لموضوع تسجيل وقت الخروج ضع كود استعلام التحديث لوقت الخروج في حدث عدم التحميل للنموذج Private Sub Form_Unload(Cancel As Integer) Your code here End Sub ولا تنس تعطيل التحذيرات قبل تنفيذ الاستعلام وتمكينها بعده

شكرا لتواصلك أخي العزيز م / محمد طاهر أستخدم نسخة ويندوز 7 - 32 بت ولكن هل حملت الموصل من رابط الميديا فاير أم من موقعه؟ لأن الرابط في ميديا فاير 32 بت ولذا يفضل تحميله من موقعه والتسجيل فيه لكي تحمل النسخة الموافقة لنظامك 64 بت ربما يكون هذا هو السبب

أخي الكريم عماد دائما سباق إلى الخير كنت أفكر في استعمال الأمر crop ولكنك سبقتني جزاك الله كل خير وكل عام وجميع الأحباب في منتدانا بكل خير

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

ويمكن اختصار الكود ليصبح Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub Target.Offset(0, 1).Value = IIf(Target.Value <> "", Format(Now(), "hh:mm:ss"), "") End Sub

بارك الله فيك أخي عبد الله حلك أفضل من حلي لأن عملية الحساب تقوم بتغيير التواريخ السابقة لأحدث تاريخ موجود أما في الكود الذي تفضلت به فيحتفظ الملف بالتاريخ القديم ويغير فقط تاريخ الخلية التي تمت الكتابة فيها وفقك الله لكل ما يحب ويرضى واسمح لي بإضافة بسيطة ربما يحتاجها أخي صاحب الموضوع وهي حذف التاريخ من الخلية إذا حذفت القيم من خلية في العمود الأول ليصبح الكود هكذا Private Sub Worksheet_Change(ByVal Target As Range) LR = Range("A" & Rows.Count).End(xlUp).Row If Target.Column <> 1 Then Exit Sub If Target.Row > LR Then Exit Sub If Cells(Target.Row, 1).Value <> "" Then Cells(Target.Row, 2).Value = Format(Now(), "hh:mm:ss") Else Cells(Target.Row, 2).Value = "" End If End Sub

دالتك صحيحة أخي الكريم ولكن يلزمها تحديث البيانات استعمل هذا الكود بعد الضغط دبل كلك على this work book Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.Calculate End Sub ولا تنس أن تجعل تنسيق الخلية التي بها المعادلة تاريخ

عذرا أخي العزيز عبد الله لم أر مشاركتك وقت إرسالي مشاركتي وفقك الله لكل خير دائما سبّاق إلى الخير

جرب هذه المعادلة =DATE(YEAR(A1),12,31)

شكرا على الكود الجميل أخي محمد يحيى وأعتقد أنه يتم بهذا الكود أيضا تحجيم الصورة With ActiveSheet.Shapes("picture 2") .Width = .Width * Range("a1").Value .Height = .Height * Range("a1").Value End With ولكني أعتقد أن الأخ أبو الشرف لا يريد تحجيم الصورة وإنما يريد ظهور 20% من الصورة والباقي يكون مختفي وهكذا إلى أن تظهر الصورة كاملة وهذا أيضا له حل بإذن الله ..... فعندما يتم التوضيح من الأخ ابو الشرف يتم الرد بإذن الله

أعتقد أن مثل هذا الأمر لا يمكن معالجته بالمعادلات

هل عدد الخلايا غير الملونة ثابت؟