ممكن تساعدوني بخصوص "زر نشط او غير نشط في اكسس "

اخى العزيز يمكن عمل الاتى للفورم

فى ال

Private Sub Form_Load
cmd2.Enabled = False
text1.SetFocus
text1.tex   =""
End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
If Trim(text1.Text) = "nas_ksa" Then
cmd2.Enabled = True
Else
cmd2.Enabled = False
End If
End Sub

مثال للتطبيق.rar

الف الف شكر لله ثم لك يا أخ( ayada )

لك مني كل الشكر والعرفان

بعد التحية الى الاخ ( ayada )

ياليت لو تدلني اين اضع هذه الاكواد في - الفوورم او في مربع النص ام في الزر

اريد اكثر من اسم مستخدم في الكود ماهي الطريقة الصحيحة

Private Sub text1_KeyPress(KeyAscii As Integer)

If Trim(text1.Text) = "nas_ksa" Then

cmd2.Enabled = True

Else

cmd2.Enabled = False

End If

End Sub

لك تحياتي

ممكن جواب اذا سمحتو

بعدالتحية والتقدير

ياليت تفيدونني عن كيفية ادخال اكثر من اسم في مربع النص بستخدام الكود

بعدالتحية والتقدير

ياليت تفيدونني عن كيفية ادخال اكثر من اسم في مربع النص بستخدام الكود Private Sub text1_KeyPress(KeyAscii As Integer)

If Trim(text1.Text) = "nas_ksa" Then

cmd2.Enabled = True

Else

cmd2.Enabled = False

End If

End Sub

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

لقد عدلت على المثال لكي تتمكن من ادخال اسم آخر جرب كتابة ali و سوف تلاحظ أن الزر يتم تنشيطه بالاضافة الى اسم nas_ksa

مثال للتطبيق.rar

اخى العزيز nas_ksa

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

بالملف المرفق قاعدة بيانات تم انشاء جدول باسم passwrd

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

بالنسبة للنموذج الرئيسي بعد ادخال اسم المستخدمك ونقر الزر موافق يقوم الربنامج بالبحث عن الاسم فى الجدول passwrd اذا وجدة فان الزر يصبح نشط

البرنامج مكتوب فى حدث النقر للزر موافق لرؤيته افتح النموذج فى وضع التصميم و انقر بالزر الايمن للفارة على زرؤ موافق واختر انشاء حدث

لا اله الا انت سبحانك اني كنت من الظالمين

مثال للتطبيق2.rar

الاخ الفاضل ( ayada )

الف شكرلك والى الاخ ( biskra )

واسف جداً على ازعاجكم

لكم فائق تحياتي وتقديري ... تمنياتي لكم بتوفيق والنجاح ان شاء الله