Dream_Works

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

تفضل 1 - اختيار Access Options من القائمة الرئيسية 2- إزالة علامة صح من Allow Full Menus لحذف القوائم من الملف إزالة علامة صح من Allow Default Shortcut Menus لإزالة القوائم الفرعية التي تظهر بضغط الزر الأيمن للفأرة الرجاء الضغط على الصور لإظهارها

أرجو المزيد من التوضيح المجموعة 1 بها سري رقم 1001 !

أعتقد إن البيانات كلها مترابطة ... لأن كلها تتعلق بالكمبيوتر نفسه يعني النوع مرتبط بالكمبيوتر و ليس مستقل بذاته و كذلك المواصفات لذلك أعتقد إنه من الأفضل وضع البيانات في جدول واحد و من ناحية النوع تقدر في التصميم تضع الأنواع المطلوبة في Lookup - Value List ممكن نساعدك فيها لو تقول لنا كل الأنواع المتاحة عندك أنا سويت لك شي عالسريع ... شوفه و عدل فيه Sample2.zip

القيم المحسوبة لا تضعها في الجدول و لكن تحسبها بالإستعلام مثل الباقي و إجمالي سعر الشراء لذلك لا حاجة لوضعهم في الجدول

السلام عليكم أرجو تحويل هذه الملفات من PPTX إلى PPT لأي شخص لديه أوفس 2007 Ch20.zip

أشكركم جميعاً على هذا التعاون ... :fff:

السلام عليكم لدي طلب بسيط جداً لأي شخص عنده إكسيل 2007 تحويل صيغة الملف المرفق إلى 2003 مع خالص الشكر تفاصيل الطيران.zip

يمكنك استخدام الخواص التالية لعمل ذلك بسهولة OrderBy , OrderByOn شرح مايكروسوفت للخواص المذكورة : OrderBy OrderByOn إن لم تستطع فعل المطلوب يمكنك إرفاق ملفك مع تحديد الحقول المطلوب الترتيب عليها

تم التعديل في Conditional Formatting YesNo.zip

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

تم عمل الآتي : مسح جميع الاستعلامات و الإعتماد على استعلام واحد فقط استرجاع البيانات المطلوبة بالكود داخل التقرير كود مثل هذا : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim i As Byte, StrCriteria As String StrCriteria = "ID = " & Me.ID & " And [CLASS ON] = " For i = 1 To 9 Me("Level" & i) = DLookup("Level", Me.RecordSource, StrCriteria & "'" & i & "'") Me("Name" & i) = DLookup("[Teacher Name]", Me.RecordSource, StrCriteria & "'" & i & "'") Next i End Sub للأسف انت ما وضعت لي بيانات ... خمنت إنها جدول تمارين سويدية لنادي صحي ... :)

السلام عليكم بالنسبة لي أهم الطرق التي تعلمت بها الأكسيس هي : 1- ملفات المساعدة الموجودة بالأكسيس .... اضغط زر F1 على ما تريد التعرف عليه و سيظهر لك الشرح الخاص به ... كما أن موقع مايكروسوفت أكسيس به شرح بالعربي لجميع الدول موقع مايكروسوفت أكسيس 2- دروس الأستاذه زهره العبدالله ... فهي فعالة جداً و متعوب عليها بالفعل ... و تستاهل هذه المرأه كل خير دروس زهره العبدالله 3- بما أنني مللت من القراءة بكثرة ... لجأت إلى وسائل أكثر فعالية و هي المالتيميديا ... شرح بالصوت و الصورة و بذلك لجأت إلى موقع www.vtc.com لتعليم الكثير من برامج و شبكات الكمبيوتر بكفاءة ... و توجد مواقع كثيره غيره بالعربي أو الإنجليزي يمكنك رؤية نبذه عن هذه الدروس في موقع www.vtc.com ... بمشغل الفلاش ( نفس مشغل ملفات اليوتيوب ) نبذة الدروس الخاصة بالأكسيس ثم البحث عنها في جوجل و تنزيلها في جهازك موقع به أحد الدروس لتنزيلها بالمجان من الرابيد شير درس Microsoft Access 2007 4- الإشتراك بالرأي مع أعضاء المنتدى .... فكما أفدت أعضاء هذا المنتدى الرائع و منتديات الفريق العربي للبرمجة ... استفدت كثيراً من آرائهم و أفكارهم ... و لكن ذلك تم بعد المراحل الثلاثة السابقة و تكوين خبرة جيدة لإبداء الرأي و غير ذلك توجد الكثير من المصادر من كتب مطبوعة أو غيرها ... المهم إنك تصمم على تكملة المشوار و لا تيأس

أشكرك أخي الكريم ابو خليل بصراحه ... أعتقد أن حلك هو الأفضل ... فأرجو أن يعتمد عليه الأخ solnaif مع تمنياتي لك بالتوفيق ...

أرجو أن يكون هذا المطلوب ملحوظة : يُستحسن مسج جميع البيانات من جدول MyBook1 قبل التشغيل إذا أردت أن تتم العملية دون مسح ... يمكن عمل ذلك 0_MyFahras.zip

تفضل Microsoft tSupport

يمكنك تعديل آخر سطر كود و إضافة سطر واحد التعديل : إزالة المسافات قبل و بعد الفاصلة العشرية .TxtAll = MonthDiff & "." & DaysDiff .ff = CSng(.TxtAll) * 3.34 End With

في هذا المثال تم ضرب رقم الشهر * 24 و إضافة 15 إلى رقم اليوم المسأله تتطلب بعض الإلمام بكيفية كتابة الكود ... ممكن ترسل طلبك بالتحديد في هذا المنتدى و سيرد عليك الأعضاء بالجواب Private Sub CalculateDate() Dim aDate As Date, MonthDiff As Integer, DaysDiff As Byte With Me If IsNull(.date1) Or IsNull(.date2) Then .TxtAll = "" Exit Sub End If If .date1 > .date2 Then MsgBox "يجب أن يكون تاريخ البداية <= تاريخ النهاية", vbInformation .TxtAll = "" Exit Sub End If MonthDiff = DateDiff("m", .date1, .date2) aDate = DateAdd("m", MonthDiff, .date1) If aDate > .date2 Then aDate = DateAdd("m", -1, aDate) MonthDiff = MonthDiff - 1 End If DaysDiff = DateDiff("d", aDate, .date2) MonthDiff = MonthDiff * 24 DaysDiff = DaysDiff + 15 .TxtAll = MonthDiff & " . " & DaysDiff End With End Sub

توجد العديد من دروس الماكرو يمكنك البحث فيما بينها في جوجل وجدت هذا الموضوع و لكنه للأسف يُلزمك بالتسجيل في المنتدى لرؤيته درس ماكرو

يمكنك عمل ذلك ببساطة في الكود تم تخزين رقم الشهر في متغير اسمه ... MonthDiff رقم اليوم في متغير اسمه ... DaysDiff

للأسف لا أعلم ما هي المشكلة بالضبط .... كل شيء تمام ... فقط يمكنك وضع سطر الكود هذا في الحدث AfterUpdate لمربعات النصوص ( من - إلى ) Private Sub نص9_AfterUpdate() Me.قائمة0.Requery End Sub

أعتذر منك أخي الكريم لاحظت وجود خطأ في حسبة الفرق بين تاريخين في الأكسيس و إظهار النتائج بالشهور ... فإنه لا يضع فرق الأيام بعين الاعتبار ... مثلاً تاريخ البدية : 5 / 5 / 2008 تاريخ النهاية : 1 / 1 / 2008 يظهر الفرق 5 شهور ... مع أنه في الحقيقة أربعة شهور و 26 يوم تقريباً لذلك وضعت بعض التعديلات في الكود أرجو أن تضعها لديك Private Sub CalculateDate() Dim aDate As Date, MonthDiff As Integer, DaysDiff As Byte With Me If IsNull(.date1) Or IsNull(.date2) Then .TxtAll = "" Exit Sub End If If .date1 > .date2 Then MsgBox "يجب أن يكون تاريخ البداية <= تاريخ النهاية", vbInformation .TxtAll = "" Exit Sub End If MonthDiff = DateDiff("m", .date1, .date2) aDate = DateAdd("m", MonthDiff, .date1) If aDate > .date2 Then aDate = DateAdd("m", -1, aDate) MonthDiff = MonthDiff - 1 End If DaysDiff = DateDiff("d", aDate, .date2) .TxtAll = MonthDiff & " . " & DaysDiff End With End Sub

أرجو إرفاق قاعدة بياناتك ... من ناحية اليوم لا يوجد داعى لإضافته ( يمكن استخراجه بعد إضافة التاريخ مباشرة )

تشرفنا بمعرفتك أخي أحمد ... و أعتذر عن سوء الفهم الصراحه أنا أرغب في مساعدتك و لكني لا أرى أي مشاكل في ملفك

أعتذر منك أخي الكريم لأنني لم أنتبه لمعالجة هذه النقطه ... إذا كان أحد حقول التواريخ فارغاً يتم تفرغة حقل الناتج تلقائياً حتى يتم تعبئة الحقلين معاً ... أرجو أن يكون هذا هو المطلوب في هذه الحالة باعتقادي أن طريقة الحسبة الموجوده بالحل تفي بالغرض لذلك جمعت النتيجتين في مربع نص واحد ملحوظة : الناتج سيظهر بالسالب إذا كان تاريخ البدايه أكبر من تاريخ النهاية لذلك وضعت رسالة خطأ و مسحت البيانات من حقل الناتج حتى يتم الإدخال الصحيح أرجو أن يكون هذا المطلوب _______.zip