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

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

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

السلام عليكم أرجو تجربة التعديل علي هذا الملف الموجود فى قسم التطبيقات الخدمية http://www.officena.net/Tips/MasterFormat.php مع تحياتي

أهلا بك دائما أخونا الكريم تم دمج المثالين فى مثال واحد مع حذف الجملة التالية من الكود Range("a1").Activate حيث لا داعي لها مرفق المثال CheckBuplicated.rar

شكرا علي الرابط :lol: 299 دولار :eek:

السلام عليكم بالنسبة لتعديل أي قيمة أو اضافة أو حذف للقيم المسجلة بالريجيستري فهذا متاح بالكود عن طريق استخدام دوال ال api و لكن ... أعتقد أن الموضوع هنا بخصوص هذه القيمة المسجلة فى الريجيستري و حيث أن هذه القيمة موجودة فى تصنيف محرك ال jet الذي يمكن وصفه بانه مدير التعامل مع قاعدة بيانات الاكسس أو المسئول عن تخزين و استجاع البيانات و حسب المكتوب فى موقع ميكروسوفت عن هذا الموضوع ( تحت بند تعديل قيم الريجيستري ) هنا http://msdn.microsoft.com/library/default....performance.asp انه بعمل عملية ترحيل يتم تنفيذ الحد الاقصي ، و هو 9500 ثم تفريغ المكان المحجوز و من ثم تنفيذ الباقي MaxLocksPerFile The MaxLocksPerFile setting determines the maximum number of locks that Microsoft Jet places against a file. The default setting is 9,500 locks. If the number of locks required to perform a transaction exceeds the MaxLocksPerFile setting, the transaction commits (writes) the data that has locks associated with it, frees the locks, and then continues processing the transaction. If the maximum number of locks a server can handle is less than the MaxLocksPerFile setting, the server returns an error message or appears to hang when performing a large transaction. If this occurs, you should decrease the MaxLocksPerFile setting. A Novell server can be configured to perform a maximum of 10,000 locks per connection. A Novell server connection can include more than one database, so its possible to exceed the maximum number of available locks if you are using more than one database at a time. فاذا تم تنفيذ ترحيل سجلات Transcation عموما ليس من المفترض حدوث المشكلة ، اما حدوثها عن النسح و اللصق الي قاعددة البيانات ، فاعتقد أن محاولة التغلب عليه ليست عملية حتي و ان كانت متاحة و انما يجب أن يتجه التفكير الي اعادة تنسيق ملف المصدر بحيث يمكن سحبه مباشرة الي الاكسس و ليس من خلال النسخ و اللصق مع تحياتي

السلام عليكم جرب هذا Private Sub Worksheet_Change(ByVal Target As Range) Dim Mymat(10) As Double Range("a1").Activate For i = 1 To 10 Mymat(i) = Range("a1").Offset(i - 1, 0).Value Next For i = 1 To 10 For j = 1 To 10 If Mymat(i) = Mymat(j) And i <> j And (Not Mymat(i) = 0 Or Not Mymat(j) = 0) Then MsgBox "cell no A" & i & "and A" & j & "are duplicated" Exit Sub End If Next j Next i End Sub مع تحياتي

السلام عليكم أهلا وسهلا بك فى المنتدي جرب هذا Private Sub Worksheet_Change(ByVal Target As Range) Dim Mymat(10) As Double Range("a1").Activate For i = 1 To 10 Mymat(i) = Range("a1").Offset(i - 1, 0).Value Next For i = 1 To 10 For j = 1 To 10 If Mymat(i) = Mymat(j) And i <> j Then MsgBox "cell no A" & i & "and A" & j & "are duplicated" Exit Sub End If Next j Next i End Sub

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

المثال المرفق ، فضلا عن استخدام الدالة ROUND يوجد دالتان للتقريب الاولي تقرب دائما الي الاعلي و الثانية تقرب بدرجة معينة Myround.rar

هذا مثال علي دوال تجميع المجال معد المثال هو الأخ مخلص الحريصي Aggregate.rar

1- هل تستخدم قاعدة بيانات أكسس عادية أم مشروع أكسس؟؟ 2-هل كانت المشكلة عند ادخال البيانات فى جدول أم عند استرجاعها فى استعلام او استدعاء recordset ؟؟ 3-هل تستخدم آخر اصدار ( اكس بي ) ؟؟

الأنساق التالية هي المكتوبة فى ملف التعليمات و لكن تحت مسمي مثال أي أنه يوجد غيرها : as .avi, .mov, .qt, .mpg, and .mpeg. و الانساق التالية تظهر عند محاولة ادراج ملف : cda , asf , asx , m3u, m1v,mp2 فلاختبارها أو ان كان مطلوب غيرها فالتجربة خير برهان :pp: اما عن ملفات التحويل فانصحك بزيارة مكتبة البرامج هنا http://www.arabsgate.com او http://www.alsayra.com

مرفق مثال وافي للأخ حارث عن اخفاء و اظهار الكائنات HidAll22_Harith.zip

فهرس الدورة من هنا

من هنا مرفق المثال Q5.zip

اعتقد أن هذا أول طرح لهذا السؤال فى أوفيسنا يتم عمل ذلك من insert object Power Point Presentation و بعد ذلك تأكد من أن خاصية data enabled = yes و أن خاصية other activateauto = got focus وهنا أثناءالاختيار يمكن تفعيل خيا رالربط أم لا

هل أنت متأكد من منح جميع الصلاحيات علي المجلد للمستخدمين جميعا؟؟ راجع الصلاحيات و للتأكد من عدم تأثيرها ، اجعل صلاحيات القراءة و التعديل و التحكم لهذه المجلدات مسموحة لجميع المستخدمين علي الشبكة للتأكد من عدم تأثير الصلاحيات أيضا راجع الخاصية التالية من ملف البيانات Tools options advanced default open mode و تاكد انها shared

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

لا يمكن تنفيذ أي اجراءت علي الجداول مباشرة فى الاكسس ، و تنفيذ الاجراءات المناظرة لل Triger فى الاوراكل يكون بكود فيجوال بيزيك التطبيقات VBA من خلال النموذج ، و يمكن تنفيذ فعل مناظر فى الاستعلام أي بجمل ال SQL . أما الجداول فلا اجراءات فيها. و لكن فى الأغلب تكون الحالة التي تصفها نادرة ، فلا تحتاج لمثل هذا الفعل . و لو احتجنا له فيتم التعامل معه اما بال vba أو بال SQL أو الاستعلام و يمكن من خلالهما تحديث الجدولين . أما التعديل المباشر فى الجداول فلا يمكن مصاحبته باجراءات . بقي نقتطين قد تكونا معلومتان لك ، و لكن لابد من ذكرهما فى السياق :) 1- التحديث من الجداول مباشرة لا يجب الاعتماد عليه فى تطبيق متكامل ، و انما يتم تصميم النماذج بحيث تسمح بكل التعاملات المطلوبة مع البيانات . أما التعديل فى الجداول فللطوارئ النادرة جدا فقط 2- أقترح أن تصف لنا جداول القاعدة التي تحتاج فيها لذلك مع وصف مختصر للبرنامج . فربما يأتيك أحد الأخوة بفكرة تمثل اضافة . حيث انه فى كثير من الاحيان ( طبعا ليس كلها ) يمكن الوصول لتصميم قاعدة بيانات يسمح بتلافي مثل هذه الحالة . أي الحاجة الي التعديل فى أكثر من جدول عند تغيير قيمة . و طبعا هذه ليس قاعدة و لكن ربما يكون هناك اقتراح مفيد فى تصميم القاعدة .

على فكرة انا وضعت البرنامج على network drive وجعلت مجلد للبيانات وبه الجداول وجلد آخر للنماذج البيانات فقط هي التي تكون موجودة علي مجلد فى الشبكة أما البرنامج أو الواجهة فتكون علي جهاز كل مستخدم علي حدة و يتم توجيه البيانات الي المجلد ال shared علي الشبكة أي لو عدد 7 مستخدمين ، يكون فيه 7 نسخ من الواجهة علي جهاز كل منهم ، مع نسخة بيانات واحدة فقط علي الشبكة و الجميع يوجهون مسار الجداول المرتبطة اليها

أهلا بك و في انتظار مشاركاتك دائما :d

موقع MS-Access-SQL.Advisor الرابط http://www.advisor.com/dMSAccess001.nsf التعليق منتدي متخصص فى الاكسس و الاس كيو ال

منتدي Tek-Tips Forums for computer professionals الرابط http://www.tek-tips.com/gthreadminder.cfm/.../lev2/4/lev3/27 التعليق منتدي يحوي الأكسس و برامج أخري

منتدي Access VBA central الرابط http://www.accessvba.com/ التعليق منتدي للمستوي المتقدم فى الاكسس