محمد طاهر عرفه

في حالة الحقل الرقمي لتحديث قيمة الي 100 DoCmd.RunSQL "UPDATE [tablename] SET [tablename].[fieldname] = " & 100 & " where(((tablename.fieldname)=[Forms]![formname]![fieldname]));" فى حالة الحقل النصي مطلوب تحديثه الي fff DoCmd.RunSQL "UPDATE [tablename] SET [tablename].[fieldname] = '" & "fff" & "' where(((tablename.fieldname)=[Forms]![formname]![fieldname]));" مثال لتحديث كلمة السر فى جدول بعد التأكد من اسم المستخدم و كلمة السر الحالية حيث هناك مربع نص علي النموذج به اسم المستخدم و كلمة السر و يقوم المستخدم بادخال كلمة السر القديمة و بعد مقارنتها بالاصلية يتم ادخال القيمة الجديدة و تحديثها فى الجدول Private Sub CmdChangePass_Click() Dim x, xx As String x = InputBox("Enter your current password", "Change your password - Step 1") If x = Me.PASS Then xx = InputBox("Enter your new password", "Change your password - Step 2") DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE [USER] SET [USER].[Password] = '" & Trim(xx) & "' where(((USER.Initials)=[Forms]![Start]![users]));" MsgBox "password changed !! ", vbExclamation, "Confimation message" DoCmd.SetWarnings True Else MsgBox "Sorry wrong password", vbCritical, "Incorrect Current Password" Exit Sub End If End Sub

راجع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=2722&hl= ايضا يمكنك استخدام المفتاح المركب كما فى الموضوع رقم 5-2 هنا http://www.officena.net/ib/index.php?showtopic=2218 و هذا الموضوع http://www.officena.net/ib/index.php?showtopic=1724&hl= و للمزيد حول دوال تجميع المجال شرح دوال تجميع المجال http://www.officena.net/ib/index.php?showtopic=152&hl=

موضوع مرتبط ( الترقيم فى الاستعلام ) http://www.officena.net/ib/index.php?showt...findpost&p=2379

يرجي مراجعة المثال هنا http://www.officena.net/ib/index.php?showtopic=52

موضوع مرتبط تشغيل ملف خارجي من الاكسيس - مثال جديد بدون الحاجة للامر shell http://www.officena.net/ib/index.php?showtopic=9391

يوجد فى الارشيف موضوع تشغيل تطبيق خارجي ( فتح ملف من برنامج مختلف ) http://www.officena.net/ib/index.php?showtopic=1053 و الذي فيه اعتماد علي الامر shell و عيبه انه يحتاج الي معرفة مسار التطبيق بالنسبة لكثير من التطبيقات اما المثال الجديد فلا يحتاج لذلك فقط اانقر نقرا مزدوجا علي مربع المسار لاختيار الملف ثم اضغط علي الزر لتشغيل الملف ايا كان مسار التطبيق علي جهازك و الفكرة بسيطة و تعتمد علي تغيير خاصية ال HyperlinkAddress للزر في حدث النقر عليه runapplication.zip

موضوع مرتبط اختبار وجود مرجع محدد ثم اضافته اذا لم يكن موجود http://www.officena.net/ib/index.php?showtopic=9390

هذا الكود للتأكد من وجود مرجع Microsoft Word 11 object library و اذا لم يكن موجود يتم اضافته بالكود Dim Ref As Reference, mypath As String, myreffound As Boolean myreffound = False For Each Ref In References If Ref.Name = "WORD" Then myreffound = True End If Next If myreffound = False Then mypath = "C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB" Set Ref = References.AddFromFile(mypath) End If مع ملاحظة انه طبعا يمكن الاضافة من ملف موجود فى اي مسار موضوع مرتبط كيفية نقل المراجع بالكود و اضافتها ثانية, http://www.officena.net/ib/index.php?showtopic=1885

لكي لا تظهر الرسالة يمنكك اختيار اقل مستوي Low و يمكن التحكم برمجيا بمستوي أمان الماكرو التحكم فى مستوي أمان الماكرو بالكود http://www.officena.net/ib/index.php?showtopic=26&hl=الماكرو

أولا تأكد من تفعيل الماكرو Tools Macro security low or medium ثم ضع الكود التالي فى كود الوثيقة Document Private Sub Document_Open() Dim mydate As Date mydate = #8/15/2005# If Date >= mydate Then MsgBox " This file can not be open starting from" & Str(mydate) & " Sorrry !)" ActiveDocument.Close End If End Sub كما في الملف المرفق و لفتح الملف و تجاوز الكود اضغط شيفت اثناء الفتح closefile.zip

اللهم صلي علي سيدنا محمد و علي آله و صحبه و سلم عدد ما أحاط به علمك و خط به قلمك و أحصاه كتابك و ارض اللهم عن ساداتنا أبي بكر و عمر و عثمان و علي و عن الصحابة أجمعين، و عن التابعين و تابعيهم باحسان الي يوم الدين

أهلا وسهلا بك و نرجو أن تفيد و تستفيد

جزاك الله خيرا

:( (y)

أعتقد أن ما تريده لا يمكن أن يأتي من خلال التنسيق مباشرة و الله أعلم و انما عليك انشاء ماكرو و تشغيله اما التنسيق الالي فلا أعتقد بان ذلك متاح فيه ( 5 خيارات )

تم اضافة الوضع الثاني الي الملف

عن طريق ال Validation بان تضع شرط علي الخلايا B1 , C1 بأن قيمة d1 لا تتعدي A1 السطر الاول : اذا كانت المعادلة فى الخلية D1 و مطلوب التحكم فى B1,C1 السطر الثالث اذا كان D3 ليس به معادلة و مطلوب التحكم فى القيمة المدخلة فيه ValidationSum2.rar

يمكنك الاستفادة من كود الاخ سيد هنا http://www.officena.net/ib/index.php?showtopic=3331

http://www.officena.net/ib/index.php?showt...indpost&p=37836

السلام عليكم الكود غير مرتبط بالاصدار و المفترض أنه يعمل مع اي اصدار لانه تطبيق لامر send keys اعتقد ان المشكلة قد تكون ليس فى الكود نفسه و لكن فى مكان وضعه فالكود يجب ان يوضع فى مكان الاكواد الخاص بالملف ككل و ليس فى ورقة عمل افتح الملف اضغط alt+f11 انقر نقرا مزدوجا علي كلمة this workbook ثم ضع الكود و تأكد من أن الاكواد مفعلة فى الملف و ذلك من Tools macros security و تأكد أنها medium or low

الحل الأمثل هو الذي تفضل به الأخ علي و لكن اذا اردت الاكواد فيمكنك مراجهة هذا الموضوع فى قسم الاكسيس http://www.officena.net/ib/index.php?showt...=1534&hl=لتقسيم

الملف علي اوفيس 2003 altshift.rar

لمن لم يستطيعوا التحميل ، تم اضافة وصلة فى أول مشاركة للملف الذي رفعه الأخ خضر فى مشاركة تالية مع الشكر للأخ أيمن

هناك عد حلول ان تختار نوع التنسيق فى الخلية نصي Format cell text او أن تضع علامة ' فى أول الكتابة أو ان تختاره رقمي بتنسيق مخصص 00000000 او بحسب عدد الاصفار لديك

اعتقد صعب وجوده علي النت للتحميل لانه عبارة عن اسطوانة منفصلة و حجمها حوالي 80 ميغا