zahof قام بنشر فبراير 10, 2007 قام بنشر فبراير 10, 2007 وجدت برنامج اجنبي لارسال اختصار للقاعدة الى سطح المكتب وكانت به بعض العيوب قمت بتعديلها بحيث يتعرف البرنامج على سطح المكتب والمستخدم الحالي مباشرة ويرسل اليه الاختصار امل للجميع الفائدة ارجوا ممن يحمل البرنامج ويستفيد منه ان يعلق ودمتم سالمين اخوكم ZAHOF _______________________________.rar
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
zahof قام بنشر فبراير 11, 2007 الكاتب قام بنشر فبراير 11, 2007 اخ فؤاد كلامك صح مية في المية ولاحظت ذلك بعد ارفاق المثال ZAHOF
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.