الصمت المتحدث

بعد مضي على ما يزيد عن العام أعود اليوم لأثير الموضوع ذاته الذي عصف بذهني ذات مرة وما زال يحاول العصف ..

تم التطبيق وتمت المراجعة والتمحيص في الأمر وتبين أن سبب الرسالة الظاهرة

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

في حالتين اثنين :

- الأولى عندما يكون التاريخ المعتمد مساوي لتاريخ الجهاز

- الثانية عندما يكون التاريخ المعتمد أقدم من تاريخ الجهاز

فما عدا ذلك يتم التجميع بدون أدنى مشاكل ولا رسائل خطأ

وفي حالة التجميع بالاعتماد على حقل نص HorizontalByTexe يتم التجميع كذلك بدون أدنى مشاكل

نتمنى حل لمشكل التاريخ هاته

بارك الله فيك أخي نارت على التعقيب وعلى كل شيء تنويهك في محله إن كان هناك أي فرض فعلى المبرمج أولى حتى يتأتى للقاعدة الديناميكية التي تخول لها التأقلم مع مختلف الظروف .. يتواصل البحث

وألف شكر أخي أيمن على المرور

دمتم في حفظ الله

بارك الله فيك أبا خليل

جزاك الله عنا خير الجزاء

دمت في رعاية الرحمان

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

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

للأمانة لا فضل لي في الأكواد المستخذمة إلا البحث والتجميع ليس إلا ..

حاولت ارفاق الملف لكن من دون جدوى لم يفلح الرفع عن طريق المنتدى رغم صغر الحجم وكبر الصبيب

عموما تم الرفع على ميديافاير

http://www.mediafire...t4f1zo1d1j5qoc4

على أمل اللقاء أستودعكم الله

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

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

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

ولو .. على السعة والرحب

البركة فيك أخي الغالي

هذا من فضل ربي ..

والحمد لله

هو بالفعل من حيث السهولة فهو سهل

تشكر أخي أبى خليل على مرورك

وعلى الترجمة كذلك

بسم الله الرحمن الرحيم

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

ازدواجية اللغة هي أن تعتمد أكثر من لغة لبرنامجك وأن لا يتعدى عدد اللغات المضمنة أكثر من لغتين، كما هو موضح من عبارة "ازدواجية"

متى نحتاج إلى إزدواجية في اللغة ؟

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

المتطلبات :

لن يتطلب الأمر منك الكثير ..

فقط جدول نسميه language""-أو سميه بما يحلو لك- يتكون من خانة واحدة من نوع (text)

ونموذج لاختيار بين اللغة أي لغة تريد إعتمادها

إضافة إلى وحدة نمطية تجدونها مرفقة ضمن المثال

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

قد يتساءل البعض ويقول كيف يمكن لهذه الوحدة النمطية أن تتكلف بترجمة كل ما أكتبه أنا باللغة العربية إلى الفرنسية مثلا,

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

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

الآن بعد أن تعرفنا دور الوحدة النمطية نأتي للمرحلة التالية ألا وهي الترجمة

كيف تتم عملية الترجمة ؟

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

بعد الانتهاء من ترجمة جميع العناوين والألفاظ الظاهرة في البرنامج نأتي إلى تفعيل هذه التغييرات من خلال عمل دالة بحث تنقب في جدول language لمعرفة اللغة الحالية المعتمدة

والمثال المرفق يلخص مجمل ما جاء وما تبقى في هذا الموضوع.

وهذه صور من احدى برامجي للخاصية

اللغة العربية

اللغة الفرنسية

Changer de langue.rar

مشكوربن جزيل الشكر

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

دمت في ود وسلام

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

إخواني الأفاضل منذ فترة وأنا أواجه مشكلة حاولت التنقيب لها عن حل فلم أتمكن حتى اللحظة

المشكل هو اختفاء أيقونة القاعدة من شريط المهام عن فتحها بشكل عادي

ظهر المشكل بعد أخفاء خلفية الأكسس بالكود التالي

Option Compare Database

Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Sub HideAccess()

Call ShowWindow(Access.hWndAccessApp, 0)

End Sub

هل يا ثرى المشكل في الكود المستعمل أم هناك تفسير آخر للأمر؟

وهذا مثال مرفق يوضح المشكل

Base de données1.rar

الحمد لله الذي هداني الى هذا الصرح الطيب بمن فيه

الحمد لله الذي كتب لي التعامل والتعلم من إخوة غاية في النبل والتخلق

الحمد لله رب العالمين

اخوتي الأفاضل لربما أكون أقلكم إلماما بالأكسس وفاعلية في المنتدى

لكن والذي نفسي بيده لما أرتاد المنتدى وألحظ غياب بعضكم ألتمس بدل العدر أعذار

وأدعو في قرارة نفسي لكم بالصحة والعودة الميمونة بإذن الله

وعلى وجه الخصوص أخي نارت الذي كان لي شرف الاحتكاك به

الآخ الذي لطالما شد بيدي وكان دوما السند والعون الذي اعتز به

فشكرا لكم شكرا لكم شكرا لكم

على حسب ما فهمت من موضوع الأخ أنه يريد التعديل على قاعدة من نوع mde بشكل عام. ولم يحدد على أي مستوى، هل على الأكواد أم على مستوى الشكل للنماذج ؟

على العموم كانت نيتي الافادة لا غير ..

خي الفاضل ..

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

طالما ان تريد طريقة فتح التصميم في قواعد البيانات MDE والتعديل فدعني اشرح لك الطريقة وعليك التطبيق :

1. افتح برنامج الاكسيس فقط ( لا تفتح اي قاعدة بيانات ) انتبه تطبيق الاكسيس MSACCESS.EXE سيفتح لك خاليا .

2. اضغط على المفتاحين ALT + F11 في لوحة المفاتيح ليظهر لك محرر الفيجول بيسك او من خلال قائمة الادوات ثم ماكرو ثم محرر الفيجول بيسك . وسنرى اداة التصميم ( المثلث الازرق ) غير فعال الان قم بتصغير محرر الفيجول بيسك وسنعود لبرنامج الاكسيس بشاشته الرمادية الخالية .

3. من قائمة الاكسيس العلوية نختار ملف ثم نفتح اي قاعدة بيانات من نوع MDE مع الضغط على مفتاح Shift لضمان ظهور كائنات قاعدة البيانات ومن ضمنها النماذج .

4. نقوم بفتح اي نموذج لكي يتم التعديل عليه والعبث بمحتوياته او تغيير معالمه فقط دون التمكن من الدخول على الاكواد فلن تستطيع الدخول عليها لانها محميه .

4. نعود لمحرر الفيجول بيسك الذي قمنا بتصغيره سابقا ونفتحه .

5. سنلاحظ ان زر التصميم ( المثلث الازرق ) اصبح فعال الان .

6. عند الضغط على زر التصميم سيتم فتح النموذج في وضع التصميم ( وهذا ما نريده وهو المطلوب )

7. يمكنك الان حذف وتغيير وتشويه وجه معالم النموذج وتغيير الوانه وتعديل مسميات ازرار الاوامر على كيفك .

8. بعد الانتهاء من التخريب والتشوية والتعديل اضغط على المفتاحين Ctrl+S من لوحة المفاتيح لحفظ التعديلات التي تمت على النموذج .

9. اخرج من البرنامج واعد فتح القاعدة وانظر لتعديلاتك التي تمت سابقا .

ملاحظة : هذه الخطوات فقط لتعديل التصميم اما الاكواد فقد تم تحويلها الى بيانات ثنائية Binry

كان هذا نص رد الأخت زهرة باحدى المنتديات العربية ردا على نفس الاستفسار

أتمنى لك الفائدة

الحمد لله

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

ونحن متأكدون من عمله على كل أنظمة تشغيل ويندوز

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

CreateObject("Scripting.FileSystemObject").GetDrive("c:\").serialnumber

ولكن عذراً لم أتبين من الإخوة

هل الكود يعمل في ويندوز 64 بت بدون تغيير الكود إلى Win64_

أم احتاج الأمر لتغييرها؟؟!!

رجاء الى الاخوة كل من شارك في الموضوع المرجو الافادة في كيفية استغلال هذا المثال

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

أن رقم القرص الصلب يتغير عند اعادة تنصيب النظام لكن في الرد المقتبس قال أخي محمد صالح أنه لا يمكن أن يتغير حتى بعد الفورمات

بعد هذه العبارة انشددت لهذا الموضوع نظرا للخدمة الرائعة التي يقدمها

أود من حضرتكم لكل من توفر له الوقت وأحب تقديم المساعدة أن يرفق لي مثال عن كيفية استغلال ما جاء به أخونا محمد

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

وشكرا

نطاق السنوات ... Year Loop

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

كل ما عليك فعله : إنشاء وحدة نمطية جديدة ولصق الكود التالي بها ، ومن ثم حفظها ...

Function YearLoop() As String

Dim YearHold As Date

Dim strSQL   As String

Dim i		As Integer

Dim n		As Integer

	n = 10

	strSQL = ""


	For i = -10 To n

	   YearHold = DateSerial(Year(Date) + i, 1, 1)

	   strSQL = strSQL & Format(YearHold, "yyyy") & "; "

	Next i


	YearLoop = strSQL

End Function

وفي حدث عند الفتح للنموذج نضع الكود لتكون نتائج الوحدة النمطية مصدر الصف لقائمة التحرير والسرد Text7

Private Sub Form_Load()

Me.Text7.RowSource = YearLoop()

End Sub

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

هل يمكن تطبيق نفس المثال على الأشهر؟

ما شاء الله عليك أخي نارت

ما كل هذه الدرر

صراحة زاد يستحق الثتبيت حتى تعم الفائدة و إظفاء الجديد من بنات الأفكار على الكشكول

تفضل مجموع ساعات العمل

الحضور Upوالغياب.rar

بخصوص اعادة خلفية الأكسس للعمل يكفي استبدال القيمة 0 بـ 1

Call ShowWindow(Access.hWndAccessApp, 0)

Call ShowWindow(Access.hWndAccessApp, 1)

شكرا جزيلا أخي نارت على كل وقتك وتعبك معي أخي

وسامحني إذا ما أثقلت بطلباتي و زادت تساؤلاتي

فكما تعلم أخوك في بداياته وبفضل وقفة مثل هذه تنير له الدرب

وتهديه الطريق المختصر

تم التحميل وجاري التحليل والتمحيص في المرفق

وإن شاء الله يكون تمام

دمت بألف خير وعافية

الله عليك يا نارت

ما شاء الله

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

أخي أواجه نفس مشكلة الآهتزاز عند اخفاء خلفية الأكسس بخصوص Cadre

عند مرور الماوس فوقه أو عند النقر على أحد الأزرار يهتز ويعطي فلاش أبيض

جاء على بالي اقتراح إذا كان ممكن طبعا تطبيقه

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

راح يكون حل مثالي بالنسبة للنماذج التي تملء الشاشة

في حالة تفشي كلمة السر والقاعدة مغلقة حينها ماذا يمكن عمله كحل ؟

طبعا إذا ما وصلنا لهذه المرحلة فسيكون من الصعب تغيير كلمة السر

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

يفيد في تغيير كلمة السر اذا ما انتشرت

في انتظار حل شيق أستودعكم الله الذي لا تضيع ودائعه

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

مشكورين جزيل الشكر