دروب مبرمج

هل هذا ما تريده ؟؟ AAA.accdb

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

ماهي رسالة الخطأ التي تظهر لديك

مع استعمال المكتبة انشى موديول جديد و الصق فيه الكود التالي Option Compare Database Option Explicit Const WIA_FORMAT_JPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}" Public Function MyScan() Dim ComDialog As WIA.CommonDialog Dim DevMgr As WIA.DeviceManager Dim DevInfo As WIA.DeviceInfo Dim dev As WIA.Device Dim img As WIA.ImageFile Dim i As Integer Dim wiaScanner As WIA.Device Set ComDialog = New WIA.CommonDialog Set wiaScanner = ComDialog.ShowSelectDevice(WiaDeviceType.UnspecifiedDeviceType, False, True) Set DevMgr = New WIA.DeviceManager For i = 1 To DevMgr.DeviceInfos().Count If DevMgr.DeviceInfos(i).DeviceID = wiaScanner.DeviceID Then Set DevInfo = DevMgr.DeviceInfos(i) End If Next i Set dev = DevInfo.Connect Set img = dev.Items(1).Transfer(WIA_FORMAT_JPEG) img.SaveFile CurrentProject.Path & "\img.jpg" Set img = Nothing Set dev = Nothing Set DevInfo = Nothing Set DevMgr = Nothing Set ComDialog = Nothing End Function

تفضل التعديل Database3.accdb

تفضل هذا المثال جربه عندك و اذا ضبط يصير نكمل الباقي Scanner.accdb

ضبط سؤال جديد و ابشر بعزك طلبك بسيط

تفضل هذا التعديل Database521 (1).accdb

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

تفضل faozi.accdb

المشكلة كانت في العلاقات لم يكن هنالك علاقة بين الجداول كل ما عملته هو انشاء علاقة و انشاء فلتر من خلال الكود Sub NewSearsh() Dim varFilter As Variant varFilter = Null If Not IsNull(KindBook) Then: varFilter = (varFilter) & "[KindBook] LIKE '*" & KindBook & "*'" If Not IsNull(Rbtbook) Then: varFilter = (varFilter + " AND ") & "[Rbtbook] LIKE '*" & Rbtbook & "*'" If Not IsNull(EntryInfo) Then: varFilter = (varFilter + " AND ") & "[EntryInfo] LIKE '*" & EntryInfo & "*'" If Not IsNull(NObook) Then: varFilter = (varFilter + " AND ") & "[NObook] = " & NObook If Not IsNull(DateBook) Then: varFilter = (varFilter + " AND ") & "[DateBook] LIKE '*" & DateBook & "*'" If Not IsNull(Adbook) Then: varFilter = (varFilter + " AND ") & "[Adbook] LIKE '*" & Adbook & "*'" If Not IsNull(SavePlace) Then: varFilter = (varFilter + " AND ") & "[SavePlace] LIKE '*" & SavePlace & "*'" If Not IsNull(EtC) Then: varFilter = (varFilter + " AND ") & "[EtC] LIKE '*" & EtC & "*'" If Not IsNull([NoW]) Then: varFilter = (varFilter + " AND ") & "[NoW] LIKE '*" & [NoW] & "*'" If Not IsNull(DateW) Then: varFilter = (varFilter + " AND ") & "[DateW] LIKE '*" & DateW & "*'" If Not IsNull(AljegehaW) Then: varFilter = (varFilter + " AND ") & "[AljegehaW] LIKE '*" & AljegehaW & "*'" SubSur = varFilter End Sub و اخذنا نسخة من الاستعلام لوضعها ضمن الكود و دمج الفلتر معها

RecordSource يعني اعادة تعيين مصدر البيانات مصدر البيانات الجديد ضمن الكود مع معايير البحث

اذا هذا هو الحل تغيير العلاقات بحث.mdb

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

جرب هذا التعديل بحث.mdb

تفضل هذه المشاركة مع معلمي الكبير أ. @Foksh للبحث الكي و الجزئي لأي حقل غير الرقمي البحث.accdb

تفضل هذا التعديل انشئ موديول جديد و الصق به الشفرة التالية و استخدمها كيفما شئت ' المجموع للشخص الواحد لسنة محددة Public Function OneYears(SetID As Integer, SetYear As Integer) Dim SetCol As Variant, i As Integer SetCol = Null For i = 1 To 12 SetCol = "[" & MonthToNo(i) & "-" & SetYear & "]" OneYears = OneYears + Nz(DSum(SetCol, "[Year_" & SetYear & "]", "[ID]=" & SetID), 0) Next i End Function ' المجموع لجميع الأشخاص و جميع السنوات Public Function AllYears() Dim SetCol As Variant, i As Integer, x As Integer, SetYear As Integer SetCol = Null For x = 2023 To 2025 For i = 1 To 12 SetCol = "[" & MonthToNo(i) & "-" & x & "]" AllYears = AllYears + Nz(DSum(SetCol, "[Year_" & x & "]"), 0) Next i Next x End Function Public Function MonthToNo(SetMonth As Variant) Select Case SetMonth Case Is = 1: MonthToNo = "Jan" Case Is = 2: MonthToNo = "Feb" Case Is = 3: MonthToNo = "Mar" Case Is = 4: MonthToNo = "Apr" Case Is = 5: MonthToNo = "May" Case Is = 6: MonthToNo = "Jun" Case Is = 7: MonthToNo = "Jul" Case Is = 8: MonthToNo = "Aug" Case Is = 9: MonthToNo = "Sep" Case Is = 10: MonthToNo = "Oct" Case Is = 11: MonthToNo = "Nov" Case Is = 12: MonthToNo = "Dec" End Select End Function مرفق الملف بعد التعديل Fam.mdb

لا بأس الف سلامة عليك الله يجعل ما اصابك اجر و عافية و طهور انشاء الله اللَّهُمَّ رَبَّ النَّاسِ أَذْهِبْ الْبَاسَ اشْفِ وَأَنْتَ الشَّافِي لَا شِفَاءَ إِلَّا شِفَاؤُكَ شِفَاءً لَا يُغَادِرُ سَقَمًا اللَّهُمَّ رَبَّ النَّاسِ أَذْهِبْ الْبَاسَ اشْفِ وَأَنْتَ الشَّافِي لَا شِفَاءَ إِلَّا شِفَاؤُكَ شِفَاءً لَا يُغَادِرُ سَقَمًا اللَّهُمَّ رَبَّ النَّاسِ أَذْهِبْ الْبَاسَ اشْفِ وَأَنْتَ الشَّافِي لَا شِفَاءَ إِلَّا شِفَاؤُكَ شِفَاءً لَا يُغَادِرُ سَقَمًا

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

فعلا نسيت هذه الخطوة تفضل التعديل File3.zip

تفضل التعديل File2.zip

لم ترفق النموذج

تفضل هذا مثال على ما طلبت الاضافة و الحذف (1).accdb

تفضل هذا مثال على الاضافة و الحذف و التعديل و فراغ الحقول لنموذج غير منضم الاضافة و الحذف.accdb

ضع علامة يساوي قبل الأمر فقط