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

اسم الموقع Lebans Holdings 1999 Ltd. رابط الموقع : http://www.lebans.com تعليق : موقع يحوي الكثير من الأمثلة و الأدوات مفتوحة الكود

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

الأداة و الكود AccessRotateVer2.zip

من هنـــــــــــــــــــــــا و مرفق المثال Q4.zip

و الرد للأخ الفاروق : السلام عليكم بعد تحديد النص من قائمة تنسيق اختر خط ثم تأثيرات النص وهى مثل ال97 بالظبط تحياتى

حدث عطل اليوم فى قاعدة البيانات ، و حذفت هذه المشاركة لذا أعيد نشرها : السؤال للأخ عبد الكريم إخواني الأفاضل :- أتذكر في إصدار وورد 97 كان بإمكاني وضع علامات متحركة على نص محدد . مثل لاس فيجاس وأشياء أخرى جميلة لاأتذكرها . أنا الأن أعمل على ورد إكس بي . فكيف أصل إلى هذه العلامات

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

حل آخر بدون كود باستخدام الدالتين rnd vlookup Random.zip

شكرا جزيلا علي مجهودك

لم أتفحص الكود جيدا ، و لكن حاولت التعديل فيه علي السريع ، و مبدأيا هو يقوم بنقل النص المكتوب فى المربع الاصفر ( خاصية ال caption ) , و درجة الدوران التي يتم تسجيلها فى خاصية ال tag لل label بناء علي الرقم المختار و يتم النقل الي احدي خواص ملف صورة metafile باستخدام دوال ال api و بذلك يتم العرض علي هيئة صورة و يمكن التحكم فى دورانها ، و فى النص المعروض بها , و يتم نقل خصائص التنسيق أيضا من ال label و هنا طبعا فى حالتك لسنا فى حاجة الي دوران مستمر ، فسنلغي ال loop و نحدد درجة الدوران ، و قد نمرر القيمة مباشرة الي الدالة ، و مرفق مثال به ادارة النص مرة واحدة فقط 90 درجة و طبعا يمكن استبدال ال 90 ب 180 درجة و هو مازال بتاء علي النص المكتوب و يمكن تمرير القيمة الي الدالة مباشرة و قد غيرت أبعاد الصورة من هنا ' Convert Pixels back to TWIPS ctlImage.Width = 2 * (lpRect.Right * (1440 / lngXdpi)) ctlImage.Height = 5 * (lpRect.Bottom * (1440 / lngXdpi)) و درجة الدوران من هنا و يمكن تغييرها بدل 90 الي 180 و أيضا أوقفت ال loop لمنع الدوران Private Sub Label26_Click() ' ************************ ' WARNING!!!!!! ' DO NOT USE THIS METHOD ' FOR ANIMATION. ' There is a Resource Leak ' in the PlayEnhMetafile API. ' Dim lngRet As Long Dim x As Integer Dim y As Integer 'For y = 1 To 10 'For x = 0 To 360 Step 1 Me.Label26.Tag = 90 lngRet = fRotateRunTime(Me.Label26, Me.Image0) DoEvents 'Next x 'Next y ' WARNING!!!!!! ' ************************ End Sub و كاتب الكود ، أشار فىالملحوظات المكتوبة فى الكود بانه يوجد ربط لملف الصورة الي حقل ، و لكن عليك بزيارة موقعه للحصول عليه 'Stephen Lebans Stephen@lebans.com www.lebans.com و توجد فيه أداة لادارة النص و محاذاته NEW Ver 2.0 JustifyText and RotateText ActiveX controls ============= ايضا عند كتابة نص عربي ، لم يظهر جيدا ، ربما بسبب الفونت ، لكن هذه ليس هي المشكلة بصراحة أشعر بوجود حلول أسهل من كل هذا ، فهل لابد أن نفعل كل هذا لكي ندير النص !!! صراحة بهدلة :) أعتقد أننا علينا أن لا نستمر فى بحث هذه الطريقة ، و انما نحاول البحث عن حل بديل حاليا لا يخطر ببالي هذا الحل ، و لكن قد يكون هناك حل سهل متاح ، فنحاول البحث عنه مع تحياتي فى انتظار مشاركاتكم Rotate_it.rar

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

مرفق الملف ، مع الشكر للأخين الهاجري و مايكرو micro.rar

أعتقد ان هذا هو الرابط المقصود لكن لم أنجح فى فتح الملف بعد تنزيله من هنا

ما فهمته من كلامك ، أن الجداول و باقي الكائنات فى نفس القاعدة ( و هذا ليس التطبيق الأمثل ) فالأفضل فصل الجداول فى قاعدة منفصلة عن باقي الكائنات و عمل ربط لها فى القاعدة التي تمثل واجهة تطبيق البرنامج و التي ستوجد علي جهاز كل مستخدم بالاضافة الي كون قاعدة البيانات ( التي بها الجداول علي جهاز واحد فقط و يستحسن أن يكون جهاز خادم ) و حتي اذا كان للبرنامج مستخدم وحيد، فقد تقل فائدة الفصل ، و لكن يبقي لذلك فائدة فى النسخ الاحتياطي للبيانات ، فتنسخ ملف البيانات فقط ، و لكن فى هذه الحالة تقل فائدة الفصل . نعود لموضوع السؤال : لنقل البيانات الي النسخة الجديدة ( لنسميها ملف 2 )فى حالتك ، اذا لم يكن هناك تعديل فى تصميم الجداول ، فامسحها و استوردها من الملف الاكسس القديم ( الذي قام ال exe بتنصيبه اول مرة و لنسميه ملف1 ) ، و بذلك يصبح البرنامج الجديد و الجداول القديمة معا فى نفس الملف ( ملف 2 ) ، و استبدل به الملف الذي قام ملف ال exe بتنصيبه ( ملف 1)

فى الاكسيل يمكن اعطاء اسم لخلية او مجموعة من الخلاية و التعامل مع هذا الاسم علم علي الخلايا ، ثم insert name و لكن لماذا تريد ذلك ، فقط علم علي الخلايا و استخدم التنسيق الشرطي من قائمة تنسيق

فقط وضح لنا كيف ترسلها ، بالتصدير أم بالكود و اذا كان بالكود ضع الكود اما اذا كنت تتحدث عن مثال اخرج التقارير من الاكسس الي الوورد الذي كانت لنا فيه حوارات سابقة فى الفريق العربي من فترة فاستبدل الكود appWord.Selection.TypeText [Forms]![main]![number] ب appWord.Selection.TypeText Format([Forms]![main]![number], "0.00")

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

يتم ذلك باضافة كائن Shockwave Flash Object الي النموذج ثم فى حدث تحميل النموذج تضع الكود التالي Private Sub Form_Load() Me.ActiveXCtl1.Movie = getpath(CurrentDb.Name) & "flashname.swf" End Sub

فى المكان الذي تقوم فيه بعملية القسمة استبدل الرقم 5.777777 بعملية القسمة نفسها و اذا كنت لا تستخدم الكود فضع فى مربع النص فاصلة منقوطة بدل الفاصلة =Round([num]/[num1];2)

و هذا هو ما تصورت أنك تريده ، فأرجو التوضيح أكثر

عن نفسي لم أحصل علي النسخة الأخيرة منه ، و لكن هناك شرح مصور له فى موقع الفريق العربي ، من اعداد خضر ترزي فى قسم الاكسس لكن الروابط تغيرت بعد تحديث المنتدي ـ فابحث عنه هناك

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

اذا فقم بتنسيقها قبل الارسال

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

اعتقد أن خاصية التنسيق الشرطي الآلي غير متاح فى الوورد كخاصية جاهزة للاستعمال مثل الاكسيل و الاكسس