User user

up

"Dim strDbName As String: strDbName = "E:\System\Database.accdb Dim acc As Access.Application: Set acc = New Access.Application acc.Visible = True " acc.OpenCurrentDatabase strDbName, False, "123 'acc.UserControl = True 'Application.Quit SubDoCmd.SetWarnings False "DoCmd.RunSQL "DELETE * FROM tbl IN 'E:\System\Database'.accdb DoCmd.SetWarnings True الكود اللى حضرتك ارفقته بيفتح الداتا بيز امام العميل ومش بينفذ امر حذف البيانات من الجدول

محتاجة ينفذ الامر بدون ما يفتح الداتا بيز امام العميل

لدى قاعدة بيانات مقسمه وتم وضع باسورد على جزء الجداول ولدى زر عليه الكود التالى DoCmd.RunSQL "DELETE * FROM EDD_tbl IN 'E:\System\Database.accdb عند تشغيله يظهر الخطا 3031 محتاج اكتب الباسورد فى الكود لكى ينفذ الامر

اشكرك على تعبك للاسف السيريال بتاع الهارد بيتغير بعد تغير النسخه

كيفية تحويل الكود ل vba مع تغير الويندوز بيتغير

حضرتك جربت الكود ؟

غير ثابت بيتغير مع تغير الويندوز

شكرا لتعبك محتاج سيريال الهارد

محتاج كود لاظهار رقم الهارد الحقيقى الثابت الذى لا يتغير مع تغير الويندوز او الفورمات REAL Hard Drive Serial Number

ايوه طابعه باركود

ايوة

تتغير فى الفورم ولا تتغير فى شريط المهام لاحظ الصورة

الخطوات

للاسف لم يظبط

كل هذا تم عمله اى ويندوز بعد ويندوز 7 لا تظهر الايقونه المختارة وتظهر ايقونه الاكسيس

للاسف بعد غلق التقرير بترجع الاعدادت كما كانت

كيفية تغير ايقونه البرنامج فى شريط المهام فى ويندوز 8 فما اعلى

ايوة هتكون ثابته كيفية تنفيذ ذلك بالكود المقاس المطلوب عرض5.0 سم ارتفاع 2.5 سم كيفية التنفيذ برمجيا

من فضلك لينك الموضوع ** محتاج يكون المقاسات بالكود لان البرنامج هيكون متحول (.mde) لاحظ حضرتك التقرير البيانات فى طرف التقرير

المطلوب المقاسات تكون بالاكواد تقرير خاص بالملصقات

ايوة

محتاج اصمم تقرير برمجيا العرض الخاص به 5.0 سم والارتفاع 2.5 سم

محتاج اصمم تقرير العرض الخاص به 5.0 سم والارتفاع 2.5 سم