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

جرب المرفق اختار تاريخ البداية وعدد الايام Database74.accdb

مشاركة مع أخي خالد ..... barna.accdb

السلام عليكم 🙂 في الواقع احد اهم الاشياء في هذه الدالة هي التفرقة بين الحروف الكبيرة والصغيرة (بالانجليزي طبعا) ، لكلمة السر 🙂 ?Strcomp("A","a",vbBinaryCompare) -1 ?Strcomp("a","a",vbBinaryCompare) 0 ?Strcomp("Jj","jj",vbBinaryCompare) -1 ?Strcomp("jj","JJ",vbBinaryCompare) 1 فإذا النتيجة = 0 ، فتكون كلمة السر مطابقة ، وإلا ، فكلمة السر غلط 🙂 جعفر

وعليكم السلام 🙂 واهلا وسهلا بك في المنتدى 🙂 رجاء مراجعة قوانين المنتدى : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف اما انا ، فما احب اعمل تغيير في اعدادات العميل ، لأنها تطبق على جميع برامج اكسس اللي يتم تشغيلها في ذلك الكمبيوتر ، ممكن عمل اللي تريده هكذا: على حدث "التركيز" للحقل ABC ، اكتب: me.ABC.sellength = 0 جعفر

من خلال الخيارات اعدادات العميل انظر الصورة

بسم الله الرحمن الرحيم والصلاه والسلام على سيدنا محمد وآله وصحبه وسلم اخوانى واحبتى فى الله قد رأيت هذه الداله فى مثال قدمه اخى @خالد سيسكو واحببت مشاركتكم اياها لنتعلم سويا ونستفاد من تعليقات وتوضيحات اخواننا واساتذتنا جزاهم الله عنا كل خير شرح بسيط داله StrComp للمقارنه لها ثلاث برامتيرات 1 - النص الأول 2 - النص الثانى 3 - الاوبشين المراد StrComp ( string1, string2 [, compare ] ) compare = مقارنه 3 - الاوبشن يوجد له اربع قيم اختيارى هذا هو نوع المقارنة لأداء الخيارات الصحيحة هي: 1 - vbUseCompareOption { -1 } يستخدم الخيار مقارنة 2 - { 0 } vbBinaryCompare مقارنة ثنائية 3 - { 1 } vbTextCompare المقارنة النصية 4 - { 2 } vbDatabaseCompare مقارنة بناء على قاعدة البيانات الخاصة بك بالنسبه لقيمه النتيجه 0 تعنى النصوص متطابقه بالنسبه لقيمه النتيجه 1 تعنى ان النص الاول اكبر من النص الثانى بالنسبه لقيمه النتيجه -1 تعنى ان النص الثانى اكبر من النص الاول لا حظ النتيجه مختلفه بالرغم ان قيم النصين فى المره الاولى والثانيه متشابيهين ولكن اختلاف الاوبشين فالمقارنه قمت بالاستعانه بالبحث واليكم بعض الروابط https://support.office.com/ar-sa/article/الدالة-strcomp-a9a4531e-3b2a-4218-b139-f7442bc10b96?omkt=ar-SA&ui=ar-SA&rs=ar-SA&ad=SA https://bettersolutions.com/vba/strings-characters/option-compare.htm https://www.techonthenet.com/access/functions/string/strcomp.php وبشرح فيديو هو شرح ل PHP اتمنى ان اكون قد قدمت لكم معلومه مفيده واسال الله ان تنتفعوا بها وان قصرت فاعذرونى فاننى مبتدء واحاول جاهدا التعلم قدر الامكان المثال الاول واللذى استفدت منه هذه الداله لمقارنه الباسورد والمثال الثانى حاجه بسيطه لزوم الشرح وفى الاخير نسالكم الدعاء تقبلوا تحياتى وتمنياتى لكم جميعا بالتوفيق والنجاح طبتم واهتديتم اظهار كلمة المرور.rar StrCompText.mdb

الاستاذ القدير خالد سيسكو قدم الاجابة الصحيحة ومن باب اثراء الموضوع لقيمة خطأ في الحقل احيانا يكون لدينا حقل في النموذج الرئيسي يستمد قيمتة من خلال قيمة حقل غير منظم في النموذج الفرعي مثلا اجمالي المبيعات لفترة زمنية اكيد توجد اكثر من طريقة لاخذ القيمة ولكن الطريقة الاسهل [q_tax].[Form]![txt23] ولكن عندما لاتكون لدينا سجلات للفترة تكون قيمة الحقل في الرئيسي تساوى خطأ وللتغلب على ذلك يمكن استخدام دالة IsError لتكون بالشكل التالي =IIf(IsError([q_tax].[Form]![txt23]);0;[q_tax].[Form]![txt23]) والنتيجة تكون صفر

السلام عليكم اولا : لماذا لاتجعل القيمة الافتراضية للحقل = صفر ولا تحتاج الى استعلام تحديث ثانيا : تفضل اخي الكريم عملت لك استعلام تحديث بالملف يجعل القيم الفارغة بالجدول = صفر اعلمنا النتائج aceess55.rar

السلام عليكم ورحمة الله وبركاته زملائي وأخوتي الأفاضل محاولة مني بعمل فورم بحث وإضافة وتعديل في كل أوراق العمل اختيار اسم ورقة العمل عن طريق كمبوبوكس بعد ذلك متاح لك البحث والإضافة في اسم ورقة العمل المختارة كل الليبل التي أمام التكست بوكسات التي يوضع فيها البيانات التي سوف سيتم إضافتها أو ترحيلها تأخذ اسماءها من الصف الخامس من ورقة العمل النشطة في حالة إذا تم فتح الفورم وإليكم الملف فورم بحث وإضافة وتعديل في كل أوراق العمل.xlsm

جزاكم الله خيرا اخوانى واساتذتى خالد ومحمد

لا لزوم للحلقات التكراري في هذه الجالة يكفي هذا الكود البسيط Sub Fill_Empty() Range("B2:F6").SpecialCells(4) = "/" End Sub

شكرا الك استاذ .. يعمل بشكل ممتاز

السلام عليكم اخي العزيز اصبح التركيز (SetFocus) على هذا الحقل ويمكن تغييره بعدة طرق منها: 1- عن طريق ترتيب الجدولة. اضغط بزر الماوس الايمن في مكان فارغ بالنموذج في طريقة عرض التصميم(كما في الصور) : 2- عن طريق الكود البرمجي. كما في الملف المرفق (يوجد نموذجين بالملف احدهما افتراضي والاخر برمجي) Me.[اسم الحقل].SetFocus test.rar

وعليكم السلام-بعد اذن استاذنا الكبير سليم ,تم عمل كل اللازم بالنسبة لصفحة حساب سائق , من معادلات وقوائم منسدلة لجلب البيانات كما تريد من صفحة data كما تم وضع كود بمعادلة تفقيط بالملف 2020_-_1.xlsm

بعد إذن الأستاذ الفاضل علي جرب هذا HR_TEST2.xlsm

بالاضافة الى ما تفضل به اساتذتي الكرام ولهم الشكر قم بعمل استعلام وقم بعمل علاقة بيني حقلي Inv_Date في كلا الجدولين ليكون الاستعلام كالتالي SELECT DISTINCT [فاتورة المبيعات]![M&YS] AS [الشهر والسنة], DSum("[TotalS1]","[فاتورة المبيعات]","[M&YS]='" & [M&YS] & "'" & " and [op_type] = '" & "مرتجع مبيعات" & "'") AS [مرجع المبيعات], DSum("[TotalS1]","[فاتورة المبيعات]","[M&YS]='" & [M&YS] & "'" & " and [op_type] = '" & "فاتورة بيع" & "'") AS المبيعات, DSum("[Discount]","[فاتورة المبيعات]","[M&YS]='" & [M&YS] & "'" & " and [op_type] = '" & "فاتورة بيع" & "'") AS [الخصم المسموح به], DSum("[TotalP1]","[فاتورة المشتريات]","[M&YP]='" & [M&YP] & "'" & " and [op_type] = '" & "فاتورة شراء" & "'") AS المشتريات, DSum("[TotalP1]","[فاتورة المشتريات]","[M&YP]='" & [M&YP] & "'" & " and [op_type] = '" & "مرجع مشتريات" & "'") AS [مرجع المشتريات], DSum("[Discount]","[فاتورة المشتريات]","[M&YP]='" & [M&YP] & "'" & " and [op_type] = '" & "فاتورة شراء" & "'") AS [الخصم المكتسب] FROM [فاتورة المبيعات] INNER JOIN [فاتورة المشتريات] ON [فاتورة المبيعات].Inv_Date = [فاتورة المشتريات].Inv_Date; تحياتي

عليك السلام ورحمة الله وبركاته جرب هذا الفورم ربما يفي الغرض sahaba center.rar

جزاكم الله خيرا جميعا الاستاذ خالد والاستاذ Barna والاستاذ احمد

عند جمع عدة حقول لا نحتاج الى الدالة sum ايضا الصحيح ان العمليات الحسابية تكون في حقول رقمية لكون اكسس يعتبر + بمثابة & وبالتي تكون نتيجة 55+11 =5511 ولكون النموذج لديك يحتوي على حقول نصية غير منظمة فبالتالي قمنا من خلال خصائص الحقول باختيار تنسيق رقمي

جرب المرفق للجمع.accdb

همممم مسكتني من يدي اللي توجعني 🙂 مو كل شيء في قاعدة البيانات استعمله ، وهاي منهم 🙂 جعفر

أستاذ ابومهندالخضري لا اعلم لماذا لا تقوم بالضغط على الإعجاب على الرغم ان كل الإجابات ممتازة ؟!!!! 💙

توجد امثلة كثيرة في الموقع هنا

جزاكم الله خيرا اخوانى واساتذتى وفقكم الله لما يحبه ويرضاه

شكرا جزيلا اخي الكريم .

اسم المستخدم : ليث كلمة المرور : 123 عليكم السلام استاذي تدلل ان شاء الله وآسف اذا كان في مخالفه للمنتدى الطيب تحياتي

شكرا جزيلا على التوضيح 🙂 جعفر

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

يرجى تخفيف من حجم الملف(2.5 Mega) لا يمكن ان تتابع عمل كود من صفحات تحتوي على اكثر من 2000 صف يكفي ان تدرج من 15 الى 20 صف في كل صفحة ومن ثم تعميم الكود على قدر ما تريد من بيانات كما يرجى ادراج الجدول كما يفهمه اكسل كجدول دون تدخل خلايا خارجية في رأس الجدول (ادراج صف فارغ بعد الصف 2 يمكن اخفاءه)

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

عندها يلزم هذا الكود Dim cel As Range Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("B1:D20")) Is Nothing _ And Target.Count = 1 Then Range("B1:D20").Interior.ColorIndex = 6 For Each cel In Range("B1:D20") If cel < 0 Then cel.Interior.ColorIndex = 50 Next Else Application.EnableEvents = True: Exit Sub End If If Not IsNumeric(Target) Or Target < O Then Target.Interior.ColorIndex = 50 Target.Select MsgBox "خطأ" & Chr(10) & _ "مسموح فقط بأعداد اكبر من صفر", 16, _ vbMsgBoxRight End If Application.EnableEvents = True End Sub الملف من جديد MY_NEW_CODE.xlsm

انا ممنون منك واشكرك جدأ استاذي العزيز وهذا هو الملف اول شي استجابة لطلب الاخ البخيتي وثانيا لطلب المساعدة منك في .... في نموذج المشتركين يوجد زر اسمه "البرنامج التدريبي" والذي يفتح البرنامج التدريبي الخاص بالشخص حسب وزنه عند النقر عليه حيث ان هناك ثلاث فئات (اقل من 70 & من 70 الى 90 &اكبر من 90) في نموذج البرنامج التدريبي احتاج ثلاث تبويبات الاولى تعرض تمارين المخصصه لليوم الاول والثانية لليوم الثاني والثالثة كذالك حيث يكون البرنامج ثلاث ايام متتالية لكل يوم تمارين مختلفة ثم يوم استراحة ثم يعيد البرنامج وهكذا اي فكرة من حضرتك في المساعدة اكون ممنون منك تحياتي لك GYM.rar

يمكنك استخدام هذه المعادلة ولكن بعد اعادة ضبط وتنسيق وتكملة الملف بحيث يكون مجموع الرصيد فى كل صفحة من صفحات الملف فى الخلية I352 ولو حابب يكون رقم الخلية اكبر من هذا فلابد من توحيد وتثبيت الخلية التى تريدها فى كل الصفحات وتعديل الرقم الذى تريده بالمعادلة =IFERROR(INDIRECT("'"&$A2&"'!I352"),"") عملاء - 1.xlsx

أستاذنا ومعلما الفاضل صاحب هذا الصرح المهندس محمد طاهر ألف شكر والحمد لله أن مَنَّ الله عليَّ بثقتكم جعل الله هذا الموقع في ميزان حساناتك

السلام عليكم اخي العزيز عزالدين المنصوري 1- عملت لك ملف فيه رسالة تنبيه لمدة 5 ايام اعتبارا من كل 1 لغاية 5 من كل شهر مع وميض احمر متقطع في حالة عدم تجديد الاشتراك. 2- عملت لك (msgbox) عند تحميل البرنامج . اعلمنا النتائج تحياتي رسالة تنبيه.rar

الحمدلله اللذى بنعمته تتم الصالحات جزاهم الله خيرا اساتذتنا الافاضل @jjafferr و @kha9009lid بالتوفيق اخى

السلام عليكم احدى الطرق تعمل زرين واخد للنسخ والاخر للصق تحياتي Option Compare Database Option Explicit Private Sub Command5_Click() Me.kh.SetFocus 'يجب وضع التركيز على اسم الحقل المطلوب نسخه DoCmd.RunCommand acCmdCopy 'هنا تتم عملية نسخ القيمة الموجوده في الحقل End Sub Private Sub Command10_Click() Me.kh.SetFocus 'يجب وضع التركيز على اسم الحقل المطلوب لصقه DoCmd.RunCommand acCmdPaste 'هنا تتم عملية لصق القيمة المنسوخة سابقا End Sub

اخى الفاضل جرب الكود التالى واخبرنا بالنتيجه DoCmd.OpenForm "formName", , , "[id]=" & me.id formName= اسم النموذج الذى سيتم فتحه id اسم حقل المعرف الذى = اسم حقل المعرف بالنموذج ان لم يظبط ارفق مثالك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

tafkeet Ywmyat Mohasb .rar

وعليكم السلام-تفضل بمجرد كتابة الرقم بالعمود C سوف تظهر قيمته بالعمود B 1مثال.xlsx

ربما كان المطلوب (تم تغيير اسماء الشيتات الى اللغة الاحنبية من اجل نسخ الكود ولصقة دون مشاكل لغوية) الكود Sub fil_data_val() Dim S As Worksheet, T As Worksheet Dim dic As Object Dim i%: i = 3 Set S = Sheets("SOURCE_SH") Set T = Sheets("TARGET_SH") Set dic = CreateObject("Scripting.Dictionary") Do Until S.Range("B" & i) = vbNullString dic(S.Range("B" & i).Value) = vbNullString i = i + 1 Loop With T.Range("BK21").Validation .Delete .Add 3, Formula1:=Application.Transpose(Join(dic.keys, ",")) End With dic.RemoveAll: Set dic = Nothing End Sub الملف مرفق ADMINASTREATIONS.xlsm

ربما هذا الكود اسرع قليلاُ وأقصر في نفس الوقت (يمكنك استعماله) Option Explicit Sub Edit_data() Dim Source_rg As Range Dim Find_rg As Range Dim r# Union(Range("b8:l8"), Range("c9:l9")).ClearContents Dim lra#: lra = Me.Cells(Rows.Count, 1).End(3).Row Set Source_rg = Me.Range("a12:M" & lra) Set Find_rg = Source_rg.Find(Me.Range("d6")) If Find_rg Is Nothing Then MsgBox "'This Number Does't Exists" Exit Sub End If r = Source_rg.Find(Me.Range("d6")).Row With Me.Range("b8") .Resize(, 11).Value = Cells(r, 2).Resize(, 11).Value .Offset(1, 1) = Cells(r, 13) End With End Sub '+++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub ADD_data() Dim Source_rg As Range Dim Find_rg As Range Dim r# Dim lra#: lra = Me.Cells(Rows.Count, 1).End(3).Row Set Source_rg = Me.Range("a12:M" & lra) Set Find_rg = Source_rg.Find(Me.Range("d2")) If Find_rg Is Nothing Then MsgBox "'This Number Does't Exists" Exit Sub End If r = Find_rg.Row With Me.Range("b4") Cells(r, 2).Resize(, 11).Value = .Resize(, 11).Value Cells(r, 13) = .Offset(1, 1) End With End Sub '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub Ta3dil() Dim Source_rg As Range Dim Find_rg As Range Dim r# Union(Range("B4:L4"), Range("C5:L5")).ClearContents Dim lra#: lra = Me.Cells(Rows.Count, 1).End(3).Row Set Source_rg = Me.Range("a12:M" & lra) Set Find_rg = Source_rg.Find(Me.Range("D2")) If Find_rg Is Nothing Then MsgBox "This Number Does't Exists" Exit Sub End If r = Source_rg.Find(Me.Range("D2")).Row With Me.Range("b4") .Resize(, 11).Value = Cells(r, 2).Resize(, 11).Value .Offset(1, 1) = Cells(r, 13) End With End Sub

هذه الصورة من اعدادات الاكسل في جهازك (تقول ان هذا الملف فيه معلومات شخصية ويسألك الحفظ ) اضغط موافق في هذا العنوان شرح لهذه الرسالة وكيفية ازالتها اذا اردت https://feasibility.pro/careful-excel-warning/ اذا كان الجواب يفضي بالغرض المطلوب اضغط على افضل اجابة لغلقه