kanory

يعني تريد توثيق للتعديلات والحذف والاضافة ..... ابحث في المنتدى تجد العديد من المواضيع مثل هذا للاستاذ @jjafferr

جرب واعلمنا بالنتيجة .............. mu.accdb

جرب هذا ... لانه ليس لدي ماسح Public Function SelectScanner() 'يتطلب إضافة مرجع إلى “Microsoft Windows Image Acquisition Library v2.0 Dim ComDialog As New WIA.CommonDialog Dim wiaScanner As WIA.Device ' عرض نافذة لاختيار الجهاز Set wiaScanner = ComDialog.ShowSelectDevice(WiaDeviceType.ScannerDeviceType, False, True) ' إذا تم اختيار جهاز، فإن DeviceID سيحتوي على معرف الجهاز المحدد If Not wiaScanner Is Nothing Then MsgBox "تم اختيار الجهاز: " & wiaScanner.DeviceID Else MsgBox "لم يتم اختيار أي جهاز." End If End Function

راجع هذا الموضوع للكلمات المحجوزة للاكسس

لا لا ...اسم الحقل receiveddate ليس فيه مشكلة بل اسم مربع النص الموجود قي النموذج .... انظر ...

بارك الله فيك .... هناك عبارات محجوزة لاكسس ولا تستخدمها في التسمية للعناصر او الحقول ابدااااااااااااااااااااااااااااا انظر ......

هل هناك جزء غير مفهوم اخي ازهر

ادخل الرمز المطلوب ثم اضغط على مفتاح انتر .... 111 (KAN).accdb

هل هذا طلبك ......

بداية يجب تفعيل هذه المكتبات لديك ..... KAN-picutre.rar

وعليكم السلام .... هل تريد حفظ مربع النص المكتوب فيه بسم الله الرحمن الرحيم .... اذا كان نعم باي اسم تريد حفظه ؟؟؟

بارك الله فيك اخي @محمود حموده عمل متعوب عليه .... جاري التجربة

بالنسبة للدول ::: هذا يعني شرط تساوي اسم الدولة في الاستعلام مع اسم الدولة في الدالة Dcount اما بالنسبة لExpression ومرة Group By فهي غلطة مطبعية أجعلها Group By

تفضل ملفك بعد التعديل ...... MhaM.accdb

اذن تفضل ملفك ....... ديمو للتجربة.accdb

هل هذه الحسبة صحيحة .....

بارك الله في أخي @يونس محمد الخطابي استبدل الحقل في الاستعلام بهذا ..... Expr1: DCount("asm";"G112_beanat";"[asm] ='" & [asm] & "'")

الحمد لله رب العالمين

تفضل البيانات المكرره.mdb

وعليكم السلام ورحمة الله وبركاته هل هذه الصورة هي المطلوبة من الاستعلام .............

في حدث الحالي للنموذج استخدم هذا .... Private Sub Form_Current() Me.مدة_التنفيذ = DateDiff("d", Me.تاريخ_بداية_المهمة, Me.نهاية_تاريخ_المهمة) End Sub

اخي ابا الحسن .... كلام شيخنا الجليل صحيح .... لا اخفيك سرا أني دخل الموضوع امكن اكثر من عشر مرات منذ ان فتح انت موضوعك ... عسى وعلي افهم ماذا ؟ وكيف ؟ واين ؟ ولكن دون جدوى ربما خانك التعبير عما تريد الافصاح عنه ... حاول مرة اخرى .. بارك الله فيك .

نعم اتوقع صحيح .... بارك الله فيك استاذنا الفاضل

جرب هذا واعلمنا بالنتيجة ............. Private Sub genu_AfterUpdate() Dim fieldValue As String fieldValue = Me.genu.Value ' Check if the field value starts with "17" If Left(fieldValue, 2) = "17" Then MsgBox "ادخال خاطئ! يجب ألا يبدأ الحقل بالرقم 17." Me.genu.Undo ' Undo the input End If End Sub