salimboub24 قام بنشر مارس 30, 2019 قام بنشر مارس 30, 2019 السلام أريد في حقل قناع الادخال بحيث أريد قناع الادخال في الاكسس في الجدول عندما أكتب في بداية الكلمة حرف A أو حرف B او حرف C لايقبل ويقبل كتابة جميع الاحرف ماعد حرف A أو حرف B او حرف C في البداية
عبد اللطيف سلوم قام بنشر مارس 30, 2019 قام بنشر مارس 30, 2019 1 ساعه مضت, salimboub24 said: السلام أريد في حقل قناع الادخال بحيث أريد قناع الادخال في الاكسس في الجدول عندما أكتب في بداية الكلمة حرف A أو حرف B او حرف C لايقبل ويقبل كتابة جميع الاحرف ماعد حرف A أو حرف B او حرف C في البداية تفضل منع كتابة حروف.mdb
salimboub24 قام بنشر مارس 31, 2019 الكاتب قام بنشر مارس 31, 2019 أريد معلومات حول قناع الادخال , مثلا عند كتابة جملة في حقل للجدول مثلا أكتب BR512Z1GX022540 بحيث ادا كانت هده الجملة تحتوي في البداية على حروف مكونة من BR5 لايقبل الحفظ أي تظهر لي رسالة بعدم الحفظ وادا كانت الجملة لاتبدا بحروف BR5 مثلا LXMTB2T5GG021 فانه يقبل تسجيل في الجدول ولدي ملف للتحميل وادا امكن أريد الحقل لايتعدى 17 حرف أو رقم وشكراااااا منع كتابة حروف (5).mdb
ابوخليل قام بنشر مارس 31, 2019 قام بنشر مارس 31, 2019 السلام عليكم انا لا اعرف تطبيق فكرتك بواسطة قناع الادخال ولكن يمكن ان اساعدك بتنفيذ الفكرة باستخدام الكود عبر احداث مربع النص
salimboub24 قام بنشر مارس 31, 2019 الكاتب قام بنشر مارس 31, 2019 (معدل) 3 ساعات مضت, ابوخليل said: السلام عليكم انا لا اعرف تطبيق فكرتك بواسطة قناع الادخال ولكن يمكن ان اساعدك بتنفيذ الفكرة باستخدام الكود عبر احداث مربع النص السلام عليك أخي انظر أسفل الصور لتفهم أكثر لاحظ في Valide si بحيث الكود يعبر عن السماح بكتابة جميع الاحرف في بداية الكلمة ماعدا A.B.C رسالة -- يمنع كتابة هدا الحرف -- ,انا أريده يمنع كتابة هدخ الاحرف أي ادا كتب في بداية الكلمة حرف d الى غاية حرف z يقبل وادا كتبت في بداية الكلمة حرف A أو B او C يقبل الحفظ لدا أريـد عند كتابة جملة مثل BR512Z1GX022540 بحيث ادا كانت هده الجملة تحتوي في البداية على حروف مكونة من BR5 لايقبل الحفظ أي تظهر لي رسالة بعدم الحفظ وادا كانت الجملة لاتبدا بحروف BR5 مثلا LXMTB2T5GG021 فانه يقبل الحفظ البرنامج للتحميل اسفله منع كتابة حروف (5).mdb تم تعديل مارس 31, 2019 بواسطه salimboub24
ابوخليل قام بنشر مارس 31, 2019 قام بنشر مارس 31, 2019 1 ساعه مضت, salimboub24 said: السلام عليك أخي انظر أسفل الصور لتفهم أكثر مطلوبك مفهوم رعاك الله ايضا تريد الارقام والحروف ان لا تزيد عن 17 ولتفهم عزيزي ان الحقل الظاهر في الصورة يسمى : قاعدة التحقق من الصحة وليس قناع ادخال المهم انا سألتك ان كنت تريد تطبيق الضوابط حسب طلبك بغض النظر عن الوسيطة ولكن يبدوا انك لم تفهم ما اقصده ؟ وعلى كل حال واختصارا للوقت هذا الكود يحقق مطلبك : Dim z As String Dim i As Integer i = Len(Me.text1) z = Left(Me.text1, 3) '++++++++++++++++++++++++++++++ If i > 17 Or z = "BR5" Then Undo MsgBox "تأكد من ادخال البيانات بطريقة صحيحة" Exit Sub End If وهذا تطبيق : منع كتابة حروف2 .mdb 1
ابو ياسين المشولي قام بنشر مارس 31, 2019 قام بنشر مارس 31, 2019 29 دقائق مضت, ابوخليل said: مطلوبك مفهوم رعاك الله ايضا تريد الارقام والحروف ان لا تزيد عن 17 ولتفهم عزيزي ان الحقل الظاهر في الصورة يسمى : قاعدة التحقق من الصحة وليس قناع ادخال المهم انا سألتك ان كنت تريد تطبيق الضوابط حسب طلبك بغض النظر عن الوسيطة ولكن يبدوا انك لم تفهم ما اقصده ؟ وعلى كل حال واختصارا للوقت هذا الكود يحقق مطلبك : Dim z As String Dim i As Integer i = Len(Me.text1) z = Left(Me.text1, 3) '++++++++++++++++++++++++++++++ If i > 17 Or z = "BR5" Then Undo MsgBox "تأكد من ادخال البيانات بطريقة صحيحة" Exit Sub End If وهذا تطبيق : منع كتابة حروف2 .mdb 252 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads اجابه في الصميم استاذي ابو خليل بارك الله فيك 1
salimboub24 قام بنشر مارس 31, 2019 الكاتب قام بنشر مارس 31, 2019 (معدل) شكرا لك أخي كثيرا كثيرا كثيرا كثيرا كثيرا ورحم الله والديك وأدخلهم الجنة ان شاء الله وادا اردت أيضا اضافة احرف أخرين "BR5" و "BR3" و "BR4" تم تعديل مارس 31, 2019 بواسطه salimboub24 1
ابوخليل قام بنشر مارس 31, 2019 قام بنشر مارس 31, 2019 شرفت بمرورك ابو ياسين طريقة وضع الشرط في حدث مربع النص افضل لا شك فيما لو اردنا التحكم بالضوابط ونريد ان نجعل مربع النص اكثر مرونة فمثلا يمكن ان نستدعي هذه القيم من جدول If i > 17 Or z = "BR5" Then 1
salimboub24 قام بنشر مارس 31, 2019 الكاتب قام بنشر مارس 31, 2019 2 ساعات مضت, ابوخليل said: مطلوبك مفهوم رعاك الله ايضا تريد الارقام والحروف ان لا تزيد عن 17 ولتفهم عزيزي ان الحقل الظاهر في الصورة يسمى : قاعدة التحقق من الصحة وليس قناع ادخال المهم انا سألتك ان كنت تريد تطبيق الضوابط حسب طلبك بغض النظر عن الوسيطة ولكن يبدوا انك لم تفهم ما اقصده ؟ وعلى كل حال واختصارا للوقت هذا الكود يحقق مطلبك : Dim z As String Dim i As Integer i = Len(Me.text1) z = Left(Me.text1, 3) '++++++++++++++++++++++++++++++ If i > 17 Or z = "BR5" Then Undo MsgBox "تأكد من ادخال البيانات بطريقة صحيحة" Exit Sub End If وهذا تطبيق : منع كتابة حروف2 .mdb 252 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads وادا اردت أيضا اضافة احرف أخرين "BR5" و "BR3" و "BR4"
ابو ياسين المشولي قام بنشر مارس 31, 2019 قام بنشر مارس 31, 2019 29 دقائق مضت, ابوخليل said: شرفت بمرورك ابو ياسين طريقة وضع الشرط في حدث مربع النص افضل لا شك فيما لو اردنا التحكم بالضوابط ونريد ان نجعل مربع النص اكثر مرونة فمثلا يمكن ان نستدعي هذه القيم من جدول If i > 17 Or z = "BR5" Then والله استاذي بالنسبه للجدول انتم لها الاخ salimboub24 ممكن يكون هكذا If i > 17 Or z = "BR3" Or z = "BR44" Or z = "BR5" Then
salimboub24 قام بنشر أبريل 1, 2019 الكاتب قام بنشر أبريل 1, 2019 17 ساعات مضت, salimboub24 said: شكرا لك أخي كثيرا كثيرا كثيرا كثيرا كثيرا ورحم الله والديك وأدخلهم الجنة ان شاء الله وادا اردت أيضا اضافة احرف أخرين "BR5" و "BR3" و "BR4" 17 ساعات مضت, salimboub24 said: وادا اردت أيضا اضافة احرف أخرين "BR5" و "BR3" و "BR4" اخي أو مثلا عندما تكون بالعكس أي يقبل جميع الحروف التي فيها BR5 ولايقبل التي ليست فيها في بداية الجملة أحرف BR5
ابوخليل قام بنشر أبريل 1, 2019 قام بنشر أبريل 1, 2019 الافضل اشرح لك الكود اعلاه من اجل تفصل على ما يحلوا لك Dim z As String هنا اخبرنا اكسس ان حرف زد نصي Dim i As Integer وهنا اخبرنا اكسس ان حرف آي رقمي i = Len(Me.text1)هنا قيمة آي تساوي عدد احرف او ارقام الحقل التي سندخلها z = Left(Me.text1, 3)هنا قيمة زد تساوي أول ثلاث حروف من اليسار ، لاحظ ان الرقم 3 يعبر عن عدد الحروف او الارقام المقتطعة فيمكن ان تضع الرقم 2 لتكون قيمة زد تساوي الحرفين الاولين نجي للتطبيق : اذا آي اكبر من 17 أو زد تساوي "بي آر خمسة" If i > 17 Or z = "BR5" Then تراجع Undo واظهر هذه الرسالة MsgBox "تأكد من ادخال البيانات بطريقة صحيحة" واخرج من الحدث Exit Sub انهاء الحدث End If أي شيء غير مفهوم يمكنك الاستفسار جواب سؤالك الاخير فقط تستبدل علامة = بعلامة <> ليصبح السطر If i > 17 Or z <> "BR5" Then
salimboub24 قام بنشر أبريل 1, 2019 الكاتب قام بنشر أبريل 1, 2019 6 ساعات مضت, ابوخليل said: الافضل اشرح لك الكود اعلاه من اجل تفصل على ما يحلوا لك Dim z As String هنا اخبرنا اكسس ان حرف زد نصي Dim i As Integer وهنا اخبرنا اكسس ان حرف آي رقمي i = Len(Me.text1)هنا قيمة آي تساوي عدد احرف او ارقام الحقل التي سندخلها z = Left(Me.text1, 3)هنا قيمة زد تساوي أول ثلاث حروف من اليسار ، لاحظ ان الرقم 3 يعبر عن عدد الحروف او الارقام المقتطعة فيمكن ان تضع الرقم 2 لتكون قيمة زد تساوي الحرفين الاولين نجي للتطبيق : اذا آي اكبر من 17 أو زد تساوي "بي آر خمسة" If i > 17 Or z = "BR5" Then تراجع Undo واظهر هذه الرسالة MsgBox "تأكد من ادخال البيانات بطريقة صحيحة" واخرج من الحدث Exit Sub انهاء الحدث End If أي شيء غير مفهوم يمكنك الاستفسار جواب سؤالك الاخير فقط تستبدل علامة = بعلامة <> ليصبح السطر If i > 17 Or z <> "BR5" Then يعطيك العافية يا أخي
Khalid Jnb قام بنشر أبريل 2, 2019 قام بنشر أبريل 2, 2019 اخي العزيز استخدم هذا القناع >AAAA ويقبل ارقام وحروف وحدد عدد الارقام او الحروف كما تحب
salimboub24 قام بنشر أبريل 3, 2019 الكاتب قام بنشر أبريل 3, 2019 اخي القناع >AAAA أريد عندما اكتب أحرف صغيرة لايقبل بحيث يكتب تلقائيا احرف كبيرة ومع الارقام أيضا 20 ساعات مضت, خالد سيسكو said: اخي العزيز استخدم هذا القناع >AAAA ويقبل ارقام وحروف وحدد عدد الارقام او الحروف كما تحب في ٣١/٣/٢٠١٩ at 14:25, ابو ياسين المشولي said: اجابه في الصميم استاذي ابو خليل بارك الله فيك السلام عليكم أريد أن أسئلك من أين أجد كل هده الاكواد أريد أن أتعلمها جميعا من أي مصدرها
salimboub24 قام بنشر أبريل 3, 2019 الكاتب قام بنشر أبريل 3, 2019 (معدل) 23 ساعات مضت, خالد سيسكو said: اخي العزيز استخدم هذا القناع >AAAA ويقبل ارقام وحروف وحدد عدد الارقام او الحروف كما تحب ياأخي أريد يكتب بالاحرف الكبيرة ويقبل كتابة أرقام مثلا 151254 تم تعديل أبريل 3, 2019 بواسطه salimboub24
Khalid Jnb قام بنشر أبريل 3, 2019 قام بنشر أبريل 3, 2019 السلام عليكم اقرا هذا الموضوع فيه فائدة لك انشاء الله https://www.officena.net/ib/topic/82033-معلومات-قيمة-حول-قناع-الادخال-اتمنى-لكم-الفائدة/?tab=comments#comment-522588
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.