kkhalifa1960

مشاركة مع استاذ @Foksh تفضل استاذ @abo_renad12 محاولتي بطريقة مختلفة . DDTest4.rar

بغد اذن أساتذتي ممكن مشاركة . تفضل أستاذ @sky5555 محاولتي حسب ما فهمت الشرح بنموذج (ReaMe) واليك المرفق . DDTest3.rar

تفضل استاذ @زيد يحي تم التعديل استبدال التكستبوكس بكمبوبكس به كل الأرقام كل ماعليك اختيار الرقم . وأي استفسار أنا حاضر . اليك المرفق والشرح . Staff custody -1.rar

استاذ @أبو أحمد لا يوجد حقول محسوبة في جدول 2003 . اليك طلبك للتقرير . DDTest1-1.rar

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

تفضل استاذ @TAMER AGOOR محاولتي حسب مافهمت .اليك الشرح والمرفق .ووافني بالرد . قاعده بيانات للتجارب-1.rar

تفضل أخي محاولتي . Private Sub Jo_2010() Me.P_Day.SourceObject = "NewPU" Me.P_Day.Form.TN.Caption = "Urine" Dim myfilter As String myfilter = "[TName]='" & "Urine" & "'" Me.P_Day.Form.Filter = myfilter Me.P_Day.Form.FilterOn = True Me.Jo = 3 Me.U_OK.Requery End Sub Private Sub Command0_Click() Jo_2010 End Sub

تفضل استاذ @زيد يحي محاولتي حسب مافهمت . ادرس المرفق جيداً وأي استفسار أنا حاضر . اليك المرفق . Staff custody.rar

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

استاذ @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

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

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