آموزش: اینم یه برنامه کوچیک برای فعال و غیر فعال کردن دکمه شیفت (shift) در ابتدای ورود به برنامه اکسس [بایگانی]

najafi87

سه شنبه 09 خرداد 1391, 10:35 صبح

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

ic3300

سه شنبه 09 خرداد 1391, 13:54 عصر

دستت درد نكنه برنامه باحالي بود:تشویق:

abdoreza57

چهارشنبه 10 خرداد 1391, 19:10 عصر

سلام

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

najafi87

چهارشنبه 04 دی 1398, 12:47 عصر

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

RESMAILY

شنبه 14 دی 1398, 08:24 صبح

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

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

پنج شنبه 01 آبان 1399, 18:59 عصر

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

golmarzi

پنج شنبه 01 آبان 1399, 19:00 عصر

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

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

پنج شنبه 08 آبان 1399, 19:47 عصر

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

padide55

پنج شنبه 08 آبان 1399, 21:55 عصر

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