نجوم المشاركات

ممكن سؤال وليه اصلا نموذجين اتنين مع اننا ممكن نعمل نموذج ومعاك فكرتين الاولى : نبدأ بشريط التقدم قبل بيانات الدخول الثانية : نبدأ ببيانات الدخول قبل التقدم LoadingAndLoginformReversal.accdb LoadingAndLoginform.accdb

اخي ابو حسان : انت عضو مخضرم في هذا المنتدى ولديك الخبرة الكافية هل تعلم لماذا لم تحصل على تفاعل مع موضوعك ؟ لأسباب : 1- نموذج كلمة المرور الذي يفتح اول البرنامج ليتك تلغيه من قاموسك ، اقصد من جميع مرفقاتك التي ترفعها لأنه يسبب صدمة لمن يريد المساعدة ... لا تقل يفتح على التصميم الثاني وهو المهم او الأهم : يجب عند عرضك للمرفق ان يشتمل على الكائنات التي تريد معالجتها فقط في مثل طلبك هذا الاولى ان يكون المرفق يحتوي على نموذج واحد فقط واكرر فقط ( والجداول التي يأخذ منها البيانات فقط ) في هذا النموذج تعمل الحقول التي تريد اختيارها وعرضها في التقرير كذا تساعد من يتصدى للحل لفهم المطلوب وتسهيل انجاز العملية آمل ان تتقبل ملاحظاتي بصدر رحب ، فهي ملاحظات محب ، يريد خدمتك

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Private Sub CommandButton1_Click() Dim newWb As Workbook Dim WS As Worksheet: Set WS = Sheets("Sheet18") Path = ThisWorkbook.Path & "\" 'OR =====>>'"D:\test\" If WS.[E2] = 0 Then: Exit Sub Application.ScreenUpdating = False Application.DisplayAlerts = False WS.Copy Set newWb = ActiveWorkbook newWb.SaveAs Filename:=Path & WS.[E2] & ".xlsx", FileFormat:=51 newWb.Close Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox "Saved successfully" End Sub SAV 18.xlsb

Private Sub jop_BeforeUpdate(Cancel As Integer) Dim db As DAO.Database Dim rs As DAO.Recordset Dim UserCount As Integer Dim PasswordInput As String Set db = CurrentDb() If Me.jop.Value <> "محاسب" And Me.jop.Value <> "مستخدم" Then MsgBox "برجاء إدخال كلمة محاسب أو مستخدم فقط.", vbExclamation, "قيمة غير صحيحة" Cancel = True Exit Sub End If If Me.jop.Value = "مستخدم" Then Set rs = db.OpenRecordset("SELECT COUNT(*) AS CountOfUsers FROM tblUsers WHERE jop = 'مستخدم'") UserCount = rs!CountOfUsers If UserCount >= 3 Then PasswordInput = InputBox("لقد تم إدخال 3 سجلات لمستخدمين. يرجى إدخال كلمة السر لإضافة مستخدم جديد:") If PasswordInput = "" Or PasswordInput <> "123" Then MsgBox "كلمة السر غير صحيحة. لا يمكن إضافة مستخدم جديد.", vbExclamation Cancel = True End If End If rs.Close Set rs = Nothing End If Set db = Nothing End Sub

تفضل اخي الكريم

العلم تراكمي ويتطور ويزيد بعد تلقي الخلف من السلف لولا تفوق الطلاب على معلميهم لما وصلنا في هذا الزمان الى هذه المراحل من التطور هذه حقيقة لا ينتطح فيها كبشان

خدعوك فقالوا وبعدين عندنا مثل شعبى بالمصرى بيقول الدهن فى العتاقى يعنى كلنا جميعا بجوار اساتذتنا العظماء اصفار على اليسار

كل اناء بما فيه ينضح .. وإناؤك مليء بالخير والأدب والتواضع تقديرك واحترامك على الرأس والعين .. على اساس اني سبقتك في السن وفي التعلم ، ولكن لا تنسى ان آفة العلم النسيان انت تجاوزتني بسنوات ضوئية ..

العفو منكم استاذى الجليل ومعلمى القدير اذا حضر الماء بطل التيمم

هاته يابشمهندس جزاك الله خير اكيد افضل من اللي عملته بمراحل لأني عملته على استعجال وتبسيط مراعاة لفهمه

اساذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل جعلكم الله تعالى سباقون بالخيرات انا شوفت الموضوع وانا فى الشغل الصبح وكنت ناوى والله اعمله وقاعد شغال جالى الاشعار ووجدت حضرتك جزاكم الله خيرا

تفضل اتمنى تكون بداية خير لك لاحتراف اكسس db1.rar