نجوم المشاركات

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

استاذ فؤد تم تعديل الكود حسب ما تريد اذا كان مناسباً اضغط اعجبني حذف كل الصفحات ما عدا الرئيسية.rar

السلام عليكم ورحمة الله وبركاته الحمد لله اولا واخرا.. تم بحمد الله تنفيذ جزء من مطلوبك الى ان تشير حضرتكم بالتكملة وما قمت به كالتالي 1 ) قمت بالتنفيذ على صفحة كشوف تبييض الناجحين للعلمي فقط لحين التجربة 2 ) قمت بعمل صفحة واحدة وعن طريق زر التنقل سيقوم بجلب باقي البيانات وهذه الطريقة افضل من عمل اكثر من صفحة _ في وجهة نظري _ قم بالتجربة وفي انتظارك... الملف الاخير باذن الله_braa.rar

تفضل وحدة نمطية مع الشرح يمكن من خلالها طباعة الصفحات من تقريرين تنازليا مهما بلغت الصفحات وايضا يمكن تحديد نقطة البداية او صفحة البداية فلو فرضنا ان لديك تقريرين كل واحد منهما يحتوي على 100 صفحة وتريد ان تبدأ الطباعة من الصفحة رقم 20 تنازليا فكل ما عليك هو ان تضع رقم صفحة البداية في الحقل المخصص في النموذج افتح محرر الفيجوال والصق الوحدة النمطية التالية : Function PrintDscOrder(Rep1 As String, Rep2 As String) Dim PgNum As Integer, _ PgNum2 As Integer, PagesCnt As Integer 'اعلان عن متغيرات رقمية تمثل مجمل الصفحات وارقام الصفحات المحددة PagesCnt = Me.RepageCnt.Value 'مجمل الصفحات = قيمة الحقل في النموذج For PgNum = PagesCnt To 1 Step -2 'دوارة تنازلية زوجية PgNum2 = PgNum - 1 'تحديد رقم الصفحة الثانية وهي هنا اقل من الحالية بواحد DoCmd.SelectObject acReport, Rep1, True 'تحديد التقرير الأول DoCmd.PrintOut , PgNum, PgNum2, 1 'طباعة الصفحات المحددة DoCmd.SelectObject acReport, Rep2, True ' تحديدالتقرير الثاني DoCmd.PrintOut , PgNum, PgNum2, 1 'طباعة الصفحات المحددة Next PgNum 'عودة لبداية الدوران End Function 'تصميم وترتيب ابوخليل وفي حدث بعد النقر لزر الطباعة الصق السطر التالي : Call PrintDscOrder("استقطاعات", "استحقاقات") طباعةالصفحات تنازليا من تقريرين.rar

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء هنا ملف كامل لكيفية استخدام الUserForm وكيفية التعامل معه وبجميع أدواته المستخدمة مع شرح الخصائص المتعلقة به وبادواته كذلك تم شرح الاكواد الخاصة به وبادواته وتم استخدام الصور والامثلة العملية في الشرح وبصورة ميسرة وبسيطة حتى يتم استيعابها بالصورة المطلوبة وتم تقسيم العمل الى ستة ملفات وبصورة تسلسلية اخوكم عماد الحسامي الدرس الأول UserForm.rar الدرس الثاني.rar الدرس الثالث textbox.rar الدرس الرابع.rar الدرس الخامس.rar الدرس السادس.rar الدروس السته مجمعه.zip

السلام عليكم ورحمة الله وبركاته حقيقةً : الحاجة أم الاختراع كنت أحتاج وبشدة دالة التفقيط فى عملى وللأمخانة لقد حاول الكثيرين من خبراء هذا المنتدى العظيم المساعدة ولكنه كان دائما يعطينى إشارة الخطأ NAME# المهم : فى أثناء بحثى وتجوالى على النت عثرت على شرح لدالة التفقيط بشكل رائع ، فقلت انقله إليكم علكم تستفيدون منه مثلى : رابط الشرح وملف التفقيط

..... شاهدوا المرفق أخوكم عماد الحسامي

رأيت ان اشارك اعضاء المنتدى بتحميل برنامج ROCKETDOCK _لعله يفيد فى الوصول للملفات على الهارد بطريقة اسرع موقع التحميل هو http://rocketdock.en.softonic.com/ و هو عباره عن مسطرة على سطح المكتب يتم سحب اليها الملفات المطلوب الوصول اليها بطريقة منظمه صالح WIN7+WINXP مع تقديرى و احترامى لاعضاء المنتدى

السلام عليكم ورحمة الله وبركاته افتقدتكم كثيرا لمعرفة ما اريده من هذا الملف قم بالتالي: قم بفتح الملف المرفق في الحالتين تمكين وتعطيل وشاهد النتيجة ثم قم بفتح الملف في حالة التمكين واضغط الزر kh_ChngPwd لتفعيل شاشة دخول باسم مستخدم وكلمة مرور ثم اغلق الملف ثم قم بفتح الملف في حالة التمكين والتعطيل وشاهد النتيجة قمت بتجربة هذا الكود على اكسل 2003و2007 وهما ما في المرفق واريدكم ان تجربوه على 2010 =================================== ممكن استخدام هذا الكود في اي ملف باستيراد الفورمين FormAhlnWShln FormChngPwd والموديل ModChngPwd ونسخ الاكواد الموجوده في حدث ThisWorkbook =================================== كلمة السر للاكواد : 1 =================================== ودمتم في حفظ الله فورم حماية الملف.rar ======================================================== من اراد استخدام الكود بدون استخدام فورم الحماية يضع هذه الاكواد في موديل Option Explicit Sub Auto_Open() kh_wVisible True End Sub Sub Auto_Close() kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) End Sub Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub المرفق 2003 2007 th1.rar

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

‏السبت‏ 25‏/2‏/1435هـ الموافق ‏28‏/12‏/2013م السلام عليكم و رحمة الله بناء على طلب احد الإخوة على الرابط http://www.officena.net/ib/index.php?showtopic=50707 تم اقتباس الأفكار من موضوع الرابط http://www.officena.net/ib/index.php?showtopic=26167 السلام عليكم و رحمة الله وبركاته الفكرة العامة: يقوم الملف بانشاء كشوف حسابات حسب طلب المستخدم منه وله مع قائمة بالحسابات موضح بها اجمالي حركات الحساب و الرصيد لسهولة الوصول لتفاصيل كل حساب مع امكانية استخدام الملف دون تمكين وحدات الماكرو في معظم الأحيان. و يمكن استخدام التاريخ الهجري او الميلادي للإدخال في خانة التاريخ حسب الحاجة. اضافة حساب جديد: عند الضغط على اضافة حساب يظهر لك مربع حوار لإضافة اسم الحساب بعد اضافة اسم الحساب يقوم الملف بتصحيح الإسم المدخل وذلك بازالة الفراغات الزائدة وكذلك ازالة المد الزائد "ــ" الغير مرغوب فية ثم يتأكد من عدم وجود الإسم بعد التصحيح في القائمة الموجودة بأسماء الحسابات. اذا كان الحساب موجود سابقا – تظهر لك رسالة بوجود الحساب سابقا ويتم الغاء عملية الإضافة اذا كان الحساب غير موجود تتم اضافة ورقة جديدة وتسميتها بالإسم المدخل – مع اضافة ارتباط شعبي لها مع نفس الإسم في قائمة الحسابات. تتم اضافة نوعين من الإرتباط الشعبي – 1= ارتباط شعبي بالكود في خانة الإسم – 2= ارتباط شعبي بالدوال في خانة مجمل منه البحث: تم اضافة خاصية البحث في كل حساب بحيث يمكنك البحث خلال فترة محددة = من تاريخ + الى تاريخ او يمكنك البحث عن أي معلومة اخرى موجودة في الإيضاحات المدخلة في الكشف الحالي للحساب او البحث بالتاريخ و المعلومة معا بالضغط على زر البحث تظهر لك خانات البحث التي يمكنك الإدخال بها لشروط البحث المطلوبة – وبمجرد ادخال أي شرط يعمل البحث في الورقة فورا بالضغط مرة اخرى على خانة البحث يتم اخفاء خانات البحث من الكشف الحالي. قائمة الحسابات: هذا الزر مخصص للعودة الى قائمة الحسابات ويتم فرزها بالترتيب الأبجدي حسب اسماء الحسابات. في قائمة الحسابات يمكنك البحث عن أي اسم حساب باستخدام أي جزء من اسم الحساب في خانة البحث الموجودة اعلى الورقة. اذهب Go To : هذا الزر موجود في كل كشف حساب ليسهل التنقل من حساب لآخر فورا دون العودة الى قائمة الحسابات. معلومات عامة: لتصغير حجم الملف في كل مرة يتم الدخول الى أي كشف حساب يتم زيادة عدد صفوف الحساب حسب الحاجة لذلك . حيث عند فتح كشف جديد سوف تجدة يحتوي على 9 صفوف فقط – بعد ادخال 4 او 5 صفوف بيانات في الحساب و الخروج منه و العودة الى الحساب تجد ان الملف تلقائيا قام بزيادة عدد الصفوف حسب بعدد الإدخالات التي تمت سابقا, مع فرز البيانات المدخله حسب التاريخ الموجود في خانة التاريخ سواء كان التاريخ هجري او ميلادي. كشوف حسابات ارتباط شعبي.rar

هذه الملفات مصدرها صفحة زميلنا م/ طارق حنيدق علي الفيسبوك إسم صاحب الملف موجود بالملفات م/محمود الشاذلى رابط التحميل http://www.gulfup.com/?3SZpyj ملفات اكسل مهمه لادارة مشروعات.rar

يحتوي الكتيب على شرح مبسط بالصور للبرنامج للتحميل اضغط على الرابط التالي http://www.4shared.com/office/iIkOAnNpce/Word_2010.html

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

(اذا اردت ان تحمي خلية (عدة خلايا خاصةً اذا كانت تحتوي على معادلات 1- حدد النطاق اللازم 2- اذهب الى Data validation 3- اختر Custom 4- ضع المعادلة (156)char= 5-OK (انقر اعجبني)

استاذنا القدير الغالى الخالدى اعمالك مبهره ولمساتك اضافات لرصيد معلوماتنا نرجوا ان تستمر ولا تغيب لك شمس فى هذا المنتدى الكبير فاخوك متابع جيد لعمالك ولمساتك المبهره فشخصكم من القلائل الذين عندما اجدهم لا اتردد فى قراءه مشاركتهم لاستفيد واتعلم من عمهم الغزير تقبل تقديرواحترامى لشخصكم الكريم

اظهار السعر آليا بعد كتابة الكمية Fatora2.rar

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

رائع أخي الحبيب // محمود الشريف جعله الله في ميزان حسناتك والله اسال ان يبلغنا رمضان وان يتقبل منا وياسلام كده لو كان لباقي المحافظات...

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

الأستاذ الفاضل / محمود الشريف السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذه الهدية العظيمة وكل عام وحضرتك وجميع أساتذتنا وجميع أعضاء هذا الصرح الكبير بخير وأسأل الله العلي القدير أن يبارك لنا في شهر شعبان وأن يبلغنا رمضان وأنت راضِ عنا ويبارك لنا فيه وأن يعيننا على صيامه وقيامه ويكتبنا فيه من المقبولين. أمين يارب العالمين.

السلام عليكم ضع هذا الكود في موديل الورقة المعنية بالعملية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F7").Address Then Range("G7").Value = Val(Range("G7")) + Val(Target) End If End Sub تحياتي

السلام عليكم ورحمة الله وبركاته أخوانى الكرام أرجو معادلة تقريب الرقم الذى بعد العلامة العشرية ومثال له الرقم بعد العلامة العشرية مثال من 9.2 الى 9.6 فتصبح الدرجة 9.5 ومن 9.7 الى 9.9 فتصبح الدرجة 10

تم تعديل المشاركة والتنفيذ في المشاركة التالية رقم 6

أعتقد أخى " إسلام " ووفقا لأبسط القواعد وتسهيلا على الشخص الذى سيقوم بالإجابة أن تسهل علية السؤال وهو أن ترسل " مرفق " كمثال للمطلوب للعمل علية ولكن نظرا لأنها المرة الأولى فأولا - مرحبا بك أخا عزيزا بين زملائك فى منتدى أوفيسنا ونتمنى لك أن تكون عضوا فاعلا لنفسك ولزملائك مستقبلا لذلك أدعوك لقرائة " قواعد المشاركة " للمنتدى حتى تلتزم منذ البداية بقواعد هذه الجامعة أما بخصوص المطلوب فلا تتضايق لقد تم عمله هذه المرة بمثال بسيط من عندى وذلك لأنها أول مشاركة لك أما بعد ذلك فلابد من إرسال مرفق للعمل عليه تقبل تحياتى ، وتحيات فريق المنتدى المعادلة المرفقة داخل المرفق ( معادلة صفيف ) و لكى تحقق النتيجة لابد من الضغط على ( CTRL+SHIFT+ENTER ) ترتيب الأسماء تصاعديا وفقا لرقم القيد.rar

اخي الكريم الرقم اسري هو 8521

أخى الكريم بداية : أهلا بك بين أعضاء منتديات أوفيسنا التعليمية ثانيا : لى رجاء لديكم الإلتزام بسياسة المنتدى بتغيير اسم الظهور الخاص بكم الى اللغة العربية ثالثا : يرجى القيام بعملية البحث بالمنتدى قبل طرح السؤال فستجد ان شاء الرحمن العديد والعديد من الموضوعات المتعلقة بسؤالكم وتفضل اخى الكريم راجع هذا الرابط المفيد والوافى للإجابة على استفساركم http://www.officena.net/ib/index.php?showtopic=49169 وتقبل منى وافر الاحترام والتقدير

السلام عليكم أخى الفاضل إجعل كود اظهار الفورم بالشكل التالى Sub ragab() UserForm1.Show 0 End Sub

السادة / أعضاء منتديات أوفيسنا المحترمين السلام عليكم ورحمه الله وبركاته ،،، أهدى لكم هذا البرنامج وهو المرحلة الأولى له قبل تطويره برنامج تفسير وبيان كلمات القرآن الكريم يرجى منكم تدوين ملاحظاتكم و آرائكم لأخذها فى الإعتبار فى المراحل القادمة تقبلوا منى وافر الإحترام والتقدير تفسير كلمات القرآن الكريم.rar

وعليكم السلام اتمنى يكون المرفق هو المطلوب booking.rar

و كمان الكود الاول بسيط الفهم بالنسبة لمن هو متطفل علي الاكسس مثلي مما مكننى من التعامل معه و التوسع في استعمالة ليشمل حوالي اربع تقارير و الاختيار بين صفحاتهم علي النحو التالي : Private Sub تقرير_Click() DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 14, 13, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 14, 13, , 1 DoCmd.SelectObject acReport, "استحقاقات", True DoCmd.PrintOut , 12, 11, , 1 DoCmd.SelectObject acReport, "استحقاقات", True DoCmd.PrintOut , 12, 11, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 10, 9, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 10, 9, , 1 DoCmd.SelectObject acReport, "استحقاقات", True DoCmd.PrintOut , 8, 7, , 1 DoCmd.SelectObject acReport, "استحقاقات", True DoCmd.PrintOut , 8, 7, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 6, 5, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 6, 5, , 1 DoCmd.SelectObject acReport, "استحقاقات", True DoCmd.PrintOut , 4, 3, , 1 DoCmd.SelectObject acReport, "استحقاقات", True DoCmd.PrintOut , 4, 3, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "استقطاعات بنوك", True DoCmd.PrintOut , 4, 3, , 1 DoCmd.SelectObject acReport, "استحقاقات بنوك", True DoCmd.PrintOut , 4, 3, , 1 DoCmd.SelectObject acReport, "استقطاعات بنوك", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "ااستحقاقات بنوك", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "استقطاعات بنوك", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "ãÌÇãíÚ ÇÓÊÍÞÇÞÇÊاستحقاقات بنوك", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "مجاميع مرتبات خازينة", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "مجاميع مرتبات بنوك", True DoCmd.PrintOut , 2, 1, , 1 End Sub

أخى الكريم للإجابة على استفساركم هناك عده طرق 1- عن طريق عمل شير لملف الأكسل .. عيوبه .. لا يسمح بإستخدام الأكواد أو الماكرو 2 - عن طريق ربط الأكسل بأكسس وهذه الطريقة على ما أعتقد للأستاذ القدير // عبد الله باقشير .. وان قمت بالبحث بالمنتدى ستجدها 3 - عن طريق خدمه مايكروسوفت سكاى درايف للإشتراك فيها عن طريق ايميل علي الهوتميل 4 - عن طريق خدمة جوجل درايف للإشتراك فيها شاهد الفيديو التالى وتقبل منى وافر الاحترام والتقدير

ممتاز

تفضل أخى ماطلبت تقبل تحياتى 123.rar

السلام عليكم أخى ابراهيم جرب الكود التالى Sub ragab() Dim FilePath As String Dim fName As String Application.ScreenUpdating = False Range("A:A").Clear FilePath = ActiveWorkbook.Path & "\" fName = Dir(FilePath & "*.xls") Do While Len(fName) > 0 Range("A1") = "أسماء الملفات" x = Left(fName, Len(fName) - 4) If x = "الرئيسية" Then GoTo 1 Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = x ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & Rows.Count).End(xlUp), Address:=fName, _ TextToDisplay:=Range("A" & Rows.Count).End(xlUp).Value 1 fName = Dir Loop Sheets("Sheet1").Range("A:A").Font.Size = 14 Columns("A:A").Columns.AutoFit Application.ScreenUpdating = True End Sub Hyperlinks.rar

أخى فى الله الأستاذ الكبير // ابراهيم ابو ليلة طريقة رائعة لتنفيذ المطلوب بارك الله فيكم وبعد إذنكم أخى الكريم لإثراء الموضوع إليكم طريقة أخري لتنفيذ المطلوب عن طريق قائمة منسدله عمليه دون تغيير أى شىء بالملف وتقبلوا منى وافر الاحترام والتقدير مشتركى الدوحة نت 1.rar

أخى الكريم الأستاذ // روان يمكنك مراجعه هذا الرابط به شرح وافى وبه مثال تطبيق عملى للربط بين قاعدة بيانات اكسل وورد اوفيس 2007 http://www.officena....showtopic=53571 وتقبلوا منى وافر الاحترام والتقدير

أخى الكريم الأستاذ // رفعت يسرى بارك الله فيك بالنسبة لطلب الأخ الكريم الأستاذ // روان يمكنك أيضا مراجعه هذا الرابط به شرح وافى وبه مثال تطبيق عملى للربط بين قاعدة بيانات اكسل وورد اوفيس 2007 http://www.officena.net/ib/index.php?showtopic=53571 وتقبلوا منى وافر الاحترام والتقدير

إخوانى فى الله السادة / أعضاء منتدانا الحبيب المحترمين ارسل لى هذا الكتاب الرائع عبر الإيميل ووجدته مفيدا جدا ( pdf ) وأضعه بين ايديكم نسأل الله عز وجل أن يستفيد منه أعضاء المنتدى وتقبلوا منى وافر الإحترام والتقدير برمجة اكسيل - تطبيقات متقدمة.rar

أخى الكريم الأستاذ // فراسكو بداية لا علم لدى حول أن هناك مواقع متخصصه تتابع بشكل منتظم أو تقوم بتحديث اسعار المواد الغذائية طبقا لسعر السوق فالذى اعرفه ان هناك مواقع متخصصه فى أسعار الصرف الخاصة بالعملات سبق لى وأن قدمت برنامج خاص بتحديث اسعار صرف العملات أول بأول من شبكة الإنترنت تحت هذا الرابط http://www.officena.net/ib/index.php?showtopic=51109#entry315286 قإن كان هناك مواقع تدعم طلبك يمكنكم الإستعانه بالبرنامج الموجود بالرابط اعلاه تقبل منى وافر الاحترام والتقدير

السلام عليكم ورحمه الله وبركاته المشكله بالتفصيل : انا عندي نسخه ويندوز 7 (ultimate) حيث تتوفر فيها خاصيه تشفير الاقراص . وقد عملت علي تفشير احد الاقراص لدي وهذا القرص هوا به جميع برامجي وبه كل شي به شغل سنوات ولا اريد ان اضحي بهم في سبيل امر تافه مثل الفور مات . المهم وعمليه التشفير قائمه للقرص المراد تشفيره كنت اعمل على تنصيب الحزمه الخدميه الاولى لويندوز 7 فطلبت منى ان اعمل ريستارت فى ظل ان ال bitlocker كان يعمل على تشفير القرص ولم يكتمل التشفير بعد وفعلا تم عمل الريستارت للجهاز وعندما اردت الدخول الى القرص المشفر طلب ال password فكتبه فاخد مده طويله يعمل ولاكن بالنهايه ظهر لى رساله تفيد انه يوجد خطاء فى القرص اخر الرساله تقول . فاخذ فى تنصيب نسخه جديده على اساس التشفير سوف يخنفي ولاكن المشكله قائمه فقوت بادخال اسطوانه صيانه لويندوز 7 على اساس اشوف ملفاتي وعندما فتحت البارتشن المشفر يعطيني رساله access is denai . فرجو من سيادتكم خبراء قلعه العلم ان تفيدونى بحل لهذه المشكله

مبروووووك مقدما

وانا ايضا انضم اليكم و قد غيرت اسمي من aimanano الى محمد ايمن وهو اسمي الحقيقي كما ارجو ان يتم تعريب المنتدى بالكامل مثلا عوضا عن كلمة Search Results ان تصبح الكلمة نتائج البحث

السلام عليكم اخواني الاعزاء تم اضافة اضافة اخري للجدول الديناميكي فقد كان سابقا يعمل علي اضافة صفوف فقط اما الان فيمكن ايضا اضافة اعمدة مع الحفاظ علي المدي و المعادلات اتمني ان تكون اضافة مفيدة كما ارجو التجربة و اخباري بالنتيجة تحياتي Dinamic_Lable__________________.rar

تفضل اخي جرب الان New_Microsoft_Office_Access_2007_Database.rar

أخي الكريم : جرب الآن ، لقد حولت البرنامج بالكامل لـ 2007 Database21.zip