صالح حمادي

السلام عليكم جرب هذا الكود If Arabic_t1_med = "غ" Then MsgBox "غ" If Arabic_t1_med >= 17 Then MsgBox "ممتاز" ElseIf Arabic_t1_med >= 15 Then MsgBox "جيد جدا" ElseIf Arabic_t1_med >= 13 Then MsgBox "جيد" ElseIf Arabic_t1_med >= 10 Then MsgBox "مقبول" ElseIf Arabic_t1_med < 10 Then MsgBox "دون الوسط" End If

السلام عليكم تفضل تستطيع إستعمال هذا الكود: DoCmd.MoveSize Height:=Me.WindowHeight - Me.تفصيل.Height و هذا التعديل على الملف التفاصيل.rar

يمكنك استخدام أساليب الكائن DoCmd لتشغيل الإجراءات على Microsoft Office Access من Visual Basic. هذا العمل ينفذ المهام مثل إغلاق النوافذ، وفتح النماذج، وتحديد قيمة الضوابط...و غيرها

السلام عليكم نعم يمكنك ذلك بإستعمال الكود التالي: DoCmd.RunSQL "CREATE TABLE Friends" & _ "([FriendID] integer," & _ "[LastName] text," & _ "[FirstName] text," & _ "[Birthdate] date," & _ "[Phone] text," & _ "[Notes] memo," & _ "CONSTRAINT [Index1] PRIMARY KEY ([FriendID]));" Friends اسم الجدول و باقي الأسطر تمثل أسماء الحقول و نوعها السطر الاخير يمثل المفتاح الأساسي

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

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

IsDate: تستخدم هذه الدالة لفحص ما إذا كان المتغير الممرر لها تاريخ أم لا حيث تعيد true إذا كان المتغير تاريخاً و تعيد false إذا لم يكن تاريخاً. IsDate(«تعبير») IsDate("12/03/2017")=True IsDate("أوفيسنا")=False Now: تستخدم هذه الدالة لإستخراج تاريخ و وقت النظام الحاليين. Now() و تكون النتيجة بالشكل التالي: 15-03-2017 10:18:15 Time: تستخدم هذه الدالة لإستخراج وقت النظام الحالي. Time() و تكون النتيجة بالشكل التالي: 10:18:15 Timer: تستخدم هذه الدالة لإستخراج عدد الثواني منذ منتصف الليل. Timer() MonthName: تستخدم هذه الدالة لإرجاع اسم الشهر المحدد . MonthName(«اختصار», «شهر») MonthName(3,True)="مارس" MonthName(8)="أوت" TimeSerial: تستخدم هذه الدالة لإرجاع متغير من نوع تاريخ يحتوي على الوقت لساعة و دقيقة و ثانية محددة. TimeSerial(«ثانية», «دقيقة», «ساعة») TimeSerial(10, 56, 13)=10:56:13 Weekday: تستخدم هذه الدالة لإرجاع متغير "عدد صحيح" يمثل رقم اليوم في الأسبوع. Weekday(أول أيام الأسبوع, التاريخ) Weekday("15/3/2017", vbSunday)=4 WeekdayName: تستخدم هذه الدالة لإرجاع اسم اليوم المحدد من الأسبوع. WeekdayName(«أول أيام الأسبوع», «اختصار», «يوم من الأسبوع») WeekdayName(3, True, vbSunday)="الثلاثاء" و هذه هي القيم المستعملة لتحديد أول أيام الأسبوع: vbUseSystem سيتم استخدام إعدادات النظام vbSunday يمثل يوم الأحد vbMonday يمثل يوم الاثنين vbTuesday يمثل يوم الثلاثاء vbWednesday يمثل يوم الأربعاء vbThursday يمثل يوم الخميس vbFriday يمثل يوم الجمعة vbSaturday يمثل يوم السبت

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

السلام عليكم هذا الكود يقوم بتمكين مربع النص: TextBox.Enable=True و هذا الكود يقوم بتعطيل مربع النص: TextBox.Enable=False

السلام عليكم بإمكانك تحقيق ذلك بإستعمال صورة بها إطار كخلفية للتقرير لاحظ المثال الموالي: اطار تقرير.rar

السلام عليكم اذهب إلى خصائص الأكسس و قم بتغيير خاصية سلوك الإدخال إلى تحديد الحقل بالكامل كما في الصورة الموالية:

السلام عليكم لقد قمت بإضافة هذا الكود للمرفق: For i = 0 To DeleteList.ListCount - 1 If DeleteList.Selected(i) = True Then strname = strname & vbCrLf & _ DeleteList.Column(1, i) End If Next EmploeeCounter.rar

السلام عليكم يمكنك الحصول على ذلك بإتباع الخطوات التالية: 1- إضافة مربع نص ليتم تحديد من خلاله أي الإدارات التي نريد طباعتها. 2- إضافة فرز لتقرير حسب المدرسة. 3- تغيير خاصية "فرض صفحة جديدة" إلى بعد المقطع للعنصر المدرسة تذييل. و أخيرا هذا تعديل على المرفق: طباعة تقارير لكل ادارة .rar

السلام عليكم إجعل عرض التفصيل (Detail) للتقرير يساوي عرض مربع النص ( اسم الصنف , الكمية, الوحدة.....الخ)

السلام عليكم استعمل هذا الكود فهو يقوم بحساب عدد السجلات التي يكون فيها الرقم الوطني يساوي قيمة مربع النص TextBox Dcount("*","tbl","national"& me.TextBox) بحيث TextBox هو اسم مربع النص و tbl هو اسم الجدول

تفضل أخي لقد أجريت التعديل اللازم الخطأ هو أنه لا يوجد حقل باسم XDate في الجدول Purchase فقمت بإضاة إستعلام QRY و جعلته هو مصدر الإستعلام Qy بالتوفيق إن شاء الله db1.rar

الله يحفظك يا صديقي العزيز

السلام عليكم بعد إذنك أخي و صديقي تشفان أريد أن أضيف طريقة أخرى: يمكن استعمال الكود التالي: Nz(DSum("[Expr1]";"sa3atIzn");0)

السلام عليكم أخي جرب الكود بهذا الشكل: Total: Nz(DSum("Quantity";"Purchase";"[IdProduct]=" & [IdProduct] & "and [Xdate]<= [Xdate]");0)

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

الكود الذي أضافه الأستاذ أبو عبد الله يقوم بـ: 1- تسجيل التاريخ و الوقت الحاليين إذا كان الجدولSaveFirstTimeTbl فارغا 2- مقارنة التاريخ الحالي مع التاريخ المسجل في الجدول السالف ذكره إذا كان التاريخ الحالي أصغر من التاريخ المسجل تظهر رسالة بأن تاريخ الجهاز غير صحيح ثم يغلق الجهاز. و إذا كان التاريخ الحالي أكبر يفتح البرنامج بشكل عادي دون أي إضافات. 3- فقمت بإضافة كود يقوم بتعديل التاريخ و الوقت المسجلين في الجدول إلى التاريخ و الوقت الحاليين عندما يفتح البرنامج بشكل عادي sql.Edit: sql!Field_now = Now: sql.Update

السلام عليكم لقد أضف الكود التالي للكود الذي يقوم بمقارنة التاريخ المخزن مع التاريخ الحالي في حدث عند فتح الفورم Else sql.Edit: sql!Field_now = Now: sql.Update ليصبح شكل الكود كالتالي: If Now < DLookup("Field_Now", "SaveFirstTimeTbl") Then MsgBox "يبدو أنه تم التلاعب بساعة الجهاز" & vbCrLf & _ "هذا سيؤدي الى ايقاف البرنامج" & vbCrLf & _ "لحين ارجاع الوقت الصحيح", vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊÍÐíÑ" DoCmd.Quit Else sql.Edit: sql!Field_now = Now: sql.Update End If منع تغيير الوقت.rar

السلام عليكم أخي تابع هذا الموضوع به ما تحتاج و أكثر.

السلام عليكم أضف هذا الأمر عند حدث بعد التحديث للنموذج الفرعي Me.Requery db3.rar

السلام عليكم يمكنك إستعمال هذا الكود curPath = "d:\أم خلود.accdb" If Dir(curPath) = "" Then FileCopy "c:\2017\أم خلود.accdb", curPath Else Application.FollowHyperlink curPath End If