صالح حمادي

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

السلام عليكم أولا: أخي الكريم يجب عليك أن تقدر ضرف جميع الأعضاء فهم متطوعون و كل يساعد حسب سعة وقته و ظروفه الخاصة. فلا يجب أن نلح عليكهم أكثر من اللزوم. ثانيا: هناك العديد من الطرق لفعل ذلك و لعلى أبسطها الإرتباط التشعبي سوف أرفق لك مثالا على ذلك. my info1.rar

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

و فيك بارك الله أخي تستاهل كثير

السلام عليكم أخي ابو زاهر استعمل هذا الكود: On Error Resume Next Dim x As String x = Me.Rajmsanf.Text Me.Rajmsanf = UCase(x) Me.Rajmsanf.SelStart = Len(x) Me.Rajmsanf.SelLength = 0 و هذا المرفق بعد التعديل حروف كبيره .rar

أخي اختر عنوان مناسب للمشاركة دائما. لقد قمت بتغيير العنوان.

الدرس الحادي عشر: جمل SQL هذا الدرس مخصص لشرح جمل SQL: Create: نستخدم هذه الجملة لإنشاء جدول جديد و طريقة كتابة الجملة كالتلي: Create Table table_name (field1 type_field, field2 type_field); table_name : اسم الجدول المراد إنشاؤه field1, field2 ....: أسماء الحقول type_field : نوع الحقل مثال : الكود التالي يقوم بإنشاء جدول اسمه salah و به حقلين id و nname Dim req As String req = "create table salah (id integer, nname string(12));" DoCmd.RunSQL req نستخدم الكود Docmd.RunSQL من أجل تنفيذ جمل SQL Drop: نستخدم هذه الجملة لحذف جدول معين و طريقة كتابة الجملة كالتلي: Drop Table table_name; table_name : اسم الجدول مثال : الكود التالي يقوم بحذف جدول اسمه salah Dim req As String req = "Drop Table salah;" DoCmd.RunSQL req Alter: نستخدم هذه الجملة للتعديل على تصميم جدول معين بإضافة حقول جديدة أو حذف حقول موجودة و طريقة كتابة الجملة كالتلي: Alter Table table_name Add Column new_field type_field; table_name : اسم الجدول new_field: اسم الحقل الجديد type_field: نوع الحقل الجديد مثال1 : الكود التالي يقوم بإضافة حقل جديد اسمه adress في جدول salah Dim req As String req = "Alter Table salah Add Column adress string;" DoCmd.RunSQL req مثال2 : الكود التالي يقوم بحذف حقل اسمه adress في جدول salah Dim req As String req = "Alter Table salah Column Drop adress;" DoCmd.RunSQL req Select: نستخدم هذه الجملة لاستخراج مجموعة سجلات من جدول معين (استعلام) و طريقة كتابة الجملة كالتلي: Select * table_name Where condition; table_name : اسم الجدول *: تعني اظهار جميع الحقول و يمكن كتابة بعض الحقول في مكانها condition: الشرط الذي يوضع لاستخراج السجلات مثال : الكود التالي يقوم بإستخراج السجل الذي رقمه (ID) يساوي 3 في جدول salah Dim req As String req = "select * from salah where id=3;" Me.RecordSource = req السطر الأخير معناه نجعل مصدر السجلات لنموذج الحالي هو الاستعلام req Delete: نستخدم هذه الجملة لحذف مجموعة سجلات من جدول معين و طريقة كتابة الجملة كالتلي: Delete table_name Where condition; table_name : اسم الجدول condition: الشرط الذي يوضع لاستخراج السجلات مثال : الكود التالي يقوم بحذف السجل الذي رقمه (ID) يساوي 3 في جدول salah Dim req As String req = "Delete From salah where id=3;" DoCmd.RunSQL req Insert: نستخدم هذه الجملة لإضافة سجل جديد إلى جدول معين و طريقة كتابة الجملة كالتلي: INSERT INTO table_name ("column1", "column2", ...) VALUES ("value1", "value2", ...) مثال : الكود التالي يقوم بإضافة سجل جديد لجدول salah Dim req As String req = "insert into salah1 (id, nname) values (11,'أوفيسنا');" DoCmd.RunSQL req Update: نستخدم هذه الجملة لتغيير قيمة سجل في حقل معين لجدول ما و طريقة كتابة الجملة كالتلي: Update table_name Set field='value' Where condition; مثال : الكود التالي يقوم بتعديل قيمة الحقل nname إلى 'محسن' في السجل الذي رقمه (id) 3 بالجدول salah Dim req As String req = "update salah set nname='محسن' where id=3;" DoCmd.RunSQL req

الدرس العاشر: دوال تجميع المجال هذا الدرس مخصص لشرح دوال تجميع المجال: DAvg: تستخدم هذه الدالة من أجل استخراج القيمة المتوسطة لمجموعة سجلات بحقل معين في جدول. DAvg(field, table, condition) field: اسم الحقل المراد حساب قيمته المتوسطة table: اسم الجدول الذي به الحقل condition: الشروط أو المعايير و هي اختيارية و ليست ضرورية DCount: تستخدم هذه الدالة لحساب عدد الجلات في جدول معين. DCount(field, table, condition) DFirst: تستخدم هذه الدالة لاستخراج السجل الأول في جدول معين. DFirst(field, table, condition) DLast: تستخدم هذه الدالة لاستخراج السجل الأخير في جدول معين. DLast(field, table, condition) DLookUp: تستخدم هذه الدالة لاستخراج قيمة حقل معين من جدول ما. DLookUp(field, table, condition) DMax: تستخدم هذه الدالة لاستخراج القيمة القصوى لحقل معين في جدول ما. DMax(field, table, condition) DMin: تستخدم هذه الدالة لاستخراج القيمة الدنيا لحقل معين في جدول ما. DMin(field, table, condition) DStDev: تستخدم هذه الدالة لاستخراج الانحراف المعياري لمجموعة سجلات بحقل معين في جدول ما. DStDev(field, table, condition) DSum: تستخدم هذه الدالة لحساب مجموع قيم مجموعة سجلات بحقل معين في جدول ما. DSum(field, table, condition)

جيد أستاذ يوسف أتحفنا بإبداعاتك: أستأذنكم في المشاركة معكم بهذا الكود: كود اليوم الأول من الأسبوع الأول: "01/" & Format(Date();"mm/yyyy") اليوم الأخير من الأسبوع الأول: "07/" & Format(Date();"mm/yyyy") كود اليوم الأول من الأسبوع الثاني: "08/" & Format(Date();"mm/yyyy") اليوم الأخير من الأسبوع الثاني: "14/" & Format(Date();"mm/yyyy") كود اليوم الأول من الأسبوع الثالث: "15/" & Format(Date();"mm/yyyy") اليوم الأخير من الأسبوع الثالث: "21/" & Format(Date();"mm/yyyy") كود اليوم الأول من الأسبوع الرابع: "22/" & Format(Date();"mm/yyyy") اليوم الأخير من الأسبوع الرابع: "28/" & Format(Date();"mm/yyyy")

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

لاحظ هذه الصورة المشكل في الكود الذي عليه الإطار الأحمر و لاحظت أنه لا يوجد أي تغيير عند التعديل عليه بحذف الكلمة الأخير !Rajmsanf جرب أحذف هذه الكلمة مع علامة التعجب التي قبلها و لاحظ النتيجة

شكرا جزيلا أخوتي و أصدقائي الكرام

أخي ابو زاهر يا ريت توضح المطلوب أكثر

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

في هذه الحالة الأمر ينفذ عند الضغط على زر الأمر و لكن المطلوب هو تنفيذ الأمر مع ظهور الشريحة الأولى مباشرة بدون الضغط على أي عنصر

جزاك الله خيرا أستاذ سفيان

أهلين أستاذنا الغالي مجدى أدام الله عليك الصحة و العافية إن شاء الله الذي أريده أنا هو تشغيل ماكرو مع حدث الفتح مثال: أنا أنشأت ماكرو به الأمر التالي: MsgBox "السلام عليكم" أريد كلما فتح الملف تظهر هذه الرسالة جزاك الله عنا خير الجزاء أستاذنا الغالي

السلام عليكم حياكم الله أيها الإخوة الكرام ما هي طريقة تشغيل ماكرو في الباوربوانت مع فتح الملف مباشرة أو عند عرض أول شريحة جزاكم الله كل خير

السلام عليكم. يمكن تضع إتجاه التقرير أفقي

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

لقد أجريت بعض التعديلات هنا. جزاكم الله خيرا.rar

السلام عليكم: يمكن الإستعانة بهذا الكود للقيام بالعمل المطلوب: LIKE ""*" & " " & Me.txtSearch & " " & "*""

لقد تركت ذلك عمدا لتكمله وحدك. لأنني أعطيتك الطريقة في كمبوبكس البحث.لكن لا بأس تفضل استعمل هذا الكود: Dim fiald_classement As String Select Case Me.fsortN Case "الرقم" fiald_classement = "ID" Case "تصنيف رئيسي" fiald_classement = "MainCategory" Case "تصنيف فرعي" fiald_classement = "SubCategory" Case "السؤال" fiald_classement = "Question" Case "الإجابة" fiald_classement = "Answer" Case "المصدر" fiald_classement = "Source" End Select جزاكم الله خيرا.rar

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

و عليكم السلام أخي إبراهيم أين يتم وضع هذه الحروف بالنسبة لطريقة تحديد الرقم الأخير فهي كالتالي: الرقم الأخير يضعه الجهاز تلقائيا من خلال المعادلة الرياضية التالية: 1- نجمع الأعداد ذات الترتيب الفردي: الأول + الثالث + الخامس+ السابع و نضرب المجموع في 7 2- نجمع الأعداد ذات الترتيب الزوجي ماعدى الرقم الأخير : الثاني + الرابع + السادس و نضرب المجموع في 9 3- نجمع المجموع 1 مع المجموع 2 4- الرقم الأخير (رقم الآحاد) من المجموع هو الذي يمثل الرقم الأخير في الباركود. و هذا مثال: للعلم أنا لم أجد هذه المعلومة في أي موقع فقط أجريت العديد من التجارب للوصول إلى الطريقة الصحيحة لحساب الرقم الأخير و هذا ما توصلة إليه و للتأكيد يا ريت تجربوا هذه الطريقة لنتأكد من أنها صحيحة و فعالة فقد طبقتها على العديد من الأمثلة و كلها صحيحة.