اینم یه برنامه کوچیک برای فعال و غیر فعال کردن دکمه شیفت (shift) در ابتدای ورود به برنامه اکسس

[najafi87]

سلام
این برنامه برای فعال و غیر فعال کردن دکمه شیفت (shift) در ابتدای ورود به برنامه اکسس استفاده میشه و تقدیم می کنم به همه بزرگواران
صلوات یادتون نره...

[ic3300]

دستت درد نكنه برنامه باحالي بود

[abdoreza57]

سلام

برنامه خوبی است اگر سورس بازش را میذاشتید فایل MDE اساسا جنبه آموزشی نداره لطف کن MDB تبدیلش کن

[najafi87]

با سلام
عذرخواهم منم همین فایلو دارم و متن بازشو ندارم

[RESMAILY]

سلام
این هم کد مربوطه

Sub SetBypassProperty()

Const DB_Boolean As Long = 1

    ChangeProperty "AllowBypassKey", DB_Boolean, False

End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

    Dim dbs As Object, prp As Variant

    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb

    On Error GoTo Change_Err

    dbs.Properties(strPropName) = varPropValue

    ChangeProperty = True

Change_Bye:

    Exit Function

Change_Err:

    If Err = conPropNotFoundError Then    ' Property not found.

        Set prp = dbs.CreateProperty(strPropName, _

            varPropType, varPropValue)

        dbs.Properties.Append prp

        Resume Next

    Else

        ' Unknown error.

        ChangeProperty = False

        Resume Change_Bye

    End If

End Function

[golmarzi]

سلام این کد رو کجا باید نوشت؟
من خیلی برنامه نویسی بلد نیستم فقط برا دل خودم

[golmarzi]

سلام
این هم کد مربوطه

Sub SetBypassProperty()

Const DB_Boolean As Long = 1

    ChangeProperty "AllowBypassKey", DB_Boolean, False

End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

    Dim dbs As Object, prp As Variant

    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb

    On Error GoTo Change_Err

    dbs.Properties(strPropName) = varPropValue

    ChangeProperty = True

Change_Bye:

    Exit Function

Change_Err:

    If Err = conPropNotFoundError Then    ' Property not found.

        Set prp = dbs.CreateProperty(strPropName, _

            varPropType, varPropValue)

        dbs.Properties.Append prp

        Resume Next

    Else

        ' Unknown error.

        ChangeProperty = False

        Resume Change_Bye

    End If

End Function

سلام این کد رو کجا باید نوشت؟
من خیلی برنامه نویسی بلد نیستم فقط برا دل خودم

[RESMAILY]

به نام خدا
با سلام. آن را داخل یک ماجول عمومی (public) قرار دهید. باید یک بار اجرا شود. البته اگر حوصله برنامه نویسی ندارید این کاررا نکنید. چون ممکن است خودتان نتوانید دوباره به وضعیت اول دسترسی داشته باشید.

[padide55]

یه جای برنامه یک کد بگذارید که مثلا با زدن دکمه منها
شیفت دوباره فعال بشه .
مخفی .فقط خودتون بدونید.