أواب

هل يمكن ارفاق القاعدة لمعرفة الاسباب؟

وعليكم السلام لو ترفق مثالا لمساعدتك عليه

للإسف الأوفيس عندي اصدار 2003 فلو أمكن رفع الملف بإصدار2003

وعليكم السلام أرفق مثالا لقاعدة ليتم التعديل عليه

وعليكم السلام أرفق مثالا لقاعدة ليتم التعديل عليه

نرجو التفضل برفع البرنامج بنسخة 2003 لتعم الاستفادة

ضع الكود في حدث عند فتح النموذج أو أرفق مثالك للتعديل عليه

يمكنك أخي الكريم فعل ذلك عن طريق الكود Private Sub Form_Open(Cancel As Integer)If Not IsNull([الرقم الوظيفي]) Then[الرقم الوظيفي].Locked = True[الرقم الوظيفي].Enabled = FalseElse[الرقم الوظيفي].Locked = False[الرقم الوظيفي].Enabled = TrueEnd If

تفضل أخي الكريم.....لعل المثال يفيدك 1.rar

مرحباً بك أخونا فتى الوادي تفضل أخي الكريم.....لعله ما تطلبه db1.rar

مرحباً بك أخونا فتى الوادي تفضل أخي الكريم.....لعله ما تطلبه db1.rar

تفضل أخي الكريم ..لعله ما تريد 1.rar

يعطيك العافية يا ست الكل وألف شكر

شكرأ لاهتمامك ..........زهرة المنتدى ولكن ماذا أكتب قبل الكود؟ أي كيف أعبر عن هذا المعنى:    then(اسم هذه القاعدة =كذا) if

if [اسم هذه القاعدة]="النقل المدرسي" then [نفذ هذا الكود]' Dim strPath As String Dim fs, OldFile, DBwithEXT, DBwithoutEXT, NewFile OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) strPath = CurrentProject.Path & "\" & DLookup("[العام]", "B") If Not IsExist(CurrentProject.Path & "\", vbDirectory) Then MkDir CurrentProject.Path & "\" If Not IsExist(strPath, vbDirectory) Then MkDir strPath Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile CurrentProject.Path & "\النقل المدرسي ج.mdb", strPath & "\" & "ج- ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4) fs.CopyFile CurrentProject.Path & "\النقل المدرسي.mdb", strPath & "\" & "ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4) Set fs = Nothing Relink strPath & "\" & "ج- ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4), strPath & "\" & "ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4), True MsgBox "تم نسخ قاعدة البيانات" end if