kanory

استخدامك للعم قوقل تعتبر عبقرية ... غيرك لا يستطيع

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

بالعكس اخي خالد .... بارك الله فيك رمضان كريم أستاذ @jjafferr و أستاذ @kha9009lid

جرب كده ربما هو المطلوب = DateSerial(Year(Date), 1, 1)

بارك الله فيك eee هو اسم الكمبوبكس fff هو اسم النموذج الفرعي قم بتحميل الملف الموجود في بداية الموضوع ... سوف تشاهد المقصود ماذا تقصد بهل يمكن عرض كل الجداول

استخدم هذا الكود B.SetFocus Form!B!c.SetFocus

[B]![C].SetFocus

ضع هذا الكود في حدث عند النقر Dim a, s As String s = Me.eee.Column(0) a = "Table." & s Me.fff.SourceObject = a

لاحظ المرفق وعليك بتنسيق التقرير ...... moh.accdb

خيارات الاكسس ---------> اعدادات العميل ---------> التقويم الهجري

اكبر خطأ ربط ارقام تلقائية مع بعض ....... راجع الربط في حقول ID واضح أن الارقام غير متشابهة فلذلك لن يظهر بيانات لعدم توفرها

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

تفضل انظر الطريقة .......... moh.accdb

ممكن عملها بطريقة أخرى .... وهي أن المربع الاختيار يكون موجود للجميع ... لكن عند اختيار وظيفة معينة يتم وضع علامة صح امام جميع من يمثل تلك الوظيفة ....

بارك الله فيك ... نحن في الخدمة

اعمل زر وضع هذا الكود في حدث عند النقر Dim Warning As String Warning = MsgBox("أنت الآن على وشك مسح البيانات فهل أنت واثق من رغبتك في الحذف", vbYesNo + vbQuestion, "تحذير") If Warning = vbYes Then On Error GoTo Err_Handler Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = "" End If Next ctl Exit_Handler: Set ctl = Nothing Exit Sub Err_Handler: Resume Exit_Handler Else DoCmd.CancelEvent

هل البيانات في مربعات نص فقط أم كمبولست وغيرها ؟؟؟؟؟

صدر -----> احذف البيانات في الاكسس -------> استيراد import1.rar

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

الاروع ردك ... كل عام وانت بخير ... حياك الله

استبدل كود التصدير بهذا الكود .... DoCmd.OutputTo acOutputTable, "data", acFormatXLS, CurrentProject.Path & "\data.xls", True

طيب .... شوف الطريقة دي يمكن تناسبك New Microsoft Access قاعدة بيانات (3)(1).accdb

حسب ما فهمت منك .... تفضل تشابه.accdb

بالتوفيق ..... حياك الله ..... امين وياك

حياك الله أخي @خالد عبد الغفار كل عام وانت في صحة وسلامة في النموذج هناك مربع نص باسم countRec ..... انظر الصورة