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

اضف حقل الثالث بهذا Expr1: DCount("[sit_no]";"[التوزيع التكراري]";"[التوزيع التكراري]![magmo]>=" & [magmo]) اي سيكون الاستعلام هكذا SELECT [التوزيع التكراري].magmo, Count([التوزيع التكراري].magmo) AS Countمنmagmo, DCount("[sit_no]","[التوزيع التكراري]","[التوزيع التكراري]![magmo]>=" & [magmo]) AS Expr1 FROM [التوزيع التكراري] GROUP BY [التوزيع التكراري].magmo HAVING ((([التوزيع التكراري].magmo)>=140)) ORDER BY [التوزيع التكراري].magmo DESC; tkrary.rar

تم تغيير مصدر الحقل المبيعات الى هذا =IIf([debit]=0;"";[debit_details]) و المشتريات الى هذا =IIf([credit]=0;"";[credit_details]) واليك القاعدة بعد تعديل Documents.rar

لجعل إدخال البیانات أكثر سھولة وللتحكم في القیم InputMask يمكنك استخدام الخاصیة التي يمكن أن يدخلھا المستخدمون في عنصر تحكم مربع النص. س 1: ماھي الطريقة التي أجعل المستخدم يدخل 4 أرقام في حقل رقم الھاتف أجبارياً وبدون مسافات أو أي أحرف أخرى ؟ ج: في خاصية قناع الإدخال ضع: 0000 س 2 :وإذا أردت أن أسمح بالمسافات أو ترك بعض الحقل فارغا بشرط أن لايزيد الإدخال عن 4 حروف ؟ ج: في خاصية قناع الإدخال ضع: 9999 س 3 :لقد حاولت بما ذكرته لي في الجواب السابق أن أضع بین الأرقام علامة + وعلامة – ولكن لم استطع فما ھي الطريقة في ذلك ؟ ج: في خاصية قناع الإدخال ضع: #### س 4 :ماسبق ھو في الأرقام ، ولكن كیف أجعل المستخدم يدخل أربعة حروف ولايسمح له بكتابة أقل من ذلك ؟ ج: في خاصية قناع الإدخال ضع: LLLL كبير ولايصح صغيراً. L يجب أن يكتب حرف س 5: ھذا واضح ، فما الطريقة لجعل إدخال الأحرف اختیارياً ؟ ج: في خاصية قناع الإدخال ضع: ???? س 6 :لكن لم تخبرني ھل يمكن في الحالتین السابقتین أن يدخل المستخدم أرقاماً مع الحروف ؟ ج: لا. س 7: إذن ما الطريقة إن احتجت لذلك ، ما أقصده أن يكون الإدخال حروف أو أرقام أو كلاھما ولكن إجباريا وعدد الأحرف أربعة ؟ ج: في خاصية قناع الإدخال ضع: AAAA كبيراً. A يجب أن تكتب حرف س 8: وإن أردت ما سبق اختیارياً ؟ ج: في خاصية قناع الإدخال ضع: aaaa س 9 :لكنه لم يسمح لي بإدخال مسافات في طريقة السؤال السابع ، ما أريده أن يكون الإدخال إجباريا يسمح بالأرقام والحروف والمسافات ؟ ج: في خاصية قناع الإدخال ضع: &&&& س 10 :وإن أردت السابق ولكن اختیارياً ؟ ج: في خاصية قناع الإدخال ضع: CCCC س 11 :عندي حقل نصي أسجل فیه كلمة سر ، وأريد أن تظھر الأحرف على شكل نجمة فما الطريقة ؟ ج: في خاصية قناع الإدخال ضع: Password س 12 :كیف أجعل الحروف المدخلة دائما كبیرة بواسطة قناع الإدخال ؟ ج: في خاصية قناع الإدخال ضع: >ثم بقية القناع ، مثال: '*>LLL*' س 13 :وإذا أردت الحروف صغیرة في كل الحقل ؟ ج: في خاصية قناع الإدخال ضع: >ثم بقية القناع ، مثال: <LLL س 14 : وإذا أردت القناع بعض الأحرف صغیرة وبعضھا كبیرة كیف أفعل ؟ ج: في خاصية قناع الإدخال ضع: >ثم بقية القناع ثم < ثم بقية القناع مثال: >LLL<LLLLL س 15 : كیف استطیع أن أغیر الحرف النائب الافتراضي _ الى حرف أو رمز آخر ؟ ج: في آخر القناع ضع الحرف النائب مكرراً ، مثال: لوضع = كحرف نائب اكتب: *>LL00000*\-0000;=;= س 16 :أريد بعض الأمثلة على قناع الإدخال ؟ ج : قناع الإدخال أمثلة القيم تعريف (000) 000-0000 (206) 555-0248 (999) 999-9999! (206) 555-0248 ( ) 555-0248 (000) AAA-AAAA (206) 555-TELE #999 -20 2000 >L????L?000L0 GREENGR339M3 MAY R 452B7 >L0L 0L0 T2F 8M4 00000-9999 98115- 98115-3007 >L<?????????????? Maria Pierre ISBN 0-&&&&&&&&&-0 ISBN 1-55615-507-7 ISBN 0-13-964262-5 >LL00000-0000 DB51392-0493 sk قناع الإدخال

طلب الي احد الاصدقاء وضع كود لادراج رزنامة لسنة محددة وشهر محدد مع تمييز (يوم معيّن) من هذا الشهر فكان هذا الكود الذي ارجو ان يستفيد منه الاخرون قبل تنفيذ الكود الكود: تسمية الصفحة التي تريد العمل عليها بهذا الاسم "Salim_Calendar" اكتب في الخلية B1 رقم السنة في الخلية B2 رقم الشهر في الخلية G1 رقم اليوم المييز الكود Option Explicit Option Base 1 Sub My_Calandar() If ActiveSheet.Name <> "Salim_Calendar" Then Exit Sub Dim t As Date, i As Byte Dim Arab_day(), m% Dim EnG_day(), rows_count As Byte Dim col As Byte Dim r As Byte Dim search_day As Date rows_count = Range("b4").CurrentRegion.Rows.Count + 3 Range("b4:H" & rows_count).ClearContents Range("b5:h10").Interior.ColorIndex = 0 '''''''''''''''''''''''''Conditions for working'''''''''''''''''' If Not IsNumeric([b1]) Or Not IsNumeric([b2]) _ Or [b1] < 1 Or [b2] > 12 Or [b2] < 1 Then MsgBox "Type Valid Numbers in cell(B1) & cell(B2)": Exit Sub End If ''''''''''''''''''''''''' End of Conditions for working'''''''''''''''''' r = 5 t = DateSerial([b1], [b2], 1) '''''''''''''''''''''''''Conditions for Special Day'''''''''''''''''' If Not IsNumeric([g1]) Or [g1] > Day(Application.EoMonth(t, 0)) _ Or [g1] < 1 Then [g1] = 1 Else [g1] = Int([g1]) End If '''''''''''''''''''''''''End of Conditions Special Day'''''''''''''''''' search_day = DateSerial([b1], [b2], [g1]) Arab_day = Array("الأحد", "الإثنين", "الثلاثاء", _ "الأربعاء", "الخميس", "الجمعة", "السّبت") ' EnG_day = Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat") Range("b4").Resize(, 7) = Arab_day m = Weekday(t) + 1 For i = 1 To 31 Cells(r, m) = t If t = search_day Then Cells(r, m).Interior.ColorIndex = 3 Else Cells(r, m).Interior.ColorIndex = 35 End If If Month(t + 1) > [b2] Then Exit For t = t + 1 m = m + 1 col = Cells(r, m).Column If col > 8 Then r = r + 1: m = 2 Next Erase Arab_day End Sub الملف مرفق My_Calendar.xlsm

ولإثراء الموضوع يمكن اختصار الأكواد قليلا إلى هذا Option Explicit Option Base 1 Sub My_Calandar() If ActiveSheet.Name <> "Salim_Calendar" Then Exit Sub Dim t As Date, i As Byte Dim Arab_day(), m% Dim EnG_day(), rows_count As Byte Dim col As Byte Dim r As Byte Dim search_day As Date rows_count = Range("b4").CurrentRegion.Rows.Count + 3 Range("b4:H" & rows_count).ClearContents Range("b5:h10").Interior.ColorIndex = 0 '''''''''''''''''''''''''Conditions for working'''''''''''''''''' If Not IsNumeric([b1]) Or Not IsNumeric([b2]) _ Or [b1] < 1 Or [b2] > 12 Or [b2] < 1 Then MsgBox "Type Valid Numbers in cell(B1) & cell(B2)": Exit Sub End If ''''''''''''''''''''''''' End of Conditions for working'''''''''''''''''' r = 5 '''''''''''''''''''''''''Conditions for Special Day'''''''''''''''''' If Not IsNumeric([g1]) Or [g1] > Day(Application.EoMonth(t, 0)) _ Or [g1] < 1 Then [g1] = 1 Else [g1] = Int([g1]) End If '''''''''''''''''''''''''End of Conditions Special Day'''''''''''''''''' search_day = DateSerial([b1], [b2], [g1]) Arab_day = Array("الأحد", "الإثنين", "الثلاثاء", _ "الأربعاء", "الخميس", "الجمعة", "السّبت") ' EnG_day = Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat") Range("b4").Resize(, 7) = Arab_day For i = 1 To 31 t = DateSerial([b1], [b2], i) m = Weekday(t) + 1 Cells(r, m) = t Cells(r, m).Interior.ColorIndex = IIf(t = search_day, 3, 35) If Month(t + 1) > [b2] Then Exit For r = IIf(m + 1 > 8, r + 1, r) Next Erase Arab_day End Sub نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

الاخوة الفضلاء مرفق تطبيق للنسخ الاحتياطي لاي قاعدة بيانات مع حماية النسخة الاحتياطية بكلمة سر ضمن الاجراءات حذف اي قاعدة بيانات في مجلد النسخ الاحتياطية ( يحمل نفس الاسم ) التطبيق أظنه يغني عن الشرح و حال لزوم الشرح نقوم بذلك ان شاء الله و الله من وراء القصد ... BE BackUp & PW.rar

السلام عليكم ابدأ بثلاث جداول : جدول العهد / جدول الموظفين / جدول الحركة يجب ان تتبع الطرق الصحيحة في تصميم الجداول والحقول داخلها من اهمها احرص ان تكون اسماء الجداول والحقول بحروف انجليزية والتسمية التوضيحية بالعربية

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

الاخوة الاعزاء اضع بين ايديكم هذا البرنامج البسيط الخاص بنظام تسجيل الاقساط اليا متمنيا لكم الفائدة شرح عمل البرنامج مرفق بالصور 1- نقوم بادخال بيانات العميل وتحديد قيمة القسط وعدد الاقساط ثن نكبس على ايقونة الاقساط 2- ننتقل الى شاشة اخرى نكبس على ايقونة تسجيل الاقساط فيتم تنزيل الاقساط اليا 3- عند الدفع يتم تغيير ايقون ةلم يتم الدفع الى تم الدفع اقساط 2018.rar

السلام عليكم ورحمه الله وبركاته اخواني مشرفي واعضاء المنتدى الكرام عندي مشكله عند عمل استيراد يحذف بينات جدول المشتريات والمرتجع وجدول transaction ولا عرفت ايش السر واتوقع انه يوجد علاقه بهما باكثر من جدول ارجو افادتكم ولك مني جزيل الشكر اخوكم ابو ياسين بـرنـامـج خـيـاط.rar

الله يستر عليك نعم هذا مطلوبي الله يعطيك العافيه استاذي الف تحيه اليك شكرا

اتفضل اخي ابو زاهر اتمنى يكون المطلوب الاضافه بالعرض (1).rar

السلام عليكم ورحمة الله الأخ سليم حاصبيا بارك الله فيكم هو المطلوب الله يوفقك

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

يا سلام هذا ما كنت ابحث عنه سلمت يداك

هذه المعادلة تستعملها مع(Ctl+Shift+Enter) وليس ( Enter)وحده =MAX((IF($B$4:$B$7=$E$16,INDEX($C$4:$H$7,MATCH($E$16,$B$4:$B$7,0),))*($C$3:$H$3="شراء")))

قيد العمل

كل المحبة والاحترام

السلام عليكم معلومات رائعة. سلمت يداك

بارك الله فيك مجهود رائع يستحق التقدير

الف شكر يا استاذ عبد اللطيف و جزك الله خيرا

تفضل هذا كود آخر يقوم بالعمل بشكل جيد Dim x As String, y As Integer, r As Integer, d As Date Me.Frm_Employee.SetFocus DoCmd.GoToRecord , , acFirst x = Me.Frm_Employee.Form![emp_No] y = Me.Frm_Employee.Form![co_id] r = Me.Frm_Employee.Form![cost] d = Me.Frm_Employee.Form![birthdt] If Me.No_of_dbl = "" Then MsgBox "Please Type No Of Employee" Else MsgBox "Are you sure you want add ," & [No_of_dbl] & ", Passengers" Dim i As Integer For i = 1 To Me.No_of_dbl DoCmd.GoToRecord , , acNewRec Me.Frm_Employee.Form![emp_No] = x Me.Frm_Employee.Form![co_id] = y Me.Frm_Employee.Form![cost] = r Me.Frm_Employee.Form![birthdt] = d Next i End If Me.Refresh MultiDubl_2.rar

جزاك الله خبر

بارك الله فيك .. ملف مهم جداً

بالتوفيق اخي ابو زاهر

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

جرب التالي من لوحة التحكم Control Pannel Region Adminstrative Change System Local و اختار عربي لاحدى الدول المتاحة

اتفضل استخدمت جملة شرطية Private Sub أمر11_Click() If Len(Me.aa1 & vbNullString) = 0 Then strcriteria = Replace(strcriteria, " Where ", "") 'DoCmd.OpenReport "تصفية البيع", acViewPreview, , strcriteria DoCmd.OpenReport "تصفية البيع", acViewNormal, , strcriteria Else Dim RName, FldCriteria As String RName = "تصفية البيع" FldCriteria = "[رقم الفاتورة]=" & Me![aa1] DoCmd.OpenReport RName, acViewNormal, , FldCriteria End If End Sub طباعة.rar

اتفضل تم استخدام فورمات في داخل الحقل في الاستعلام اي من هذا Rs: Nz(DSum("[madeen]-[daaen]";"r1";"[ID_r]<=" & [ID_r]);0) الى هذا Rs: Format(Nz(DSum("[madeen]-[daaen]";"r1";"[ID_r]<=" & [ID_r]);0);"Standard") استعلام رصيد.rar

اتفضل اليكم رابط قوالب للاكسل من شركة مايكروسوفت نفسه https://templates.office.com/ar-sa/templates-for-Excel

استاذن من استاذنا الغالي @صالح حمادي مهمة جدا اتفضل انسى طريقة التنسيق الشرطي واستخدم الكود في التقرير Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) If Me.total = 0 Then Me.total.BackColor = vbRed Else Me.total.BackColor = vbWhite End Sub الاصلي.rar

نعم جربه او ارفق نسخة مصغرة من قاعدتك

اتفضل اليك هذا Private Sub Owner_Company_AfterUpdate() Me.Invoice_No = Nz(DMax("[Invoice_No]", "[New_Invoice]", "[Owner_Company]='" & Me.Owner_Company & "'"), 0) + 1 End Sub 13 - Copy.zip

تم تغيير عنوان المشاركة

وعليكم السلام ورحمة الله وبركاته جرب DoCmd.OpenForm "اسم نموذج التفاصيل", , , , acFormAdd

بعد اذن الاستاذ ابا خليل راجع الرابط هنا اعتقد نفس المطلوب

لا بد من اتباع القواعد الصحيحة لتصميم وبناء قواعد البيانات في مثالك من المتوقع وجود رقم الموظف وتاريخ العملية / ويفضل ان يكون التاريخ عام او ما يسمى جنرال = Now() ولو قلت اننا نستخرج البيانات بناء على الفترات (بداية الوقت ونهايته ) فنؤكد انه يجب ان يكون احد التواريخ في السجل = عام الدالة Now جميلة جدا تحتضن كل شيء ولو اردت معالجة بياناتك على الوضع الحالي فانت ملزم بصنع استعلام وفيه حقل خاص يجمع بين التاريخ والوقت اتمنى اكون بينت سبب الاشكال عندك

السلام عليكم الخطأ فعلا كما اشار أبو عيد هو فى النص والتاريخ كالتالى اولا القيمة الموجودة فى الخلية H48 لا تعبر عن تاريخ وهي غير متوافقة مع ما سبقها فى الجدول من فواصل التاريخ الرجاء مراجعة اعدادات الجهاز او كتابة التاريخ بنفس ما سبقة من فواصل ثانيا انت تحاول استعمال دالة روابط النص لتجميع التواريخ فإذا قمت باستعمال هذة الدالة بعد التعديل الى صيغة التاريخ سوف تستعمل الدالة التاريخ المبلادى - لذلك قمت بتعديل المعادلة فى الخلية I48 الى معادلة حسابية بفرض ان السنة الهجرية تساوى 354.367056 يوم وهى ... تاريخ اخر دفعة = تاريخ اول دفعة + (عدد الاقساط -1) * 354.367056/12 H48+ROUND((D48-1)*354.367056/12,0) المعادلة السابقة تعطى نتائج قد تفرق حسابيا يوم او بعض الكسور من اليوم فمثلا قد تجد اول قسط يوم 25 واخر قسط يوم 24 او 26 لذلك قمت باضافة الفرق فى الايام الى ناتج المعادلة بتحويل التاريخ الى نص ثم حساب الفرق بين التاريخين (لتفادى ان الاكسل يتعامل فى معادالات التاريخ بالتقويم الميلادى فقط ) وبالتالى اضافة هذا الفرق MID(TEXT(H48,"b2dd.mm.yyyy"),1,2)-MID(TEXT(H48+ROUND((D48-1)*354.367056/12,0),"b2dd.mm.yyyy"),1,2) المعادلة بالكامل للسطر 48 هى كالتالى =H48+ROUND((D48-1)*354.367056/12,0) + MID(TEXT(H48,"b2dd.mm.yyyy"),1,2)-MID(TEXT(H48+ROUND((D48-1)*354.367056/12,0),"b2dd.mm.yyyy"),1,2) وللتأكد من صحة المعادلة قمت بتطبيقها على الجدول بالكامل ومقارنة النتائج بتلك المحسوبة يدويا فى السابق وفعلا تطابقت التواريخ ما عدا السطر رقم 31 فيوجد به خطأ فى الاصل مرفق طيه الملف تلوين بشرط ...1.zip

إليكم أخى الكريم الملف بالمرفقات لعله المطلوب اختر الشهر من القائمة المنسدله ثم اضغط على زر ترحيل وتقبل منى وافر الإحترام والتقدير 2.rar