جرب هذه المعادلة ( Ctrl+Shift+Enter ) في الخلية D1 .واسحب نزولاُ
=IFERROR(INDEX($A$1:$A$11,SMALL(IF(COUNTIF($A$1:$A$11,$B$1:$B$11),COUNTA($A$1:$A$11)+1,ROW($A$1:$A$11)-ROW($A$1)+1),ROWS($A$1:A1))),"")
السلام عليكم ورحمة الله وبركاته
أخواني في الله صممت قاعدة بيانات لعملي وحملت قاعدة بيانات من على النت وفتحتها فوجدت ان القاعدة محميه وبها جداول مخفية فقفلتها وعندما دخلت على قاعدة بياناتي الخاصة وجدت جداول القاعدة المحمية التي حملتها وقد تم نسخها في قاعدة بياناتي بدون علمي وعندما اردت ان امسح هذه الجداول يوق لي يجب الرجوع للمسؤول فعلمت انها تم اختراقها فما الحل ؟
حل مشكلة قاعدة بيانات اكسيس ملكي مخترقة بجداول مخفيه لا يتم مسحها ؟
يُقال انه من الكائنات الغير معينة في قاعدة البيانات فما صحة هذه المعلومة
أرجو سرعة الرد ولكم جزيل الشكر والتقدير ,,,
CLASSEK.accdb
أستاذ @حمدى الظابط
في نقطتين:
1- لما بكبس على توزيع آلي بهنق معاي الأكسس (الظاهر أن الاكسس بدخل لوب وما بيطلع منها)، في المرفق اللي أنت أرسلته وكما اللي أرسله الأستاذ خالد عبدالغفار.
2- المعذرة قاعد أحاول أفهم فكرة توزيع الجدول اللي أنت ما أستاذ @خالد عبد الغفار تشتغلوا عليها وماني قادر أفهمها فيا ريت يكون توضيح حق فكرة عمل المشروع وآلية التوزيع وبعدها إذا أقدر أساعد بالخدمة.
مع فائق التحية
اخي لست ضليعا في الاكواد ولكني مستعينا بابداعات الاخوة هنا استخدم هذا السطر لتحديد السطر الاخير
Dim EndRow As Long
EndRow = Sheets("accmove").Range("a1").CurrentRegion.Rows.Count
For l = 4 To EndRow
بدلا من القيمة الثابتة
وهذا لوضع خانة الاجمالي او المجموع في بعد انتهاء البيانات
Sheets("invoice").Cells(EndRow + 2, 1).Value = "الاجمالي"
Sheets("invoice").Cells(EndRow + 2, 6).FormulaR1C1 = "=sum(r8c6:r[-1]c)"
Sheets("invoice").Cells(EndRow + 2, 8).FormulaR1C1 = "=sum(r8c8:r[-1]c)"
مع تغيير اسماء الشيتات و اماكن اول خانة يبدا الجمع من عندها
تحياتي
استاذي الفاضل شيفان ريكاني السلام عليكم ورحمة الله وبركاته
كلمة شكرا قليلة في حقك ربي يحميك من كل شر يارب يارب
سائلا الله جل وعلا ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية يارب يارب
نعم هذا هو المطلوب
الف الف شكر استاذي الغالي نعم هذا ما كان بجعبتي الله يعطيك العافيه
الف شكر لا ستاذي شفان عمل المطلوب حسب الشرح السابق الله يعطيه العافيه
ما يسعني الا ان اقول جزاكم الله خير استاتذي الكرام
تحياتي اليكم
السلام عليكم
استعمل هذا الكود:
Dim rst As DAO.Recordset
Dim ddate As Date
Dim i As Integer, RC As Integer
Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]")
rst.MoveLast: rst.MoveFirst
RC = rst.RecordCount
For i = 1 To RC
If rst!Atarih < ddate Then
MsgBox "هناك تسلسل خاطئ في التاريخ للفاتورة رقم: " & rst!Rjmfatwra
Exit Sub
Else
ddate = rst!Atarih
rst.MoveNext
End If
Next i
فحص تسلسل التاريح.rar
امممممممم
انا لم افهم السؤال فى البداية
والان اتضح الامر والمطلوب هو تقريب المنازل العشرية
والدالة التى تستخدم فى التقريب لاقرب رقم صحيح
Roud([Field],x)
حيث ان x هو عدد المنازل العشرية التى تريدها
وان اردت التقريب الى اصغر رقم صحيح تكون الدالة بهذا الشكل
Int([Field])
هذا لاخر شهر فقط
انا ان كنتى تريدين التاريخ ضمن نطاق كل التواريخ اخبرينى فقط
p1-3.accdb
وهذا لكل النطاق من اصغر تاريخ بداية لاكبر تاريخ نهاية
p1-4.accdb