امير عاطف

فكرة رائعه: خلاصة الفكرة يمكن عن طريق هذه ااطريقة تبادل الرسائل بين الأجهزة على الشبكة شكراً ابوهادي :yess:

شكراً اخ eldefry على الشرح المتميز

اذا كنت تعنين تحويل الحروف الى شكل كبير( اي يتم كتابة الحروف صغيره(Small) ويقوم الاكسيل بتحويلها الى حروف كبيرة (Capital) يمكنك عمل ذلك عن طريق الدالة UPPER وصيغتها تكون كالتالي : =UPPER(هنا يتم كتابة اسم الخلية الذي تكون بها الحروف صغيره)

تسلم ابو هاجر :d

يجب الانتباه الى شيء هام وهو كما قال فيصل الحربي تغير خصائص النموذج الى pop up=yes modal=yes

مشكور اخ فيصل على هذا الجهد المعروف به دائماً :yess: هناك ايضا حل آخر لإخفاء نافذة الاكسس أو اظهارها !!!!!! وهو عن طريق وضع هذا الكود في وحدة نمطيه Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub وبعد ذلك في حالة وضع زر مثلاً لإخفاء نافذة الأكسس يتم كتابة HideAccess فقط عند حدث النقر لزر الأمر واذا اردنا اظهار نافذة الأكسس يتم كتابة ShowAccess عند حدث زر الأمر وهذا مثال على ذلك مع المرفقات Hide_Show_AccessWindow.zip

قبل تحويل قاعدة البيانات الى قاعده بصيغة Mde يجب التأكد انه لا يوجد اخطاء بالكود وذلك عن طرق فتح نافذة الكود ثم الذهاب الى Debug ثم الضغط على Compile ليظهر الأخطاء الذي بالكود لإصلاحها وايضاً من العقبات التي تقف امام تحويل قاعدة البيانات لصيغة MDE هو وجود كود مثلاً لزر امر قمنا بحذفة وبقي الكود الخاص به ,, ايضاً لا يمكن تحويل قاعدة بيانات بتنسيق 2000 ونحن نعمل على Office2002 الى صيغة Mde حيث يجب تحويل القاعدة أولاً الى تنسيق 2002 ثم بعد ذلك نقوم بتحويلها الى صيغة MDE ولتحويل القاعدة الى تنسيق 2002 نذهب الى Tools Database Utilities Convert Database To Access 2002 File Format هكذا قمنا بتحويل قاعدة البيانات الى قاعدة بتنسيق 2002 بعد التأكد مما سبق يمكن تحويل قاعدة البيانات الى صيغة MDE وذلك بالذهاب الى Tools Database Utilities Make Mde File... بعد ذلك سوف يسألك عن المكان اللذي تريد حفظ القاعدة التي بصيغة Mde به بعد تسميتها ... هكذا تكون انتهيت من تحويل القاعدة الى قاعدة بصيغة Mde

ما تقوله صحيح !!!!! ولكن ليس مع نسخة Microsoft Office2003 وانما يحدث ذلك مع Microsoft Office2004 وذلك عن طريق استبدال Visual Basic For Application بــ Visual Studio For Applications واذا تم ذلك بالفعل فيمكننا بناء تطبيقات من خلال الأوفيس بعدة لغات برمجة و منها Visual Basic الذي نستخدمه حالياً و #C و غيرها من اللغات....

الله ينور عليك اخي محمد طاهر هذ البريمج حصلت عليه من أحد الأصدقاء ... ربما يفيد ايضاً !!!! وكل ما عليك من خلاله هو وضع القصيده الذي تريد تنسيقها بالوورد داخله وتفصل بين كل شطر والاخر بعلامة "=" (يساوي) وبعد ذلك اضغط على زر تنفيذ ستظهر لك رساله اول مره وافق عليها ثم تظهر لك رساله بنجاح العمليه بعد ذلك افتح مايكروسوفت وورد وقم بعمل لصق ما في الحافظه ستجد انه تم اللصق بتنسيق الشعر البريمج تجده مع المرفقات حجمه 2.5 كيلو بايت .. يعني سوف يستغرق 966985568956224885جزء من الثانيه :lol: format_for_word.zip

اخي alhajri : لدي ًًًWindowsXp + OfficeXP ويعمل الماكرو بدون مشاكل ويقوم بتنسيق الشطر الأول من اي قصيده

:yess:

هناك حل آخر وهو ان تقوم بتغيير امتداد الملف الذي قمت بوضعه بالدليل السابق من dot الى doc وبعد ذلك تضع الملف في المكان الذي تريد بحيث تجعله ايقونتك الافتراضيه التي تفتح منها الوورد في حالة تنسيق القصائد ... في هذه الحالة لن تظهر اليك الرسالة السابقه وكل شيء يكون تمام ان شاء الله :d للعلم ... هناك ميزه رائعه في هذا الماكرو ايضاً وهو يمكنه تحويل الارقام الى حروف !!!!

إنزال الماكرو الذي يقوم بتنسيق القصائد في الوورد من هنا قم بفتح الماكرو بعد انزاله من الرابط السابق وبعد ذلك سوف يسألك اين تريد حفظ مسار الماكرو ؟ في حالة اوفيس 2002 اختار المسار التالي: D:\Program Files\Microsoft Office\Office10\Startup هذا لو كان مسار الاوفيس على الدرايف D بالطبع لو كان مسار الاوفيس في القرص الصلب على الدرايف C فقم باستبدال ذلك بالمسار السابق ,,,, بعد ذلك عندما تقوم بفتح اي ملف وورد ستجد الماكرو ان شاء الله

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Variant For Each c In Worksheets("Sheet1").Range("a:a") If c.Value = "" Then c.Value = "Officena" Exit For End If Next c End Sub

لكن انتبه اخي العنزي !!!!!!! استكمالاً لأستاذي ابو هادي .... مثلاً لدينا حقلين (نوع الجهاز) و (موديل الجهاز) وقمت بتحديدهم سوياً لكي تقوم بعمل مفتاح اساسي لهم ... يمكن تكرار حقل (نوع الجهاز) او تكرار حقل (موديل الجهاز) اي يمكن ان تجد حقول مكررة بكلِ منهم **** انتبه***** لكن لا يمكن على الاطلاق وجود جهاز بنفس النوع ونفس الموديل في نفس الوقت .... اي لا يمكن تكرار سجل يحتوي على نفس النوع ونفس الموديل,,,,,,اتمنى ان تكون اكتملت الفكرة

هذا مثال تم عمله بالاكسيل ,,,,, ما فهمته من (الرصيد السنوي) هو اقصى حد من رصيد الاجازات والتي يجب ان لا يتعداه الموظف !!! والمثال يعتمد على وجود ورقة عمل لكل موظف وكل ما عليك هو تسجيل اسم الموظف والرصيد السنوي له والعام (مره واحدة فقط في الورقة) وبعد ذلك كل ما عليك هو التسجيل في الخلايا البيضاء فقط بصفة دوريه كل شهر (يمكنك رؤية المعادلات جيداً لترى الفكرة بنفسك) بالطبع اذا زاد رصيد الاجازات عن الرصيد السنوي لاجازات الموظف تظهر لك رسالة تحذير بذلك ,,, للعلم: لو تم عمل ذلك من خلال الأكسس .. اعتقد انها سوف تكون ذات مذاق خاص :ton: المثال المرفق holiday.zip

جزاك الله خير

هذا هو رابط التحميل لنسخة الاوفيس2003 Beta حصلت عليه من احد المواقع الاجنبيه http://download.lconline.net/download.asp?...?downid=1&id=72 بس اللى عايز يحمل يكون نفسه طوييييييييييييييييييييييييييييييييييييييييييييل حجم النسخه 569ميجابايت

مبرووك :)

تم طرح النسخة التجريبيه Beta من Microsoft Office 2003 التغغير الذي حدث في هذه النسخة: نسخة Microsoft Office 2003 لا يمكن تثبيتها الاّ على ويندوز 2000 و ويندوزXp اما من يعمل على ويندوز ميلينيوم او ويندوز98 ا و ويندوز95 فلن يستطيع تثبيت هذه النسخة . وتم تغيير واجهة البرنامج لبعض التطبيقات حيث ان برنامج Outlook حدث له تغيير شامل ... حيث يمكننا الآن مشاهدة ضعف عدد اسطر الرسائل والايميلات الذي كنا نشاهدها من قبل ... اما الوورد فلم تحدث به تغييرات كبيره ولكن تم تطوير واجهة البرنامج كما اضيف بعض الخصائص الذي تقوم على زيادة تأمين الملفات . وهذه صوره لواجهةMicrosoft Outlook2003 وهذه صوره لواجهةMicrosoft Word2003 وهذه صوره لواجهةMicrosoft PowerPoint2003 وهذه صوره لواجهةMicrosoft Excel2003 وهذه صوره لواجهةMicrosoft Access2003 -------------------------------------------------------------------- هذه المعلومات تم تجميعها من موقع مايكروسوفت وبعض المجلات

هذا حل آخر يقوم بتلوين ايام الجمعة والسبت باللون الأحمر (مجرد فكرة) يمكنك عمل ذلك عن طريق وضع هذا الكود في حدث عن الفتح لدفتر العمل : Private Sub Workbook_Open() Cells.Select Range("I3").Activate Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=WEEKDAY(I3;1)=6" With Selection.FormatConditions(1).Font .Bold = True .Italic = False .ColorIndex = 3 End With Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=WEEKDAY(I3;1)=7" With Selection.FormatConditions(2).Font .Bold = True .Italic = False .ColorIndex = 3 End With Range("A1").Select End Sub

ايضا يتم عمل ذلك عن طريق الشرط في الاكسيل .... وهذا رابط من الأرشيف على ذلك http://www.officena.net/ib/index.php?act=ST&f=9&t=39

اخي ابن سيناء هذا الرابط من الارشيف به ما تريد ولكن التطبيق على يوم الجمعه فقط ..... يمكنك المحاوله والتعديل ليتم التطبيق على يوم الجمعه ويوم السبت http://www.officena.net/ib/index.php?act=ST&f=9&t=56

من الممكن الخط المستخدم في نسخة الوورد2000 لم يكن متوفر حينما قمت بتشغيله عن طريق وورد اكس بي فتم استبداله تلقائياً بخط آخر

وللوصل اليها عن طريق ----- File ثم Page Setup... بعد ذلك نختار التبويب Header/Footer وفي هذا التبويب نجد Custom Header واللذي عن طريقه يمكن كتابة اسم الشركة في اعلى الصفحة بالتنسيق اللذي نريده وايضاً نجد Custom footer واللذي من خلاله نكتب عنوان وتليفون الشركة اسفل الصفحة