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

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

ايوة

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

الخطوات