نجوم المشاركات

وعليكم السلام من Format cells - Custom اكتب في حقل Type: yyyymmdd

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

حضرتك في بدابة الطريق ربما تفيدك هذه النتائج في عمل الجدول المدرسي Showing results for 'جدول الحصص' in content posted in منتدى الاكسيل Excel . - أوفيسنا (officena.net) بالتوفيق

تفضل أخي مثالين ووافني بالرد . قائمة منسدلة.accdb

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

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

استاذ @أ / محمد صالح ارجو من حضرتك القاء نظره للكود التالي ممكن يفيد السائل Sub CalculateNumberOfItems() Dim spaceArea As Double Dim itemLength As Double Dim itemWidth As Double Dim itemHeight As Double Dim numberOfItems As Long ' تعيين قيم المتغيرات spaceArea = 100 ' مساحة المكان بالمتر المربع itemLength = 10 ' طول القطعة بالمتر itemWidth = 5 ' عرض القطعة بالمتر itemHeight = 2 ' ارتفاع القطعة بالمتر ' حساب عدد القطع numberOfItems = spaceArea / (itemLength * itemWidth * itemHeight) ' عرض نتيجة الحساب MsgBox "عدد القطع الممكن تخزينها هو: " & numberOfItems End Sub

expe1:GetMonths30([TxtDate1];[TxtDate2]) لاحظ اختلاف الفاصلة على اعتبار TxtDate1 و TxtDate2 حقول في الاستعلام او الجدول المصدر

الله يرحمه و يغفرله و يسكنه فسيح جناته و يتجاوز عنه

مرفق المثال مرة أخرى كمرجع لحالات مستقبلية مشابهة لمن يحتاجها Periods_02.xlsx

عذرا أخي @figo82eg إنشغلنا بإجازة العيد 😅 .. تفضل التعديل : بعدها يتم حذف المجلد [ 1 ] والخاص بالسجل رقم 1 بالكامل بما فيه من ملفات 🙂 وهذا الكود المرتبط بزر الحذف : Private Sub DltBtn_Click() Dim DesPath As String Dim D As String: D = "\" DesPath = BECurrentPath & D & Me.InOut & D & Me.Department & D & Me.DocType & D & Me.ID If IsFileExists(DesPath) = False Or IsBlank(Me.FileName) = True Then MsgBox "لا يمكن العثور على الملف", vbOKOnly, "": Exit Sub On Error Resume Next If MsgBox("هل حقا تريد حذف الملفات المرتبطة ؟", vbYesNo, "") = vbYes Then DleteFolder DesPath Me.FileName = "" Me.ImageBox.Requery End If End Sub وفي حدث عند الحذف للنموذج تضع هذا الأمر : Private Sub Form_Delete(Cancel As Integer) DltBtn_Click End Sub مع الحاجة لإضافة هاتين الدالتين في موديول ( أنا أضفتها للموديول المسمى FilesHandlingModule ) : Public Function DleteFolder(FolderPath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function '----------------------------------------------------------------------------- ' True if the argument is Nothing, Null, Empty, Missing or an empty string . '----------------------------------------------------------------------------- Public Function IsBlank(arg As Variant) As Boolean Select Case VarType(arg) Case vbEmpty IsBlank = True Case vbNull IsBlank = True Case vbString IsBlank = (LenB(arg) = 0) Case vbObject IsBlank = (arg Is Nothing) Case Else IsBlank = IsMissing(arg) End Select End Function AttachFilesToDB.rar