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

وعليكم السلام ورحمة الله وبركاته اليك الحل بالمعادلات في شيت1 بالاكواد شيت2 مثال1.xlsb

تفضل استاذ @مصطفى حماد سيد حماد هذا مرفق من عندي وبه طلبك . ووافني بالرد . NewTest.rar

صحيح 100% ، وقد تم تعديل الملف المرفق في المشاركة السابقة بإزالة القيمة الافتراضية من مربع النص فعلاً .. شكراً لملاحظتك الثاقبة أخي منتصر

قام الاخ @Foksh مشكورا بحل المشكلة ولكن يتبقى على الاخ @jo_2010 مسح خاصية القيمة الإفتراضية لمربع النص في النموذج

مشاركةً مع الأخوة والأساتذة .. اعتقد ان هناك مشكلة قد تواجهك إن كنت تريد تعديل خاصية الحقل داخل الجدول فعلاً .. وهي أن الجدول سيكون قيد الإستخدام يا صديقي !! صحيح ؟؟؟ لهذا اعتقد ان هناك إلتفاف حول الهدف بحيث نقوم بإلغاء ارتباط الجدول بالنموذج ، ومن ثم التعديل وإعادة الربط . وكل هذا في جزء من الثانية .. جرب تعديل حدث عند النقر المزدوج لمربع النص Esal :- Private Sub Esal_DblClick(Cancel As Integer) Dim TaskDialog As Y_CTaskDialog Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strSource As String Set TaskDialog = New Y_CTaskDialog With TaskDialog .Init .ParenthWnd = Me.hwnd .Flags = TDF_INPUT_BOX + TDF_RTL_LAYOUT .MainInstruction = "رقـم الايصـال الاسـاسـى" .Content = "ما هـى ... القيمة الافتراضية للايصال " .CommonButtons = TDCBF_OK_BUTTON Or TDCBF_CANCEL_BUTTON .IconMain = IDI_QUESTION .InputBoxTextAlign = TDIBTA_Right .InputAlignInFooter = tdcaRight .InputAlign = TDIBA_Footer If Not IsNull(txtChoices) Then .InputWidth = txtChoices .InputCueBanner = " من فضلك أدخل رقم الايصال ؟ " .DefaultCustomControl = tdccNothing .ShowDialog If .ResultMain = 1 Then If IsNull(.ResultInput) Or Not IsNumeric(.ResultInput) Then MsgBox "يجب تحديد قيمة رقمية", vbMsgBoxRight, "قيمة خاطئة" Exit Sub Else If Me.Dirty Then Me.Dirty = False strSource = Me.RecordSource Me.RecordSource = "" Set db = CurrentDb() Set tdf = db.TableDefs("Tbl_Lab_All") tdf.Fields("NO").DefaultValue = """" & .ResultInput & """" Set tdf = Nothing Set db = Nothing Me.RecordSource = strSource DoCmd.GoToRecord , , acNewRec Me.NO.DefaultValue = """" & .ResultInput & """" End If ElseIf .ResultMain = 2 Then Undo Exit Sub End If End With Set TaskDialog = Nothing End Sub ووجب مني التأكيد على ما تفضل به معلمي الفاضل @ابوخليل ، بأن الإسم No هو من الأسماء المحجوزة لآكسيس . وهذا خطأ كبير جداً أخي جو . ملاحظة :- تم العمل بالتعديل على ملف المشاركة التي تفضل بها أخي @منتصر الانسي . JO_Lab.zip

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

مشاركة مع استاذنا منتصر ملحوظة صغيرة : NO و Yes كلمتان محجوزتان وايضا رأيي ليش الدوشة وتشغيل ادوات لها اول وليس لها آخر افتح حقل الرمز للتحرير واجعل قيمته الافتراضية تتغير بعد كل تحديث عندما تختار سجل جديد ستظهر القيمة الافتراضية الجديدة .. او حتى تم اغلاق وفتح النموذج سيظهر آخر قيمة افتراضية مع ملاحظة حذف وازالة القيمة الافتراضية من الجدول هذا كل ما تحتاجه فقط Private Sub NO1_AfterUpdate() Me.NO1.DefaultValue = Me.NO1.Value End Sub

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

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