محمد طاهر

mtarafa@arabteam2000.com

الملف مرة ثانية علي فكرة أنا واخده copy و paste ;) من الرد اذا عمل معك فربما نكون المشكلة فى شيء ما فى جهازي ؟؟؟ انا استخدم IE6 icanseeyourharddisk.zip

الدالة المستخدمة هي Public Sub Recolor(Bname) Dim Myform As Form Dim ctrl As Control Set Myform = Forms(Screen.ActiveForm.Name) For Each ctrl In Myform.Controls If TypeOf ctrl Is TextBox Or TypeOf ctrl Is Label Then ' Or TypeOf ctrl Is ComboBox Then n = 0 If c…

اعتقد أن هذا يتوقف علي نوع النسخة من ال SQLServer ففي الاصدار 2000 يمكن تحميل النسخة الشخصية علي 98

مرفق الملف توفير لوقتكم icanseeyourharddisk.rar

السلام عليكم شكرا لكما حل محمد صلاح مازال لا يعمل ( جربت بنقطتين و بمسافة و من غير :'( ) و حل ديناميك يعمل و لكن الصفحة الاصلية تختفي <A href="javascript : onClick=mofak()">Click Me salah</a> <A href="javascript : void()" onclick="onClick=mofak()">Click Me Dyn…

لم أفهم المطلوب رجاء التوضيح

الملف المرفق به الكود المكتوب أعلاه مسجل فى ماكرو اضغط alt+f11 لرؤيته و alt+F8 لتشغيله أو شغل الماكرو من القائمة بالطريقة العادية tools macros و فقط افتح هذا الملف فى نفس الوقت مع الملف الذي تريد تطبيق الماكرو عليه و نفذ نفس الخطوات للتعرف علي محرر الفيجوال بي…

لا بد من الضغط لان امتداد xls غير مسموح بتحميله الملف مرة أخري بالوين زيب peacks.zip

أخي محمد صلاح الكود الثاني عمل تمام أما الاول فنفس المشكلة لذلك أريد معرفة طريقة تشغيل الدالة من اللينك ، فهي تعمل بالطريقة الثانية و الثالثة ، أما الاولي فلم تعمل معي كما كتبها الاخ موفق مشكورا و لا كما كتبتها أنت أيضا مشكورا <A href="javascriptnClick=mofak()…

لم تنفع معي الا باستبدال اللينك بصورة أو بزر لماذا ؟؟؟ و هنا استبدلت اللينك بزر و عملت معي <html> <head> <script> function mofak() { window.open('file:///c:/', "YourDrive",'width=400,height=300'); } </script> </head> <body> <!--<a href="java script:mofak()">I …

:rolleyes:نسيت موضوع القطة و سور الصين افتح الملف المرفق فى نفس وقت فتح الملف الذي تريد عمل ذلك عليه و اضغط alt + f8 و اختار الماكرو ثم run

Sub replaceit() spacecount = 0 Selection.WholeStory scount = Selection.Characters.Count For i = 1 To scount If Selection.Characters(i).Text = " " Then spacecount = spacecount + 1 Next For i = 1 To spacecount Application.StatusBar = "Searching ...." & _ i & "/"…

مثال مع ملاحظة أن أول و آخر قيمة المعادلة فيها مختلفة peacks.rar

المشكلة هل توجد قمة واحدة ( اعلي قيمة ) أم أكثر من قمة فى الغالب اكثر من واحدة فهل سيكون المنطق فى التعرف عليها هو أنها أي نقطة قيمتها أكبر مما قبلها و ما بعدها أم هناك منطق آخر ؟؟

سانقل الموضوع لقسم البيزيك لتجد الرد أسرع

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

انا أيضا لا أعلم طريقة لذلك سوي أن تفتح قاعدة جديدة بها رصيد افتتاحي لجميع العملاء و الموردين ، لان اي حل آخر سيؤدي لتراكم البيانات داخل نفس القاعدة و هذا هو الحل الامثل و الله أعلم و للتوجيه بين القواعد المختلفة يوجد مثال فى الارشيف لنموذج بسيط يمكنك ادراجه د…

أشكركم بشدة و بعنف سأجرب و أخبركم أي الحلول قد نفع

مرفق شرح أرجو أن يكون مفيدا و قد أعددته علي عجل فرجاء موافاتي بملاحظاتكم pivot.rar