مبتدىء جدا

اضافة الى الرابط العلوي حيث غير مسموح بالرد خلاله هناك برامج يمكنك استعادة الباسوورد من خلالها .... ها هو رابط لاحدى البرامج وحجمة 1.5 ميجا بايت http://lastbit.com/getprg.asp?id=msodemoSetup.exe

تم عمل تغيير بسيط في الكود لكي يعمل مع كلال الواجهتين العربية والانجليزية,,,, ها هو الكود بعد التعديل: Private Sub CommandButton1_Click() Worksheets("Sheet1").Activate Range("A1").Select Application.SendKeys ("^f") End Sub وها هو المثال ايضاً بعد التعديل searc…

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

http://arabteam2000.com/vb/showthread.php?...?threadid=25555

نعم اخي الكريم المثال سليم مائه بالمائه حيث قمت بتجربته مره اخرى الان وعمل بالشكل المطلوب ....

اخي حسام : يمكنك عمل ذلك عن طريق وضع الكود التالي عند حدث النقر لزر الامر الذي تريد ,,,, Private Sub CommandButton1_Click() Worksheets("Sheet1").Activate Range("A1").Select Application.SendKeys ("%ef") End Sub وها هو مثال مبسط تطبيق لذلك ولك التحية (f) search_…

شوف اخي الكريم : هذه الرسالة تظهر بسبب انك لم تنشط مرجع ال Dao ولتنشيطه .. اذهب الى الوحدة النمطية ومن داخلها اذهب الى Tools ثم الى References ثم قم بالتعليم على ... Microsoft DAO 3.6 Object Library ولك التحية(f)

تفضل هذا مثال كما تريد .. ان شاء الله تعالى .... password_shift.zip

ااسف اخي مرسي .... لم ارى ردك الاّ بعد نشر الرد

تفضل المثال بعد التعديل :) db2.zip

اخي العزيز morsy : من قواعد طرح الاسئلة عدم توجيه السؤال لشخص محدد حتى يتسنى للجميع الدخول والاجابه . بالنسبه لأن الكود لا يعمل معك لأنه يجب تقسييم قاعدة البيانات الى القاعدة الاماميه والقاعدة الخلفيه حيث انك تقوم بنسخ القاعده الخلفيه ومثالك به قاعدة واحدة فقط…

اخي الكريم : يمكنك الذهاب الى هذا الرابط حيث به مثال رااااااااااائع يوجد به ما تريد ..... كل ما عليك هو تمعن الكود جيداً ... للعلم هذا المثال احدى بصمات عضو الشرف الكريم فهد الدوسري جزاه الله عنا خير الجزاء ويجعل ذلك في ميزان حسناته ها هو رابط المثال: http://w…

اخي الكريم : يمكنك عمل ذلك بادخال هذا الكود عند حدث قبل التحديث (Before Update) لنموذج الادخال: Private Sub Form_BeforeUpdate(Cancel As Integer) Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst!Number = Me!Number Then MsgB…

لكي لا تسمح بالتعديل الى في حالة سجل جديد ضع هذا الكود في حدث الحالي لنموذج الادخال : Private Sub Form_Current() If Me.NewRecord Then Me.AllowEdits = True Else Me.AllowEdits = False End If End Sub لوضع زر للتعديل: ضع زر امر وفي حدث عند النقر ادخل هذا الكود: Me…

كلمة السر للكود هي : arabteam2000 (f)

جزاك الله كل خير على هذه الفائدة

شكراً اخي الكريم NAWAS

الصور غير ظاهرة ... بالتأكيد لم يعمل معك المثال لأنك قمت بتحديد مستوى امان عالي لوحدات الماكرو ,,,, لكي يعمل اذهب الى Tools ثم الى Macro ثم الى Security ثم قم بالتعليم على مستوى الأمان Low ثم اضغط Ok بعد ذلك قم بإغلاق وفتح الاكسيل مرة اخرى وان شاء الله سوف يعم…

ماذا تعني بكلمة "تذليل"

نعم يمكن هذه احدى الحلول لعمل الدالتين السابقتين في نفس الخلية وبدون جمعهما مع بعض (مع العلم: انه تم وضع مسافة بينهما لتميزهما عن بعضهما) =SUM(C4:C15)& " " &MAX(C4:C15)