فعال و غیر فهال کردن Shift به هنگام باز کردن اکسس

برای فعال و غیر فعال کردن کلید Shift هنگام باز شدن اکسس

سه دکمه روی یک فرم مطابق شکل بالا ایجاد کنید و کدهای زیر را در آن بنویسد.
(نمایش کدهای نوشته شده مناسب نیست ولی اگر آنرا در حافظه کپی کنید و در ماجول فرمتان کپی کند بدرستی تمایش داده می شود .)

'برای اولین دفعه :
Private Sub Create_Click()
On Error GoTo Er

Dim db As Database
Dim prp As Property
Set db = CurrentDb
Set prp = db.CreateProperty("allowbypasskey", dbBoolean, False)
db.Properties.Append prp
db.Close

Ex:
Exit Sub
Er:
If Err.Number = 3367 Then
MsgBox "این خاصیت ایجاد شده و لازم نیست مجددا ایجاد شود"
End If
Resume Ex

End Sub

'جهت غیر فعال کردن شیفت
Private Sub ShiftNo_Click()
Dim db As Database
Set db = CurrentDb
db.Properties("allowbypasskey") = False
db.Close
End Sub

'جهت فعال کردن شیفت
Private Sub ShiftOk_Click()
Dim db As Database
Set db = CurrentDb
db.Properties("allowbypasskey") = True
db.Close
End Sub

اتصال چند جدول به هم

در اکسس در برخی قسمت ها وجود پرانتز الزامی است با اینکه در انواع دیگر بانک های اطلاعاتی نیازی به آن پرانتز ها نیست.  

SELECT
  c.CompanyID,
  c.CompanyName,
  e.LastName,
  e.FirstName,
  e.Salary,
  d.FullName,
  d.RelationShip
FROM
  (Company c INNER JOIN Employee e
  ON c.CompanyID = e.CompanyID)
  INNER JOIN Dependant d
  ON e.SSN = d.SSN

و یک نمونه ی دیگر در اتصال ۴ جدول :

SELECT
  cfarticle.id,
  cfarticle.title,
  cfarticle.description,
  cfarticle.dateadded,
  editorial.authorname as author,
  categories.name,
  levels.levelname
FROM
  ((cfarticle INNER JOIN categories ON cfarticle.category=categories.id)
   INNER JOIN editorial ON cfarticle.author=editorial.id)
    INNER JOIN levels ON cfarticle.skllevel=levels.id

 تمام