Function fDisableShift()
Dim intX As Integer
intX = AddAppProperty("AllowByPassKey", dbBoolean, True)
End Function
Function AddAppProperty(strName As String, _
varType As Variant, varValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo AddProp_Err
dbs.Properties(strName) = varValue
AddAppProperty = True
AddProp_Bye:
Exit Function
AddProp_Err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strName, varType, varValue)
dbs.Properties.Append prp
Call fDisableShift
Else
AddAppProperty = False
Resume AddProp_Bye
End If
End Function
--- In [email protected], Nur Ubaidi <[EMAIL PROTECTED]> wrote:
>
> Yth. para suhu access, mau nanya gimana cara mendissable tombols
shift biar databasenya tidak muncul ya? pertanyaan sy tdk pernah
dijawab :-(
>
>
>
>
>
_______________________________________________________________________
_____________
> Never miss a thing. Make Yahoo your home page.
> http://www.yahoo.com/r/hs
>
