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

[jo_2010]

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

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

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

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

 

JO_Lab.rar

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

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

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

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

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

[jo_2010]

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

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

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

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

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

اللى اسمة No

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

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

عندما اضغط OK

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

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

 

تم تعديل الثلاثاء at 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

 

تم تعديل منذ 21 ساعات بواسطه Foksh

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

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

[Foksh]

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

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

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

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

[ابوخليل]

اسمحوا لي احبتي

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

ابحث عن اقرب واقصر واخصر واصح طريقة تؤدي المطلوب

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

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

 

البرمجة وخاصة اذا كان العمل والبيانات مهمة ليست مثل برمجة الألعاب وبرامج العرض
مع كل احترامي كل المحاولات هي خارج منهج المعلم

ليش استخدم اذن جحا والتعديل في الاصل متاح
واعرف ان تعديلي البسيط هذا لن يعجب صاحب الموضوع 

JO_Lab9.rar

[kkhalifa1960]

11 ساعات مضت, kkhalifa1960 said:

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

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

JO_Lab-17-06-2026_2.rar

[jo_2010]

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

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

استاذى الفاضل

حضرتك بتقولى 

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

مش فاهم 

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

[jo_2010]

16 ساعات مضت, Foksh said:

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

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

 

16 ساعات مضت, Foksh said:

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

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

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

امسح القيمة الافتراضية من مربع النص

منين وازاى 

حصلت مشكلة لما طبقت الكود على البرنامح الاصلى انظر الصور

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

 

اليكم نسخة مصغرة من البرنامج الاصلى للتعديل علية

Lab_2026.rar

تم تعديل منذ 5 ساعات بواسطه jo_2010

[jo_2010]

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

 

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

امسح القيمة الافتراضية من مربع النص

منين وازاى 

حصلت مشكلة لما طبقت الكود على البرنامح الاصلى انظر الصور

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

 

اليكم نسخة مصغرة من البرنامج الاصلى للتعديل علية

Lab_2026.rar 1.82 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

شكرا لكل من حاول مساعدتى

[Foksh]

اعتذر عن المتابعة ..

المرفق الذي كان العمل عليه لا يطابق المرفق الأخير ، وهنا اتوقف عن المتابعة لأن الجدول يستخدمه أكثر من نموذج . ثانياً ما الفائدة لا أعلم .. فيمكن الإستغناء عن فكرتك هذه بفكرة إضافة حقل للقيمة الإفتراضية التي تم تعديلها مؤخراً ويتم حفظها فيه . وبالتالي لا حاجة لتلعب في تصميم الجدول وتخسر بياناتك في أول خطأ صغير .

 

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