Dream_Works

السلام عليكم

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

تفضل

1 - اختيار Access Options من القائمة الرئيسية

2- إزالة علامة صح من Allow Full Menus لحذف القوائم من الملف

إزالة علامة صح من Allow Default Shortcut Menus لإزالة القوائم الفرعية التي تظهر بضغط الزر الأيمن للفأرة

الرجاء الضغط على الصور لإظهارها

الاخوة الافاضل هل ممكن تنفيذ كتشنة السرى على الملف المرفق

حيث نحدد اولا عدد المجموعة وليكن مثلا 25

ثم نبدا باول مجموعة جلوس مثلا من 1 : 25 تاخذ سرى يتم وضعة 1051 الى 1075 وهكذا

يوجد المرفق

أرجو المزيد من التوضيح

المجموعة 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

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

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

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

ثانيا : قد يوجد مشكلة معينة في التطبيق ولا ادري سببها ، وهي بعد ادخال تاريخ البداية تظهر الرسالة " run-time error 94: invalid use of null"

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

ثانيا: هل يمكن بعد ادخال التاريخين وبعد طرحهما تنتج قيمة ( عدد الشهور والايام بمربع نص واحد ) بمعني :

تاريخ البداية مثلا 2000/01/01

تاريخ النهاية مثلا 2005/05/14 .

يكون الناتج بمربع نص واحد " 60.15" مع ملاحظة ان عدد الايام لم يتم طرحها حسابيا انما تم حسابها علي انها مدة فعلية انقضت ومرت .

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

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

أرجو أن يكون هذا المطلوب

_______.zip