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

ما شاء الله مثال غاية فى الروعة مبدع كما عودتنا دائما (y)

اضغط end مع السهم الاسفل للوصول الي اخر خلية بها بيانات ثم السهم مرة أخري او Enter

السلام عليكم اخي ابو هادي لم يعمل الملف معي هل سنحدث البيانات فى صفحة events ثم نشغل الماكرو ؟

بفرض ان الكيلو فى العمود الاول و المتر فى التالي و السم فى الثالث Private Sub Worksheet_Change(ByVal Target As Range) Dim aval, bval, cval aval = Range("a" & Target.Row).Value bval = Range("b" & Target.Row).Value cval = Range("c" & Target.Row).Value If ActiveCell.Column = 1 Then If Target.Column = 1 Then Range("b" & Target.Row).Value = aval * 1000 Range("c" & Target.Row).Value = aval * 100000 Exit Sub End If End If If ActiveCell.Column = 2 Then If Target.Column = 2 Then Range("a" & Target.Row).Value = bval / 1000 Range("c" & Target.Row).Value = bval * 100 Exit Sub End If End If If ActiveCell.Column = 3 Then If Target.Column = 3 Then Range("b" & Target.Row).Value = cval / 100 Range("a" & Target.Row).Value = cval / 100000 Exit Sub End If End If End Sub ExcelUnits.zip

راجع هذا الموضوع فى الارشيف http://www.officena.net/ib/index.php?showtopic=2633

عليك بالجداول المحورية http://www.officena.net/ib/index.php?showtopic=150

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

المفرتض ان ال Driver هو الذي يتحكم فى مقاس الورق المتاح للاختيار اما الاختيار فمن اعدادات الصفحة

يبدو لي ان هذا صعب تحقيقه و نجاحه و لكن جرب :h احد اهم العناصر التي لها تأثير فى الموضوع هو محرك الطابعة Driver و احيانا كثيرة يوجد توافق بين كثير من المحركات فيمكنك البحث عن محرك طابعة متوافقة او بلوتر و تكون تسمح بورق اكبر و الطباعة الي طابعتك من خلال المحرك الجديد - يعني تعمل تحميل للطابعة الكبيرة كانها موصلة الي جهازك و تجعلها الافتراضية ثم تنزع درج الطابعة و تحاول تثبيت الازرار الداخلية بحيث تفهم الطابعة ان الدرج فى مكانه ، او تدخل الورق المستمر من الجهة الخلفية كما فى بعض الطابعات او اذا كان فيه خيار Manual Feed فى الطابعة

موضوع مرتبط من هنـــا

فكرة جميلة (y) و هذا رابط لموضوع مشابه و لكن كان المطلوب التعامل معه بالكود http://www.officena.net/ib/index.php?showtopic=42

السلام عليكم أخي احمد ، هل اطلعت علي الرسائل الخاصة التي ارسلتها لك هنا فى المنتدي او علي البريد ؟؟

المثال password.zip

الكود يعمل بشكل ممتاز تأكد من وضع المعيار علي حقل تاريخ و ايضا راجع طريقة كتابة التاريخ فى جهازك من لوحة تحكم الويندوز هل الشهر اولا ام اليوم اولا و يمكنك الاختبار علي قيمة تاريخ 1 يناير فى سنة معينة اولا

في حالة الحقل الرقمي لتحديث قيمة الي 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

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