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

**jo_2010** · الثلاثاء at 08:15

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

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

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

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

JO_Lab.rar

**منتصر الانسي** · الثلاثاء at 15:07

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

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

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

Untitled.jpg.ec769927d92e446e550820c214d90d23.jpg

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

**jo_2010** · الثلاثاء at 15:22

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

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

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

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

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

اللى اسمة No

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

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

عندما اضغط OK

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

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

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

**منتصر الانسي** · الثلاثاء at 17:03

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

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

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

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

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

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

تحياتي

JO_Lab.rar

**ابوخليل** · الثلاثاء at 18:43

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

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

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

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

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

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

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

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

**kkhalifa1960** · بالامس في 06:34

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

image.gif.3fb78b869c05bf80be794c9dc9cb5a79.gif

JO_Lab-17-06-2026.rar

**jo_2010** · بالامس في 07:07

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** · بالامس في 07:13

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** · بالامس في 07:51

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

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

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

JO_Lab_2_17-06-2026.rar

**jo_2010** · بالامس في 08:22

مغلمى الفاضل

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

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

**Foksh** · بالامس في 14:28

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

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

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

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

تم تعديل بالامس في 16:10 بواسطه Foksh

**منتصر الانسي** · بالامس في 15:38

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

**Foksh** · بالامس في 16:11

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

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

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

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

**ابوخليل** · منذ 21 ساعات

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

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

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

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

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

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

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

JO_Lab9.rar

**kkhalifa1960** · منذ 19 ساعات

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

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

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

JO_Lab-17-06-2026_2.rar

**jo_2010** · منذ 8 ساعات

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

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

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

حضرتك بتقولى

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

مش فاهم

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

**jo_2010** · منذ 8 ساعات

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

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

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

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

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

منين وازاى

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

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

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

Lab_2026.rar

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

**jo_2010** · منذ 4 ساعات

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

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

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

منين وازاى

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

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

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

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

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

**Foksh** · منذ 4 ساعات

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

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

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

**jo_2010** · منذ 2 ساعات

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

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

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

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

معلمى الخبير الفاضل foksh

اعتذر لحضرتك علي تعبك

ارجوك تسامحني لجهلى بالبرمجة وقلة خبرتي

فى النموذج الأول اللي حضرتك أبدعت فية بعمل

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

أكرر اعتذاري وارجوك تسامح جهلى

تسجيل الدخول

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

الردود الموصى بها

jo_2010

منتصر الانسي

jo_2010

منتصر الانسي

ابوخليل

kkhalifa1960

jo_2010

jo_2010

kkhalifa1960

jo_2010

Foksh

منتصر الانسي

Foksh

ابوخليل

kkhalifa1960

jo_2010

jo_2010

jo_2010

Foksh

jo_2010

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

انشئ حساب جديد

تسجيل دخول

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information