صالح حمادي

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

بارك الله فيك و جزاك الله خير الجزاء

السلام عليكم استعمل نوع الحقل مرفق

السلام عليكم بعد إذنك أستاذ محمد أخي ميدو حسب الطريقة التي إتبعها الأستاذ محمد أضف هذا الكود في عمود الشرط بالنسبة للماكرو الذي يفتح النموذج ="[Gen_Code]=" & [Gen_Code] 1.rar

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

بالإضافة إلى هذه الطريقة يمكن استعمال دالة القيمة المطلقة abs فهي تعطينا العدد الموجب موجب و السالب موجب يعني دائما النتيجة تظهر موجبة

السلام عليكم نضيف هذا التعديل إلى الكود الذي إستعملته: Else DoCmd.OpenForm "تسجيل البلاغات" DoCmd.Close acForm, "a" ليصبح على هذا الشكل: Dim intStore As Integer intStore = DCount("[ÇáãÚÑÝ]", "[ÌÏæá ÊÓÌíá ÇáÈáÇÛÇÊ]", "[end_d] is null") 'intStore = DCount("[ID]", "[A]", "[end_date] <=Date()+5 AND [check] =-1 ") If intStore = 0 Then Exit Sub Else If MsgBox("íæÌÏ " & intStore & "ÈáÇÛÇÊ " & _ "áã íÓÌá áåÇ ÊÇÑíÎ ÇÕáÇÍ Çæ áã íÊã ÇäÌÇÒåÇ " & vbCrLf & vbCrLf & _ " " & _ " åá ÊÑíÏÇáãÚÇíäÉ ÇáÂä¿ " & _ " ", vbYesNo Or vbExclamation Or vbDefaultButton1, _ "ÊäÈíå") = vbYes Then DoCmd.OpenForm "a" Else DoCmd.OpenForm "ÊÓÌíá ÇáÈáÇÛÇÊ" DoCmd.Close acForm, "a" End If End If و هذا المرفق بعد التعديل متابعة صيانة القوالب .rar

الشكر لله أولا أستاذ رمهان ثم لك ثانيا لأنك صاحبك الفكرة و ما نحن إلا مكملين لها فقط

الحمد لله الذي تتم بنعمته الصالحات

معذرة نسيت أمر السيرفر استعمل هذا الكود =Replace(DLookUp("database";"msysobjects";"database is not null");Right(DLookUp("database";"msysobjects";"database is not null");Len(DLookUp("database";"msysobjects";"database is not null"))-InStrRev(DLookUp("database";"msysobjects";"database is not null");"\"));"image\" & [المعرف] & ".jpg") و هذا هو المرفق careitems.rar

نعم يا غالي أنا كنت فاهم الموضوع بالغلط بارك الله بك و بعلمك و سوف نحاول إثراء الموضوع أكثر إن شاء الله

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

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

هل المطلوب تعريب نص المسج أم عنوان المسج

يمكن حل هذه المشكلة بتثبيت أوفيس عربي أنا تظهر لي الرسالة بهذا الشكل

تفضل أخي هذا هو شكل الكود بعد التعديل: If Len(Dir(Replace(DLookup("database", "msysobjects", "database is not null"), Right(DLookup("database", "msysobjects", "database is not null"), Len(DLookup("database", "msysobjects", "database is not null")) - InStrRev(DLookup("database", "msysobjects", "database is not null"), "\")), "image"), vbDirectory)) = 0 Then MkDir (Replace(DLookup("database", "msysobjects", "database is not null"), Right(DLookup("database", "msysobjects", "database is not null"), Len(DLookup("database", "msysobjects", "database is not null")) - InStrRev(DLookup("database", "msysobjects", "database is not null"), "\")), "image")) End If If Dir(Replace(DLookup("database", "msysobjects", "database is not null"), Right(DLookup("database", "msysobjects", "database is not null"), Len(DLookup("database", "msysobjects", "database is not null")) - InStrRev(DLookup("database", "msysobjects", "database is not null"), "\")), "image\" & Me.المعرف & ".jpg")) <> "" Then If MsgBox("الملف موجود هل تريد الاستبدال", vbYesNo) = vbNo Then Exit Sub End If If Application.FileDialog(3).Show = -1 Then FileCopy Application.FileDialog(3).SelectedItems(1), Replace(DLookup("database", "msysobjects", "database is not null"), Right(DLookup("database", "msysobjects", "database is not null"), Len(DLookup("database", "msysobjects", "database is not null")) - InStrRev(DLookup("database", "msysobjects", "database is not null"), "\")), "image\" & Me.المعرف & ".jpg") imgPicture.Requery PicFile = Replace(DLookup("database", "msysobjects", "database is not null"), Right(DLookup("database", "msysobjects", "database is not null"), Len(DLookup("database", "msysobjects", "database is not null")) - InStrRev(DLookup("database", "msysobjects", "database is not null"), "\")), "image\" & Me.المعرف & ".jpg") End If و هذا ملفك بعد التعديل careitems.rar

السلام عليكم تفضل التعديل New Microsoft Access Database.rar

نعم أخي أعلم ذلك أنا فقط وضعته كمثال و يمكنك تعويض المسار بما تشاء

السلام عليكم إن شاء الله ترجع بالسلامة أستاذ رمهان أستأذنك أخي رمهان في الإجابة على هذا السؤال أخي كاسر يمكنك إستعمال هذا الكود: curPath = "\\TOSHIBA\careitems\image" If Len(Dir(curPath, vbDirectory)) = 0 Then MkDir (curPath) End If فهو يقوم بإختبار وجود المجلد في المسار المحدد و إن لم يجده يقوم بإنشائه عن طريق الدالة MkDir

لقد تم تعديل العنوان أخي تشفان

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

السلام عليكم أنا عندي يظهر الناتج رقم عادي

السلام عليكم جرب هذا الكود 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. هذا العمل ينفذ المهام مثل إغلاق النوافذ، وفتح النماذج، وتحديد قيمة الضوابط...و غيرها