Hamdi Edlbi-khalf

السلام عليكم شكزاً لكم أساتذتي الكرام الحل كان بتطبيق السؤال الموجود في بالرابط و ليس الإجابة و هو باستخدام دالة vba .keyboardlanguage إلا أنني لم أعرف رقم الكيبورد العربي و كما أن الكود لا يغير اللغة مع فقد التركيز أو الخروج سأحاول و أوافيكم بالنتيجة

https://access-programmers.co.uk/forums/showthread.php?t=193030 في هذا الرابط وجدت كوداً لكن يبدو أنني لم أحسن استخدامه هذا هو الكود .. أعتقد أن الحل به .. Private Declare Function ActivateKeyboardLayout Lib _ "user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long 'define your desired keyboardlanguage 'find your desired language at Private Const MKD = 1071 'macedonian keyboard language layout Private Const eng = 1033 'english(united states)keyboard language layout Private Sub A_Enter() Call ActivateKeyboardLayout(MKD, 0) End Sub Private Sub A_Exit(Cancel As Integer) Call ActivateKeyboardLayout(eng, 0) End Sub

شكراً و بارك الله بك أستاذ @أ / محمد صالح سأرفع المثال مساء عندي وصولي إلى المنزل .

السلام عليكم أستاذ @kanory شكراً لك الكود يعمل و لكن لا يحقق المطلوب فهو لا يأخذ بعين الاعتبار شرط قيمة مربع السرد و الحوار فبمجرد التركيز تتغير اللغة من الإنكليزية إلى العربية دون العكس و دون الأخذ بشرط قيمة مربع السرد و الحوار . مع ملاحظة أن لغة الجهاز هي العربية .

السلام عليكم أبحث عن كود vba أستطيع من خلاله تغيير لغة الإدخال في حقل في نموذج بشرط . وجدت أوامر لتغير لغة الإدخال في حقل من نموذج إكسل و فكرة العمل عند تغيير قيمة نافذة منسدلة من كلمة عربي إلى إنكليزي تتحول لغة الإدخال تلقائياً في حقل آخر إلى الإنكليزي و العكس بالعكس و لكم جزيل الشكر .

السلام عليكم ليت الأمر يتوقف على هذه الأسماء لكان الأمر سهلاً . فكل الأسماء التي تنتهي بـ الدين أو مركبة من محمد و اسم آخر أو غيرها مثل بهاء الملك - نور الهدى - هذا و قد يكون اسم الأب مركباً أو اسم العائلة . هناك أخماس الحلول - لا ترقى حتى لتكون أنصافاً للحلول - لهذه المشكلة و كلها طويلة تعتمد على تخزين الاحتمالات الممكنة . و ما أتعبها من طريقة !! تعقيب : يمكن تقسيم الأسماء المؤلفة من ثلاثة كلمات بهذه الطريقة و استبعاد الأخرى لتتم العملية يدوياً . و يمكن إضافة شرط وجود كلمة عبد لمنع التقسيم بناء على وجود الفراغ اللاحق للكلمة

بدأت بحثي بجوجل باللغة الإنكليزية على اعتبار أن هذه المعارف من منشأ غربي و لا بد أن يكون الحل مطروقاً لديهم و لما يئست من ذلك تابعت بحثي باللغة العربية و المفاجأة السارة كانت من العزيز @jjafferr في هذا الرابط http://arabteam2000-forum.com/index.php?/topic/292972-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ كانت الطريقة عمل تقرير يأخذ الفلتر مصدره ذات مصدر النموذج ، ثم جعل فتحه بالأمر Docmd.openreport "ReportNamE", acviewpreview , FilterName, me.filter سميت الفيلتر على اعتبار أني أضفته بواسطة زر Docmd.runmacro "MacroName" , , "" قمت بعمل ماكرو لتصدير التقرير إلى إكسل و شغلته عن طريق VBA أخي جعفر أنت حقاً The most valuable professional و لا أنسى الرائعين في هذا المنتدى و الذين لا يقلون عالمية عما أجد في المواقع الأجنبية . إلا أن العلم رزق و الرزق يُسعى إليه . شكراً لك أستاذ جعفر 👍🏻👍🏻👍🏻👍🏻

هل الأمر ممكن من حيث المبدأ ؟

السلام عليكم كيف يمكن فلترة استعلام بناء على فلتر مطبق على النموذج الذي مصدره هذا الاستعلام و تصدير الاستعلام إلى إكسل مضمناً به هذا الفلتر أو كيف يمكن جعل الفلتر المطبق على النموذج من معايير الاستعلام ؟ و شكراً لكم

هلا تكرمت بشرح الطريقة أو الإحالة إلى رابط ؟

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

السلام عليكم شكراً لك و جزاك الله كل خير أستاذ @فارس بني هلال بعد بحث طويل خالجني الشك بعد إمكانية هذا الأمر . سأجرب المرفق عند استطاعتي و أوافيك بالنتيجة و أعتذر سلفاً عن تأخري عن تجريبه لكن ريثما أصل إلى حاسب متصل بالإنترنت .

السلام عليكم تتمتع مربعات السرد و الحوار بإمكانية الإكمال التلقائي هذا للقيم الموجودة في مصدر قيم المربع و هي خاصية موجودة في إكسل Autocomplete automatic complation حيث تظهر تتمة النص مع إدخال الحرف الأول مظللة بالأسود بناء على الإدخالات السابقة بنفس العمود . فهل توجد طريقة لتكسب مربعات النص هذه الخاصية سواء في ورقة بيانات أو نماذج مفردة أو مستمرة ؟ شكراً لكم .

لم أجد طريقة مناسبة لذلك و عليه فقد قمت بعمل الخطوات التالية : عمل lable شفاف و لون خط الكتابة مماثل للون خلفية الزر و بدلاً من جعل الزر ممكناً أو غير ممكن بناء على تحقق شروط أو عدمها أجعل Lable مرئياً أو لا و بذلك أعطل الزر دون الحاجة إلى تغيير خصائصه . ملاحظة وجدت أمر vba و لكن لم أجربه و لذلك لم أضع رابطاً أو أنقل الأمر المذكور . شكراً لكم أخوتي لكل من شرفني بزيارة السؤال و لمن رغب بالمساعدة .

From the Home tab on the ribbon, choose Find -> Advanced Find... Leave Find what blank. At the bottom, choose Format -> Style... Choose Hyperlink and press OK to close the dialog and return to the previous one. Choose Find In -> Main Document All the hyperlinks will be highlighted. From the ribbon, choose Styles -> Clear Formatting. The default colour will be restored.

هل يمكن هدا من خلال ورقة الخصائص أم يحتاج إلى أوامر ڤيجوال ؟

السلام عليكم هل توجد طريقة لمنع تغير لون خط الكتابة Fore color عند جعل خاصة ممكن تساوي لا لزر أمر . شكراً لكم .

السلام عليكم أقصد وضع عرض التقرير و ليس وضع التصميم أو التنسيق .

إذا فالتقرير يمكن أن يظهر بالعرض دون هوامش إذا سمحت إعدادات الطابعة بذلك ...

شكراً لك أستاذي و لكن حتى بالعرض تظهر الهوامش . كوني أحاول أن أقوم بعمل بطاقات تملأ الورقة تماماً كما عند طباعة لصاقات

السلام عليكم هل يمكن طباعة تقرير بدون هوامش نهائياً ؟ لقد حاولت أن اجعل التقرير يظهر بالعرض أو بعد الطباعة بدون هوامش و لكن لم أتمكن و قد حاولت باستخدام الخصائص و لم أتمكن من ذلك . شكراً لكم

السلام عليكم

استخدم هذه المعادلات في استعلام fielddate]) month]) day () year() ضع بين القوسين اسم حقل التاريخ الذي ترغب بتجزئته و ضع كل معادلة منها في عمود فارغ في الاستعلام .

و بارك الله بك و جزاك كل خير