بلال اليامين

هي ايقونة تظهر على سطح المكتب لفتح البرنامج 1111.bmp

اليك اخي z.rar القائمة.rar

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

تفضل اخي البحث.rar

اخي البرنامج الذي تما تغيير فيه اايقونة لم يفتح اخي مازال الوحدة النمطية وهذا عند فتح البرنامج اخي اريد تغيير ايقونة البرنامج المرفقة مع البرنامج 111.rar

السلام عليكم قمت بتغيير ايقونة برنامج اكسس2010 وعند فتح نموذج اسمه Main21 يظهر لي الوحة لنمطية لخاصة بالزر الموجود في النموذج اخي واريد وضع الصورة المرفقة مع البرنامج ان الوحدة النمطية خاصة بفتح القائمة المسندلة اسم الوحدة النمطية هي modGlobal المستخدمين.rar

السلام عليكم اريد كود او و حدة نمطية لدي تاريخ الغياب و تاريخ العودة وعدد ايام الغياب اريد عند وضع تاريخ الغياب يبدء حساب الغياب وهذا الى غاية وضع تاريخ العودة مثل تاريخ الغياب من تاريخ 01-04-2020 تاريخ العودة مازال لم يعود الى العمل عدد ايام الغياب 10 ايام وهذا يتم حساب الغيياب حتى يتم الموظف الى عمله

اخي الكريم في النمودج يوجد 2صفاحات اريد اظهار 2صفاحات مثل سجنا 30 موظفا نجد 3 صفاحات تظهر ثلاثة 1و2و3 وهكذ وعندما يزدا عدد الموظفين يزيد تظهر عدد ازرار الصفاحات

بارك الله فيك لكن رسالة التنبه لم تظهر عند ترك الحقل فارغ وعند ملء الحقول

السلام عليكم اخي لدي نموذج فرعي يحتوي على عشرة موظفين واني استعمال التالي والسابق لذهب الى الصفحات الاخرى اريد مثل هذا الشرح الموضح في الصورة في المرفقات القائمة.rar

اريد اسخراج بيانات في النموذج باستعمال الكود

اليك المثل Nouveau Microsoft Access قاعدة بيانات.rar

السلام عليكم يوجد كود لي استخراج اسم الحقل من الاستعلام في النموذج

السلام عليكم اريد كود حذف الحقول

السلام عليكم اريد تعديل زر الحاقي يسمح بالتكرار Private Sub Command5_Click() On Error GoTo Error_ErrorZ If Len(Me.B1 & vbNullString) = 0 Or Len(Me.B2 & vbNullString) = 0 Or Len(Me.B3 & vbNullString) = 0 Or Len(Me.B4 & vbNullString) = 0 Or Len(Me.B5 & vbNullString) = 0 Then Else DoCmd.SetWarnings False DoCmd.OpenQuery "Query1" DoCmd.SetWarnings True ' MsgBox "Done", vbInformation End If Error_ErrorZ: MsgBox "Not Done", vbInformation End Sub زرالحاقي (4).rar

اخي لم يفتح التقرير اخي ابن اضع اسم التقرير في الكود

السلام عليكم طريقة عدم فتح التقرير الا بعد اختيار السنة والشهر 2020القائمة الفرعية.rar

السلام عليكم لدي ازرار في النموذج اريد فتح النماذج داخل الخانة الصفراء اليك البرنامج فيه الشرح 20199.rar

اخي محمد انه يتنقل بسجلين اريد ان ينقل بسجل واحد

اخي لقد جربت ذلك ولم تنزع

اخي طريقة نزع رسالة تنبيه الاستعلام

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

السلام عليكم لدي قاعدة بيانات1 اصلية وقمت بنسخ قاعدة بيانات 2 اريد ربط قاعدة البيانات2 بقاعدة بيانات 1

السلام عليكم اريد التعديل على الوحدة النمطية لاظهار الصور في الزر وهذا عند الضغط على الزر اضغط هنا تظهر لك قائمة فيها اسماء النماذج اريد عند اسم النموذج ادراج صورة القائمة الفرعية.rar

السلام عليكم اريد تعديل الوحدة النمطية لاظهار الصورة في القائمة المنسدلة وهذا عند الضغط على الزر اضغط هنا تظهر القائمة Option Compare Database Option Explicit Option Private Module Public Sub MENUFORMS11() On Error Resume Next Application.CommandBars("FORMS").Delete Set MAINMENU11 = Application.CommandBars.Add("FORMS", 5, , True) Set Button = MAINMENU11.Controls.Add With Button .Caption = "form1" .OnAction = "SUBFORM1" End With Set Button = MAINMENU11.Controls.Add With Button .Caption = "form2" .OnAction = "SUBFORM2" End With MAINMENU11.ShowPopup End Sub Sub subform1() DoCmd.OpenForm "FORM1" End Sub Sub SUBFORM2() DoCmd.OpenForm "FORM2" End Sub Public Function SetFntName(strFName As CommandButton) Rem: استبدل خط ايريل بالخط الذي تريد strFName.FontName = "Arial" strFName.FontSize = "16" strFName.FontItalic = True End Function القائمة الفرعية.rar