غسان علي قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 السلام عليكم وتحية طيبة وكل عام وانتم بخير هل هناك طريقة لاخفاء الجداول او الاستعلام من قاعدة البيانات ويكون اعادة ظهورها بكلمة سر تقبلوا تحياتي وتقديري رابط هذا التعليق شارك More sharing options...
محمد قاسم 12 قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 متابع رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 (معدل) كود لاخفاء الجداول والاستعلامات كلمة السر 123 Dim db As Database Dim obj As AccessObject, dbs As Object Dim tdf As TableDef Dim qry As QueryDefs Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllTables Set tdf = db.TableDefs(obj.NAME) If left(tdf.NAME, 4) <> "msys" And tdf.Attributes <> 1073741824 Then tdf.Attributes = tdf.Attributes + dbHiddenObject End If Next For Each obj In dbs.AllQueries SetHiddenAttribute acQuery, obj.NAME, True Next obj Application.SetOption "Show Hidden Objects", 0 Application.SetOption "Show System Objects", 0 Set tdf = Nothing db.Close Set db = Nothing وهذا اظهار الاستعلامات Retry: TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) Dim MyPassword As String str_Title = "كلمة السر مطلوبه" str_Prompt = "أدخـل كـلـمـة الـسـر لاظهار الجداول والاستعلامات" MyPassword = InputBox(str_Prompt, str_Title) Select Case MyPassword Case "123" Beep MsgBox "الأن... يـمكـنـك اظهار الجدالول", vbOKOnly + vbInformation Case Else Beep If MsgBox(" عــفــوا .. كــلــمــة الــســر خــاطــئــة " & vbCrLf & " مــن حــســن إســـلام الـمــرء تــركــه مــا لا يــعــنــيــه ", vbInformation + vbRetryCancel) = vbRetry Then GoTo Retry Exit Sub MsgBox "تم الرجوع", vbInformation, "إلغاء العملية" End Select Dim db As Database Dim obj As AccessObject, dbs As Object Dim qry As QueryDefs Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllQueries SetHiddenAttribute acQuery, obj.NAME, False Next obj Set dbs = CurrentDb For Each tdf In dbs.TableDefs If left(tdf.NAME, 4) <> "msys" And tdf.Attributes <> 1073741824 _ And tdf.Attributes = 1 Then tdf.Attributes = tdf.Attributes - dbHiddenObject End If Next tdf Set dbs = Nothing db.Close Set db = Nothing تم تعديل أغسطس 25, 2018 بواسطه ابو ياسين المشولي 2 رابط هذا التعليق شارك More sharing options...
fantap قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 من فضلك اين اضع هذه الكواد داخل البرنامج في حدث معين او في وحدة نمطية شكرا لك رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 1 دقيقه مضت, fantap said: من فضلك اين اضع هذه الكواد داخل البرنامج في حدث معين او في وحدة نمطية شكرا لك في اي امر تختارة في النموذج 1 رابط هذا التعليق شارك More sharing options...
محمد قاسم 12 قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 50 دقائق مضت, ابو ياسين المشولي said: في اي امر تختارة في النموذج ممكن لو سمحت مثال رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 1 ساعه مضت, محمد قاسم 12 said: ممكن لو سمحت مثال اتفضل اخفار واظهار.accdb 1 1 رابط هذا التعليق شارك More sharing options...
محمد قاسم 12 قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 بارك الله فيك رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 1 دقيقه مضت, محمد قاسم 12 said: بارك الله فيك بارك الله في الجميع 1 رابط هذا التعليق شارك More sharing options...
غسان علي قام بنشر أغسطس 26, 2018 الكاتب مشاركة قام بنشر أغسطس 26, 2018 الشكر والتقدير على هذا المجهود الرائع والاستجابة السريعة تحياتي وتقديري رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان