capitala

السلام عليكم

عند تكبير الصفحة لأكثر من 149% تتحرك الصفحة تلقائيا في اتجاه اليسار قليلا واضطر إلى سحب الـ Horizontal Scroll Bar لضبط الصفحة، علما بأن أغلب ما أقوم به يكون عند زوم أعلى من 149% نظرا لضعف بصري. علما بأنني أقوم بالتكبير والتصغير باستخدام Macro

هل هناك كود VBA يضبط الصفحة تلقائيا في منتصف الشاشة، أو يثبت الـ Horizontal Scroll Bar  ليكون في المنتصف دائما؟

خالص الشكر والتقدير

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

لقد قمتُ بتحرير عدد كبير من كود VBA داخل word 2033 ، وأغلبها مربوط بقاعدة بيانات Access 2003. ثم قمت بترقية قاعدة البيانات إلى access 2016 مع بقاء الوورد على النسخة القديمة.

والآن أغلب الكود لا يعمل مع access 2016 خصوصا (index) و (seek)

ما الطريقة المثلى للاتصال بقاعدة البيانات الجديدة؟

وافر الاحترام والتقدير سلفا

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

كيف يمكن عمل جدولة مثل (ٍsummary of certificates) في الملف المرفق بحيث لو زدنا أية كلمات عليها تنزل سطرا جديدا دون التكملة في النص المقابل لها. 

بمعنى آخر كأنه جدول ولكن بدون استخدام الجداول 

مع الشكر

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

أريد كود VBA لتشغيله مع word لمعرفة إن كان محتوى حافظة ويندوز Clipboard صورة أم نص؟. علما بأنني أستخدم word 2003

مع خالص تقديري وشكري واحترامي.

السلام عليكم، 

أحاول الوصول إلى قاعدة بينات (mdb) من برنامج وورد 2016

وأستخدم الكود التالي: 

dim db as database ، dim rst as recordset

فأجد رسالة: run-time error '4029' activex component can't create object

قمت بتغيير as database إلى dao.database وكذلك rst ولم تفلح المحاولة، ثم فحصت الـ References ووجدتها كافية 

أرجو المساعدة بأفضل طريقة لحل المشكلة أو كود استدعاء بيانات من قاعدة بيانات (MDB) أو (ACCDB)

مع الشكر

خالص الشكر على هذه الأفكار. ولكن أنا عندي أوفيس 2013، والبرنامج يطلب الإصدار 2010، هل هناك نسخة للإصدار 2010؟

وافر الاحترام والتقدير

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

في البداية أشكركم جزيل الشكر على مجهوداتكم الرائعة.

لقد قمت بإنشاء Ribbon مخصص باسم "Reports and Emails" وأحاول إظهاره باستخدام الكود التالي

DoCmd.ShowToolbar "Reports and Emails", acToolbarYes

ولكني أحصل على رسالة " .... can't find the toolbar "Reports and Emails"

يرجى التكرم بالمساعدة، مع الشكر

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

أنا أربط الجداول في BE باستخدام الكود التالي: 

نهاية الكود
 

strSourceTableName = "maintable"
    strLinkName = strSourceTableName
    strConnect = "MS Access;PWD=" & strPassword & _
        ";DATABASE=" & strDbFile

مع الشكر

شاكرين جهودكم، وفقكم الله لما فيه الخير دائما

السلام عليكم،

إنني أستخدام جداول من Back end database في نموذج من FE

المشكلة أني استخدم الصيغة التالية: 

Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = OpenForSeek("client_master")

rst.Index = "client_id"
rst.Seek "=", client_ID

وهذه هي الدالة OpenforSeek
Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _
(Mid(CurrentDb().TableDefs(TableName).Connect, _
11), False, False, "PWD="narsing").OpenRecordset(TableName, _
dbOpenTable)

وأحصل حاليا على رسالة: not a valid file name ، علما بأن قاعدة البيانات BE تحتوي على كلمة مرور

أرجو المساعدة للأهمية

الأخ ناقل المحترم.

قمت بربطها يدويا ولما حاولت تجربة الكود للبحث في الجداول تعطيني الرسالة التي أشرت إليها

مع الشكر

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

قمت بربط جداول من قاعدة بيانات خارجية.

وأستخدم الكود التالي لاستدعاء البيانات

Dim DB As Database
Dim rst As Recordset
Set DB = CurrentDb
Set rst = DB.OpenRecordset("fmaster")
    rst.Index = "ب_id"
    rst.Seek "=", f_ID

ولكن البرنامج يعترض على (Index) و (seek)

بعدها قمت بتغيير as database إلى as DAO.database ولكن نفس الخطأ كما يلي: 

(Operation is not supported for this type of object)

شاكرين جهودكم الرائعة

أخوي الكريم @ابا جودى

قاعدة البيانات عندي accdb

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

مع الشكر مرة اخرى

شكرا أبا جودي. كتر خيرك

بناء على نصيحة أحد أعضاء المنتدى المحترم. قمنا بفصل النماذج عن الجداول والاستعلامات

ولكن، كيف يمكنني أن أعرض بيانات في نموذج ويستمد بياناته من جدول في قاعدة البيانات في الـ Back End

ونفس الشي بالنسبة للـ ComboBox عايزه يظهر على نموذج ولكن يستمد بياناته من قاعدة البيانات الخلفية.

مع الشكر

شكرا أيها الفائق الاحترام. 

جزاكم الله كل خير وأكرمكم بعظيم كرمه وزادكم من علمه

خالص الاحترام والتقدير والشكر العظيم أستاذنا

أخي @Eng.Qassim المحترم

الدالة رائعة ولكنها لم تراعي تباين عدد أيام الشهر. فمثلا: الفترة من 1 فبراير 2021 إلى 28 فبراير 2021 هي في الحقيقة وحسب التقويم الميلادي شهر كامل وليست 28 يوم.

وأرجو من حضرتك خدمة أخيرة لو تكرمت، هل هناك إمكانية أن توافيني بكود أو Query يقوم بتحويل الفترة بين D1 و D2 إلى فترات بمعنى: 

إذا كان D1 هو 5 يناير 2021 و D2 هو 20 أبريل 2022. كيف نقوم بتقسيمها إلى فترات بحيث تبدأ الفترة الأولى من D1 (5 يناير في هذا المثال) وتنتهي بعد شهر (4 فبراير في هذا المثال)، وهكذا حتى نصل إلى آخر فترة، سيكون هناك أيام أقل من الشهر (الفترة من 5 أبريل إلى 20 أبريل) في آخر سجل؟

مع الشكر والاحترام والتقدير لجهودكم

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

إخواني الكرام، عندي تاريخين (تاريخ البدء) و(تاريخ الاتتهاء) 

كيف يمكن فصل الفرق بين التاريخين إلى عدد سوات، وشهور وأيام

مثال: إذا كان التاريخ الأول 1/1/2021 والتاريخ الثاني 24/3/2022

المطلوب: فصل الفرق بين التاريخين ليكون مثلا: 1 سنة، و2 شهر، و25 يوم

مع الشكر مقدما لحضراتكم.

خالص الشكر أخي، ما قصرت

شكرا على الرد. 

بالنسبة للحماية عن طريق كلمة مرور، هناك برامج كثيرة جدا تقوم بكسر أو إظهار كلمة المرور

بالنسبة لطريقة حضرتك هي فعلا رائعة، وسوف أكون في غاية الامتنان لو حضرتك عملت نموذج مصغر منها

خالص الاحترام والتقدير

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

كيف يمكن منع المستخدم من القيام بذلك؟

مع الشكر مقدما