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

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

تفضل يا حلبي 🙂 تنصيص التواريخ.accdb

إليك هذا الكود ضعه في مربع التحرير والسرد عند حدث التغيير If DCount("*", "qr1") = 0 Then If MsgBox(لقد تم ترحيل البيانات" & vbNewLine & vbNewLine & "هل تريد حذف بيانات النموذج" _ , vbQuestion + vbYesNo + vbMsgBoxRight, " تأكيد") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "DELETE qr2.* FROM qr2;" DoCmd.SetWarnings True End If End If

السلام عليكم جرّب أخي الكريم وأخبرني النتيجة تم التعديل على لون التيكست فورم.xlsm

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

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

تحتاج الى 22 iif وهذه الطريقة متعبة المبرمجون المحترفون لا يحبذون الرقم المحسوب ي الجدول

بحثت على الانترنت و وجدت حل لما كنت ابحث عنه تماما قمت بتطبيق الحل على ملف العمل و نجح ارفق لكم رابط الفيديو

سر غالى من اخ ومعلم غالى الله يرضى عنك ويرزقك من غير حساب ولكن سؤالى : هو مفيش حاجة فى الكمبيوتر ما تعرفهاش ـ كل شئ تعرفه ا ياسلام عليك مبدع وعبقرى جزاك الله كل خير وبارك الله فيك ورزقك الجنة جزاكم الله كل خير

تسلم هو المطلوب

على حسب ما فهمت هذا ما تحتاجه Sub PRINT_OUT() Range("a1:i29").PrintOut Copies:=2 End Sub

استخدم هذا الكود أخي عمر .. وهو بالعربي .. تضعه في موديول منفصل ثم تستدعيه كما هو موضح بالأسفل مثال : Public Function DateAsText(GivenDate As Date) As String Dim Daytxt, Monthtxt, Yeartxt As String Daytxt = NoToTxt(Day(GivenDate), "", "") 'Monthtxt = "من شهر " & NoToTxt(Month(GivenDate), "", "") ' فعل هذا السطر إذا أردت كتابة الشهر بالرقم وليس بالاسم Monthtxt = "من شهر " & MonthName(Month(GivenDate)) Yeartxt = "سنة" & NoToTxt(Year(GivenDate), "", "") DateAsText = Daytxt & "" & Monthtxt & " " & Yeartxt & "ميلادي" End Function 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 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 وطريقة استدعائه (كمصدر للخلية أو في الاستعلام) كالتالي : = DateAsText([Date])

@mra63 لا ادري لماذا اصرارك على عدم ادراج ملف وانشاء يوزرفورم حتى يستطيع الاخرين مساعدتك . عالعموم انشأ يوزفورم به اثنان تيكست بوكس وقم بالنقر مرتين على اليوزفورم والصق هذه الاكواد كاملة . عند تشغيل اليوزرفورم سيتم تلوين textbox1,2 باللون الاصفر و اذا كتبت في احدهم سيتلون بالابيض . Private Sub TextBox1_Change() If TextBox1.Text <> "" Then TextBox1.BackColor = RGB(255, 255, 255) Else TextBox1.BackColor = RGB(255, 255, 0) End If End Sub Private Sub TextBox2_Change() If TextBox2.Text <> "" Then TextBox2.BackColor = RGB(255, 255, 255) Else TextBox2.BackColor = RGB(255, 255, 0) End If End Sub Private Sub UserForm_Initialize() TextBox1.BackColor = RGB(255, 255, 0) TextBox2.BackColor = RGB(255, 255, 0) End Sub

عفوا هذا اسم الحقل في الاستعلام: استعمال صفر للحقل الفارغ ABC_1: nz([abc],0) استعمال فراغ "" للحقل الفارغ ABC_1: nz([abc],"") جعفر

شكرا جزيلا الله يجزيك الخير استاذ محمد

السلام عليكم أخي الكريم أخي الكريم ضع شرطاً للتكست بوكس إن كان فارغاً لونه بالأصفر وإلا باللون الأبيض Private Sub TextBox1_Change() If TextBox1.Value = "" Then TextBox1.BackColor = vbYellow Else TextBox1.BackColor = vbWhite End If End Sub كما هو معروض في الصورة التالية: تقبل تحياتي والسلام عليكم

أخي: 1- لماذا لا تستعمل Conditional formatting ؟ 2- هل وضعت معادلات بال text box أو لا اذا كنت مصراً عالكود فتفضّل: Sub Color_blank_cells() 'declare variables Dim ws As Worksheet Dim ColorRng As Range Set ws = Worksheets("Analysis") Set ColorRng = ws.Range("B3:C9") 'color blank cells ColorRng.SpecialCells(xlCellTypeBlanks).Interior.Color = RGB(220, 230, 241) End Sub طبعا تغيّر اللون من RGB(220, 230, 241) مثل ما تريد

تم الاجابة على جزء من سؤالك على هذا الرابط

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

اشكرك اخ محمد على تكرمك بالرد .. وعلى هذا الشرح الاكثر من رائع بارك الله فيك ولك ونفع الله بك .. شرح مميز وائع .. دمت بحفظ الله ورعايته

وعليكم السلام ورحمة الله 🙂 اهلا وسهلا بك في المنتدى ، وللاستفادة القصوى من المنتدى ، رجاء مراجعة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة بما انك طالب ، اذن خليني اشرح لك ، وانت تعمل الباقي للحصول على النتيجة ادناه 🙂 . 1. اعمل استعلام خاص للنموذج الذي على اليسار ، ولنحفظه باسم qry_Left ، واجعل هذا مصدر بيانات النموذج الذي على اليسار ، 2. اعمل استعلام خاص للنموذج الذي على اليمين ، ولنحفظه باسم qry_Right ، واجعل هذا مصدر بيانات النموذج الذي على اليمين ، 3. في الاستعلام qry_Right ، في معيار الحقل Employee_Name ، سنكتب (لا يوجد Not In) اننا لا نريد الاسماء من الاستعلام qry_Left ، وهذا هو المعيار: not in(Select Employee_Name From qry_Left) 4. اغلق كل شيء ، وافتح من جديد ، وسترى النتيجة اعلاه 🙂 جعفر

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

تفضل جرب هذا والتعليمات الجديدة في آخر صفحة إرسال رسائل عبر الوتساب3.xlsm

السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا اتفضل ان شاء الله يكون ماتريد بالنسبه للتعديلات تمت فى اضافه المتغيرات التاليه فى الوحده النمطيه UserModule User_Name User_ID ثم فى زر الدخول فى الفورم frm-UserLogon تم اسناد القيم للمتغيرات User_Name = Me.user User_ID = Me.user.Column(1) ثم فى فورم MAIN عند الفتح تم اسناد قيم المتغيرات للحقول Me.Text17 = User_ID Me.us = User_Name بالتوفيق test AMA.rar

الحمد لله الذي بنعمته تتم الصالحات لا شكر على واجب ...بارك الله بكم أخي الكريم

تم التعديل للاكواد التى تتناسب مع دوال الـ API وأوفيس 2007 32 Bit فى انتظار التجارب على مختلف النسخ لان التعديل تم خصيصا لأوفيس 2007 Ksa Qr 32x 64x 2007 to 2021.zip

ممكن يكون هذا طلبك https://www.youtube.com/watch?v=w00VNPMFVKE

كل الشكر لمرورك الكريم و نصائحك القيمة أستاذي محمد صالح .. انا مدرك تماما لأهمية تحويل محور الجدول للاستفادة من الاحصائيات هنا احدى المحاولات و عمل صفحة شهرية واحدة باسم شخص واحد و الايام بشكل عمودي .. و لكن لم يعطي المطلوب لا نزال نحتاج طريقة ادخال واحدة لعدة اشخاص و تعطي نتائج اسبوعية و شهرية لشخص لعدة اشخاص او لشخص واحد Monthly Page.xlsm

السلام عليكم ورحمة الله وبركاته الاستعلام يُعتبر العمود الفقري لقواعد البيانات ، وكلما زادت معرفتنا به ، كلما يصبح البرنامج افضل واسرع 🙂 البحث/التصفية في الاستعلام من الطرق المهمة ، ولكن وللأسف الشديد ، ارى الكثير من المبرمجين لا يعرفون الطريقة الصحيحة في عملها ، فالطريقة الغير صحيحة قد تعطيك النتائج ولكن على حساب وقت تنفيذ الاستعلام 😞 الامثله هنا تقوم على انه يوجد لدينا نموذج اسمه frm_Main ، وبه حقل الاسم fName ، وحقل التاريخ:من Date_From ، وحقل التاريخ:الى Date_To ، والحقول في الاستعلام ، حقل الاسم fName ، وحقل التاريخ DateX . 1. اذا اردنا البحث عن اسم كامل (وليس جزء من اسم) ، فيجب ان يكون المعيار في الاستعلام: [forms]![frm_Main]![fName] 2. واذا كان حقل الاسم فارغا في النموذج ، ونريد ان نرى جميع الاسماء ، فالمعيار يصبح: iif(len([forms]![frm_Main]![fName] & '')=0,[fName],[forms]![frm_Main]![fName]) والشرح للتأكد بأن الحقل فارغ في النموذج، بدل ان نكتب IsNull([forms]![frm_Main]![fName]) or [forms]![frm_Main]![fName]=0 فإننا نختصر هذين الشرطين بشرط واحد len([forms]![frm_Main]![fName] & '')=0 iif(كان الحقل فارغ في النموذج,[fName] اعطنا جميع بيانات الحقل,[forms]![frm_Main]![fName]واذا كان الحقل به قيمة فاستعمل هذه القيمة) . 3. اذا اردنا البحث عن جزء من الاسم Like IIf(Len([forms]![frm_Main]![fName] & '')=0,"*","*" & [forms]![frm_Main]![fName] & "*") والشرح IIf(Len([forms]![frm_Main]![fName] & '')=0 نعم Like "*" لا Like "*" & [forms]![frm_Main]![fName] & "*") . 4. اذا اردنا البحث بين تاريخين بدون سجلات التاريخ الفارغة Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) والشرح Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) مع سجلات التاريخ الفارغة Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) Or [DateX] Is Null والشرح Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) Or [DateX] Is Null او طريقة استاذنا واخونا العود ابو خليل Between nz([forms]![frm_main]![Date_From];"01/01/1900") And nz([forms]![frm_main]![Date_To];"01/01/2100") . جعفر

السلام عليكم أيها الأخوه تجدون في الرابط التــــــــــــالــــــي موقع فيه تصميم لأنواع عديده من قواعد البيانات و هي حقيقة خاصة بالأوراكل لكن التصميم الهيكلي واحد في الأكسس و الأوراكل لكن المختلف فقط طبيعة الحقول و بنيتها الهيكلية و فما عليك الا دراسة التصميم ووانشاء الجداول و تعريفها و يمكن ايضا في حال الضغط على أي موديل من الموديلات الموجوده , طلب تصميم نفس القاعدة بالأكسس و ذلك من خلال الضغط على زر Ask Me For An Access Datatbase يصلك على ايميلك تصميم لقاعدة بالأكسس