أ / محمد صالح

أخي باسم سعيد كل عام أنتم جميعا بخير وبعد إذن أخونا عبد الله (أبو أحمد) هذه محاولة مني في الوصول للمطلوب ولكن من خلال درجات السلم أتمنى أن تكون هي المطلوب mas_(3).rar

أخي حسام ياريت مزيد من التوضيح ما العلاقة بين 7 و 2؟ ما الذي يجعل حقل الإيراد 2؟ ممكن نقول الصافي طرح 7-2=5 ولكن ما العلاقة بين 7 و2؟ هل تقصد ما يزيد عن نصف الواحد الصحيح أو 0.5؟

شكرا لك أخي الكريم وكل عام أنتم بخير بمناسبة عشر ذي الحجة

أخي الكريم موضوع ربط الزر بصورتين ينبغي أن يكون الصورتين مخزنتين بمجلد مجاور للقاعدة ولكن يفضل استعمال النص تصاعدي وتنازلي بدلا من استعمال الصورتين ولعمل ذلك استبدل الكود في الموديول بالتالي Public Sub ChangeSortOrder _ (frm As Form, strFld As String) On Error GoTo ErrHand If frm.OrderBy = strFld Then 'If it's already ordered by this field name, 'you want to reverse it. frm.OrderBy = strFld & " DESC" frm.أمر455.Caption = "تنازلي" Else frm.OrderBy = strFld frm.أمر455.Caption = "تصاعدي" End If frm.OrderByOn = True ExitProc: Exit Sub ErrHand: MsgBox Err.Num & " " & Err.Desc GoTo ExitProc End Sub

أخي الكريم يفضل إرفاق الملف موضع المشكلة

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

الحمد لله على كل حال

أخي الكريم أبو أحمد يبدو أن نظام التشغيل لديك هو ويندوز 7 إذا كان كذلك فاذهب إلى Start ----> Control panel -----> Change keyboards and other input methods ---> Administrative وقل لي ما هي اللغة بالبرامج غير ذات الترميز العالمي Language for non-unicode Programs وإذا كانت غير العربية غيرها للعربية التي تستخدمها ..... جرب وأخبرني بالنتيجة

ما هو الحل؟

الحاجة أم الاختراع دالة جميلة أخي محمد واسمح لي باختصارها كالتالي Function u2e(d As Double) As Double u2e = ((d + 36000) / 86400) + 25569 End Function Function e2u(d As Double) As Double e2u = ((d - 25569) * 86400) + 36000 End Function بارك الله لك ووفقك إلى كل ما يحب ويرضى

أخي علي مطر شخصياً أفضل كل جديد وحديث لأنه أكيد فيه مميزات ليست في النسخ السابقة لـــــذا أنصحك باستخدام أوفيس 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 بت ربما يكون هذا هو السبب