kkhalifa1960

استاذ @soik225998 بعد اختيار الصورة بيتم تخزين مسارها وامتدادها بالجدول . حسب الاسم . وفي الاستعلام نخلي الشرط (Criteria) . [Forms]![بحث]![البيانات].[Form]![الاسم] حيث البحث اسم الفورم الرئيسي البيانات اسم الصب فورم الاسم حقل الاسم . (AA) زودنا حقل بالاستعلام2 AA: [Application].[CurrentProject].[Path] & "\" & "MyPic" & "\" & [ID] & [PicType] لجلب الصورة من فولدر الصور بجوار البرنامج (MyPic) PicType هو امتداد الصورة ممكن يكون (jpg) أو (bmp)أو(png)ـ وعند الضغط على الاسم بينفذ الكود Private Sub الاسم_Click() If IsNull(DLookup("PicPath", "Query2")) Then MsgBox "لايوجد صورة للموظف رجاء ادراج صوره له ", vbInformation Dim strCriteria As String strCriteria = "ID = " & Me.ID DoCmd.OpenForm "AddPic", WhereCondition:=strCriteria, OpenArgs:=(Me.ID) Else DoCmd.OpenForm "بيانات الشخص" End If End Sub بيفتح فورم بيانات الشخص الذي يأخذ بياناته من الاستعلام2 الذي به مسار الصورة وأي سؤال أ استفسار حاضرين .

تابع شرح استاذنا @jjafferr من هنا لتبديل المكتبات لتعمل على النواتين .

نعم تمام .

مشاركة مع الاساتذة الكرام تفضل أستاذ @TAMER AGOOR محاولتي حسب مافهمت . ووافني بالرد . Private Sub Ch_Click() 'On Error Resume Next If Me.Ch = False Then Me.CmdPrint.Caption = "Print rpt_Emp" Me.CmdPrint.BackColor = vbRed Else Me.CmdPrint.Caption = "Print rpt_Items" Me.CmdPrint.BackColor = vbBlue End If End Sub Private Sub CmdPrint_Click() On Error Resume Next If Me.Ch = False Then Me.CmdPrint.Caption = "Print rpt_Emp" Me.CmdPrint.BackColor = vbRed DoCmd.OpenReport "rpt_Emp", acViewNormal Else Me.CmdPrint.Caption = "Print rpt_Items" Me.CmdPrint.BackColor = vbBlue DoCmd.OpenReport "rpt_Items", acViewNormal End If End Sub

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

مشاركة مع الاساتذة الكرام تفضل أستاذ @TAMER AGOOR محاولتي حسب مافهمت . ووافني بالرد . DDTwoReports.rar

استاذ @عبد اللطيف سلوم اضافة لمسة بسيطة جعل ماسج ادخال الباسوورد نجوم (*****) .واخفاء الرقم السري بجداول النظام المخفية تفضل المرفق . رقم سري.rar

تفضل استاذ @kams3008 محاولتي حسب ما فهمت . الشرح والمرفق . ووافني بالرد . Add Printers.rar

مشاركةً مع اساتذتي تفضل استاذ @salah.sarea محاولتي . 1- ضغط واصلاح القاعدة الخلفية للقاعدة الحالية (القاعدة الخلفية محمية بكلمة مرور) . 2- ضغط واصلاح اي قاعدة تختارها (القاعدة محمية بكلمة مرور) . 3- ضغط واصلاح اي قاعدة تختارها (القاعدة غير محمية ) . ووافني بالرد . compact and repair.rar

تفضل استاذ @الحياري هذا البرنامج بيفيدك بطلبك لأن طلبك من ضمن مكتبات الويندوس. سكانر.rar

تفضل استاذ @ابو محمد 4 المرفق بعد التعديل. ومعه شرح عمله .ووافني بالرد . هنا الشرح https://www.mediafire.com/file/nc4hq82nq7xeotw/150.gif/file واليك المرفق DDTest506-2.rar

أبشر أخي

استاذ @ابو محمد 4 المرفق بعد التعديل .ووافني بالرد . DDTest506-1.rar

استاذ @ابو محمد 4 هذا مرفق من مكتبتي (أضفت اليه معظم طلبك ) ومستعيناً بكود أستاذ @ابو جودي للتصدير لاكسل . أقرأ المرفق جيداً وانا حاضر لأي استفسار . DDTest506.rar

أولا تمم الرد إذا كان طلبك الاول هو المطلوب أفضل اجابة . ثم افتح مشاركة جديدة بطلبك الجديد . حتى لايغلق الموضوع

أين المرفق ووضح طلبك؟؟؟؟؟؟؟؟؟؟؟؟؟؟.

تفضل استاذ @2saad المرفق بعد التعديل بطلبك الاخير أضفت 2 زر لطباعة القوائم دفعة واحدة وكذلك الصفوف حسب ما فهمت . ووافني بالرد . New Microsoft3-2.rar

تفضل استاذ @soik225998 المرفق بعد التعديل بطلبك ... عند الضغط على الاسم اذا كان الموظف مدرج له صورة سيفتح فورم (بيانات الشخص) واذا لم يوجد له صورة سيفتح فورم (AddPic). بالشرح .ووافني بالرد . تجريبي_3-2.rar

ابشر اخي 🌹

ابشر استاذ @* بو يوسف* بس عطني وقت ومايصير خاطرك إلا الطيب .

تفضل استاذ @2saad المرفق بعد التعديل حسب ما فهمت . ووافني بالرد . New Microsoft3-1.rar

استاذ @طير البحر مشكور وبارك الله فيك هدية مقبولة . وفقك الله .

استاذ @soik225998 تفضل المرفق والشرح بعد التعديل.اضغط على الاسم بالصب فورم (البيانات)........ اذا كان هذا طلبك لا تنسى الضغط على افضل اجابة . ملحوظة : انا مسحت بعض الصور نظراً لكبر حجمها حتي يمكن رفع البرنامج . تجريبي_3-1.rar

استاذ @soik225998 اذا كان هذا طلبك لا تنسى الضغط على افضل اجابة .

مشاركة مع استاذ @عبد اللطيف سلوم تفضل استاذ @soik225998 محاولتي بتعديل مرفقك بطلبك . ووافني بالرد . تجريبي_3.rar