التأكد من صحه إدخال أسم ...

الأخ الكريم/الأخت الكريمة

السلام عليكم ورحمة الله وبركاته

مرحباً بكم في منتدى الفريق العربي للبرمجة

نود تنبيهك أن العنوان غير مناسب.

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم

من خلال التحرير الكامل للموضوع حسبما أعتقد (غير متأكد من الصلاحيات)

بخصوص مشكلتك، أسماء الموظفين وكلمات السر أين سيتم تخزينها؟

إن كانت الأسماء ستكون ثابتة بدون تغيير وعددها قليل يمكن تخزينها في البرنامج.

الخطأ الذي يظهر لك في الأعلى سببه مقارنة متغير نصي مع قيمة عددية، ممكن جعل القيمة بالشكل "1" للتأكد.

السلام عليكم.

قائمة الأسماء المرخص لهم باستخدام البرنامج، أين ستكون موجودة؟

إشراقــه فجــر كتب:

لا الاسمــــــاء مو ثابتــه ..

بحيث المستخدم يدخل اسمه في text ...

وعند الضغط ع زر " ok "

يقوم بالتشييك ع text ان المدخل أسم

....

أتمنـــــــى المســـــآآعدهـ ...

وآسفه ع الاطالـــــهــ ....

If TextBox1.Text = 1 Then
			Me.Hide()
		End If
....

Xacker كتب:

الخطأ الذي يظهر لك في الأعلى سببه مقارنة متغير نصي مع قيمة عددية، ممكن جعل القيمة بالشكل "1" للتأكد.

ظعينه كتب:

اللى انا فهمته من الكلام ده

ان حضرتك عاوز البرنامج يعمل تشيك

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

يطعله رساله يقوله مثلا

لابد من كتابه الاسم حتى تتمكن من الحفظ

.........

لو ده فعلا قصدك

ممكن تكت اكود ده فى الزر ... اوك

Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox " برجاء التأكد من كتابه الاسم حتى تتمكن من الحفظ"

Exit Sub

End If

End Sub

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

,,,,

Xacker كتب:

الخطأ الذي يظهر لك في الأعلى سببه مقارنة متغير نصي مع قيمة عددية، ممكن جعل القيمة بالشكل "1" للتأكد.

ضعي الرقم بين اشارات اقتباس " " كما في النصوص!

mrx_ta7ady كتب:

واذا عاوزه تتأكدي اذا المدخل في الـ TextBox1 إنه نص جربي الـ Function اللى اسمها IsNumeric

ودي بترجع بـ True لو القيمه رقم وبترجع بـ False لو القيمة مش رقم

' القيمة نصية
End If

If Not IsNumeric(TextBox1.Text) Then

يا أختي الكريمة أنت قمت بوضع مثالك وفيه مقارنة بين محتوى Text1.Text والرقم 1 صح؟

هذا الرقم الذي أتكلم عنه

لو كانت المقارنة ستتم بين محتوى Text1.Text والقيمة 1 فيجب أن تكون قيمة نصية بالشكل

if Text1.Text = "1" then
... whatever
End If

Xacker كتب:

يا أختي الكريمة أنت قمت بوضع مثالك وفيه مقارنة بين محتوى Text1.Text والرقم 1 صح؟

هذا الرقم الذي أتكلم عنه

لو كانت المقارنة ستتم بين محتوى Text1.Text والقيمة 1 فيجب أن تكون قيمة نصية بالشكل

if Text1.Text = "1" then
... whatever
End If

Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])

أي إذا أردنا أن نبحث في الجملة من أولها إلى آخرها نضع القيمة 1

وإذا أردنا أن نبحث في الجملة من بداية الحرف الخامس نملأه برقم 5

وعلى سبيل المثال :

Function InStrRev(StringCheck As String, StringMatch As String, [Start As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As Long

وهي مثل السابقة ولكن للتدقيق بدئا من أقصى اليمين.

والإثنان يرجعون بموضع القيمة النصية المراد البحث عنها أو بـ 0 في حالة عدم العثور على ما نريد

وتستخدم مثلا في حالة اننا نملك قيمة من نوع String ولتكن 'MY Value 1 For 1 Example'

ماذا لو أردنا معرفة إن كانت تحوي الرقم '1' أم لا وما هو موضعه ؟؟ .. مع العلم إن القيمة موجوده في TextBox1

MsgBox InStr(1, TextBox1.Text, "1", vbTextCompare)

مع تجربة الأمر السابق نلاحظ ظهور رقم موضع أول قيمة النصية = '1' في الرسالة وهو 10

وماذا الآن لو أردنا معرفة موضع الـرقم '1' الثاني والذي يسبق كلمة 'Example'

نستخدم الآن الدالة الثانية التي تبدأ في التحقق من أقصى اليمين ... مثلا :

MsgBox InStrRev(TextBox1.Text, '1', -1, vbTextCombare)

ونلاحظ ظهور الرقم 16 الآن في الرسالة .. وهذا يعني ان التدقيق يبدأ من اقصى اليمين ويجلب لنا موضع آخر قيمة = '1'

نتمنى أن يكون هذا هو مرادك !

أنت تريدين التحقق فقط من أن المحتوى ليس فارغ؟ :blink:

استخدمي هذا الكود في حدث الــ Text1_KeyPress الذي لن يقبل الارقام .

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If (KeyAscii <> 8) And (KeyAscii > 46 And KeyAscii < 58) Then KeyAscii = 0
End Sub