صالح حمادي

السلام عليكم و رحمة الله تعالى و بركاته إن من بين الأشياء الأكثر إرهاقا التي تعيق عمل المبرمجين هو تحديث قاعدة البيانات لدى الزبون فلا تستطيع إعطاءه قاعدة جديدة لأن جميع بياناته مسجلة في تلك القاعدة أما إضافة التحديث يدويا هذا يتطلب منك التنقل إلى الزبون أو الإتصال عن بعد و ربما الزبون لا يملك الأنترنت و الأكثر من ذلك ربما نستطيع التحديث يدويا لقاعدة البيانات و ماشي الحال فرضا هذا الشخص له عدد كبير من النسخ الإحتياطية 60 أو 70 أو أكثر و أراد ربط البرنامج بأحد النسخ الإحتياطية هل يتوجب على المبرمج التنقل له مرة ثانية؟؟ لكل مبرمج طريقته الخاصة بإضافة التحديث لقاعدة بيانات الزبون مع الحفاظ على بياناته سوف أقوم بطرح طريقتي التي أعمل بها و أتمنى من زملائي الأساتذة ممن لديهم طرق أخرى طرحها من أجل إثراء الموضوع. أولا: أنا أضع وحدة نمطية في ملف الواجهة تتحسس لوجود التحديث في قاعدة الخلفية إن لم تجدها فتقوم تلقائيا بإضافة هذا التحديث. الكود يعتمد على أوامر SQL و قد سبق لي أن شرحت هذه الدوال في هذا الموضوع: شرح دوال SQL التحديث هو عبارة عن إضافة جدول جديد أو إضافة حقل لجدول موجود الوحدة النمطية التالية: تقوم بإضافة جدول جديد لقاعدة البيانات اسمه tbl2 و إضافة حقل Age لجدول tbl1 Function edit_db() On Error Resume Next Dim app As Access.Application Dim file_data As String Dim sq As String 'مسار القاعدة file_data = CurrentProject.Path & "\DB.mdb" Set app = CreateObject("Access.Application") app.OpenCurrentDatabase (file_data) app.Visible = False DoCmd.SetWarnings False 'كود إنشاء جدول sq = "CREATE TABLE tbl2_fav ( id COUNTER PRIMARY KEY, name_adm text(50), num integer)" app.DoCmd.RunSQL sq ' كود إضافة حقل لجدول موجود sq = "ALTER TABLE tbl1 ADD COLUMN Age integer" app.DoCmd.RunSQL sq DoCmd.SetWarnings True app.Quit acQuitSaveAll Set app = Nothing MsgBox "تمت العملية بنجاح" End Function ونقوم بإستدعاء هذه الوحدة النمطية عند فتح ملف الواجهة حاول تحذف الجدول tbl2 و الحقل Age من الجدول tbl1 من الملف db و شغل الملف programme ثم أعد فتح ملف db سوف تجد البرنامج قد أضاف الجدول و الحقل تلقائيا. update-db.rar

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

ألف مبروك أستاذ @essam rabea تستاهل زادك الله من علمه و نفعك به إن شاء الله

أتمنى أن تضع لنا مثال على هذه الطريقة صديقي

السلام عليكم شكرا جزيلا أستاذ على هذا المثال الرائع و هذه طريقة أخرى وجدتها في منتدانا الغالي و أظنها للأخ محمد سوداني إضافة هذا الكود إلى وحدة نمطية Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long Function Playsound(sWavFile As String) If apisndPlaySound(sWavFile, 1) = 1 Then End If End Function و نضع هذا الكود خلف زر أمر أو أي حدث آخر Playsound (Application.CurrentProject.Path & "\ringin.wav")

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

السلام عليكم هذا مثال لتثبيت الخط داخل الونداوز من داخل ملف الأكسس إضافة خط للونداوز.rar

لقد قمت بإضافة التعديل في المشاركة.

السلام عليكم جرب هذا التعديل text.rar

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

مشكور أخي الكريم

السلام عليكم تفضل أخي هذه طريقة أخرى للحل و بسطر وحيد تحديد عدد سجلات فى التقرير-تم الحل.rar

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

لاحظ الكود جيدا سوف تجد أنني عرفت متغيرا في أعلى صفحة الأكواد بهذا الشكل: Dim n As Integer يجب عليك إضافته

تفضل هذا التعديل تحاليل طبية.rar

السلام عليكم هذا مثال بسيط يقوم بإرسال بيانات مربع نص إلى مربع البحث في صفحة غوغل يمكنك الإستفادة منه web.rar

السلام عليكم تفضل جرب هذا المرفق فتح نموذج.rar

كود ممتاز لقد قمت بالتعديل على المرفق ليتم البحث خلال الكتابة بحث.rar

يمكنك الوصول إلى ما تريد بإستخدام طابعة افتراضية تقوم بطباعة التقرير على شكل صورة بالصيغة التي تريدها و هذا رابط البرنامج: https://download.cnet.com/ImagePrinter-Pro/3000-18497_4-75906022.html

حاليا لا توجد طريقة لتصدير التقرير بهذا الشكل إلى صورة فقط نستطيع تصدير التقرير الذي يكون فيه سجل واحد

أرفق مثال للتعديل عليه

السلام عليكم تفضل هذا الكود يقوم بإنشاء جدول به 3 حقول تستطيع التعديل عليه كما تشاء: Dim sq As String sq = "CREATE TABLE Cars1 (Name1 TEXT(30)PRIMARY KEY, Year TEXT(4), Price CURRENCY)" DoCmd.RunSQL sq

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

السلام عليكم إليك طريقة لتشغيل ملف صوتي مع الأكسس ضع هذا الكود في وحدة نمطية جديدة Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long اجعل اسم الملف الصوتي ringin و صيغته Wav و ضعه في في مجلد البرنامج و ضع هذا الكود خلف زر أمر Dim x2 As String x2 = (Application.CurrentProject.Path & "\ringin.wav") If apisndPlaySound(x2, 1) = 1 Then End If و هذا مثال لا أعرف مصدره تشغيل ملف صوتي بالأكسس.rar

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