kkhalifa1960

استاذ @الطيب عباس هل قرأت قواعد المشاركة بالمنتدى اليك المحظورلات . المحظورات 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. يجب عدم الاستجابة لأي طلب على الخاص. كما يمنع ذكر وسائل التواصل الخاص أو البريد الإليكتروني في المشاركات لتعم الفائدة. وسيتم حذف وسائل التواصل أو البريد حال إضافتها.

مشاركة مع استاذ @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

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