alsihran

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

عندي برنامج شغلته على بعض الاجهزة واشتغل وبعض الاجهزة ما اشتغل عليها تظهر رسالة خطأ عند بدأ تشغيل البرنامج 

بحثت عن المشكلة و وجدت الكثير يتكلم عن اعدادات اللغة لجهاز الحاسب 

المشكلة بعض الاجهزة اللي مشغل عليها البرنامج تكون على حساب مستخدم محدود الصالاحيات و لايمكنه تغيير اعدادات اللغة للجهاز 

فهل هناك طريقة في  بداية القيام ببرمجة البرنامج تجعله يقبل اللغة الانجليزية واللغة العربية للجهاز في حال نقله من جهاز المبرمج  الى جهاز المستخدم

علما اني ما اكتب الاكواد او الحقول باللغة العربية فقط الرسائل داخل محرر الاكواد وشرح الكود 

15 ساعات مضت, أبو عبدالله الحلوانى said:

ولكن يمكن أن يعمل هذا الكود في بيئة الـ vb6 أو حتي vb.net  وتحويله الي exe واستخدامه بأي جهاز.

لم افهم هذه الجزئية

3 ساعات مضت, ma4fd2010 said:

حويل صيغه ملف الاكسيس برمجيا من accdb الي accde

شكرا لك 

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

ولن تكون منطقية 

1 دقيقه مضت, أبو عبدالله الحلوانى said:

لست أدري كيف سيمنع الارتباط بالسرفر  قبول صيغة الـ vbs  وضح لنا فكرتك بالضبط!

بسبب رفع مستوى الامان في السيرفر 

جربت سابقا عمل نفس مثل هذا الملف للاستاذ @jjafferr

لعمل البرنامج في اي مجلد بدون خفض مستوى الامان لكن لاحظت ان الملف عند نقله على 

الجهاز المرتبط بالسيرفر يتم حذفه بدون تنفيذ التعليمات البرمجيه له 

44 دقائق مضت, jjafferr said:

تفضل يا سيدي ، الكود السابق بواجهه :

الله يعطيك العافية استاذنا 

لكن هذه الطريقة لن تفي بالغرض فالمطلوب هو تحويل الملفين على جهاز العميل عند تشغيله للبرنامج 

فأنت تعرف ان تحويل الملفين على جهازي ونقله لجهاز العميل سيؤدي ربما لعدم عمل البرنامج 

5 دقائق مضت, أبو عبدالله الحلوانى said:

أفظل أستخدام اسكربت يقوم بهذه المهمة

شكرا لك 

طريقتك جميله لكن للاسف لن تعمل على اجهزة مرتبطة بالسيرفر 

فالسيرفر سيمنع تشغيل ملفات بصيغة vbs  

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

وجدت هذا الكود في احدى مشاركات الاستاذ @jjafferr

وهو خاص بتحويل البرنامج من صيغة accdb  إلى accde

unction ConvertToaccDE()
sourcedb = "C:\Users\Trevor G\Documents\sample back.accdb"
targetdb = "C:\Users\Trevor G\Documents\sample back.accde"
Dim accessApplication As Access.Application
Set accessApplication = New Access.Application
With accessApplication
.SysCmd 603, sourcedb, targetdb
End With
'Set accessApplication = Nothing

End Function

حاولت تطبيق الكود ولكن لم اجد اي نتيجه 

المطلوب :

تحويل البرنامج Fass عند فتحه وتحويل برنامج  mass يوجدبنفس المجلد في نفس الوقت 

وبعد اتمام عملية التحويل يتم حذف الملفات التي بصيغة accdb  ثم اغلاق البرنامج Fass وفتح البرنامج mass

علما ان المجلد سيكون على سطح المكتب 

prog.rar

55 دقائق مضت, kanory said:

طبق من خيارات الاكسس وازل العلامة من السماح بالقوائم المختصرة الافتراضية

هل يمكن التحكم بهذا الخيار برمجيا 

17 دقائق مضت, kanory said:

طبق من خيارات الاكسس وازل العلامة من السماح بالقوائم المختصرة الافتراضية

فعلا توقف ظهورها 

لكن المشكلة احتفت القائمة الفرز والتصفييه ف النماذج والتقارير

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

عند عرض النماذج بطريقة علامة التبويب كيف نتمكن من الغاء القائمة المختصرة عند الضغط بزر الفأرة الايمن  على اسم النموذج

يرجى التطبيق على المرفق

TBweb.accdb

3 دقائق مضت, ابا جودى said:

icon_Name_Path = icon_Path & "\ico\" & icon_Name & ".ico"

 icon_Name_Path = icon_Path &  "\ico\" & icon_Name

 icon_Name_Path = icon_Path &  "\ico\" & icon_Name

الصحيح يكون كذا 

مشكورين اساتذتنا 

6 دقائق مضت, jjafferr said:

شو اسم ملف الايقونه الجديدة (اعمل صورة من الشاشة لوسمحت) ،

هذا اسم المجلد اللي موجود فيه الايقونة وهو في نفس المجلد اللي فيه البرنامج

8 دقائق مضت, jjafferr said:

وشو الاسم اللي تريده يظهر على سطح المكتب ؟

مثلا 

البرنامج 

2 دقائق مضت, ابا جودى said:

icon_Name_Path = icon_Path & "\" & icon_Name & ".ico"

نفس الشي يتم انشاء الاختصار لكن بدون ايقونة 

15 دقائق مضت, jjafferr said:

🙂

غيرت هذا السطر عشان اشير للمجلد اللي فيه الايقونة لكن ماضبط

  icon_Name_Path = icon_Path & "\" & icon_Name & "\" & ico

36 دقائق مضت, jjafferr said:

ما كنت ادري اني عملت هذا المثال

😵

ممتاز 

طيب استاذنا لمى تكون الايقونة داخل مجلد ف نفس مجلد البرنامج اي سطر نعدل عليه 

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

بالمرفق مثال للاستاذ @jjafferr

لعمل اختصار على سطح المكتب 

المثال شغال تمام 

لكن لمى اجي اغير الايقونة وحط ايقونة ثانية مع تغير اسم الاختصار الى اللغة العربية من شان يصير واضح للمستخدم 

مثلا اسم البرنامج prog   اريد ان يظهر اسم الاختصار بسطح المكتب بأسم  البرنامج 

ينشئ الاختصار لكن ما تظهر الايقونة 

لو أمكن شرح لو تفضلتم 

انشاء اختصار على سطح المكتب.rar

25 دقائق مضت, ابا جودى said:

طيب ممكن تجرب وتوافينا بالنتيجة

نعم اشتغل الآن 

إين كان الخطأ ..... ؟

السلام عليكم 

المرفق حملته من المنتدى 

وهو للمطالبة بكلمة السر عند فتح النموذج وتظهر على شكل نجوم 

جربته مع اكسس 2019 64 بت تظهر رسالة الخطأ التالية 

NA_PasswordMaskedInputbox.rar

3 ساعات مضت, jjafferr said:

تنقر باليمين على العمود/الحقل ، ثم تختار Field Width ، فنرى ان امر العرض ليس width ، وانما ColumnWidth

هو المطلوب 

رحم الله والديك

🌹

52 دقائق مضت, jjafferr said:

تفضل ، الملف الذي لا يستطيع مبرمج ان يستغني عنه (طبعا في اول ايامه 🙂 ) :

فشلت في التطبيق بنجاح🤪

mov1.accdb

55 دقائق مضت, jjafferr said:

هلا والله ، الحمدلله قدرنا نرضي زبون نشط

تشجعني أسأل أكثر 😄

استاذ لو كان النموذج الفرعي يعرض بطريقة عرض ورقة بيانات 

كيف سيتم التحكم في عرض الحقل بداخله من نفس زر الأمر .....؟

3 دقائق مضت, jjafferr said:

تفضل انت ، افتح المرفق وانقر على الزر واخبرنا النتيجة 🙂

اعطاني نفس النتيجه اللي طلعت عندك بالصورة 👍

شكرا لك 

5 دقائق مضت, jjafferr said:

السنتيمتر ، فيجب ان تضرب الرقم * 576

بالبوصة ، فيجب ان تضرب الرقم * 1440

جربت الرقمين اعطو نتيجه  😎

6 دقائق مضت, jjafferr said:

اذا كان النظام عندك:

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

وماهو الحل اذا كان البرنامج سينقل الى جهاز اخر ولا نعرف نوعية نظامه 

48 دقائق مضت, ناقل said:

جرب هذا 

اوقفت كود الارتفاع والعرض وهذا لايفي بالغرض

5 ساعات مضت, jjafferr said:

يمكن التعامل في مكانهم وحجمهم كالتالي (على فرض ان اسم الكائن A) 

السلام عليكم 

الله يعطيك العافية 

جربت وماضبط معاي لم انقر على الزر يختفي النموذج

اليك المرفق

mov.accdb

السلام عليكم

مطلوب مثال أو كود لتحديد مكان ظهور النموذج الفرعي داخل النموذج الرئيسي وحجم العرض والارتفاع