اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مشكلة ظهور الشاشة الرمادية هل من حل


إذهب إلى أفضل إجابة Solved by ابو جودي,

الردود الموصى بها

 

السلام عليكم أخوي أبا عمر  :smile:

 

حيله جميلة باستخدام SetWindowPos  :smile:

إحنا بسبب طريقة السؤال كنا نحاول ان نخفي شاشة الاكسس ، بس انت ماشاء الله عليك ، نظرت للموضوع من خارج العلبة ، وحصلت على مفهوم أكبر وطرق اخرى للحل ، هنيئا لك هذه القدرة  :smile:

وللعلم ، راعي الغنم في مشاركته رقم 84 لمح لهذا الشي نظريا ، ولم يطبقه برمجيا ، وانت سبقته ففيك الخير  :smile:

 

جزاك الله أخي جعفر هذا من فضل الله وحده لا شريك له

وهو قطرة في بحر علمكم وفضل ربي عليكم عظيم. :fff::rol:

رابط هذا التعليق
شارك

إخواني أعتذر لمن لم أشكره ونسيت أن أذكر أسمه من شدة فرحي

أخي الغالي جعفر والأخ الغالي عبدالرحمن هاشم وإلى كل من نسيت شكره

والله لم أنسى الدعاء لكم في هذا اليوم الجمعة .

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

تقبلوا فائق تقديري واحترامي .

رابط هذا التعليق
شارك

 

اخوي أبو يزن جرب:
AppDesigner="أبو يزن"

بدل السطر اللي يبدا بـAppDesigner

جعفر

 

أخي ابو يزن

 

طرشت لك الرسالة السابقة من هاتفي ، فما فيه خاصية المنتدى العادي ، لذلك طلعت الكتابة بالمقلوب  :eek2:

 

المفروض ان المبرمج يكون يكتب الاسم وبطريقة مباشرة ، مثل: أبو يزن ، بدل ما يكتب أ ب و  ي ز ن ، او يكتب ارقام الحروف (القائمة التي وضعها اخينا أبا عمر ascii table ، وانظر في الاسفل) ،

مثل:

AppDesigner="أبو يزن" 

ولكن اذا اراد المبرمج ان يتحاشى الحروف العربية في الكود (قد يكون السبب لأن بعض اعدادات الكمبيوترات تحولها الى علامات استفهام ؟؟؟؟ ) ، فانه سيضطر الى استعمال ارقام الحروف !

مثل:

لاحظ في الاكسس ، لما تريد تعمل زر لنموذج اسمه بالعربي (مثل أبو يزن) ، فالاكسس يعمل هذا الكود:

docmd.openform chr(195) & chr(200) & chr(230) & chr(32) & chr(237) & chr(210) & chr(228)

بدل عن الامر المتعارف:

docmd.openform "أبو يزن"

'-

'-

 

والان وبعد هذه المقدمة

 

عملت لك كود صغير يغير الاسم من حروف الى ارقام:

a = "أبو يزن"
b = ""
c = ""
For I = 1 To Len(a)
   c = c & Mid(a, I, 1) & "=" & Asc(Mid(a, I, 1)) & " , "
   b = b & "chr(" & Asc(Mid(a, I, 1)) & ") & "
Next I
c = Mid(c, 1, Len(c) - 3)
b = Mid(b, 1, Len(b) - 3)
Debug.Print c
Debug.Print b

والنتيجة (السطر الاول للعلم فقط ، بينما السطر الثاني هو الذي يحتوي على الكود):

أ=195 , ب=200 , و=230 ,  =32 , ي=237 , ز=210 , ن=228
chr(195) & chr(200) & chr(230) & chr(32) & chr(237) & chr(210) & chr(228)

يعني بدل ما تكتب اسمك بهذه الطريقة:

AppDesigner="أبو يزن" 

اكتبه:

AppDesigner=chr(195) & chr(200) & chr(230) & chr(32) & chr(237) & chr(210) & chr(228)

والجدول اللي أخوي ابا عمر تركه لنا هو للحروف اللاتينية فقط ، والرابط فيه جدول للغة العربية كذلك:

http://www.ascii.ca/cp864.htm

 

 

جعفر

رابط هذا التعليق
شارك

بصراحة لم اجدها كود الصورة بين الاكواد

ولكن وضعت الصورة الجديدة وعملت اسمها زي اسم الصورة القديمة ونجحت

ولكن لم اعرف من اين تتغير الصورة والله يجزاكم كل خير

تم تغيير الصورة بنجااااح

رابط هذا التعليق
شارك

  • 2 years later...

السلام عليكم 

مشكلة ظهور الشاشة الرمادية  لقد وجدتم حل للمشكلة لكنكم لم توضحو ما هو الحل الرجاء افادتي لاني اعاني من نفس المشكلة 

وبارك الله فيكم

 

تم تعديل بواسطه ahmus
رابط هذا التعليق
شارك

في ٢١‏/٨‏/٢٠١٧ at 22:56, ahmus said:

السلام عليكم 

مشكلة ظهور الشاشة الرمادية  لقد وجدتم حل للمشكلة لكنكم لم توضحو ما هو الحل الرجاء افادتي لاني اعاني من نفس المشكلة 

وبارك الله فيكم

 

الحل فى المشاركه دى

 

  • Like 1
رابط هذا التعليق
شارك

  • 11 months later...

الاخ jjafferr

اذا فهمت قصدي ممكن تشاركني

اريد تصغير 2 نموذج مع بعض

وعند التكبير يرجعو مع بعض

اكون شاكر لك

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

startForm
MinimizeToTry Me.hwnd
MinimizeToTry Forms!login.hwnd
SetFormState 0

 

رابط هذا التعليق
شارك

منذ ساعه, jjafferr said:

وعليكم السلام اخوي ابو ياسين:smile:

 

لو تابعت الموضوع بشكل دقيق ، بتلقى ان انا لم ارد على السؤال ، لذا يمكن للشباب اصحاب الاجابه ان يردوا عليك:smile:

 

جعفر

تسلم اخي جعفر بارك الله فيك

طيب ممكن نتشرح لي هذا الكود وهو من مشاركتك في هذا الموضوع

Dim WshShell, strCurDir
Set WshShell = CreateObject("WScript.Shell")
strCurDir    = WshShell.CurrentDirectory
WshShell.Run strCurDir & "\Nasystry.mdb", 2
Set WshShell = Nothing

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information