ابراهيم - ابو ريان

شكرا لك اخي منتصر عندما تقوم بتشغيل ملف اكسس من سطح المكتب مثلا فانت تشغله من خلال الايقونة الخاصه بهذا الملف (icon) اذن فنحن نريد اخفاء صورة المفتاح وهو الشعار الخاص بالاكسس في هذه الايقونة واستبداله باي شعار آخر آمل ان يكون قد اتضح ما اريد هذا المثال المرفق اخي منتصر تم عمله على الفيجوال بيسك الا اني وبصراحه عندما نسخت الاكواد على الاكسس لم يعمل معي ربما اني لم استطع فهم الكود . change_icon.zip

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

لقد وجدت امثلة عديدة في ربط الجداول بالكود ولكن المشكله هو بطء عمل تلك الأكواد عندما يكون ربط الجداول على الشبكه ، بحثت كثيرا ووجدت هذا المثال(جزى الله خيرا من قام بعمله) الذي يقوم بربط قاعدة البيانات اذا كان كل من الواجهه وقاعدة البيانات في نفس المسار ولانه لم يفي بالمطلوب كون المطلوب هو ربط قاعدة البيانات بالواجههة عندما تكون قاعدة البيانات على السيرفر (في مسار مختلف عن الواجهه) الا انه فتح الطريق امامي للتعديل عليه ليفي بالغرض وحتى يتم ربط قاعدة البيانات آليا حيث ما وجدت . _______________________________________.rar ____________________________________________________.rar

اخي الغالي " منتصر الانسي " بارك الله فيك وجزاك الله خيرا على تواصلك

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

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

نعم تسجيل الاداه برمجيا والحمد لله توصلت الى كود بسيط يمكنني من تسجيلها برمجيا دون الحاجه الى الطريقه اليدويه ، بقي فقط عمل كود لنسخ المكتبه من مسار قاعدة البيانات الى system32 ارجو اكما ل الموضوع تم ارفاق الملف بعد تعديله barcodex2.rar

اخواني هذا الموضوع بحثت عنه كثيرا ولم اصل الى نتيجه " تسجيل الاداوات برمجيا " مثال على ذلك المثال المرفق به اداة الباركود اريد ان اضع كود عند تحميل النموذج يتم تسجيل الاداة من المسار الحالي للبرنامج دون الحاجه لتسجيلها بالطريق العادية ادوات ثم - active_x control ثم تسجيل فهذه معروفه لدي آمل ممن لديه علم بذلك افادتي وجزاكم الله خيرا barcodex.rar

شكرا على المرور

ارفق المثال وبنعدلك عليه ان شاء الله حسب طلبك

ارفق المثال وبنعدلك عليه ان شاء الله حسب طلبك

افرض ان لديك موظفين وقد قمت بتغييبهم جميعا في تواريخ معينه في الحقل "غياب "فكيف ستعيد تغيير قيمة الحقل هذا ما كنت ابحث عنه منذو فترة وقد وجدت مثالا يقوم بتغيير قيمة الحقل في الجدول ولكن بدون تحديد تواريخ هذا المثال الذي اعددته (بفكرتي الخاصه)يقوم بتغيير القيمة حسب التواريخ وحسب القيمة المختاره آمل ان اكون قدمت ما ينفع ____________________.rar

اخي جزاك الله خيرا على ردك الكريم الكود الذي لدي في المرفق يقوم باخذ مسار الملف اما طلبي فهو ان ياخذ مسار المجلد فقط قد لا تستطيع تحميل المجلد لوجود مشكلة في التحميل من المنتدى اذن فالكود الذي لدي هو التالي Dim ofn As OpenFileName ofn.lStructSize = Len(ofn) 'ofn.hwndOwner = Me.Hwnd 'ofn.hInstance = App.hInstance ofn.lpstrFilter = "Mdb Files (*.mdb)" + Chr$(0) + "*.mdb" + Chr$(0) + "Mde Files (*.mde)" + Chr$(0) + "*.mde" + Chr$(0) ofn.lpstrFile = Space$(254) ofn.nMaxFile = 255 ofn.lpstrFileTitle = Space$(254) ofn.nMaxFileTitle = 255 ofn.lpstrInitialDir = CurDir ofn.lpstrTitle = " MT Software " ofn.flags = 0 Dim A A = GetOpenFileName(ofn) If (A) Then Me![oldfile] = Trim$(ofn.lpstrFile) 'MsgBox "File to Open: " + Trim$(ofn.lpstrFile) Else MsgBox "Cancel was pressed" End If Exit Sub CmdBrowseErrHandler: If Err.Number = 32755 Then MsgBox " You did not change the file name ", 64, "Alert Message " ElseIf Err.Number = 20477 Then MsgBox " Invalid file name ", 16, "Alert Message " Else MsgBox Str(Err.Number) + Err.Description End If Exit Sub ________.rar

لا زلنا بانتظار مساعدة الاخوة الاعزاء

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

ارجو اعلامي ما الخطأ فيه - لماذ لا يعمل ؟ restart.rar

اريد ان اضيف 5 دقائق الى الوقت الحالي TIME() فما هي الطريق لذلك جزاكم الله خيرا

لدي حقلين a و b a = الوقت #1.00.00# b = الوقت #1.30.00# اريد من الكود اذا كان الوقت الحالي للجهاز واقعا بين القيمتين a و b تنفيذ امر معين حاولت بالطريقة التاالية if time () between a and b then ولكن لا فائده يرجع بخطأ فهل هناك طريقة اخرى بارك الله فيكم

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

من المعروف ان كتابة التاريخ في حقل عن طريق الكود يتم بكتابة [الحقل] = DATE ولكن يلاحظ تحول الكلمه DATE الى date بعد كتابتها ولا يتم اظهار التاريخ عن طريق الكود بحثت كثيرا ولكني لم اعرف السبب ارجو المساعده

ضع زر لفتح التقرير او النموذج الذي مصدره هذا الاستعلام وفي حدث عند النقر on click ضع ذلك الكود

ضع كود فتح الإستعلام بهذه الطريقه DoCmd.SetWarnings False DoCmd.OpenQuery "اسم الاستعلام لديك"

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

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

مساء الخير هذا برنامج لتصميم الأزرار حصلت عليه من فترة أرجو ان يستفاد منه ____________________.zip