تغيير القيمة الافتراضية

[jo_2010]

الخبراء الافاضل

تحية طيبة وبعد

اريد تثبيت قيمة اقتراضية للحقل NO وتغييرها وقتما اشاء

انظر الى المرفق

 

JO_Lab.rar

[منتصر الانسي]

6 ساعات مضت, jo_2010 said:

اريد تثبيت قيمة اقتراضية للحقل NO وتغييرها وقتما اشاء

هل تقصد أن تكون إفتراضية في مربع النص (التي يؤشر عليها السهم رقم 1) أم في مربع الحوار (التي يؤشر عليها السهم رقم 2)

وفي الحالتين ماهي القيمة الافتراضية التي تريدها؟

[jo_2010]

18 دقائق مضت, منتصر الانسي said:

هل تقصد أن تكون إفتراضية في مربع النص (التي يؤشر عليها السهم رقم 1) أم في مربع الحوار (التي يؤشر عليها السهم رقم 2)

وفي الحالتين ماهي القيمة الافتراضية التي تريدها؟

شكرا لحضرتك معلمى الفاضل 

طبعا اريد ان تكون القمة المكتوبة فى الرسالة قيمة افتراضية فى النموذج فى مربع النص  1

اللى اسمة No

وفي الحالتين ماهي القيمة الافتراضية التي تريدها؟

اى رقم اكتبة فى مربع الحوار الليبيظهر أمام

عندما اضغط OK

يصبح القيمة الافتراضية فى النموذج فى حقل No

تفس الرقم اللي كتبتة فى الرسالة اللى ظهرت

 

تم تعديل بالامس في 15:28 بواسطه jo_2010

[منتصر الانسي]

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

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

قمت بمسح القيمة الفتراضية للجدول فظلت المشكلة ولكن بالشكل التالي

هنا قمت بإضافة سجلين وحصل معي نفس الشيئ

قمت بالبحث عن إسم مربع النص NO_Esal في الأكواد لأعرف كيف يتم تعبئته فلم أجد له أي أثر 

المهم بهذا التعديل ستجد إجابة طلبك وعليك إيجاد المكان الذي يتم فيه تعيين قيمة مربع النص NO_Esal وتعديلها ليتم قراءة الرقم من مربع النص No وليس من القيمة الافتراضية له في الجدول

تحياتي

JO_Lab.rar

[ابوخليل]

10 ساعات مضت, jo_2010 said:

اريد تثبيت قيمة اقتراضية للحقل NO وتغييرها وقتما اشاء

مشاركة مع استاذنا منتصر
ملحوظة صغيرة  : NO  و  Yes  كلمتان محجوزتان

وايضا رأيي ليش الدوشة وتشغيل ادوات لها اول وليس لها آخر
افتح حقل الرمز للتحرير واجعل قيمته الافتراضية تتغير بعد كل تحديث

عندما تختار سجل جديد ستظهر القيمة الافتراضية الجديدة .. او حتى تم اغلاق وفتح النموذج سيظهر آخر قيمة افتراضية

مع ملاحظة حذف وازالة القيمة الافتراضية من الجدول

هذا كل ما تحتاجه فقط

Private Sub NO1_AfterUpdate()
Me.NO1.DefaultValue = Me.NO1.Value
End Sub

 

[kkhalifa1960]

سامحني تأخرت يالرد @jo_2010  مشاركة مع النخبة . لايمكن تعديل القيمة الافتراضية لحقل بجدول وهو مفتوح . لذا اليك  حلي حسب ما فهمت . اليك الشرح والمرفق . ووافني بالرد .

                                                                 

JO_Lab-17-06-2026.rar

[jo_2010]

13 ساعات مضت, منتصر الانسي said:

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

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

قمت بمسح القيمة الفتراضية للجدول فظلت المشكلة ولكن بالشكل التالي

هنا قمت بإضافة سجلين وحصل معي نفس الشيئ

قمت بالبحث عن إسم مربع النص NO_Esal في الأكواد لأعرف كيف يتم تعبئته فلم أجد له أي أثر 

المهم بهذا التعديل ستجد إجابة طلبك وعليك إيجاد المكان الذي يتم فيه تعيين قيمة مربع النص NO_Esal وتعديلها ليتم قراءة الرقم من مربع النص No وليس من القيمة الافتراضية له في الجدول

تحياتي

JO_Lab.rar 1.28 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

الخبير الفاضل ومعلمى واستاذى منتصر الانسي

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

[jo_2010]

33 دقائق مضت, kkhalifa1960 said:

سامحني تأخرت يالرد @jo_2010  مشاركة مع النخبة . لايمكن تعديل القيمة الافتراضية لحقل بجدول وهو مفتوح . لذا اليك  حلي حسب ما فهمت . اليك الشرح والمرفق . ووافني بالرد .

                                                                 

JO_Lab-17-06-2026.rar 1.35 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

الخبير الافاضل استاذى ومعلمى kkhalifa1960

شكرا على المساعدة ولكنى ارغب فى التعامل مع الرسالة الخاصى بى 

حضرتك تعبت فى عمل شئ رائع

لكن احداث كثيرة 

رسالة ثم نموذج ثم مريع ادخال ثم رسالة تاكيدية

اتمنى حضرتك تجد حل باستخدام رسالتى شكلها مختلف وفكرتها عجبانى

 

[kkhalifa1960]

36 دقائق مضت, jo_2010 said:

ولكنى ارغب فى التعامل مع الرسالة الخاصى بى 

تفضل د /  @jo_2010  التعديل ووافني بالرد .

JO_Lab_2_17-06-2026.rar

[jo_2010]

مغلمى الفاضل

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

ولم تتغير فى الجدول انظر الصورة

[Foksh]

مشاركةً مع الأخوة والأساتذة ..

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

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

جرب تعديل حدث عند النقر المزدوج لمربع النص 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 ساعه بواسطه Foksh

[منتصر الانسي]

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

[Foksh]

31 دقائق مضت, منتصر الانسي said:

مسح خاصية القيمة الإفتراضية لمربع النص في النموذج

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

شكراً لملاحظتك الثاقبة أخي منتصر