محمد طاهر عرفه

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

جزاك الله خيرا

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

مرفق مثال علي السريع ، أرجو أن يوفي بالغرض مع تحياتي Vications.rar

لعمل أكثر من زر للتبديل ، كل منها يظهر نموذج محدد If Me.SubForm.SourceObject <> "Subform2" Then Me.SubForm.SourceObject = "Subform2" End If مع تغيير اسم النموذج الفرعي لكل زر

هذه دالة للتعرف علي هل الحرف تشكيل أم لا و هي من إعداد الأخ أبو هادي Function IsTashkeel(ByVal InChar As Variant) As Boolean IsTashkeel = False If Len(InChar) = 0 Then Exit Function Select Case Asc(Left(InChar, 1)) Case 126, 240 To 243, 245, 246, 248, 250 IsTashkeel = True End Select End Function

أعتقد أن هذه الكتب جيدة http://www.darelfarouk.com.eg/bookdetails.asp?id=161 http://www.darelfarouk.com.eg/bookdetails.asp?id=181 http://www.darelfarouk.com.eg/bookdetails.asp?id=162 http://www.darelfarouk.com.eg/bookdetails.asp?id=178 http://www.darelfarouk.com.eg/bookdetails.asp?id=179 و ما قرأته بالفعل هو الثاني و الأخير

نشكر الأخ طالب علم علي الكود المفيد ، و الشكر موصول للأخ حارث :(

فى الأغلب هناك ترجمات عربية للكثير من الكتب المذكورة و هذا موقع دار الفاروق http://www.darelfarouk.com.eg/whorwe.htm و بالبحث عن أكسيس ستجد عدد من الكتب ( منها بعض ما ذكر فى الأعلي)

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

بإذن الله سأحاول اعداد المثال لكن الوقت المتاح هذه الايام قليل ، فاعذرونا و مؤقتا أرجو أن تحاول تطبيق ما ذكرت من شرح

كتب المستوي الاحترافي تكون مختلفة عن كتب التعلم فللتعلم يمكن البدء بأي كتاب من السلاسل الكبيرة Bible Que Mastering Sybex و للمستوي الاعلي هناك Sybex - Access 2000 VBA Que - Access 2000 Black Book Que - Access 2000 Client / server و بالتأكيد هناك اصدارات لاحقة أكثر

شكرا للأخ ابن مسقط علي الاضافة :( الأخ أحمد : If Date > #11/18/2003# Then MsgBox "Time Over" DoCmd.Quit Else Dim MydateDiff As Integer MydateDiff = (#11/18/2003# - Date) If MydateDiff <= 15 Then x = MsgBox("Time remaining" & Str(MydateDiff) & " days , do you want to Continue ??", vbYesNo, "www.officena.net") If x = vbNo Then DoCmd.Quit End If End If End If الأخ علالي قم بتسجيل تاريخ اليوم فى حقل فى جدول و قبل التسجيل ثانية ( عند فتح البرنامج مثلا ) قم بمقارنة التاريخ المسجل مع تاريخ اليوم باستخدام Dlookup فاذا اكتشفت أن التاريهخ اليوم أقل من المسجل فارفض الدخول و عموما فالحل الافضل لل demo هو عمل شرط علي عدد السجلات فى جدول مهم و ليس الزمن فتقوم عند الفتح بعد السجلات و اذا زادت عن حد معين ترفض الدخول أو تجري الاختبار عند الاضافة ، و ترفض التسجيل اذا زاد العدد عن المسموح if Dcount("[FieldName]", "TableName") > 50 then Docmd.quit أو تظهر رسالة إن أردت : If DCount("number", "TableName") > 10 Then MsgBox "انتهت مدة استخدام النسخة التجريبية", vbOKOnly + vbInformation, "Officena" DoCmd.Quit end if

أيضا تم اضافة مثال آخر الي نفس الموضوع فى الارشيف http://www.officena.net/ib/index.php?act=S...&st=0#entry6020 و مثال الأخ فهد مشكورا يعتمد علي ال RecordsetClone و المثال الذي أضفته عن طريق دالة Dcount

و هذا مثال آخر لمنع الادخال اذا تكررت قيم ثلاثة حقول بالاعتماد علي دالة Dcount لعمل عد لعدد السجلات فى الجدول التي تحقق شرط أن قيمة الثلاثة حقول علي النموذج = القيم فى الجدول و تم أولا حساب الشرط و تسجيله فى متغير T1 لا ستخدامه كشرط فى الدالة بدلا من كتابة جملة الشرط الطويلة فى الدالة مباشرة و دالة الاختبار كما يلي Function checkrecord() checkrecord = 0 Dim c1 As Integer, T1 As String T1 = "(([Name]='" & Trim(Me.TName.Value) & "') and ([Salary]=" & Me.Salary & ") and ([Birthday]=#" & Format(Me.Birthday, "mm/dd/yyyy") & "#))" c1 = DCount("[Name]", "Table1", T1) If c1 > 1 Then MsgBox "Record Exists !", , "www.officena.net" checkrecord = 1 End If End Function و يتم استدعاؤها كالتالي : كما فى المثال x = checkrecord() فاذا أعادت قيمة = 1 فمعني ذلك أن السجل قد تكرر CheckifExistMulti.rar

حل مؤقت أزل الحدود border من مربعات النص ( اجعل لون الحدود شفاف ) و استبدلها بخطوط أسفل السجل فى مقطع التفصيل Detail ( مع عدم وضع خطوط رأسية) و ستبدو كما لو أنها متساوية جربت أن أقيس الارتفاع بالكود و أحصل الي الاقصي و أوحد الارتفاع ، و لكن الارتفاع المقاس يكون قبل ان تحدث عملية التمدد الناتجة من خاصية Can Grow و لم تنجح المحاولة االأولي أيضا تغيير الارتفاع لمربع النص فى وضع العرض يبدو أنه غير ممكن ربما تكون هناك حلول أخري ، لكن لم تفلح التجربة الاولي مع الموضوع ، و سأحاول فيه لاحقا بإذن الله تعالي

بالنسبة لاظهار النجوم اختر كقيمة خاصية input Mask او قناع الادخال لمربع النص Password بالنسبة للصلاحيات فيوجد أكثر من موضوع للحديث عنها برجاء مراجعتها و امضاء بعض الوقت معها صلاحيات المستخدمين باستخدام الخيارات http://www.officena.net/ib/index.php?showt...ات,or,الصلاحيات و http://www.officena.net/ib/index.php?showt...ات,or,الصلاحيات و http://www.officena.net/ib/index.php?showt...ات,or,الصلاحيات مع تحياتي

If Date > #11/18/2003# Then MsgBox "Time Over" Else x = MsgBox("Time remaining" & Str(#11/18/2003# - Date) & " days , do you want to Continue ??", vbYesNo, "www.officena.net") If x = vbNo Then DoCmd.Quit End If End If

راجع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=1157

مرفق مثال لأحد الأخوة (للأسف لا أذكر الاسم ) لاختبار وجود الاسم مسبقا ، و السماح بتسجيله من عدمه جرب أي اسم ممن فى الجدول مثل عمر مثلا ستظهر الرسال لتخيرك بالتسجيل ام لا ، مع وضع أرقام السجلات التي بها هذا الاسم و يمكنك تكرار التجربة بنفس الاسم يعد ضغط زر سجل جديد checkifExists.rar

السلام عليكم تعودنا مع الاوفيس علي وجود حلول دائما ، و ان لم نصل اليها بسرعة حاليا لا أعرف حل بخلاف خصم الواحد الذي قمت به أنت . و اعتقد أنه لا عيوب لهذا الحل اما عن امكانية التغيير فى حد ذاتها : جرب تغيير الاعدادات الاقليمية باختيار دول مختلفة ربما تؤثر مع تحياتي

ماذا تفعل لو أردت أن تنفتح ملفات الاكسيل الجديدة و بها خصائص معينة تختارها بنفسك كاعداد معين للصفحة أو تنسيق معين أو اضافة فى الرأس أو التذييل Header & Footer الخ ... تقوم بعمل ما تريد من تعديلات علي ملف خالي ثم تحفظه فى c:\Program Files\Microsoft Office\Office10\XLStart او مسار الأوفس لديك و تختار نوع الملف template قالب أي بالامتداد xlt و تختار الاسم Book و هذا معناه أن الملف Book.xlt سيكون القالب الذي يتم بناء عليه فتح الملفات الجديدة Book1.xls مثلا و بهذا توفر كل الاعدادات التي تقوم بها كل مرة فى ملفات الاكسيل ملاحظة : عند اختيار النوع template يتغير المسار تلقائيا الي المسار الافتراضي للقوالب فيراعي اعادة المسار الي المسار السابق

هل هذا الموضوع من ضمنها شرح دوال أكسس - دوال تجميع المجال http://www.officena.net/ib/index.php?showtopic=152 أيضا الامثلة فى هذا القسم دوال الأكسس http://www.officena.net/ib/index.php?s=&act=SF&f=30

أعتقد أن الحل الذي قمت به مناسب جدا هذا ملف به طريقة مثيلة ، راجع الخلايا فى الصفوف الاولي المخفية Calendar_for178_years.rar

هناك مجموعة اضافات جاهزة مع الاكسيل تضيف وظائف اضافية من Tools Add-ins تضيفها و تستعملها و يمكنك عمل بريمج و حفظ الملف بصيغة Excel Add-ins و استخدامه بنفس الطريقة و يكون امتداد الملف xla , و ليس xls