kkhalifa1960

أخي المرفق يعمل كما بالشرح .

تفضل استاذ @sief122 مرفق حصلته بمكتبتي ...!!!! .... (Pass: 1001) ويكن تغييره بالوحدة النمطية . close option and shift.rar

استاذ @Abdelaziz Osman إذا تبغي عند حذف سجل الحفاظ على المعلومات اتبع محاولتي الأولي . أما إذا تبغي عند حذف سجل الحفاظ على الترقيم متسلسل أنظر نموذج 2 . بعد حذف السجل رقم 3 كما بالمرفق . عدم تجاوز التسلسل-2.rar

مشاركة مع استاذ @Foksh تفضل استاذ @Abdelaziz Osman محاولتي ...... وليش ماتستغل حقل الترقيم التلقائي كما بالشرح والمرفق . عدم تجاوز التسلسل-1.rar

تفضل أخي التعديل افتح النموذخ ثم أغلقه هنا حفظنا القيمة بالذاكرة (بواسطة الموديول) .وافتح التقرير بتحصل النتيجة. DDTest5-2.rar

تفضل استاذ @احمد عبدالرحمن الغوري طلبك حسب ما فهمت بالفورم (SwichBoard) . ووافني بالرد . برنامج مشتريات ومبيعات-1.rar

تفضل استاذ @أبو أحمد طلبك . DDTest5-1.rar

استاذ @Moosak شكراً لمرورك ............ نعم لذلك أنا اخترت الصورة وخزنتها بمجلد خاص لعدم تغيير الصورة الأصلية .

لمن يهمه الأمر تدوير صورة بمقدار قيمة معينة من الدرجات (90 أو180 أو270) DDChangImage Angle.rar

استاذ @زيد يحي اذا كان هذا طلبك لا تنسي انهاء الموضوع بالضغط على أفضل اجابة .

تفضل استاذ @أبو أحمد طلبك عمل الحقل المحسوب باستعلام وطلبة بالفورم والتقرير . اليك المرفق 2003 . DDTest5.rar

استاذ @الطيب عباس هل قرأت قواعد المشاركة بالمنتدى اليك المحظورلات . المحظورات 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