صالح حمادي

السلام عليكم استعمل هذا الكود في حدث عند التحميل Me.Form.Caption = DLookup("[user]", "fbi")

السلام عليكم جرب هذا المرفق بعد التعديل أخي عبد المنعم Microsoft Access قاعدة بيانات جديد (2).rar

السلام عليكم أجعل قيمة خاصية مربع عنصر التحكم لمربع الصورة هي اسم الحقل المخزن به مسار الصورة و لا تحتاج لأي كود آخر

السلام عليكم ضع هذا الكود في حدث عند التحميل: SendKeys "{End}" و هذا المرفق بعد التعديل Mando.rar

هذا مثال به قوائم أنجزت باستعمال هذا البرنامج مثال.rar

و في هذه المشاركة تجد شرح مفصل لكل دالة مستعملة في هذا الكود

السلام عليكم إطلع على هذه المشاركة بها ما تحتاج

السلام عليكم تفضل هذا الكود يقوم بالعمل Me.x = Right(Me.t, Len(Me.t) - InStrRev(Me.t, "\")) حيث me.t مربع النص الذي به مسار الملف me.x مربع النص الذي سيظهر به اسم الملف Microsoft Office Access 2007 قاعدة بيانات جديد ‫‬.rar

العفو أخي الحبيب و لك بمثل ما دعوة لي

السلام عليكم أضف هذا الكود لحدث بعد التحديث لمربع التحرير و السرد: DoCmd.OpenReport "Re_Q2", acViewPreview, , "[Cala_Name]='" & Me![ãÑÈÚ_ÊÍÑíÑ_æÓÑÏ62] & "'" و هذا التعديل على المرفق CostDB12.rar

و هذا حل آخر For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acCheckBox Then If Not IsNull(ctl.Value) Then If IsNumeric(ctl.Value) Then strWhere = strWhere & " AND " & ctl.Name & " = " & ctl.Value Else strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & ctl.Value & "'" End If End If End If Next و هذا هو المرفق search _02.rar

جزيت خيرا أخي عبد الله هذا الموضوع مهم جدا

السلام عليكم أولا قمت بتغيير اسم الحقل name في الجدول names إلى tname و ذلك لأن name كلمة محجوزة داخل الأكسس. ثانيا: أضف هذا الكود في حدث عند التغيير: DoCmd.SearchForRecord acDataForm, "namess", acFirst, "[tname]='" & Me.fsearch & "'" و هذا هو التعديل db.rar

السلام عليكم تفضل هذا التعديل أخي أبو الآء 037.rar

ما شاء الله عليك صديقي Shivan Rekany أنت دائما في الموعد

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

السلام عليكم تفضل أخي لقد أضفت 4 أزرار بالنموذج الرئيسي تمكنك من التنقل بين سجلات النموذج الفرعي (الأول, الأخير, السابق, التالي). البحث.rar

السلام عليكم تفضل أخي التعديل البحث.rar

السلام عليكم اضف هذا الكود في حدث عند التحميل Dim x As Date x = InputBox("ادخل التاريخ", "مطلوب") Me.Text1 = x rep1.rar

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

السلام عليكم و بهذا التعديل الموجود في المرفق أدناه سوف يقوم البرنامج بإستخراج جميع الملفات الموجودة بالمسار المحدد حتى لو كانت هناك أربعة أو خمسة ملفات فرعية أو أكثر داخل بعضها مثل: e:\file1\file2\file3\file4 و أنا أنتظر ملاحظاتكم. استخراج الملفات الفرعية.rar

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

السلام عليكم تفضل أخي هذا الكود: Me.txtday = WeekdayName(Weekday(Me.txtdate, vbSunday), True, vbSunday) و هذا الملف به ما تريد استخراج اسم اليوم.rar

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

تفضل لقد قمت بإنشاء موضوع جديد به ما طلبت