mrnooo2000

وضح ما تريده اخى الكريم فانا لا افهم ما تريد و الافضل ان تضع مثال

اخى العزيز كل ما تحتاج اليه هو اضافة هذا الكود DoCmd.RunCommand acCmdCopy

تفضل اخى سجل ocx ثم افتح النموذج و كليك يمين على مربع الصورة و اختار aquire CaptureWebCam.rar

hلاخوه الكرام بعد كل هذه الفترة الطويلة و حيث اننى لا اجد من الوقت الكثير فقد قمت بعمل البرنامج و اضفت 6 اضافات الى الان و ان شاء الله البقية تأتى AccessExpertUtilities.rar

اشكرك اخى الكريم على التنبيه

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

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

بارك الله فيك اخى طالب العلم و هذا مثال ابسط كطلبك اخى السائل تسلسل.rar

تفضل اخى db1.rar

تفضل اخى اليك ما طلبت New Microsoft Office Access Application.rar

اخى العزيز جرب هذا الجدول لكن ان لا أفضل استخدام ذلك فى الحماية لأن الغاءها سهل و الافضل وضع كود بالنموذج New Microsoft Office Access Application.rar

الاخ السائل فى الغالب المشكلة فى احد الاستعلامات لديك راجع الاستعلامات لديك لتتأكد

الموضوع مكرر

يرجى الالتزام بقواعد المشاركة فالمنتدى لايقدم البرامج الجاهزة

تفضل اخى ما تريد ReportOnForm1.rar

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

ضع بدل الرقم 5 هذا الكود me.subform.recordset.recordcount

استخدم الدالة dmax ستعطيك ما تريد

فى هذه الحالة ستحتاج الى التنقل بين السجلات واحد تلو الاخر استخدم هذا الكود DoCmd.GoToControl "Child0" For i = 1 To 5 Me. Code =me. Combo4. Column(1) DoCmd.GoToRecord , , acNext Next لا تنسى تغيير اسم النموذج الفرعى الى ما لديك

اخى الكريم ما ينقصك هو المرجع التالى microsoftoffice xx object liberary حيث xx رقم يتغير حسب نسخة الاوفيس لديك