أبو أحمد قام بنشر فبراير 26 مشاركة قام بنشر فبراير 26 الاساتذة الكرام أعضاء المنتدى / السلام عليكم ورحمة الله في اكسس 2003 ممكن أعرف أيه الفرق بين If IsNull(Me.text) then if me.text.value = "" then وبعد اذنكم سؤال آخر .... في مربع تحرير وسرد ما الفرق بين خاصية تحديث وخاصبة تغيير وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر فبراير 26 مشاركة قام بنشر فبراير 26 استاذ @أبو أحمد بالنسبة للطلب الأول الأثنين صح لكن الأفضل . If Len(Me.Text & "") = 0 Then MsgBox "The field is empty, please fill it", vbCritical Undo Me.Text.SetFocuse End If أما الطلب الثاني تحديث يعني الحقل مملوء وانت بتغير مابه أو تغير مابه بواسطة كود المهم حدث تعيير به >>> افعل كذا . تغيير الحقل خالي أو مملوء المطوب كذا (مع شرط) واذا لم يتم الشرط لا ينفذ الامر ويرجع ......... . رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 26 مشاركة قام بنشر فبراير 26 (معدل) حسب ما فهمت 😅 IsNull تستخدم لفحص القيمة اذا كانت فارغة أو لأ وتعود النتيجة بـ True أو False في الثانية تستخدم لمقارنة ما اذا كانت القيمة فارغة أو لأ وتعود أيضاً بنفس النتيجة وبالنسبة للأحدث ، فعند التحديث تعمل بعد أن يقوم المستخدم بتغيير قيمة المربع والانتقال إلى مربع آخر أو الخروج منه . أما عند التغيير فتعمل هذه الخاصية في كل مرة يتم فيها تغيير قيمة المربع ، أو القائمة المنسدلة .... إلخ سواءً كان ذلك عن طريق الكتابة أو اللصق أو القص ( على ما أعتقد ) ، ويُعتبر هذا الحدث مناسبًا لتنفيذ الإجراءات التفاعلية أثناء تحرير المربع. هذا والله أعلم إن كنت فاهم صح ولاااا 😂 تم تعديل فبراير 27 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
أبو أحمد قام بنشر فبراير 27 الكاتب مشاركة قام بنشر فبراير 27 (معدل) هل معنى ذلك أن معنى السؤال الاول هذا If Me.text1.Value = "" Then Me.text2.Value = "Adel" Else Me. text2.Value = "Ali" End if نفس النتيجة ونفس المعى لهذه ؟؟؟؟ If IsNull(Me.text) Then Me.text2.Value = "Adel" Else Me. text2.Value = "Ali" وأسف لاني لم أفهم اجابة السؤال الثاني أرجو التوضيح أكثر وحبا لو بمثال وجزاكم الله خيرا End if تم تعديل فبراير 27 بواسطه أبو أحمد رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر فبراير 27 مشاركة قام بنشر فبراير 27 Null و "" شيئان مختلفان حتى من حيث تعامل الأكسس معهما 🙂 أنصحك بمشاهدة هذه الفيديوات ( هي باللغة الإنجليزية ولكن ممكن تشغل الترجمة بالعربية ) : 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 27 مشاركة قام بنشر فبراير 27 (معدل) 51 دقائق مضت, أبو أحمد said: نفس النتيجة ونفس المعى لهذه ؟؟؟؟ حتى لا يتشعب الموضوع في أذهان من يقرأ الموضوع ، تعبر Null عن عدم وجود قيمة صالحة أو حقيقية . فإذا كانت قيمة حقل معين تحتوي على Null ، فهذا يعني أنه لا توجد قيمة محددة لهذا الحقل . فالقيمة Null ليست نصًا فارغًا ، اعتبرها حالة خاصة حيث لا وجود لقيمة صالحة فيها. أما القيمة الفارغة ( "" ) فهي تعبر عن نص فارغ من قيم رقمية أو فارغ من القيم النصية ( الحروف ) . حيث يستخدم الرمز "" لتمثيل النص الفارغ . باختصار القيمة الفارغة هي قيمة نصية فارغة ( والفراغ يعتبر حرفاً في الحروف أو النصوص ) وليست Null. وعليه فإن إجابةً لسؤالك أعلاه في الجملة الشرطية في الكود الأول ، يتم فحص إذا كانت القيمة فارغة ("") ، بينما في الكود الثاني يتم فحص إذا كانت القيمة تمثل Null . الشق الثاني سأقوم بتجهيز مرفق وارفاقه في مشاركة أخرى إن شاء الله طبعاً إجتهاداً مما تعلمته أو فهمته ، وقد أكون مخطئاً في التعبير تم تعديل فبراير 27 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
أبو أحمد قام بنشر فبراير 27 الكاتب مشاركة قام بنشر فبراير 27 في انتظار حضرتك وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 27 مشاركة قام بنشر فبراير 27 (معدل) 14 دقائق مضت, أبو أحمد said: في انتظار حضرتك وجزاك الله خيرا لعدم توافر جهاز كمبيوتر حالياً قم بتطبيق الآتي بعد إنشاء نموذج فارغ وإنشاء مربعي نص فارغين ( بدون مصدر بيانات ) . في مربع النص الأول ( افترض اسمه Txt1 ) وفي حدث بعد التحديث انشىء الكود التالي كتجربة :- msgbox me.txt1 & "القيمة في مربع النص هي :- " الآن اكتب اي كلمة تجريبية داخل Txt1 واضغط انتر أو تاب للخروج للمربع الثاني ، وسترى النتيجة. أما في حدث عند التغيير ، اتبع الخطوات السابقة ولكن الفرق هو اسم مربع النص الثاني ولنفرض Txt2 ، وهنا ستلاحظ انه عند كل حرف تكتبه او تحذفه ستظهر لك الرسالة كنتيجة التغيير في كل مرة يتم ذلك 🥰 اصنع الفكرة بيدك لتتوضح لك الفكرة 😊 تم تعديل فبراير 27 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
أبو أحمد قام بنشر فبراير 27 الكاتب مشاركة قام بنشر فبراير 27 جزاكم الله خيرا بالفعل وضح الفرق بينهما هل يمكنكم مساعدتي في توضيح السؤال الاول بطريقة مبسطة بارك الله فيكم 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 27 مشاركة قام بنشر فبراير 27 (معدل) في النقطة الأولى في الفرق بين IsNull و "" ستكون النتيجة نفسها تقريباً ولن تلحظ الفرق بينهم . فعلى سبيل المثال:- IsNull Dim txt1 As Variant txt1 = Nothing If IsNull(txt1) Then MsgBox "القيمة فارغة" Else MsgBox "القيمة غير فارغة" End If "" Dim txt1 As String txt1 = "" If txt1 = "" Then MsgBox "القيمة فارغة" Else MsgBox "القيمة غير فارغة" End If طبعاً الفرق بين المتغيرين هو أن Variant نوع من المتغيرات التي يمكنها تخزين أي نوع من البيانات ، كالبيانات نصية ، أو الأرقام ، أو التواريخ ، أو أي نوع آخر من البيانات. أما String فهو نوع من المتغيرات التي يتم استخدامها لتخزين النصوص فقط كالتي تحتوي على سلاسل النصوص مثل "Hello World"، "1234"، "abc123". هذا من وجهة نظري ، وإن كان لأحد الإخوة توضيح أفضل ؛ فأقف جانبك للاستفادة والتعلم بشكل أوضح 🤗 تم تعديل فبراير 27 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 27 مشاركة قام بنشر فبراير 27 أيضاً تابع هذا الموضوع قد يفيدك لأستاذنا @ابوخليل رابط هذا التعليق شارك More sharing options...
أبو أحمد قام بنشر فبراير 28 الكاتب مشاركة قام بنشر فبراير 28 جزاكم الله خيرا ولكن لزيادة توضيح اذا اردت المعنى اذا كانtext1 تساوي صفر أو فارغ يكون text2 قيمته تساوي واحد والا فتكون قيمة text2 تساوي 2 لتكون هذه هي النتيجة : أيهما اكنب له If Me.text1.Value = "" Then Me.text2 = 1 Else Me.text2 = 2 End if أم أكتب له هذا If IsNull(Me. text1) then Me.text2 = 1 Else Me.text2 = 2 End if رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 28 مشاركة قام بنشر فبراير 28 أخي الكريم ، كلاهما سيكون له نفس النتيجة حسب الكودين If Me.text1.Value = "" Then Me.text2 = 1 Else Me.text2 = 2 End If If IsNull(Me.text1) Then Me.text2 = 1 Else Me.text2 = 2 End If لا أعتقد أنك ستلحظ الفرق يا صديقي رابط هذا التعليق شارك More sharing options...
أبو أحمد قام بنشر فبراير 28 الكاتب مشاركة قام بنشر فبراير 28 جزاكم الله خيرا ولكن بصراحة انا وجدت الكود الثاني أفضل أحيانا فاذا كان text به بيانات فيقوم بحذفها أو العكس If IsNull(Me.text1) Then Me.text2 = "" Else Me.text2 = 2 End If في حين مع الكود الاول لا يقوم بالحذف وهذه معلومة لحضرتك بعد تجربتها الان فقط وجزاكم الله خيرا وبارك فيكم رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 28 مشاركة قام بنشر فبراير 28 4 ساعات مضت, أبو أحمد said: جزاكم الله خيرا ولكن بصراحة انا وجدت الكود الثاني أفضل أحيانا فاذا كان text به بيانات فيقوم بحذفها أو العكس If IsNull(Me.text1) Then Me.text2 = "" Else Me.text2 = 2 End If في حين مع الكود الاول لا يقوم بالحذف وهذه معلومة لحضرتك بعد تجربتها الان فقط وجزاكم الله خيرا وبارك فيكم جزاك الله كل خير يا صديقي .. معلومة مفيدة 😊 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.