صالح حمادي

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

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

كلنا خطاء و خير الخطائين التوابين لقد قمت بإزالة التعليقات السابقة

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

السلام عليكم تفضل الكود التالي يقوم بطباعة الصورة مباشرة بدون عرضها في تقرير Dim imgPath As String Dim app As Object ' تحديد مسار الصورة imgPath = CurrentProject.Path & "\Pictures\" & Me.nn & ".jpg" Set app = CreateObject("Shell.Application") ' فتح الصورة في عارض الصور الخاص بالأوفيس app.Open imgPath ' طباعة الصورة Dim objShell As Object Set objShell = CreateObject("Shell.Application") objShell.Namespace(0).ParseName(imgPath).InvokeVerbEx ("print") Set app = Nothing Set objShell = Nothing print picture.rar

السلام عليكم لتغيير القيمة الخالية يمكن استخدام دالة Nz me.text1=Nz(x,0) اذا كانت x قيمة خالية سوف يكتب مكانها 0 و الا سوف يضع قيمتها الحقيقية

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

أهلين أخي ليك وحشة كبيرة للأسف هذه الطريقة لا تعمل لان القاعدة تم اغلاقها أهلين أستاذ خليفة هذه خاصة بــ sql server

تلك هي المشكلة توجد نسخة احتياطية لكن قديمة

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

بارك الله فيك دكتور محمد

كلمة المرور او اسم المستخدم خطأ

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

ابحث عن موقع مشابه أو أي مثال آخر لنحاول مساعدتك من خلاله

السلام عليكم أعطيني الموقع لأرى أخي

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

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

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

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

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

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

هذا الكود هو رمز زر الأمر أو نستطيع وضع مكانه acCommandButton مثلا مربع النص 109 و label رمزها 100 و هكذا

السلام عليكم الكود التالي يمكنك من تغيير التسمية الظاهرية للأزرار في نموذج آخر اسمه frm1 Dim frm As Form Dim fc As Control Set frm = Form_frm1 For Each fc In frm.Controls If fc.ControlType = 104 Then fc.Caption = "officena" End If Next fc Set frm = Nothing التحكم في الأزرار.accdb

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

لم أفهم قصدك