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

استخدم هذه الدالة Function GetMonths30(Date1 As Date, Date2 As Date) As Long Dim d1, m1, d2, m2 As String Dim y1, y2 As Integer Dim sum_d, sum_m, sum_y, sum_days As Integer Dim tst1, tst2 As Long d1 = Format(Day(Date1), "00"): d2 = Format(Day(Date2), "00") m1 = Format(Month(Date1), "00"): m2 = Format(Month(Date2), "00") y1 = Year(Date1): y2 = Year(Date2) tst1 = y1 & m1 & d1: tst2 = y2 & m2 & d2 If tst2 < tst1 Then Exit Function sum_d = Abs(Int(d2) - Int(d1)) sum_m = Abs(Int(m2) - Int(m1)) * 30 sum_y = (y2 - y1) * 360 sum_days = sum_y + Abs(sum_m - sum_d) GetMonths30 = sum_days End Function ويتم مناداتها لحساب المدة بين تاريخين هكذا : Me.txtDays = GetMonths30(Me.TxtDate1, Me.TxtDate2)

تفضل التعديل بحث.mdb

بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته اساتذتي واخوتى هذا الملف به فهرس لجميع المنتدي ليسهل البحث للاعضاء يوجد فورم يمكنك البحث بها كما يمكنكم استخدام الفلتر العادي وبمجرد الضغط على اي نتيجه من نتائج البحث يتم فتح صفحتها في المنتدي ولا انسي فضل استاذي الكبير ياسر خليل على المساعده في عمل الملف فهرس منتدي الاكسيل.xlsb

اخي الكريم ، المشكلة عندك في العلاقة اللي بالإستعلام و نوع الكتاب في الاستعلام لم يتم تحديده من النموذج الرئيسي تفضل Date.accdb

تسلم ايدك استاذ محمد هشام احسنت والله

تفضل Enter.accdb

تفضل أخي. Enter.accdb

اتفضل Enter.accdb امسح مصدر عنصر التحكم لــ خانة مدخل المعلومات

اسف جدا ..يمكن كان تعديلي على الملف المضغوط 20231002.accdb

Recordset.RecordCount تعد السجلات والجمع انما هو للحقول .. اي اننا سنجمع حقل محدد ضمن مجموعة السجلات sum نستخدمها في الاستعلامات وايضا في النموذج او التقرير لجمع حقل محدد وينطبق هذا ايضا على Count مفردة للعد اما جمع حقل في محرر الفيجوال فانت مخير بين طريقتين : اما ان تصنع جملة استعلام بالمطلوب واما ان تستخدم الدالة DSum

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

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

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

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

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

هذا المرفق المفروض هو الصحيح ، أرفقت القديم في المشاركة السابقة سهواً New Microsoft Access Database.zip

وإياكم اخي الكريم ، تقدر تخلي الحقل Mem_Num في جدول Mem_Sign بدون مفتاح أساسي ، فيسمح لك بالكرار . 20231002_124859.zip طبعاً تستطيع تغيير مكان مربع النص والزر المسءول عنه ؛ ولكن صدقاً بسبب ضغط العمل لم استطع ترتيبه بالمكان الصحيح . تفضل Wisso (1).accdb واعلمني بالنتيجة ،

تمت معالجة الأمر أكثر من مرة https://www.officena.net/ib/search/?q=قائمة معتمدة&quick=1&type=forums_topic&nodes=135&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

لم تظهر عندي المشكلة مع العلم انني عملت التعديل على جهاز آخر مختلف عن الذي ارسلت المرفق أعلاه منه ، ولكن تم التأكد منه ، وتم تعديل التقرير ؛ جرب وأخبرني Wisso.accdb

سأعدل عليه وارفق الملف ، ولكن تحملني لإني توني دخلت البيت من دوامي

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

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

هل هذا ما تقصده 🙂 Time +-.accdb

حسب ما فهمت تفضل أو وضح أكثر . DLast2023-1.Accdb

ممكن نسخة 2010 لمساعدتك .

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

اخي ربما ليس هناك مستحيل لاكن يتعين عليك شرح المطلوب بطريقة اوضح تقضل لقد حاولت الاشتغال على ملفك بطريقة متقدمة نوعا ما ربما تفيدك واستخراج النتائج على التيكست بوكس لكل نوع من الحركة بالاعتماد على ما فهت منك وهو عملية الجمع والطرح تكون بالشكل التالي Purchases + Sales returns - sales - Purchases returns واي استفسار او اظافة لا تتردد في دكره سوف تكون سعداء بحصولك على النتيجة المتوقعة Dim AllData(), the_range, wsdata, Target_columns(), Dates(), wsdata2, réf() Function MergeArray2DVert(A, B) maxtab1 = UBound(A) Dim tbl(): ReDim tbl(1 To UBound(A) + UBound(B), 1 To UBound(A, 2)) For I = LBound(A) To UBound(A) For C = 1 To UBound(A, 2): tbl(I, C) = A(I, C): Next Next I For I = 1 To UBound(B) For C = 1 To UBound(B, 2): tbl(maxtab1 + I, C) = B(I, C): Next Next I MergeArray2DVert = tbl End Function Private Sub UserForm_Initialize() 'دمج بيانات الجداول Dim Tablo1, Rng_1, rng2, T Tablo1 = [Tableau1]: Rng_1 = [Rng_2]: rng2 = [Rng_3]: rng3 = [Rng_4] AllData = MergeArray2DVert(Tablo1, Rng_1) AllData = MergeArray2DVert(AllData, rng2) AllData = MergeArray2DVert(AllData, rng3) the_range = "Tableau1" ' For i = 1 To UBound(AllData): AllData(i, 3) = CDate(AllData(i, 3)): Next i Me.ListBox1.ColumnCount = 8 wsdata = 8 'Target_columns = Array(1, 2, 3, 4, 6, 7, 8, 11) '(Total)في انتظار توضيح فكرة عمود Target_columns = Array(1, 2, 3, 4, 6, 7, 8) ' عمود التاريخ For I = LBound(AllData) To UBound(AllData): AllData(I, 3) = Format(AllData(I, 3), "dd/mm/yyyy"): Next I 'عمود الكمية For I = LBound(AllData) To UBound(AllData): AllData(I, 8) = Format(AllData(I, 8), "0"): Next I ' عمود Total 'For I = LBound(AllData) To UBound(AllData): AllData(I, 9) = Format(AllData(I, 9), "0.0"): Next I 'Combobox Product name Set D = CreateObject("scripting.dictionary") D("*") = "" For I = LBound(AllData) To UBound(AllData) D(AllData(I, 7)) = "" Next I réf = D.keys filtration réf, LBound(réf), UBound(réf) Me.ComboBox1.List = réf 'Combobox Invoice type Set D = CreateObject("scripting.dictionary") D("*") = "" For I = LBound(AllData) To UBound(AllData) D(AllData(I, 2)) = "" Next I réf = D.keys filtration réf, LBound(réf), UBound(réf) Me.ComboBox5.List = réf 'Combobox customer Set D = CreateObject("scripting.dictionary") D("*") = "" For I = LBound(AllData) To UBound(AllData) D(AllData(I, 4)) = "" Next I réf = D.keys filtration réf, LBound(réf), UBound(réf) Me.ComboBox4.List = réf 'combobox التاريخ Set D = CreateObject("scripting.dictionary") ligneData = 3 For I = LBound(AllData) To UBound(AllData) D(AllData(I, ligneData)) = "" Next I Dates = D.keys filtration Dates, LBound(Dates), UBound(Dates) Me.ComboBox2.List = Dates: Me.ComboBox2 = Dates(0) Me.ComboBox3.List = Dates: Me.ComboBox3 = Dates(UBound(Dates)) ComboBox1.Value = "*": ComboBox4.Value = "*": ComboBox5.Value = "*" Titles ShowAllData On Error Resume Next Me.ListBox1.ColumnWidths = "60;70;80;80;30;190;70;0" On Error GoTo 0 b_tout_Click End Sub '******************************************** Sub ShowAllData() Dim tbl() Dim F As Worksheet, B As Worksheet, S As Worksheet, D As Worksheet Set F = Sheet4: Set B = Sheet2: Set S = Sheet6: Set D = Sheet5 j = Me.ComboBox1: If j = "" Then j = "*" A = Me.ComboBox4: If A = "" Then A = "*" r = Me.ComboBox5: If r = "" Then r = "*" début = Me.ComboBox2 fin = Me.ComboBox3 ligneData = 3 ' عمود التاريخ n = 0 For I = LBound(AllData) To UBound(AllData) If AllData(I, ligneData) >= début And AllData(I, ligneData) <= fin And AllData(I, 7) Like j And AllData(I, 4) Like A And AllData(I, 2) Like r Then n = n + 1: ReDim Preserve tbl(1 To wsdata, 1 To n) C = 0 On Error Resume Next For Each k In Target_columns C = C + 1: tbl(C, n) = AllData(I, k) Next End If Next I If n > 0 Then Me.ListBox1.Column = tbl Else Me.ListBox1.Clear End If col = ListBox1.ListCount Call MH Me.Total.Value = Format(Sheet4.[Q1].Value, "0.00") TOTAL_all.Caption = "Total Quantity" & " = " & Format(Sheet4.Range("Q2").Value, "0.000") F.[O1] = "*": B.[O1] = "*": S.[O1] = "*": D.[O1] = "*" End Sub '******************************** Sub MH() Dim A As Worksheet, B As Worksheet, C As Worksheet, D As Worksheet, ws As Worksheet Dim Rng As Range For Each ws In ThisWorkbook.Worksheets Select Case ws.Name Case "Purchases", "sales", "Sales returns", "Purchase returns" Set Rng = ws.Range("O1") Rng.ClearContents Set A = Sheet4: Set B = Sheet2: Set C = Sheet6: Set D = Sheet5 If Me.ComboBox5.Value = "Purchases" And Me.ComboBox1.Value <> "*" Then A.[N1].Value = Me.ComboBox5.Value: ws.[O1].Value = Me.ComboBox1.Value 'Else A.Range("O1").Value = Empty If Me.ComboBox5.Value = "sales" And Me.ComboBox1.Value <> "*" Then B.[N1].Value = Me.ComboBox5.Value: ws.[O1].Value = Me.ComboBox1.Value ' Else B.Range("O1").Value = Empty If Me.ComboBox5.Value = "Sales returns" And Me.ComboBox1.Value <> "*" Then C.[N1].Value = Me.ComboBox5.Value: ws.[O1].Value = Me.ComboBox1.Value ' Else C.Range("O1").Value = Empty If Me.ComboBox5.Value = "Purchase returns" And Me.ComboBox1.Value <> "*" Then D.[N1].Value = Me.ComboBox5.Value: ws.[O1].Value = Me.ComboBox1.Value 'Else D.Range("O1").Value = Empty Me.Purchases.Value = Format(A.Range("P1").Value, "0.00") Me.sales.Value = Format(B.Range("P1").Value, "0.00") Me.Sales_returns.Value = Format(C.Range("P1").Value, "0.00") Me.Purchase_returns.Value = Format(D.[P1].Value, "0.00") Me.Total.Value = Format(A.[Q1].Value, "0.00") End Select Next ws End Sub sum-Listbox3.xlsm

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

هل تقصد بهذا اذا نعم بس عليك ان تتغير كود عند فتح النموذج الى رقم ماتريد FadeForm Me.hwnd, 100 Test (7).rar

لا يمكن ان يكون النموذج شفاف فى المطلق ولكن هناك الية تمكنك من التحكم فى درجة شفافية اللون كما هو الحال فى وبندوز التحكم بالشفافية النموذج.rar