بلال اليامين

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

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

السلام عليكم اريد تعديل زر الحاقي يسمح بالتكرار 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

السلام عليكم اريد كود لصورة تتحرك في النموذج واين اضع الكود

السلام عليكم لدي قاعدة بيانات اكسس2010 اريط نسخ قاعدة البيانات وبطها مع قاعدة البيانات الاولى وهذا عند التعديل في النماذج او الجدول يتغير في قاعدة البيانات الثانية

الرجاء افادتنا بشرح انشاء البحث في النموذج الفرعي او كود

السلام عليكم لدي نموذج فرعي اريد انشاء بحث ولقد حاولت وضع الكود ولم اسطيع القائمة.rar

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

اخي اليك المثال الصلاحيات المستخدمين.rar

اخي كيف اخفاء الجداول

الجدول اسمه الموظف

اخي الزر الموجود في في البرنامج المرفق اسمه اظغط هنا اريد نقله الى البرنامج عدد السجلات النموذج افتح البرنامج يظهر لك نموذج سوف يظهر لك الزر

اخي بارك الله فيك اخي اريد نقل الزر اظغط هنا الموجود في البرنامج بالقائمة الفرعية والاسم في البرنامج عدد السجلات في النمو\ج بالقائمة الفرعية والاسم - Copie.rar910.16 kB · 41 تنزيلات

السلام عليكم اخواني مثال عند دخول مستخدم اسمه محمد وكلمة المرور 1 ودخول مستخدم اسمه بلال وكلمة المرور2 اريد عند دخول محمد لم تظهر بيانات بلال وكلمة المرور الخاصة به وعند دخول بلال لم تظهر بيانات محمد وكلمة المرور الخاصة به وشكرا الصلاحيات المستخدمين.rar

اليك الصورة لتوضيح