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

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل أخي .. تم استخدام هذه الدالة : LastValue : Right([Daignosis];Len([Daignosis])-InStrRev([Daignosis];",")) x.rar

ممكن تستخدم التنسيق الشرطي

بالاضافة لما تفضل به اخي ناقل تستطيع ان تضع الكود التالي في حدث الحالي او بعد تحديث الكمية Private Sub Form_Current() If Me.Text1 <= 10 Then Me.Text1.BackColor = vbRed End If End Sub

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

تفضل أخي @hougar جرب هذا : DLookUp("[Barcode]","[products]","[Barcode] Like '*"& Me.srchb &"*'")

وعليكم السلام ورحمة الله وبركاته .. 🙂 أخي ما نوع البيانات لحقل الباركود Barcode ؟ نص أم رقم ؟ هل هذا srchb اسم متغير أم اسم حقل في النموذج ؟ لكن على اعتبار أن نوع البيانات رقمي .. وأن srchb هو اسم لمتغير .. جرب هذه الدالة : DLookUp("[Barcode]","[products]","[Barcode] Like *"& srchb &"*") جرب وأعلمنا بالنتيجة 🙂

وعليكم السلام-اجعل المعادلة هكذا =IF($M$1="زيت 20لتر",(SUMIFS($F$1:$F$5,$B$1:$B$5,$M$1,$G$1:$G$5,$L$1,$A$1:$A$5,">="&L4,$A$1:$A$5,"<="&EOMONTH(L4,0))+SUMIFS($F$1:$F$5,$B$1:$B$5,$N$1,$G$1:$G$5,$L$1,$A$1:$A$5,">="&L4,$A$1:$A$5,"<="&EOMONTH(L4,0)))/(20*SUMIFS($D$1:$D$5,$B$1:$B$5,$M$1,$G$1:$G$5,$L$1,$A$1:$A$5,">="&L4,$A$1:$A$5,"<="&EOMONTH(L4,0))+IF($N$1="زيت 5لتر",$K$1*SUMIFS($D$1:$D$5,$B$1:$B$5,$N$1,$G$1:$G$5,$L$1,$A$1:$A$5,">="&L4,$A$1:$A$5,"<="&EOMONTH(L4,0))))) ورقة عمل1 Microsoft Excel جديد.xlsx

فضل هذه المحاولة في حدث عند الفتح ضح الكود التالي [id_n].DefaultValue = Year(Now()) & DCount("*", "T_takrir") + 1 [id_n].Format = "0000 - 0" مرفق التعديل جورج الطويل.accdb

Sub Test() Dim ws As Worksheet, sh As Worksheet, rRange As Range, rCell As Range, rng As Range, t As Double, iRow As Long, r As Long, c As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets(2) 'Tasks Set sh = ThisWorkbook.Worksheets(1) 'Summary iRow = 4: r = iRow With sh.Rows(iRow + 1 & ":" & Rows.Count) .ClearContents: .Borders.Value = 0 End With Set rRange = ws.Range("B5:B" & ws.Cells(Rows.Count, "B").End(xlUp).Row) Set rCell = rRange.Cells(1, 1) Do If rCell.Value = Chr(199) & Chr(225) & Chr(199) & Chr(204) & Chr(227) & Chr(199) & Chr(225) & Chr(237) Or rCell.Value = Empty Then GoTo NXT r = r + 1: t = 0 sh.Cells(r, 1).Value = r - iRow sh.Cells(r, 2).Value = rCell.Value For c = 3 To 16 Set rng = rCell.Offset(, c - 2).Resize(rCell.MergeArea.Rows.Count) t = Application.WorksheetFunction.Sum(rng) If t = 0 Then sh.Cells(r, c).Value = Empty Else sh.Cells(r, c).Value = t Next c NXT: Set rCell = rCell.Offset(1, 0) Set rng = Nothing Loop Until (rCell.Row > (rRange.Row + rRange.Rows.Count - 1)) With sh.Rows(iRow + 1 & ":" & r) .Borders.Value = 1 End With Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله تعالى وبركاته احيانا نريد التأكد من وجود قيمة محددة فى حقل محدد داخل جدول محدد وذلك حتى نتأكد من عدم حدوث تكرار وطبعا كالعادة سوف اقدم لكم اليوم فكرتى المتواضعة فى هذا الشأن من خلال استخدام وظيفة عامة تعمل كروتين من خلال وحدة نمطية بحيث يتم اسناد القيم التى تخص كل من القيمة واسم الحقل واسم الجدول الى متغيرات عامة ليتم الفحص يعنى مثل ما سوينا من قبل مع المعرف الخاص البرمجى هنا فى هذا الموضوع '|-----------------------------------------------------------| '|---15/09/1443-------16/04/2022_____________________________| '|___www.officena.net________________________________________| '| | '| _ +-----------officena-----------+ _ | '| /o) | ||||| | (o\ | '| / / | @(~O^O~)@ | \ \ | '| ( (_ | _ ----oOo--Moh--oOo----- _ | _) ) | '| ((\ \) +/o)----------3ssam---------(o\+ (/ /)) | '| (\\\ \_/ / \ \_/ ///) | '| \ / \ / | '| \____/________Mohammed Essam________\____/ | '| 15/09/1443 | '| 16/04/2022 | '| | '|_____www.officena.net______________________________________| '|_____Thank you for visiting https://www.officena.net_______| '|-----------------------------------------------------------| '======Check Input Exist By Input Type======================================================================================================================================' ' ____ __ ____ ____ __ ____ ____ __ ____ ______ _______ _______ __ ______ _______ .__ __. ___ .__ __. _______ .___________. ' ' \ \ / \ / / \ \ / \ / / \ \ / \ / / / __ \ | ____|| ____|| | / || ____|| \ | | / \ | \ | | | ____|| | ' ' \ \/ \/ / \ \/ \/ / \ \/ \/ / | | | | | |__ | |__ | | | ,----'| |__ | \| | / ^ \ | \| | | |__ `---| |----` ' ' \ / \ / \ / | | | | | __| | __| | | | | | __| | . ` | / /_\ \ | . ` | | __| | | ' ' \ /\ / \ /\ / \ /\ / __| `--' | | | | | | | | `----.| |____ | |\ | / _____ \ __| |\ | | |____ | | ' ' \__/ \__/ \__/ \__/ \__/ \__/ (__)\______/ |__| |__| |__| \______||_______||__| \__| /__/ \__\ (__)__| \__| |_______| |__| ' ' ' '===========================================================================================================================================================================' Public Function CheckInputExist( _ ByRef strFieldName As String, _ ByRef strTableName As String, _ ByVal strObjectContainFieldValue) As Boolean On Error GoTo ErrorHandler Dim strFormName As Access.Form Dim stLinkCriteria As String Dim strMsgTitel As String Dim strMsgPrt1 As String Dim strMsgPrt2 As String Dim strErrMsgTitel As String Dim strErrMsg As String Set strFormName = Screen.ActiveForm strMsgPrt1 = ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1593") & ChrW("1579") & ChrW("1608") & ChrW("1585") & ChrW("32") & ChrW("1593") & ChrW("1604") & ChrW("1609") & ChrW("32") & ChrW("46") & ChrW("46") & ChrW("13") & ChrW("10") & ChrW("40") & ChrW("160") strMsgPrt2 = ChrW("32") & ChrW("41") & ChrW("13") & ChrW("10") & ChrW("1587") & ChrW("1608") & ChrW("1601") & ChrW("32") & ChrW("1610") & ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1606") & ChrW("1578") & ChrW("1602") & ChrW("1575") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1580") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1606") If Len(strObjectContainFieldValue) = 0 Or IsNull(strObjectContainFieldValue) Then Exit Function Select Case FieldTypeName(strFieldName, strTableName) Case Is = "Text": stLinkCriteria = strFieldName & "= '" & strObjectContainFieldValue & "'" Case Is = "Date/Time": stLinkCriteria = strFieldName & "= #" & Format(strObjectContainFieldValue, "dd/mm/yyyy") & "#" Case Is = "Long Integer": stLinkCriteria = strFieldName & "=" & strObjectContainFieldValue Case Is = "Integer": stLinkCriteria = strFieldName & "=" & strObjectContainFieldValue Case Is = "Byte": stLinkCriteria = strFieldName & "=" & strObjectContainFieldValue Case Is = "Single": stLinkCriteria = strFieldName & "=" & strObjectContainFieldValue Case Is = "Double": stLinkCriteria = strFieldName & "=" & strObjectContainFieldValue Case Is = "Decimal": stLinkCriteria = strFieldName & "=" & strObjectContainFieldValue End Select If DCount("*", strTableName, stLinkCriteria) > 0 Then MsgBox$ strMsgPrt1 & strObjectContainFieldValue & strMsgPrt2, vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "" strFormName.Undo strFormName.Recordset.FindFirst stLinkCriteria Else End If procDone: Exit Function ErrorHandler: strErrMsgTitel = ChrW("1582") & ChrW("1591") & ChrW("1571") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1606") & ChrW("1608") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1576") & ChrW("1610") & ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578") strErrMsg = ChrW("1604") & ChrW("1602") & ChrW("1583") & ChrW("32") & ChrW("1581") & ChrW("1575") & ChrW("1608") & ChrW("1604") & ChrW("1578") & ChrW("32") & ChrW("1573") & _ ChrW("1583") & ChrW("1582") & ChrW("1575") & ChrW("1604") & ChrW("32") & ChrW("1606") & ChrW("1608") & ChrW("1593") & ChrW("32") & ChrW("1576") & ChrW("1610") & _ ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & _ ChrW("1610") & ChrW("1581") & ChrW("46") & ChrW("46") & ChrW("46") & ChrW("13") & ChrW("10") & ChrW("32") & ChrW("1606") & ChrW("1608") & ChrW("1593") & _ ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1610") & ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578") & ChrW("32") & ChrW("1575") & _ ChrW("1604") & ChrW("1605") & ChrW("1587") & ChrW("1578") & ChrW("1582") & ChrW("1583") & ChrW("1605") & ChrW("32") & ChrW("1607") & ChrW("1608") & ChrW("32") & _ ChrW("40") & ChrW("32") & FieldTypeName(strFieldName, strTableName) & ChrW("32") & ChrW("41") & ChrW("13") & ChrW("10") & ChrW("1605") & ChrW("1606") & ChrW("32") & _ ChrW("1601") & ChrW("1590") & ChrW("1604") & ChrW("1603") & ChrW("32") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1576") & ChrW("1573") & ChrW("1583") & _ ChrW("1582") & ChrW("1575") & ChrW("1604") & ChrW("32") & ChrW("1576") & ChrW("1610") & ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578") & ChrW("32") & _ ChrW("1578") & ChrW("1578") & ChrW("1591") & ChrW("1575") & ChrW("1576") & ChrW("1602") & ChrW("32") & ChrW("1605") & ChrW("1593") & ChrW("32") & ChrW("1606") & _ ChrW("1608") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1610") & ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578") _ & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1587") & ChrW("1578") & ChrW("1582") & ChrW("1583") & ChrW("1605") Select Case Err.Number Case Is = 2471: MsgBox$ strErrMsg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, strErrMsgTitel Case Is = 3075: MsgBox$ strErrMsg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, strErrMsgTitel Case Else MsgBox$ Err.Number & ": " & Err.Description End Select Resume procDone End Function Public Function FieldTypeName(ByRef strFieldName As String, ByRef strTableName As String) As String Dim db As DAO.Database Dim objRecordset As DAO.Recordset Dim i As Integer Set objRecordset = CurrentDb.OpenRecordset(strTableName) For i = 0 To objRecordset.Fields.Count - 1 If strFieldName = objRecordset.Fields(i).Name Then Dim strReturn As String Select Case CLng(objRecordset.Fields.Item(i).Type) 'fld.Type is Integer, but constants are Long. Case dbBoolean: strReturn = "Yes/No" ' 1 Case dbByte: strReturn = "Byte" ' 2 Case dbInteger: strReturn = "Integer" ' 3 Case dbLong ' 4 If (objRecordset.Fields.Item(i).Attributes And dbAutoIncrField) = 0& Then strReturn = "Long Integer" Else strReturn = "AutoNumber" End If Case dbCurrency: strReturn = "Currency" ' 5 Case dbSingle: strReturn = "Single" ' 6 Case dbDouble: strReturn = "Double" ' 7 Case dbDate: strReturn = "Date/Time" ' 8 Case dbBinary: strReturn = "Binary" ' 9 (no interface) Case dbText '10 If (objRecordset.Fields.Item(i).Attributes And dbFixedField) = 0& Then strReturn = "Text" Else strReturn = "Text (fixed width)" '(no interface) End If Case dbLongBinary: strReturn = "OLE Object" '11 Case dbMemo '12 If (objRecordset.Fields.Item(i).Attributes And dbHyperlinkField) = 0& Then strReturn = "Memo" Else strReturn = "Hyperlink" End If Case dbGUID: strReturn = "GUID" '15 'Attached tables only: cannot create these in JET. Case dbBigInt: strReturn = "Big Integer" '16 Case dbVarBinary: strReturn = "VarBinary" '17 Case dbChar: strReturn = "Char" '18 Case dbNumeric: strReturn = "Numeric" '19 Case dbDecimal: strReturn = "Decimal" '20 Case dbFloat: strReturn = "Float" '21 Case dbTime: strReturn = "Time" '22 Case dbTimeStamp: strReturn = "Time Stamp" '23 'Constants for complex types don't work prior to Access 2007 and later. Case 101&: strReturn = "Attachment" 'dbAttachment Case 102&: strReturn = "Complex Byte" 'dbComplexByte Case 103&: strReturn = "Complex Integer" 'dbComplexInteger Case 104&: strReturn = "Complex Long" 'dbComplexLong Case 105&: strReturn = "Complex Single" 'dbComplexSingle Case 106&: strReturn = "Complex Double" 'dbComplexDouble Case 107&: strReturn = "Complex GUID" 'dbComplexGUID Case 108&: strReturn = "Complex Decimal" 'dbComplexDecimal Case 109&: strReturn = "Complex Text" 'dbComplexText Case Else: strReturn = "unknown" End Select End If Next i FieldTypeName = strReturn End Function يتم استدعاء الوظيقة بشكل عام من خلال الكود الاتى Call CheckInputExist("FieldName", "TableName", Me.txtBox) وأخيرا المرفق للتجربة ملاحظة : تم تعديل المرفق والكود بناء على رد استاذى الجليل الباش مهندس @Moosak التعديل النهائى بتحديث المرفق بتاريخ يوم السبت 22 رمضان 1443 هـ , 23 -أبريل -2022 م تم إضافة وظيقة للتعرف نوع البيانات المستخدم فى الحقل داخل الجدول Check Input Exist.accdb

جرب الكود التالي..ضعه بعد تحديث اسم الاب .. واضف الى المعايير ماشئت ..وعند تكرار الاسم سوف يعيدك لصفحة الشخص Private Sub father_AfterUpdate() Dim stLinkCriteria As String Dim custNo As Integer stLinkCriteria = "[namee] = '" & Me.namee & "' and [family] = '" & Me.family & "' And [father] = '" & Me.father & "'" If Me.namee = DLookup("[namee]", "T_takrir", stLinkCriteria) Then MsgBox "هذا الاسم: " & namee & " " & family & " " & father & ", موجود مسبقا في قاعدة البيانات." & _ vbCr & vbCr & "الرجاء التاكد من الاسم", vbInformation, "معلومات مكررة" Me.Undo custNo = DLookup("[id_n]", "T_takrir", stLinkCriteria) Me.DataEntry = False DoCmd.FindRecord custNo, , , , , acCurrent End If End Sub

السلام عليكم اخى الفاضل @aboeyad2007 قمت باستخدام 2 مديول من امثله معلمى العزيز وشيخنا الجليل @ابوخليل جزاه الله عنا كل خير لتحويل التاريخ الهجرى الى ميلادى عندما تكون التواريخ فعليا ميلاديه وعند استخدام اوبشن استخدام التقويم اهجرى اليك المثال بعد التعديل قمت بالتغير فقط حاليا ع الزر تقرير الغياب اليومي للطالب يمكنك ضبط الزر الاخر بنفس الطريقه واعذرنى ان قصرت فالفهم جرب ووافنى بالنتيجه عياب(2).accdb

يعمل بكل كفائة أخي طارق 🙂 ( لاحظ الرقم الأحمر من اليمين ) الترقيم موزع بهذه الطريقة : الرقم السنة الشهر اليوم الرمز 000001 22 04 17 /206 بخصوص طلبك هذا يمكنك الاستفادة من موضوع الأستاذ الإمام المهندس العلامّة محمد عصام @ابو جودي : 🙂

شكرا جزيلا @Moosakلقد نجح الكود بامتياز بارك الله فيك ونفعنا بك دوما

السلام عليكم تفضل الملفtest_print.xlsm

وايضا هذا الكود وتحدد عدد السطور دون الدخول للماكرو Sub InsertPageBreaksEveryXRow() Dim xLastrow As Long Dim xWs As Worksheet Set xWs = Application.ActiveSheet xRow = Application.InputBox("أدخل عدد السطور المراد طباعتها في كل صفحه", xTitleId, "", Type:=1) xWs.ResetAllPageBreaks xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row For i = xRow + 1 To xLastrow Step xRow xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1) Next End Sub انظر للمرفق test_print (1).xlsm

ماشاء الله lionheart كود رائع بارك الله في علمك

استهلاك الاصول.xlsx ارجو ان يساعدك هذا النموذج

بسم الله ما شاء الله ديما موفق استاذ علي ويزيدك من علمه جزاك الله خيرا

وفيك بارك الله اخى @abouelhassan طيب جرب هذا التعديل واخبرنى خذه كوبى وباسط مكان الاخر وشغل الفورم والتاريخ واخبرنى بالنتيجه RSabek: Nz(DSum("[Creditor]-[Debit]";"Financial_Records";"Customer_ID=" & [Customers]![Customer_ID] & " And [Registration_Date]<" & Format([Registration_Date];"\#mm\/dd\/yyyy\#"));0) بالتوفيق

طب 9/10 علشان اول واحد مجاوب وعلشان العيش والملح 😅 حلو عصف الاذهان ويكفيك شرف المحاولة غلطة الشاطر بـ 1000 كده انا 7/10 😭

السلام عليكم ورحمة الله .. .ربما تقصد ما في هذه التجربة المتواضعة 112.xlsm

الاخ احمد الفلاحجي شكرا لك اخي

اخى الملف السابق عند اختيار احد الحسابات السته يبقوم بترحيل الست حسابات مرة واحدة الي شيت الالتزامات و المقدم ولقد انتبهت انك قد تود ترحيلهم حساب حساب الملف التالي يقوم بذلك وقد اضفت تميز للارقام السالبة فى التكست بوكس ان تكون حمراء الترحيل_2.xlsb

أشكر أخويّ الكريمين على هذه الكلمات الدافئة بارك الله بكما وجعل ذلك بموازين حسناتكما. فمن لم يشكر الناس لم يشكر الله. والسلام عليكم

وهذا تطبيق على برنامجك 🙂 حبيت أجرب كود الباش مهندس 😄🖐🏼️ جورج الطويل.accdb

كل الاحترام استاذ محمد بالعكس اضافاتك مميزة وتضفي اثراء للمشاركات كل عام وانتم بخير

السلام عليكم ورحمة الله وبركاته إخوتي الكرام: تم التحكم بحجم البيانات من خلال طريقة العمل التالية: ثم وضع ذلك في الكود Sub طباعة() ActiveWindow.SelectedSheets.PrintOut copies:=2 End Sub __________________________________________________________________________________________________________________________________ أعتذر للأستاذ الكريم نزار سليمان عيد لم أشاهد مشاركته إلا بعد أن شاركت بها وعلى كل هذا رافد ...والتنوع طيب ... بارك الله بكم تقبلوا مروري والسلام عليكم طبع الصفحات التي تحتوي على بيانات.xlsx123 (1).xlsm

تحتاج لهذا الكود Sub PrintA() 'prints rows of data, will not print rows if column A is blank Application.ScreenUpdating = False Range("A:A").EntireRow.Hidden = False Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("A:A").EntireRow.Hidden = False Application.ScreenUpdating = True End Sub او هذا الكود Sub PrintSummary() Dim myrange As String myrange = Cells(Rows.Count, 17).End(xlUp).Address ActiveSheet.PageSetup.PrintArea = "$A$1:" & myrange Application.Goto Reference:="R1C1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=False End Sub فضلا انظر للمرفق طبع الصفحات التي تحتوي على بيانات.xlsx123 (1).xlsm

جُزيتم من الرحمن خير الجَزاءِ، وباركَ لَكُمُ في وقتكم أخي المُبارك أ. أحمد.

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير افتح الاستعلام فى وضع التصميم واقف على الحقل RSabek هتلاقى موجود به داله DSum RSabek: Nz(DSum("[daen]-[mdeen]";"tblName";"SName='" & [SName] & "' And [id]<" & [id]);0) جمع حقل الدائن ناقص المدين من الجدول بشرط الاسم يكون مساوى للاسم بالاضافه لرقم العمليه اللى هو الترقيم التلقائى اقل من الرقم اللى قبله , ويمكن استعمال التاريخ بدلا منه وفى حقل Rseed Rseed: ([RSabek]+[Daen])-[Mdeen] قمنا بجمع الرصيد السابق + الدئن ناقص المدين ومرفق تعديل للمثال باستخدام التاريخ بدلا من الترقيم التلقائى RSabek: Nz(DSum("[daen]-[mdeen]";"tblName";"SName='" & [SName] & "' And [SDate]<" & Format([SDate];"\#mm\/dd\/yyyy\#"));0) بالتوفيق TestRseedSabk_ByDate.accdb

تفضل أخي الكريم إن شاء الله يكون المطلوب mas_مدد الخدمة المسجلة بالتامينات.xls

السلام عليكم ورخمة الله فى الملفين التاليين تم الاستغناء عن عمود الجنسية لتوفير عمود للرقم القومى و استكمال باقى البيانات المرتبطة به و قد تم التعديل على لاالملفات الاصلية و بدون خلل فى اداء الملفات ملحوظة هامة اخلب الاكواد لن تعمل اذا لم تسجل اسماء الطلاب فى الشيت العام ( اسم واحد على الاقل ) ملحوظة ثانية : اذا لوحظ ان بعذ المعادلات لاتعمل فى احد الشيتات - اعمل الخطوات الاتية : من تبويب Formulas ثم Calculation Options ثم اختر Automatic و تنتهى المشكلة اليكم الملفين شيت كنترول ثانية تجارة.xlsm شيت كنترول اولى تجارة.xlsm

أهلا بك أخي أبا الحسن ،، بعد صراع طويل مع الملف المرسل ولفك أشفاره ، ولمحاولة فهم المطلوب ( وأشك أنني فهمت ) 😅 توصلت لهذه المعادلة للرصيد السابق : =Nz(DLookUp("[Balance]";"[Financial_Records]";"[Registration_Date] <#" & [Forms]![Form1]![FromDate] & "# And [Customer_ID] =" & [Forms]![Form1]![Customers] & " ");0) وتم إصلاح حدود التقرير 🙂 وإن لم أوفق لما تريده بالضبط فعليك أن تفيض علينا بالشرح المفصل . تحياتي ،، T1 (2).rar

بناء على طلب احد الاخوة شرح تفصيلى لدالة: DLookup Function الوصف-Description : ترجع الدالة DLookup قيمة حقل واحد إذا لم يكن هناك سجل يلبي المعايير أو إذا كان المجال لا يحتوي على أي سجلات، ترجع الدالة DLookup القيمة Null إذا كان هناك أكثر من حقل ترجع الدالة DLookup التكرار الأول لذلك يجب تحديد معايير تضمن أن تكون قيمة الحقل التي يتم إرجاعها بواسطة الدالة DLookup فريدة قد تحتاج إلى استخدام قيمة مفتاح أساسي للمعايير او قيمة فريدة للتأكد من أن الدالة DLookup ترجع قيمة فريدة بناء الجملة الدالة-Syntax DLookup : يختلف بناء الجملة الخاص بوظيفة DLookup الشكل العام البسيط لبناء الجملة يكون كالتالى DLookup("FieldName" , "TableName") وعندما نريد بناء جملة ترجع قيمة حقل من جدول بناء على قيمة محددة لابد ان يحتوى بناء الجملة على معيار الشكل العام لبناء الجملة كالتالى DLookup("FieldName" , "TableName" , "Criteria") و لابد من الاخذ فى الاعتبار انه سوف نعتمد فى بناء جملة DLookup من هذا النوع الذى يعتمد على معيار على نوع البيانات المستخدم فى هذا المعيار انواع البيانات المستخدمة فى المعيار هى لا تخرج عن الثلاث انواع الاتية (رقم - نص - تاريخ - Numeric - String - Date ) ودائما تلك الجزئية هى مصدر القلق والخطأ والتساؤل ولكى نبسطها DLookup("FieldName" , "TableName" , "Criteria = n") '|Numeric DLookup("FieldName" , "TableName" , "Criteria = 'S'") '|String DLookup("FieldName" , "TableName" , "Criteria = #D#") '|Date بكل بساطه فى بناء الجملة الرئيسي عندما نستخدم معيار يحتوى على نوع بيانات من النوع رقم فقط تم وضع علامة = بعد Criteria ثم الرقم بدون اى اضافات عندما نستخدم معيار يحتوى على نوع بيانات من النوع نص فقط تم وضع علامة = بعد Criteria ثم النص بين علامتين تنصيص مفرده ' عندما نستخدم معيار يحتوى على نوع بيانات من النوع تاريخ فقط تم وضع علامة = بعد Criteria ثم التاريخ بين علامتين هاش # يستخدم ما سبق عندما نكتب قيمة المعيار بطريقة مباشرة وعندما يكون المعيار مستمد من عنصر موجود اما حقل فى استعلام او مربع نص فى نموذج يكون بناء الجملة كالأتى DLookup("FieldName" , "TableName" , "Criteria =" & [ObjectName]) '|Numeric DLookup("FieldName" , "TableName" , "Criteria ='" & [ObjectName] & "'") '|String DLookup("FieldName" , "TableName" , "Criteria =#" & [ObjectName] & "#") '|Date ملاحظة هامة عند التعامل مع التاريخ لابد ان يكون تنسيق التاريخ فى المعيار على الطريقة الأمريكية mm/dd/yyyy -------------------------------------------------------------------------------------------------------------------------- وعندما يكون المعيار مستمد من متغير يتم اسناد قيمة المعيار اليه داخل محرر الأكواد يكون بناء الجملة كالأتى ولا ننسى عند التعامل مع التاريخ لابد ان يكون تنسيق التاريخ فى المعيار على الطريقة الأمريكية mm/dd/yyyy Dim MyVariable As String Dim stLinkCriteria As String MyVariable = 1 stLinkCriteria = "[FldCriteria]=" & MyVariable '|Numeric 'MyVariable = "Mahmoud" 'stLinkCriteria = "[FldCriteria] ='" & MyVariable & "'" '|String 'MyVariable = "03/01/1982" 'stLinkCriteria = "[FldCriteria] =#" & MyVariable & "#" '|Date stLinkCriteria = "[FldCriteria]=" & MyVariable '|Numeric 'stLinkCriteria = "[FldCriteria] ='" & MyVariable & "'" '|String 'stLinkCriteria ="[FldCriteria] =#" & MyVariable & "#" '|Date DLookup("FieldName", "TableName", stLinkCriteria) مثال متقدم : احضار بيانات دفعة واحدة من اكثر من حقل عن طريق المصفوفات من خلال الـ DLookup على طريقة استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @jjafferr Dim strDLookupFlds As String Dim stLinkCriteria As String Dim MyVariable As String Dim Arry() As String Dim ChosFld As String MyVariable = 1 stLinkCriteria = "[FldCriteria]=" & MyVariable '|Numeric 'MyVariable = "Mahmoud" 'stLinkCriteria = "[FldCriteria] ='" & MyVariable & "'" '|String 'MyVariable = "03/01/1982" 'stLinkCriteria = "[FldCriteria] =#" & MyVariable & "#" '|Date strDLookupFlds = DLookup("[Fld1] & '|' & [Fld2] & '|' & [Fld3] & '|' & [Fld4] & '|' & [Fld5] & '|' & [Fld6] & '|' & [Fld7] & '|' & [Fld8]& '|' & [Fld9]", "[tblName]", stLinkCriteria) Arry = Split(strDLookupFlds, "|") Debug.Print strDLookupFlds ChosFld = Arry(0) Debug.Print ChosFld 'Arry(0) = Fld1 'Arry(1) = Fld2 'Arry(2) = Fld3 'Arry(3) = Fld4 'Arry(4) = Fld5 'Arry(5) = Fld6 'Arry(6) = Fld7 'Arry(7) = Fld8 'Arry(8) = Fld9

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

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