اخي العزيز
من بعد اذن الادم واعضاء الكرام
اذهب الى الوحدات النمطية وانشأ وحدة جديدة module وانسخ هذا الكود
Function ap_DisableSift()
On Error GoTo errdisableshift ' ÊÚØíá ãÝÊÇÍ ÇáÔÝÊ
Dim DB As dao.Database
Dim prop As dao.Property
Const ConPropNotFound = 3270
Set DB = CurrentDb()
DB.Properties("AllowByPasskey") = False
Exit Function
errdisableshift:
If Err = ConPropNotFound Then
Set prop = DB.CreateProperty("AllowByPasskey", _
dbBoolean, False)
DB.Properties.Append prop
Resume Next
Else
MsgBox "ÚãáíÉ ÊÚØíá ãÝÊÇÍ ÇáÏÎæá Çáì ÇáäÙÇã áã ÊßÊãá ÈäÌÇÍ"
Exit Function
End If
End Function
Function ap_EnableSift()
On Error GoTo errdisableshift ' ÇÊÇÍÉ ãÝÊÇÍ ÇáÔÝÊ
Dim DB As dao.Database
Dim prop As dao.Property
Const ConPropNotFound = 3270
Set DB = CurrentDb()
DB.Properties("AllowByPasskey") = True
Exit Function
errdisableshift:
If Err = ConPropNotFound Then
Set prop = DB.CreateProperty("AllowByPasskey", _
dbBoolean, True)
DB.Properties.Append prop
Resume Next
Else
MsgBox "ÚãáíÉ ÊÚØíá ãÝÊÇÍ ÇáÏÎæá Çáì ÇáäÙÇã áã ÊßÊãá ÈäÌÇÍ"
Exit Function
End If
End Function
Private Sub Label16_Click()
ap_DisableSift
End Sub
Private Sub Label16_DblClick(Cancel As Integer)
ap_EnableSift
End Sub
ثم اذهب الى النموذج الرئيسي واصنع مربع نص واكتب به اي شي ليس مهم واذهب الى خيارات المربع في الحدث عند نقر لمرة واحدة ضع هذا الكود
ap_DisableSift
وعند نقر مزدوج ضع هذا الكود
ap_EnableSift
اي عند النقر لمرة واحد على مربع النص يقفل الشفت وعند النقر المزدوج يفتح الشفت
ارجو ان تكون وصلت الفكرة