نجوم المشاركات

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

السلام عليكم ورحمة الله أخي الكريم، تم عمل المطلوب بمعادلة تم سحبها إلى آخر عمود في الشيت... بن علية الارقام معكوسة.rar

السلام عليكم جرب اخي المرفق Workbook1.zip

اسمحو لي بالمشاركة =IF(COLUMN()>COUNTA(5:5);"";INDIRECT(ADDRESS(5;COUNTA(5:5)+2-COLUMN())))

أخي الكريم عبد العزيز بارك الله فيك على الموضوع ، ولكن اعلم أنك طرحت الموضوع من قبل .. راجع موضوعاتك من فترة ... عموماً قمت بالإطلاع على الموضوعين وأضفت من عندي المزيد ، ليصبح مجموع الحلول المقدمة 6 طرق (ثلاثة طرق بالمعادلات وثلاثة طرق بالأكواد) وإليك رابط الموضوع الذي يحتوي الملف المرفق الجامع للطرق الستة إن شاء الله ملحوظة : قد لا تكون الطرق كلها مرنة بحيث تتناسب مع طلبك بشكل كامل ولكن بالتأكيد يوجد طرق مرنة ..عليك التجربة واختر ما يناسبك الرابط من هنا تقبل تحياتي

أخي كرار يمكن حل مشكلة بطريفة أخرى و هي :إضافة هذا الكود في الحدث عند الفتح Application.SetOption " behavior entering field", 2 بحث.rar

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

السّلام عليكم و رحمة الله و بركاته أحبّتي الأكارم .. هذه إحدى الطّرق لاستعراض البيانات القاعديّة على اليوزرفورم .. العملية ليست جديدة و إنّما أردت فقط أنْ يكون تفكيري على منتديات " أوفيسنا " .. ونتقاسم الأفكار مع الأحبّة الكيفية مشروحة بالكود داخل الملف أدناه .. فائق إحتراماتي استعراض البيانات.rar

السلام عليكم استعمل اخي هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 14 And Target.Row > 2 Then If IsDate(Target.Value) = True Then For i = 1 To 9 Target.Offset(, i) = DateAdd("m", i, Target.Value) Next End If End If End Sub عندما تكتب التاريخ ، باقي التواريخ تسجل تلقائيا

أخي الكريم وائل شعبان حسب طلبك وملفك المرفق إليك الكود التالي (رغم أنني أعلم أن الموضوع ما زال غير مكتمل أركان التوضيح الكامل وأعلم أن هناك توابع نظراً لقصور التوضيح) .. واوعى تزعل من كلامي .. Sub Search_Using_Arrays() Dim Arr, Temp, I As Long Const strWord As String = "التجربة" Arr = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To 1) For I = 1 To UBound(Arr, 1) If InStr(Arr(I, 1), strWord) > 0 Then Temp(I, 1) = strWord End If Next I Range("A2").Resize(UBound(Temp, 1), UBound(Temp, 2)).Value = Temp End Sub تقبل تحياتي Search For Specific Text Using Arrays YasserKhalil.rar

العفو اخي اولا .. هناك اكثر من طريقة لاخفاء الاصفار . لكني افضل هذه ثانيا .. تنسيق الخلايا يتكون من اربع تنسيقات .. الاعداد الموجبة - الاعداد السالبة - الاصفار - النصوص .. علي الترتيب ... ويفصل بينها بفاصلة منقوطة ماقمت به هو تنسيق الاصفار علي الشكل "" اي فراغ اتمنى ان يكون الشرح وافي .. تحياتي

السلام عليكم ورحمة الله وبركاته اخوانى واحبابى وحشتونى كتير والله ارفق لكم ثلاثة امثله مفتوحه المصدر منقوله للامانه وان شاء الله ابو اسيل الغالى يتفحصها كويس ويعملها لينا دروس نستفاد منها اكتر BankManagementSystem.VB.net ChatApplication.VB.net WebBrowser.VB.net تمنياتى لكم بالتوفيق وجزاكم الله كل خير

أخي الكريم أحمد الحمد لله أن تم طلبك على خير ، يرجى تغيير اسم الظهور للغة العربية الأخوة الكرام عبد السلام وسليم بارك الله فيكما وجزيتما خيراً على هذه المعادلات الرائعة والجميلة ، زادكما الله علماً وحلماً تقبلوا تحياتي

بعد اذن اخي صديقي بن علية هذه المعادلة (تسجب من البسار الى اليمين) =INDEX($B$5:$H$5,COLUMNS(B5:$H$5))

بعد اذن اخي غبد السلام معادلة اخرى مطلوب بحث عن رقم الخلية salim.rar

السلام عليكم أخي الحبيب الصقر بارك الله بك وبأفكارك النيرة التي تتحفنا بها ...فقد تعودنا على كرمكم وحسن خلقكم ... جزاكم الله خيراً.

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب الصقر ما شاء الله لا قوة إلا بالله ...رائع وعصري... تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته

شكرا لاخونا صالح حمادي وبعد اذنه استبدل الرقم الظاهر في آخر الكود : الرقم 2 للذهاب الى أخر الحقل الرقم 1 للذهاب الى اول الحقل الرقم صفر لتحديد الحقل بالكامل ولزيادة المعلومات وربط المتجانسات : هنــــا وهنـــــا

جرب هذا الكود :كلمة السر Salim هذا الكود يسمح لك بتحديد الخلية التي تحتوي غلى معادلة فقط (دون اي اجراءات اخرى مسح /تعديل /تلوين ...الخ) Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect Password:="Salim" If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With ActiveSheet.Protect Password:="Salim" End If End Sub

السلام عليكم ميزة رائعة جزاكم الله خيراً أخي العزيز الزباري..والشكر موصول للأخ العزيز محمد الريفي الذي عرض لنا طريقة الـ Flash Fill تقبل تحياتي العطرة والسلام عليكم.

نسخ التنسيق السلام عليكم ورحمة الله وبركاته إخوتي الكرام مجرد ومضة : كيف ننسخ التنسيق ونلصقه في عمود أو صف؟ نحدد الخلية المراد نسخ تنسيقها ثم نضغط Click ثم Ctrl+Shift+سهم للأسفل أو الأعلى عندما ترغب لصقها في عمود حسب موقع الخلية من العمود. أو Ctrl+Shift+سهم لليمين أو اليسار عندما ترغب لصقها في صف حسب موقع الخلية من الصف. ويمكننا أيضاً نسخ التنسيق بضغطتين لاستخدام لصقه عدة مرات أو في خلايا متفرقة أرجو أن يثري إخوتي الموضوع بما لديهم من علمٍ يخص نسخ التنسيق ولصقه. والسلام عليكم ورحمة الله وبركاته.

السلام عليكم ورحمة الله وبركاته ..إخوتي الكرام أخي الكريم تيبازي ...جزاكم الله خيراً على الكلمات الطيبة وعلى حسن الظن بإخوانكم أما إخوتي عبد العزيزو الخليفة الأول فقد قدم كل منهم اعتذاره في حينه وهذا دليل على صفاء السريرة .. وكل ابن آدم خطاء ...وكما أسلفت كانوا رجاعين للحق وقد اعتذروا عما بدر منهم في حينه ..ولذلك التمس لإخوانك العذر واعتبر أنه وكأن شيئاً من ذلك لم يكن وابنِ علاقات طيبة معهم لأنهم نِعمَ الصحبة ...والسلام عليكم

اسمحولى اشاركم اخى الكريم عند فتح قاعدة البيانات وجدت الاتى قمت انت وضع قيمة لمتغيرات لم تصرح للبرنامج بانهم متغيرات مسبقا فقمنا بالتصريح عنهم كانهم متغيرات رقمية ثانيا وجدنا انه من الصعوبة نسخ رقم المادة من جدولها ثم بعد ذلك لصقها فى النموذج الفرعى قمنا بالتعويض عن ذلك بمربع تحرير وسرد به رقم المادة ليسهل عليك الاختيار واننا نجد هذا خطا ايضا فكيف بك الحال اذا كنت تمتلك 1000 قطعة هل ستحفظ ارقامهم كلهم . ولكن لك ما طلبت اما بالنسبة للمشكله فكود اخونا كرار صحيح زلكن تم وضعه فى بعد تحديث حقل الكمية هذه قاعدة بيانات بها نموذج fbillcr فقط قم بنسخه ولصقه فى قاعدة بياناتك السيد elsayed.rar

السلام عليكم جزاكم الله خيرا على الاقتراحات و التشجيع و بارك الله فيكم تم مراجعة الاخطاء وتم الاصلاح و لله الحمد لكن لم أجد الرسالة و لم أتمكن من لتحويل الى أوفيس 2003 أعطتنى رسالة و الملف بعد التعديلاتVBALibrary.rar

امثلة بسيطة ارجوا ان تنفعنا جميعا صيغة الدالة DLookup DLookup(expr, domain [, criteria] )‎ expr( مطلوب) اسم الحقل domain( مطلوبة) اسم الجدول/الاستعلام criteria( اختيارية) الشروط دا مثال بسيط : عازوين نعرف اسم الصنف الذي كوده 15 في جدول الاصناف اسم الجدول : items اسم الحقل الذي يحمل أرقام الاصناف : code_items اسم الحقل الذي يحمل أسماء الاصناف: items_Name كود: MsgBox DLookup("[items_Name]", "items", "code_items=15") ممكن ناخد كود الصنف من مربع نص موجود في نموذج بدلاً من التصريح في الدالة عن كود الصنف لنفترض مثلا أن مربع نص موجودٌ في النموذج باسم txtItemsCode كود: MsgBox DLookup("[items_Name]", "items", "code_items=" & Me.txtItemsCode) ممكن ناخد قيمة كود الصنف من نموذج آخر بس بشرط أن يكون مفتوحاً ، فلو كان txtItemsCode موجود في نموذج آخر باسمfrm1 فإن الكود سيأخذ الشكل التالي : كود: MsgBox DLookup("[items_Name]", "items", "code_items=" & Forms!frm1!txtItemsCode) ملحوظة بالنسبة للشروط يجب أن تأخذ في الاعتبار نوع بيانات الحقل الذي نعتمد عليه في الشرط ، في المثال السابق كان حقل نوع بياناته (رقم) ، فلو كان نوع بياناته (نص) سيكون الكود بالشكل التالي :code_items كود: MsgBox DLookup("[items_Name]", "items", "code_items='" & Me.txtItemsCode & "'") طب لو كان نوع بياناته (وقت/تاريخ) الكود هيبقى كدا كود: MsgBox DLookup("[items_Name]", "items", "code_items=#" & Me.txtItemsCode & "#") وشكر الله لكم جميعا

السلام عليكم ورحمة الله تعالى وبركاته الحقيقة بدون ان اطيل عليكم كنت اريد تحزيم قاعدة بيانات لدى وتحويلها الى ملف تنفيذى ولكن لم يعجبنى الشكل المعتاد لتثبيت اى برنامج فاردت ان يكون برنامجى مميزا ففكرت مليها فى تصميم قاعدة بيانات تقوم بتثبيت نفسها داخل الويندوز فاعاننى الله على تصميمها دون الحاجة الى تحزيمها القاعدة الت صممتها بمجرد الفتح تبدا تلقائيا فى عمل تثبيت لها داخل الويندوز كا التالى اللوجو الخاص بى ويمكنك تغييره حسب ذوقك هذا اللوجو به شى مهم جدا وهى وحدة نمطية لتغيير لون البروجرس بار وهذا ايضا اردته ان يكون مختلفا عن الاخرين ناتى بعد ذلك الى نموذج التعريف الخاص بالبرنامج ويمكنك كتابة تعريف بسيط بالبرنامج وذلك لتعريف المستخدم ببرنامجك . لقد تركته فارغا ثم بعد ذلك نموذج الشروط والاتفاقيات الخاصة بك ويجب ان يوافق عليها المستخدم لمتابعت التثبيت . ولقد تركتها فارغه ثم بعد ذلك نموذج اكود التفعيل وذلك للتاكد من المالك او المشترى وبه كود بسيط فقط عند كتابة اربع حروف فى كل مربع نص يقوم بالانتقال الى المربع التالى تلقائيا كود التفعيل هو 1111222233334444 والان مع نموذج مكان التثبيت وبه اكواد مهمه جدا اتمنى ان تستفيدو منها اولا كود مكان تثبيت الويندوز وكود التغيير واختيار مكان اخر غير مكان الويندوز واجهتنى مشاكل كثيرا فى مسالة الصلاحيات الخاصة بالويندوز فاضررت الى انشاء مكان اخر غير Program file اسميته Program RK قد يسال سائل ولماذا RK اجيبه قائلا ملكش دعوه دا كلمة سر ههههههههه هذا هو الفولدر الخاص ببرنامجى وهذه الصورة بعد التنصيب والان مع نموذج التنصيب والشرح بداخله وبيمكنك الوصول اللى برنامجك بسهولة من سطح المكتب او قائمة ابدا وذلك لان البرنامج يقوم بعمل شورتكت لهم تلقائيا على سطح المكتب وقائمة استارت صورة من سطح المكتب وبعد التثبيت يقوم البرنامج بمسح كافة النماذج والجداول المؤقتة كنت قد انشائتها لتساعدنى فقط فى التنصيب ستجد برنامجك بعد التثبيت خالى من نماذج التثبيت هذه اما البرنامج الذى قمت بالتثبيت من خلاله فسيظل كما هو وذلك اذا احتجت الى التثبيت من جديد اتمنى ان ينال اعجابكم نظرا لنفاذ حجم رفع المرفقات سارفعه فى المشاركة التالية ان شاء الله والان مع البرنامج اتمنى ان ينال على اعجابكم . Elsayed Pro.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتة اليوم فيديو مميز هيفيد كتير جدا من اعضاء المنتدى وخصوصا كل من يعمل فى مجال المرتبات والماليات وهو كيفية عمل مفردات مرتب لموظف باستخدام الدالة vlookup اتمنى من الله عزو جل ان ينال اعجابكم https://youtu.be/TXTWaMOKtTI

الاخوة الكرام مرفق ملف هو عبارة عن كشف حساب للعمليات البنكيه مثل الشبكه السعوديه و الفيزا والماستر كارد .... المشكله التي ظهرت حاليا ان البنك قام بالخصم علي فرعين من الشركه عند اجراء عمليه شبكه سعوديه نسبه 0.7% وفي الفرعين الاخرين نسبه 0.8% في عمود اسمه المخصوم يتم تحويل الخصم الي قيمه وعند المراجعه يوجد فرق بين كشف البنك وكشف الشركه يوجد معادله if وهي تقوم بخصم نسبه 0.7% عند وجود الشبكه السعوديه لكل الفروع وخصم 2% للفيزا والماستركارد المطلوب ان اجعل المعادله تخصم 0.7% عند تحقق شرطين معا تواجد اehab.rarسم الفرع مع الشبكه السعوديه ويخصم نسبه 0.8% عند تواجد اسم الفروع الاخري وهم 2و4 وشكرا لكم جميعا

الله يسعدكم يارب ويوفقكم و يفرج همكم شكرا لكم جميعا ً وبارك في جهودكم

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

استاذى الغالى أبو البراء سلام الله عليك ورحمة الله وبركاته أولا عذرا للتأخير في الرد النور كان مقطوع من العصر حتى هذه اللحظة ثانيا ما شاء الله مبدع كعادتك النتيجة تمام وإن كانت سوف أضطر إلى الدخول للكود لتغيير كلمة البحث كل مرة إذا لم يكن هناك طريقة أخرى ثالثا أخى الحبيب أنا لن أزعل منك لأنى أعلم استشعر حسن وصدق نيتك في التوجيه (ويبدو أنى محتاج دروس في فن التوضيح قبل تعلم أكواد البرمجة ابتسامة) جزاك الله خيرا وشكرا لك على فكرة يا جماعة الخير القائمين على أمر المنتدى الكريم جاء لى أشعارات بمشاركات من الاستاذ عبد السلام أبو العوافى ولكن هناك خطأ في ظهورها في صفحة الموضوع أردت التنبيه فقط

أخي عبذ العزيز عمل رائع و الفكرة اروع جزاك الله خيرا

أخي الغالي حسام عيسى بارك الله فيك وجزاك الله كل خير على موضوعاتك القيمة .. دلوقتي الملف بيفتح الباب يا سمسم ، ولو عايز أقفل الباب يا سمسم أعمل ايه الفورم التاني بيفتح الباب وبيختفي والأول بيفضل ظاهر .. كمل جميلك وضع قفل في الفورم الأول عشان يقفل تاني أو يلغي الاتنين ويقفلهم لأنهم كدا معلقين .. أهم شيء متنساش تقفل الباب .. أكبر غلطة بيقع فيها المبرمج إنه يسيب الباب مفتوح تقبل وافر تقديري واحترامي

اقدم لك تحياتي وتبركاتي

=SUBSTITUTE(ADDRESS(MAX(IF(N4=($A$1:$H$12);ROW($A$1:$H$12);0));MAX(IF(N4=($A$1:$H$12);COLUMN($A$1:$H$12);0)));"$";"") مطلوب بحث عن رقم الخلية.rar

Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim Myno As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim I As Integer Dim ReMark As String If TheNo > 999999999999.99 Then Exit Function If TheNo < 0 Then TheNo = TheNo * -1 ReMark = "يتبقى لكم " Else ReMark = "فقط " End If If TheNo = 0 Then NoToTxt = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" MyArry1(1) = "مائة" MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "أربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "أربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "واحد" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "أربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" '====================== GetNo = Format(TheNo, "000000000000.00") I = 0 Do While I < 15 If I < 12 Then Myno = Mid$(GetNo, I + 1, 3) Else Myno = "0" + Mid$(GetNo, I + 2, 2) End If If (Mid$(Myno, 1, 3)) > 0 Then RdNo = Mid$(Myno, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(Myno, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(Myno, 2, 1) My10 = MyArry2(RdNo) If Mid$(Myno, 2, 2) = 11 Then My11 = "إحدى عشر" If Mid$(Myno, 2, 2) = 12 Then My12 = "إثنى عشر" If Mid$(Myno, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12 End If If (I = 0) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (I = 3) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt + " ملايين" If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (I = 6) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyThou = GetTxt + " ألف" Else MyThou = GetTxt + " آلاف" If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " ألف" If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " ألفان" End If End If If (I = 9) And (GetTxt <> "") Then MyHun = GetTxt If (I = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If I = I + 3 Loop If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur Else NoToTxt = ReMark + MyFraction + " " + MySubCur End If Else NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur End If End Function السلام عليكم بعد إذن من سبقني بالمشاركة: أخي الكريم هذا كود التفقيط بالعربي ضعه في موديول ثم استخدم دالة NoToTxt لتجد النتيجة المرضية إن شاء الله تعالى

الف مليون مبروك

أخي الكريم تيبازي أهلاً بك في المنتدى بعد طول غياب وعوداً حميداً ، ونأمل أن تتواجد فيما بيننا على الدوام ، وتقبل وافر تقديري واحترامي

أخي الكريم محمد عبد الناصر إذا كان ما فهمته صحيح ، فإليك الرابط التالي فيه شرح للمطلوب ، ولكن يجب أن تتبع الخطوات بشكل جيد وتزيل الحماية في البداية عن العمود بالكامل قبل وضع الكود في حدث ورقة العمل الرابط من هنا تقبل تحياتي

هذا هو الملف بعد التعديل بحث.rar

الحل هو التحايل على مربع البحث وتحريره من التركيز جرب ارسال المفتاح كما هو موضح وافدنا بالنتيجة Dim X X = text1.Text text2 = X Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id] = " & text2 If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark Me.text1.SetFocus SendKeys "{f2}" Else DoCmd.GoToRecord , , acNewRec End If

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

تفضل في حالة عدم وجود الرقم يفتح سجل جديد Private Sub text1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Emp_No] = " & [text1] If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark Else DoCmd.GoToRecord , , acNewRec End If End Sub

ماتقوم به الداله هو الصحيح لغويا

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

السلام عليكم ايش رأيك في هذه الطريقة: سحب أكثر من حقل من سجل واحد في الجدول ، وهذا الرابط فيه المثال http://www.officena.net/ib/index.php?showtopic=61152&p=394338 جعفر

MsgBox DLookup("[items_Name]", "items", "code_items=" & Me.txtItemsCode)