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

مواضيع ذات صلة للاخ ابو هادي فى الاكسيس : http://www.officena.net/Tips/Punctutation.php تفقيط عربي انجليزي محدث تعديل التفقيط إلى كلمة درجة

اذا ضغط علي الوصلة العلوية ستصل الي موضوع به مثال : اضغط هنا و بالنسبة للبحث عن الكلمة ، المقصود البحث من قائمة بحث اعلي المنتدي هنا و عموما تفقيط = Punctuation

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

راجع تفاصيل هذا الموضوع كبداية http://www.officena.net/ib/index.php?showtopic=2713 و المنتدي مليئ بالامثلة التي ستكون نوعا ما اوضح لك باذن الله بعد قراءة المواضيع السابقة ايضا هذه المواضيع فى قسم الاكسيس يمكن ان تكون مفيدة جدا حيث أن الاساسيات واحدة اكتب بنفسك روتين فرعي أو وظيفة http://www.officena.net/ib/index.php?showtopic=425&hl= حديث حول المتغيرات فى VB http://www.officena.net/ib/index.php?showtopic=839&hl=

من هنا http://www.officena.net/ib/index.php?showtopic=29&hl=قرش

يا هلا :( مرفق ملف عبارة عن كود فى الاكسيس للاخ ابو هاجر قمت بالتعديل عليه ليناسب الاكسيل و يتم فيه استبدال ال أ و ا و آ و إ ب ا و ال ة و ال ه ب ه و ال ي و ال ى ب ي تاكد من تفعيل الماكرو ( مستوي الامان قبل فتح الملف ) :pp: ملاحظة : تم تعديل الملف فى مشاركة لاحقة للاخ m.hindawi

Tools Options Mail Format Signature new

ما شاء الله مثال غاية فى الروعة مبدع كما عودتنا دائما (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