وايضا كود لايقبل الا الحروف هذا الكود 'كود يلزم المستخدم ادخال احرف بدون أرقام Select Case KeyAscii Case Asc("0") To Asc("9") KeyAscii = 0 Case Else End Select
حبيبنا واستاذنا القدير احمد عبدالمنعم وماله اعملها ليتسفيد الجميع وياليت لو بطريقة اسهل مثل كود اليوم في غاية السهولة مقارنة مع الكود الذي بعثه لك ، وجزاك الله خير.
والدينا ووالديك في الجنة يارب لو سمحت استاذنا الكريم لو انا ادخل ارقام عن طريق قارئ الباركود وعاوز اول خمسة ارقام من الباركود يتم ادخالها في حقل الادخال ويتم تجاهل باقي الارقام هعملها ازاي ؟
اللهم ءامين يا رب العالمين في حدث بعد التحديث للحقل النصي وليكن اسمه text0 ضع الكود التالي بس غير text0 الي اسم الحقل النصي Me.Text0 = Right(Me.Text0, 5)
درس جميل جدأ بس ايه رايك في هذا الكود Select Case KeyAscii Case Asc("0") To Asc("9") Case Asc(".") If InStr(1, Me.TextBox2.Text, ".") > 0 Then KeyAscii = 0 End If Case Else KeyAscii = 0 End Select
أستاذ أحمد .. عيدك مبارك وكل عام وانتم بخير كيف أجبر المستخدم على إدخال عدد أرقام محددة، كأن أجبره ما يدخل أكثر من عدد خمسة أرقام في ال txt ، بنفس فكرة تقييده بإدخال "." واحدة فقط أتمنى الإفادة وأكون لك من الشاكرين
للامانة اشي فخم جدا .بارك الله فيك استاذنا الغالي احمد عبد المنعم
وفيك بارك الرحمن
الله ينور عليك يامحترم
رحم الله والديك وغفر لهما
اللهم ءامين وإياكم
جزاك الله خير انت مبدع الله يزيدك من فضله
بارك الله فيك
وفيك بارك الرحمن
رائع
طيب كيف نجبر الاكسس يكتب عربي
لان بعض الاحيان عند الطباعة لاحظت هناك ارقام عربي انجليزي
وايضا كود لايقبل الا الحروف هذا الكود
'كود يلزم المستخدم ادخال احرف بدون أرقام
Select Case KeyAscii
Case Asc("0") To Asc("9")
KeyAscii = 0
Case Else
End Select
جزاك الله خيرا كنت هعملها في حلقة اخري
حبيبنا واستاذنا القدير احمد عبدالمنعم وماله اعملها ليتسفيد الجميع وياليت لو بطريقة اسهل مثل كود اليوم في غاية السهولة مقارنة مع الكود الذي بعثه لك ، وجزاك الله خير.
@@ابوفيصل-ت2ي جزانا الله وإياكم الفردوس الأعلى من الجنة
شكرا لك أستاذي وجزاك الله خيرا
اريد ان ارسل لك النموذج الذي قلتلي
ليس عندي بريدك الإلكتروني
جزانا الله وإياكم
Ahmedproff2012@gmail.com
ارسلت لك النموذج وصلك ؟
@@ahmedabdelmoneimuniversity986
وصلني النموذج
شكرا لك ممتاز
جزاك الله خير الجزاء
من فضلك ،، أريد كود بالاكسس يحدد عدد أحرف الكتابة في مربع نص غير منظم ،، مثلاً لو وصل عدد الاحرف الي 10 أحرف يتوقف عن الكتابة تلقائياً.
والدينا ووالديك في الجنة يارب
لو سمحت استاذنا الكريم لو انا ادخل ارقام عن طريق قارئ الباركود
وعاوز اول خمسة ارقام من الباركود يتم ادخالها في حقل الادخال ويتم تجاهل باقي الارقام هعملها ازاي ؟
اللهم ءامين يا رب العالمين
في حدث بعد التحديث للحقل النصي وليكن اسمه
text0
ضع الكود التالي بس غير
text0
الي اسم الحقل النصي
Me.Text0 = Right(Me.Text0, 5)
ممكن تغير
Right
الي
Left
علي حسب الرغبة في أي مجموعة أرقام تريدها
بارك الله في علمك ووقتك ونفع بك 🌹
@@hgljvrf اللهم ءامين وإياكم
درس جميل جدأ بس ايه رايك في هذا الكود
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(".")
If InStr(1, Me.TextBox2.Text, ".") > 0 Then
KeyAscii = 0
End If
Case Else
KeyAscii = 0
End Select
ممتاز .. تقريبا نفس الفكرة بطريقة أخري.. جزاك الله خيرا
أستاذ أحمد .. عيدك مبارك وكل عام وانتم بخير
كيف أجبر المستخدم على إدخال عدد أرقام محددة، كأن أجبره ما يدخل أكثر من عدد خمسة أرقام في ال txt ، بنفس فكرة تقييده بإدخال "." واحدة فقط
أتمنى الإفادة وأكون لك من الشاكرين
عيد مبارك عليك اتفرج علي الحلقة رقم ١٤ في كورس اكسس vba هتفهم ازاي تحجم المستخدم علي عدد معين
@@ahmedabdelmoneimuniversity986
عاجز عن شكرك أستاذ أحمد إنك خصصت حلقة عن هالموضوع .. تقبل تحياتي
كود الشرح :
If Chr(KeyAscii) = "." And InStr(Me.TxtPrice.Text, ".") > 0 Then
KeyAscii = 0
End If
If KeyAscii >= vbKey0 And KeyAscii
بارك الله فيك