mom20088

السلام عليكم اردت ادخال حماية على قاعدة البيانات عن طريق زرع ملف فى مسار معين كما هو موضح ولكن للاسف يعطينى رسالة خطأ أن المسار غير صحيح مع العلم ان الكود مأخوذ من المنتدى وجميع الاراء تقول انه ليس به خطأ وفعلت كما هو مدون بالاسفل مع العلم انى استخدم اوفيس 2013 الموضوع الاصلى مرفق البرنامج هذه طريقة عمل حماية من نوع زرع ملف داخل الجهاز ففي كل مرة يتم فتح البرنامج يتم التاكد من وجود الملف المزروع فإن لم يجده ستظهر واجهة تطالب بالترخيص وهي عبارة عن اسم المستخدم وكلمة السر . ملاحظة مهمة : الاكواد جميعها من صنع الأخت زهرة جزاها الله خيرا لكن مع بعض التعديل وهو ما يسمونه (بتصرف) :( الفكرة العامة .. * عند بدء تشغيل البرنامج سيتم التأكد من وجود الملف (officena.dll) داخل القرص C * عند عدم وجوده سيتم تحويلك الى واجهة المطالبة برقم الرخصة وهي اسم المستخدم وكلمة السر . * بعد أن يتم ادخال اسم المستخدم وكلمة السر بنجاح سيتم زرع الملف . * في المرة القادمة وعند تشغيل البرنامج لن يتم المطالبة برقم الرخصة . اليكم أخواني هذه الطريقة : 1- أنشئ نموذج باسم (Chek_It) وضع فيه الكود التالي في حدث عند الفتح : Private Sub Form_Open(Cancel As Integer) On Error GoTo ERROR_SUB Open "c:\" & "officena.dll" For Input As #1 Close #1 ERROR_SUB: If Err.Number = 53 Then MsgBox "أنت تعمل على نسخة غير مرخصة " Close #1 DoCmd.Close DoCmd.OpenForm "get_file" End If End Sub 2- أنشئ نموذج آخر بإسم (Get_File) 3- أنشئ مربعي نص باسم UN و PW وزر أمر CHkit. 4- ضع الكود التالي في حدث عند النقر للزر CHkit: Private Sub CHkit _Click() If UN.Value = "www" And PW.Value = "1234" Then Open "c:\officena.dll" For Binary Access Write As #1 Close #1 MsgBox "اسم المستخدم وكلمة السر صحيحة", vbOKOnly, "نجحنا" DoCmd.Quit acQuitSaveAll Else MsgBox "اسم المستخدم أو كلمة غيرصحيحة" End If End Sub شكرا لمجهودكم معى ProtectionByFile.rar

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

اشكرك يا اخى الكريم التعديل ميه ميه وجزاك الله خير الجزاء

بمناسبة عيد الاضحى احب اوجه التحية لكم جميعا

السلام عليكم اشكرك اخى الكريم على الكود الرائع انا محتاج فقط يبقى التوقيت ٣٠ ثانية فقط ويبقى العد تنازلى اى يبدا من ٣٠ ثانية الى الصفر شكرا اخى الكريم

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

السلام عليكم عندى قاعدة بيانات فى جدول المستخدمين ويحتوى هذا الجدول على user name - password انا عملت نموذج للمستخدمين واسمه login واريد ان اعمل كودين كالاتى:- 1- لو كتبت اسم المستخدم أو كلمة السر خطأ اكتر من 3 مرات يقوم بتعطيل شاشة الدخول لمدة دقيقة واحدة والعداد يكون ظاهر ( بمعنى انه يعمل lock لمدة دقيقة ولايسمح بكتابة أى شئ) 2- لو ادخلت الرقم السرى خطا 10 محاولات يقفل البرنامج ولما يفتح يطلب رقم سرى لــــ admin 3- الكود الثانى اللى انا محتاجه انى لو كتب اسم المستخدم والرقم السرى خطأ يعطى رسالة خطأ ويمسح اسم المستخدم والرقم السرى عشان أكتبهم تانى شكرا مرفق البرنامج formulation final.rar

محتاج مساعدة منكم يا اهل الخبرة

السلام عليكم عندى قاعدة بيانات فى جدول المستخدمين ويحتوى هذا الجدول على user name - password انا عملت نموذج للمستخدمين واسمه login واريد ان اعمل كودين كالاتى:- 1- لو كتبت اسم المستخدم أو كلمة السر خطأ اكتر من 3 مرات يقوم بتعطيل شاشة الدخول لمدة دقيقة واحدة والعداد يكون ظاهر ( بمعنى انه يعمل lock لمدة دقيقة ولايسمح بكتابة أى شئ) 2- لو ادخلت الرقم السرى خطا 10 محاولات يقفل البرنامج ولما يفتح يطلب رقم سرى لــــ admin 3- الكود الثانى اللى انا محتاجه انى لو كتب اسم المستخدم والرقم السرى خطأ يعطى رسالة خطأ ويمسح اسم المستخدم والرقم السرى عشان أكتبهم تانى شكرا مرفق البرنامج formulation final.rar

الف شكر أخى الكريم

أخى العزيز: شكرا لك على ردك لكنى محتاج دالة اضعها فى الاستعلام وليس فى النموذج لذلك انا محتاج دالة حسابية وليست دالة فيجول بيسك

السلام عليكم اريد دالة فصل الحروف عن الارقام والعكس فى حقل الاكسس حيث الحقل يحتوى على (100ml) وأيضا يحتوى على (1L) اريد معادلة تكون نتيجتها (ml) أو (L) ومعادلة اخرى تكون نتيجتها (100) أو (1) يعنى عاوز معادلتين شكرا

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

ياريت حد يساعدنى ارجوكم

السلام عليكم ورحمة الله وبركاته عندى قاعدة بيانات عبارة عن الجدول الاول: اسماء المنتجات واسمه (products) الجدول الثانى الانتاج واسمه (production ) الجدول الثالث: التعبئة واسمه (pack) الجدول الرابع: خروج المنتجات (out) الاستعلام وهو عبارة عن المنتجات التى انتجتها وادخلتها المخزن واسمه (in query) > الاستعلام الثانى: وهو عبارة عن المنتجات الخارجة من المخزن واسمه (out query) المطلوب: عاوز اعمل استعلام عن المنتجات المتبقية ( الفرق بين المنتجات الداخلة والمنتجات الخارجة) بس عندى مشكلة ان كل منتج ممكن يكون فيه احجام متنوعة (100ml -250ml) اللى هو اسمه فى الجداول volume وانا محتاج انى اعمل استعلام عن الكمية المتبقية مع مراعاة اسم المنتج والحجم وللعبم ان فيه منتجات لم تخرج من المخزن يعنى الكمية المتبقية فيها هى نفس الكمية المتبقية وانا اريد ذكرها فى الاستعلام النهائى فى النهاية المطلوب: رصيد المنتجات كلها فى المخزن New Microsoft Access Database.rar

أنا هاعدلها وهاحاول اظبط التقويم على البرنامج بتاعى بس ممكن ابقى ابعتهولك عشان تصلح الاخطاء

انا وجدق قاعد بيانات لتقويم السنة الجديدة على موقع أجنبى وحبيت انسخها على قاعدة بيانات عندى عشان ازود امكانية البرنامج القاعدة عبارة عن تقويم سنة ميلادية بتعطيط تقرير مفصل فى كل يوم من أيام السنة حبيت اطبقها على برنامج الانتاج اللى انشئته لكن فى مشاكل كتير مش عارف احلها اولها ان الكود بيشتغل على برنامج 32 بت وانا عندى 64 بت ثانيا انا عندى جدول اسمه (production) الجدول ده عبارة عن اسم المنتج - الكمية المنتجة - تاريخ الانتاج - تاريخ الانتهاء انا اريد ان اكتب جميع البيانات ده فى التقويم يعنى لما اختار السنة والشهر بيقوم بعرض جميع البيانات فى التقويم ومرفق صورة من شكل نموذج التقويم ونسخة من البرنامج فيه نموذج التقويم يا ريت حد يساعدنى ويصلحلى الكود ويظبطه على برنامجى وانا هادعيله دعوة على الافطار بظهر الغيب fin - Copy_2.rar

اخى العزيز مرفق قاعدة البيانات من فضلك حاول تساعدنى محتاج انا البيانات اللى فى جدول production تتسجل فى التقويم السنة الميلادية كل ما اختار السنة والشهر من نموذج التقويم يعطينى ما فعلته بالظبط كما هو مدون فى جدول production والبيانات عبارة عن: الكمية المنتجة - اسم المنتج - تاريخ الانتاج وتاريخ الانتهاء والايام اللى مفيهاش انتاج يكتب فيها " لا يوجد انتاج" اشكرك يا اخى العزيز fin - Copy.rar

انا محتاج مساعدتكم الكود ده خاص بنموذج تقويم سنة ميلادية ومرفق صورة لشكل النموذج انا جبته وعملت نسخ ليه فى قاعدة البيانات بتاعتى وغيرت من بعض البيانات اللى فى الجدول بتاعى الكود ده بيعطينى خطأ وانا معلم مكان الخطأ باللون الازرق بس مش عارف ليه كل ما يعطينى خطأ يفتح نافذة الكود ويقف على المكان المذكور مرفق نسخة من البرنامج ( تقويم السنة) واريد تطبيقه على البرنامج بتاعى Private Sub PopulateCalendar() On Error GoTo Err_PopulateCalendar Dim strFirstOfMonth As String, bytFirstWeekdayOfMonth As Byte, bytBlockCounter As Byte Dim bytBlockDayOfMonth As Byte, lngBlockDate As Long, ctlDayBlock As Control Dim bytDaysInMonth As Byte, bytEventDayOfMonth As Byte, lngFirstOfMonth As Long Dim lngLastOfMonth As Long, lngFirstOfNextMonth As Long, lngLastOfPreviousMonth As Long Dim lngEventDate As Long, bytBlankBlocksBefore As Byte, bytBlankBlocksAfter As Byte Dim astrCalendarBlocks(1 To 42) As String, dB As Database, rstEvents As Recordset Dim strSelectEvents As String, strEvent As String, strPlatoons As String Dim intMonth As Integer, intYear As Integer, lngSystemDate As Long 'CFB added 1-25-08 Dim ctlSystemDateBlock As Control, blnSystemDateIsShown As Boolean 'CFB added 1-25-08 Dim strSQL As String 'Added 4/16/2008 Dim blnRetVal lngSystemDate = Date 'CFB added 1-25-08 intMonth = objCurrentDate.Month intYear = objCurrentDate.Year lstEvents.Visible = False lblEventsOnDate.Visible = False lblMonth.caption = MonthAndYear(intMonth, intYear) strFirstOfMonth = Str(intMonth) & "/1/" & Str(intYear) 'ADezii 'NOTE: Will work in the UK (United Kingdom) and other European Nations 'strFirstOfMonth = "1/" & Str(intMonth) & Str(intYear) bytFirstWeekdayOfMonth = Weekday(strFirstOfMonth) lngFirstOfMonth = DateSerial(intYear, intMonth, 1) lngFirstOfNextMonth = DateSerial(intYear, intMonth + 1, 1) lngLastOfMonth = lngFirstOfNextMonth - 1 lngLastOfPreviousMonth = lngFirstOfMonth - 1 bytDaysInMonth = lngFirstOfNextMonth - lngFirstOfMonth bytBlankBlocksBefore = bytFirstWeekdayOfMonth - 1 bytBlankBlocksAfter = 42 - (bytBlankBlocksBefore + bytDaysInMonth) Set dB = CurrentDb strSQL = "SELECT * From Production " strSQL = strSQL & "WHERE Production.[Production Date] Between " & lngFirstOfMonth & " And " & lngLastOfMonth & _ " ORDER BY Production.[Production Order];" Set rstEvents = dB.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) 'Added 4/16/2008 Do While Not rstEvents.EOF strEvent = "[" & rstEvents![Production Order] & "] - " bytEventDayOfMonth = (rstEvents!Production_Date - lngLastOfPreviousMonth) bytBlockCounter = bytEventDayOfMonth + bytBlankBlocksBefore If astrCalendarBlocks(bytBlockCounter) <> "" Then astrCalendarBlocks(bytBlockCounter) = _ astrCalendarBlocks(bytBlockCounter) & vbNewLine & strEvent Else astrCalendarBlocks(bytBlockCounter) = strEvent End If rstEvents.MoveNext Loop For bytBlockCounter = 1 To 42 'blank blocks at start of month Select Case bytBlockCounter Case Is < bytFirstWeekdayOfMonth astrCalendarBlocks(bytBlockCounter) = "" ReferenceABlock ctlDayBlock, bytBlockCounter ctlDayBlock.BackColor = 12632256 ctlDayBlock = "" ctlDayBlock.Enabled = False ctlDayBlock.Tag = "" Case Is > bytBlankBlocksBefore + bytDaysInMonth 'blank blocks at end of month astrCalendarBlocks(bytBlockCounter) = "" ReferenceABlock ctlDayBlock, bytBlockCounter ctlDayBlock.BackColor = 12632256 ctlDayBlock = "" ctlDayBlock.Enabled = False ctlDayBlock.Tag = "" If bytBlankBlocksAfter > 6 And bytBlockCounter > 35 Then ctlDayBlock.Visible = False End If Case Else 'blocks that hold days of the month bytBlockDayOfMonth = bytBlockCounter - bytBlankBlocksBefore ReferenceABlock ctlDayBlock, bytBlockCounter lngBlockDate = lngLastOfPreviousMonth + bytBlockDayOfMonth 'block's date If bytBlockDayOfMonth < 10 Then ctlDayBlock = Space(2) & bytBlockDayOfMonth & _ vbNewLine & astrCalendarBlocks(bytBlockCounter) Else ctlDayBlock = bytBlockDayOfMonth & _ vbNewLine & astrCalendarBlocks(bytBlockCounter) End If 'If this block is the system date, change its color (CFB 1-25-08) If lngBlockDate = lngSystemDate Then ctlDayBlock.BackColor = QBColor(13) ctlDayBlock.ForeColor = QBColor(15) Set ctlSystemDateBlock = ctlDayBlock blnSystemDateIsShown = True Else ctlDayBlock.BackColor = 16777215 ctlDayBlock.ForeColor = 8388608 '====> Added by ADezii on 1/28/2008 (Date End If 'Text was essentially invisible without it for ctlDayBlock.Visible = True 'Block representing current day position) ctlDayBlock.Enabled = True ctlDayBlock.Tag = lngBlockDate End Select Next 'If the system date is in this month, show its events (CFB added 1-25-08) If blnSystemDateIsShown Then PopulateEventsList ctlSystemDateBlock End If Call PopulateYearListBox 'Added by ADezii on 1/28/2008 - suggested by CFB Exit_PopulateCalendar: Exit Sub Err_PopulateCalendar: MsgBox Err.Description, vbExclamation, "Error inPopulateCalendar()" Resume Exit_PopulateCalendar End Sub ConfCtr_Smpl.zip New Microsoft Access Database - Copy.rar

انا محتاج مساعدتك يا أستاذنا الكود ده بيعطينى خطأ وانا معلم مكان الخطأ بس مش عارف ليه كل ما يعطينى خطأ يفتح نافذة الكود ويقف على المكان المذكور Private Sub PopulateCalendar() On Error GoTo Err_PopulateCalendar Dim strFirstOfMonth As String, bytFirstWeekdayOfMonth As Byte, bytBlockCounter As Byte Dim bytBlockDayOfMonth As Byte, lngBlockDate As Long, ctlDayBlock As Control Dim bytDaysInMonth As Byte, bytEventDayOfMonth As Byte, lngFirstOfMonth As Long Dim lngLastOfMonth As Long, lngFirstOfNextMonth As Long, lngLastOfPreviousMonth As Long Dim lngEventDate As Long, bytBlankBlocksBefore As Byte, bytBlankBlocksAfter As Byte Dim astrCalendarBlocks(1 To 42) As String, dB As Database, rstEvents As Recordset Dim strSelectEvents As String, strEvent As String, strPlatoons As String Dim intMonth As Integer, intYear As Integer, lngSystemDate As Long 'CFB added 1-25-08 Dim ctlSystemDateBlock As Control, blnSystemDateIsShown As Boolean 'CFB added 1-25-08 Dim strSQL As String 'Added 4/16/2008 Dim blnRetVal lngSystemDate = Date 'CFB added 1-25-08 intMonth = objCurrentDate.Month intYear = objCurrentDate.Year lstEvents.Visible = False lblEventsOnDate.Visible = False lblMonth.caption = MonthAndYear(intMonth, intYear) strFirstOfMonth = Str(intMonth) & "/1/" & Str(intYear) 'ADezii 'NOTE: Will work in the UK (United Kingdom) and other European Nations 'strFirstOfMonth = "1/" & Str(intMonth) & Str(intYear) bytFirstWeekdayOfMonth = Weekday(strFirstOfMonth) lngFirstOfMonth = DateSerial(intYear, intMonth, 1) lngFirstOfNextMonth = DateSerial(intYear, intMonth + 1, 1) lngLastOfMonth = lngFirstOfNextMonth - 1 lngLastOfPreviousMonth = lngFirstOfMonth - 1 bytDaysInMonth = lngFirstOfNextMonth - lngFirstOfMonth bytBlankBlocksBefore = bytFirstWeekdayOfMonth - 1 bytBlankBlocksAfter = 42 - (bytBlankBlocksBefore + bytDaysInMonth) Set dB = CurrentDb strSQL = "SELECT * From Production " strSQL = strSQL & "WHERE Production.[Production Date] Between " & lngFirstOfMonth & " And " & lngLastOfMonth & _ " ORDER BY Production.[Production Order];" Set rstEvents = dB.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) 'Added 4/16/2008 Do While Not rstEvents.EOF strEvent = "[" & rstEvents![Production Order] & "] - " bytEventDayOfMonth = (rstEvents!Production_Date - lngLastOfPreviousMonth) bytBlockCounter = bytEventDayOfMonth + bytBlankBlocksBefore If astrCalendarBlocks(bytBlockCounter) <> "" Then astrCalendarBlocks(bytBlockCounter) = _ astrCalendarBlocks(bytBlockCounter) & vbNewLine & strEvent Else astrCalendarBlocks(bytBlockCounter) = strEvent End If rstEvents.MoveNext Loop For bytBlockCounter = 1 To 42 'blank blocks at start of month Select Case bytBlockCounter Case Is < bytFirstWeekdayOfMonth astrCalendarBlocks(bytBlockCounter) = "" ReferenceABlock ctlDayBlock, bytBlockCounter ctlDayBlock.BackColor = 12632256 ctlDayBlock = "" ctlDayBlock.Enabled = False ctlDayBlock.Tag = "" Case Is > bytBlankBlocksBefore + bytDaysInMonth 'blank blocks at end of month astrCalendarBlocks(bytBlockCounter) = "" ReferenceABlock ctlDayBlock, bytBlockCounter ctlDayBlock.BackColor = 12632256 ctlDayBlock = "" ctlDayBlock.Enabled = False ctlDayBlock.Tag = "" If bytBlankBlocksAfter > 6 And bytBlockCounter > 35 Then ctlDayBlock.Visible = False End If Case Else 'blocks that hold days of the month bytBlockDayOfMonth = bytBlockCounter - bytBlankBlocksBefore ReferenceABlock ctlDayBlock, bytBlockCounter lngBlockDate = lngLastOfPreviousMonth + bytBlockDayOfMonth 'block's date If bytBlockDayOfMonth < 10 Then ctlDayBlock = Space(2) & bytBlockDayOfMonth & _ vbNewLine & astrCalendarBlocks(bytBlockCounter) Else ctlDayBlock = bytBlockDayOfMonth & _ vbNewLine & astrCalendarBlocks(bytBlockCounter) End If 'If this block is the system date, change its color (CFB 1-25-08) If lngBlockDate = lngSystemDate Then ctlDayBlock.BackColor = QBColor(13) ctlDayBlock.ForeColor = QBColor(15) Set ctlSystemDateBlock = ctlDayBlock blnSystemDateIsShown = True Else ctlDayBlock.BackColor = 16777215 ctlDayBlock.ForeColor = 8388608 '====> Added by ADezii on 1/28/2008 (Date End If 'Text was essentially invisible without it for ctlDayBlock.Visible = True 'Block representing current day position) ctlDayBlock.Enabled = True ctlDayBlock.Tag = lngBlockDate End Select Next 'If the system date is in this month, show its events (CFB added 1-25-08) If blnSystemDateIsShown Then PopulateEventsList ctlSystemDateBlock End If Call PopulateYearListBox 'Added by ADezii on 1/28/2008 - suggested by CFB Exit_PopulateCalendar: Exit Sub Err_PopulateCalendar: MsgBox Err.Description, vbExclamation, "Error inPopulateCalendar()" Resume Exit_PopulateCalendar End Sub

اشكرك على مساعدتك جزاك الله خيرا وجعله فى ميزان حسناتك محتاج اعمل قاعدة بيانات فيها تقويم السنة الميلادية زى الاكسل كده وتكون النتيجة عبارة عن شهور السنة مثلا سنة 2016 ويتكتب فى كل يوم من ايام النتيجة اعمال الانتاج عندك فكرة بهذا الموضوع

السلام عليكم محتاج اعمل قاعدة بيانات فيها تقويم السنة الميلادية زى الاكسل كده وتكون النتيجة عبارة عن شهور السنة مثلا سنة 2016 ويتكتب فى كل يوم من ايام النتيجة اعمال الانتاج شكرا مرفق صورة من طلبى New Microsoft Access Database.rar

أشكرك أخى العزيز لكن ليس هذا المطلوب يا أخى طلبى انه فى الاستعلام يذكر السنة وكمية الانتاج فيها لكل المنتجات مثلا: سنة 2014 انا انتجت مادة a وكميتها 1000 طن وأريد استعلام عن نفس النسة يكتب للمنتج a وكذكلك المنتج b لكن فى المنتج b يكتب صفر فى الاستعلام مع العلم انا لم اكتب فى جدول الانتاج مادة b لكن انا اريد انه يعطينى معلومة عن كمية الانتاج ل b

انا عندى قاعدة بيانات عبارة عن جدولين الجدول الاول : فيه المنتجات ( أسم المنتج ورقم المنتج) الجدول الثانى : عبارة عن الانتاج ( أمر الانتاح - كمية الانتاج - تاريخ الانتاج - سنة الانتاج - شهر الانتاج - اسم المنتج) المطلوب: انا انتجت فى سنة 2014 - 2015 - 2016 بس منتجات مختلفة عاوز اعمل استعلام عن جميع المنتجات بداية من 2014 الى السنة الحالية ولو كان منتج معين لم يتم انتاجه يكتب صفر فى قيمة الاستعلام هل عنده حل ؟ مرفق قاعدة البيانات New Microsoft Access Database.rar

If [Qproduced] > [Text482] Then Beep MsgBox ("The Entered value high than" & [Text482] & " Kg ") & """", vbCritical, "Critical Message!" DoCmd.CancelEvent MsgBox "This order will be deleted now!", vbCritical, "Attention" DoCmd.OpenQuery "Query3" DoCmd.RefreshRecord DoCmd.GoToRecord , , acNewRec End If الكود كويس جدا ومفيهوش غير مشكلة واحدة ان قيمة الحقل text482 كبيرة جدا مثلا 7584.25896214 انا عاوز يكون الرقم ده مختصر 7584.25 فقط مش عاوز اكتر من كده مع العلم انا عامل تنسيق الحقل من الخصائص fixed