(1).gif.af09cc77c75b16e73b6cc9756bf90744.gif)
kkhalifa1960
-
Posts
1,515 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
31
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه kkhalifa1960
-
-
-
-
مشاركة مع الاساتذة الكرام تفضل أستاذ @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-
1
-
-
استاذ @عبد اللطيف سلوم المرفق يعمل بكفاءة كما بالشرح . ووضحت لك مكان جدول النظام الذي به الباسوورد .
-
1
-
-
مشاركة مع الاساتذة الكرام تفضل أستاذ @TAMER AGOOR محاولتي حسب مافهمت . ووافني بالرد .
-
1
-
-
استاذ @عبد اللطيف سلوم اضافة لمسة بسيطة جعل ماسج ادخال الباسوورد نجوم (*****) .واخفاء الرقم السري بجداول النظام المخفية تفضل المرفق .
-
1
-
-
-
مشاركةً مع اساتذتي تفضل استاذ @salah.sarea محاولتي .
1- ضغط واصلاح القاعدة الخلفية للقاعدة الحالية (القاعدة الخلفية محمية بكلمة مرور) .
2- ضغط واصلاح اي قاعدة تختارها (القاعدة محمية بكلمة مرور) .
3- ضغط واصلاح اي قاعدة تختارها (القاعدة غير محمية ) .
ووافني بالرد .
-
1
-
2
-
-
-
تفضل استاذ @ابو محمد 4 المرفق بعد التعديل. ومعه شرح عمله .ووافني بالرد .
هنا الشرح
https://www.mediafire.com/file/nc4hq82nq7xeotw/150.gif/fileواليك المرفق
-
-
استاذ @ابو محمد 4 المرفق بعد التعديل .ووافني بالرد .
-
1
-
-
استاذ @ابو محمد 4 هذا مرفق من مكتبتي (أضفت اليه معظم طلبك ) ومستعيناً بكود أستاذ @ابو جودي للتصدير لاكسل . أقرأ المرفق جيداً وانا حاضر لأي استفسار .
-
1
-
-
أولا تمم الرد إذا كان طلبك الاول هو المطلوب أفضل اجابة . ثم افتح مشاركة جديدة بطلبك الجديد . حتى لايغلق الموضوع
-
أين المرفق ووضح طلبك؟؟؟؟؟؟؟؟؟؟؟؟؟؟.
-
تفضل استاذ @2saad المرفق بعد التعديل بطلبك الاخير أضفت 2 زر لطباعة القوائم دفعة واحدة وكذلك الصفوف حسب ما فهمت . ووافني بالرد .
-
1
-
-
تفضل استاذ @soik225998 المرفق بعد التعديل بطلبك ... عند الضغط على الاسم اذا كان الموظف مدرج له صورة سيفتح فورم (بيانات الشخص) واذا لم يوجد له صورة سيفتح فورم (AddPic).
بالشرح .ووافني بالرد .
-
1
-
-
ابشر اخي 🌹
-
ابشر استاذ @* بو يوسف* بس عطني وقت ومايصير خاطرك إلا الطيب .
-
1
-
-
تفضل استاذ @2saad المرفق بعد التعديل حسب ما فهمت . ووافني بالرد .
-
1
-
-
استاذ @طير البحر مشكور وبارك الله فيك هدية مقبولة . وفقك الله .
-
1
-
-
استاذ @soik225998 تفضل المرفق والشرح بعد التعديل.اضغط على الاسم بالصب فورم (البيانات)........ اذا كان هذا طلبك لا تنسى الضغط على افضل اجابة .
ملحوظة : انا مسحت بعض الصور نظراً لكبر حجمها حتي يمكن رفع البرنامج .
-
1
-
-
استاذ @soik225998 اذا كان هذا طلبك لا تنسى الضغط على افضل اجابة .
-
مشاركة مع استاذ @عبد اللطيف سلوم تفضل استاذ @soik225998 محاولتي بتعديل مرفقك بطلبك . ووافني بالرد .
-
2
-
طلب اضافة صورة
في قسم الأكسيس Access
قام بنشر
استاذ @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 الذي به مسار الصورةوأي سؤال أ استفسار حاضرين .