تعديل على كود تغيير الباسود على شكل نجوم

[sm44ms]

If InputBox("ÇÏÎá ßáãÉ ÇáãÑæÑ ááãÓÄæá", "ÝÊÍ äãæÐÌ ÇáÕáÇÍíÇÊ ãÓÄæá ÇáäÙÇã") = "774512457414414" Then
MsgBox " ÇáÇãÊíÇÒÇÊ ßÇÝíÉ áÏÎæá ÇáÔÇÔÉ ÊãÊ ÇáãæÇÝÞÉ ", vbOKOnly, "ÇáÇãÊíÇÒÇÊ ÛíÑ ßÇÝíÉ"

DoCmd.OpenForm "ADD USER"
Else
MsgBox " áã íÊã ÅÏÎÇá ßáãÉ ÇáãÑæÑ ÑÇÌÚ ãÓÄæá ÇáÈÑäÇãÌ", vbOKOnly, "ÊÇßíÏ ÕáÇÍíÇÊ ÇáÏÎæá"
MsgBox "  ÇáÇãÊíÇÒÇÊ ÛíÑ ßÇÝíÉ ÑÇÌÚ ãÓÄæá ÇáÈÑäÇãÌ 0124142 ", vbOKOnly, "ÇáÇãÊíÇÒÇÊ ÛíÑ ßÇÝíÉ"

DoCmd.CancelEvent
End If
End Sub

الرجاء التعديل على الكود التالي:

وقت ادخال الباسود تظهر الاراقام والحروف حق الباسود 

اباها على شكل نجوم

[jjafferr]

وعليكم السلام 🙂

 

اجعل البحث في المنتدى صديقا لك ، ففي المنتدى ما لذ وطاب 🙂

https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=dkinputbox&sa=Search

 

هذه بعض نتائج البحث:

 

 

 

جعفر

[sm44ms]

جربت نفس الشي 

يمكن في خصايص بالكمبيوتر لازم اعملها او تعديل شي 

نفس الشي تطلع الارقام ارقام والحروف حروف

[jjafferr]

لوسمحت ترفق اللي عملته علشان نعرف كيف نساعدك 🙂

فيه امثلة مرفقة في الروابط ، انزلها وجربها

[sm44ms]

انا عني زر امر يفتح نموذج اخر

قاعدة البيانات كبيرة ومتحولت على الموقع  ولكن هذه الشكل يظهر 

تم تعديل يناير 13, 2023 بواسطه sm44ms

[jjafferr]

السلام عليكم 🙂

 

نعم طلبك واضح ، واجابتي هي مفصلة لطلبك 🙂

اذا الشيء اللي نريده موجود في اوامر الاكسس ، فممكن بكود سطر او اثنين ونحل الموضوع ، ولكن لما اللي نريده مو موجود في الاكسس ، فنضطر:

• يا نعمل له كود بأوامر الاكسس ،
• واما اذا اوامر الاكسس ما تفي بالمطلوب ، نضطر نستخدم دوال ومكتبات الوندوز ، وهذا اللي صاير مع طلبك 🙂

 

1. اذا قاعدة بياناتك كبيرة ، تقدر تضغطها وترفعها على احد مواقع الرفع ، ثم ترفق لنا الرابط هنا ،

2. من المواضيع اللي اعطيتك اعلاه ، انزل هذا المرفق https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=150388

وفيه طلبك 100% وما فيه اي اضافات اخرى ، وكلمة السر فيه هي: 147 حسب ماهي موجودة في الجدول ،

جربه واذا اشتغل كما يجب ، فما عليك إلا ان تعمل نسخ للاكواد اللي فيه ، وانقلها الى برنامجك ، مع تعديل على كلمة السر و كود زر فتح نافذة كلمة السر 🙂

 

جعفر

[ابوخليل]

لإثراء الموضوع هذه مشاركة مع اخي جعفر

المثال عندي جاهز فاحببت ارفاقه

الفكرة نفسها ..

 

msgpass.accdb

[sm44ms]

جزاكم الله خير 

تم تجربة المثال المرسل من بوخليل  ولكنه لم يفتح النموذج الخاص بي

فاضفت عليه

DoCmd.OpenForm "ملف"

وفتح معاي وكل شي تمام جزاكم الله خير على التواصل معي من المشرفين والاعضاء الكرام

[Moosak]

وهنا كود مربع الإدخال Input Box على شكل نجوم .. من عند نجوم المنتدى 🙂 :