سوال مهم في الاكسس

السلام عليكم اهلا اخى هذى اول مشاركة لى فى هذا المنتدى وارجو ان قد ساعدتك

جرب هذا الكود

************* Code Start *****************

Function foo()

Dim db As Database

Dim oAcc As Access.Application

Const TMP = "fooz.mdb"

Set db = DBEngine.CreateDatabase(TMP, _

dbLangGeneral)

db.NewPassword "", "doooo"

db.Close

Set db = Nothing

Set oAcc = New Access.Application

Set db = oAcc.DBEngine.OpenDatabase(TMP, _

False, False, ";PWD=doooo")

oAcc.OpenCurrentDatabase TMP

db.Close

Set db = Nothing

End Function

'************* Code End *****************

الأخ مبرمج ليبيا

مشكور وماقصرت بس اريد تفاصيل اكثر عن الموضوع

بمعنى اخر اين اقوم بوضع الكود المذكور

وهل يتم كذلك معرفة الشخص الذي ادخل السجلات

ارجوالرد بسرعة