zahof قام بنشر فبراير 10, 2007 مشاركة قام بنشر فبراير 10, 2007 وجدت برنامج اجنبي لارسال اختصار للقاعدة الى سطح المكتب وكانت به بعض العيوب قمت بتعديلها بحيث يتعرف البرنامج على سطح المكتب والمستخدم الحالي مباشرة ويرسل اليه الاختصار امل للجميع الفائدة ارجوا ممن يحمل البرنامج ويستفيد منه ان يعلق ودمتم سالمين اخوكم ZAHOF _______________________________.rar رابط هذا التعليق شارك More sharing options...
helmy_foad قام بنشر فبراير 10, 2007 مشاركة قام بنشر فبراير 10, 2007 (معدل) كود جميل فعلاً عيبة الوحيد انة لا يترك مسافة بعد أن يكتب كلمة ( إختصار لبرنامج) فيتم لصقها بأسم قاعدة البيانات مثلاص لو كان عندك قاعدة باسم : المكتبة سيصبح أسم الإختصار (إختصار لبرنامجالمكتبة ) لذا أعتقد انة يجب وضع مسافة بعد كلمة ( إختصار لبرنامج ) فى الكود التالى : Function DDShortcut() Dim FF FF = Len(CurrentProject.Name) - 4 Dim gg As String gg = " اختصار لبرنامج" & Left(CurrentProject.Name, FF) Call CreateDesktopShortcut(gg) End Function و لكن لقلة خبرتى فى هذة الامور لا اعرف إن كان هذا سيفيد ام لا تم تعديل فبراير 10, 2007 بواسطه helmy_foad رابط هذا التعليق شارك More sharing options...
zahof قام بنشر فبراير 11, 2007 الكاتب مشاركة قام بنشر فبراير 11, 2007 اخ فؤاد كلامك صح مية في المية ولاحظت ذلك بعد ارفاق المثال ZAHOF رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر فبراير 12, 2007 مشاركة قام بنشر فبراير 12, 2007 جهد مشكور يا أخ زاحوف رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.