صالح حمادي

السلام عليكم و رحمة الله تعالى و بركاته استخدم الكود التالي سوف يعطيك أسماء جميع الأزرار Dim frm As Form Dim fc As Control Set frm = Me For Each fc In frm.Controls If fc.ControlType = 104 Then MsgBox (fc.Name) End If Next fc Set frm = Nothing

السلام عليكم و رحمة الله تعالى وبركاته لقد قمت بتصميم برنامج لمحل تجاري يستخدم 3 أجهزة كمبيوتر في نفس الوقت و صادفتني هذه المشكلة إستخدمت العديد من الحلول لكن تبقى دائما فيها بعض النقائص في لحظات معينة فإهتديت لهذا الحل بأقل أكواد و بدون رسائل أخطاء. قمت بإضافة جدول في برنامج الواجهة و أضفت له حقل رقم الكمبيوتر و نموذج مرتبط به يستطيع المستخدم من خلاله تغيير رقم الكمبيوتر طريقة الترقيم: في خانة القيمة الإفتراضية للحقل بالنموذج نضع كود لجلب أكبر رقم الدالة dmax و نربط معها رقم الجهاز Dmax("id_facture";"tbl_facture") & "." & Dlookup("id_pc";"tbl_pc") id_pc هو رقم الكمبيوتر بهذه الطريقة تصبح الأرقام المنتجة هكذا 1001.1 و 1001.2 يعني لن يحدث أي إعتراض حتى و لو تم إضافة سجل جديد في نفس اللحظة أو تستطيع تغيير الجزء الأول بالدالة التي وضعتها لإنتاج رقم الفاتورة و تحتفظ بالجزء الثاني

هذا الموضوع خاص بالفجوال دوت نت

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

لقد قامت ميكروسفت بإيقاف هذه العملية على ما أعتقد

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

بالتوفيق إن شاء الله الله يحفظك أستاذنا من كل مكروه الله يحفظك أخي

السلام عليكم معذرة لتأخري لأنني صرت أعمل في المزرعة عوضا عن أبي المريض في هذه الأيام. الله يشفيه. أخي حسين الكود الأول الذي تقدم به أستاذنا جعفر و كذلك الذي تقدمت به أنا يقومان بالواجب. فكل ما عليك هو إضافة كود استخراج تاريخ الجهاز ثم المقارنة بينهما أما بالنسبة لشرح الأكواد فهو كالتالي: هذا الكود يقوم بفتح الإتصال مع sql server مع العلم أن master هي قاعدة بيانات النظام في sql server هنا قمنا بتنفيذ إستعلام داخل السرفر و أسندنا النتيجة لمصدر السجلات RS GETDATE() هو كود يقوم بجلب التاريخ الحالي في sql server و تستطيع كتابة العبارة التالية في sql server لترى النتيجة select GETDATE() MsgBox RS(0) هنا قمنا بعرض السجل الأول في المصدر RS مع العلم أن بها سجل واحد فقط هنا قمنا بإعلاق الإتصال مع SQL SERVER

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

السلام عليكم لقد وصلت متأخرا فوجدت الأستاذ جعفر فعل كل شيء ما شاء الله عليه. لذلك سوف أضع مشاركتي على الرغم أنها تشبه كثيرا كود الأستاذ جعفر Dim str_conn As New ADODB.Connection Dim RS As New ADODB.Recordset str_conn.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=master;Data Source=" & Me.Comp1 Set RS = str_conn.Execute("select GETDATE()") MsgBox RS(0) Set RS = Nothing str_conn.Close Me.Comp1 هو اسم مربع اسم السرفر

السلام عليكم ضع كود الحذف بعد السطر الأول في هذا الكود : If MsgBox("هل تريد فعلا حذف البيانات", vbYesNo, "حذف بيانات") = vbYes Then 'كود الحذف Else MsgBox "لقد تم إلغاء عملية الحذف" End If

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

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

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

الشكر موصول لك أيضا أستاذنا لأنك من وضع فكرة إضافة هذه الخاصية للشريط هذا البرنامج بصيغة accdb و اعمل ما تشاء accdbشريط طباعة.rar

العفو أخي

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

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

الموضوع جاهز أستاذ جعفر عليك بالذهاب للموضوع و الإطلاع على هذه الخاصية

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

بارك الله فيك أخي لقد تم حل المشكلة بتعديل الخيار Discovery SSDP

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

مازلت لم أتوصل إلى حل بعد هذه الخاصية لم أجدها

أخي الكريم إنه من الخطأ عمل compact and repair تلقائى فهذا يؤدي إلى تلف البرنامج لقد استعملتها من قبل و كانت النتائج دائما تلف البرنامج لذلك اجعل الضغط و الإصلاح يدويا من حين إلى آخر

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