كۆدى لەكارخستنى دووگمەى شيفت بۆ بەرنامەى ئەكسێس - وانەى ٢٩

بۆ لەكارخستنى دووگمەى (Option) و ( Privacy Option) ئەم كۆدە بەكاربێنىە

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">

<ribbon startFromScratch="false"></ribbon>

<backstage><button idMso="ApplicationOptionsDialog" visible="false"/></backstage>

</customUI>

بۆ لەكارخستنى دووگمەى شيفت ئەم كۆدە بەكاربێنە

if user is admin

Dim prop as Property

on Error GoTo SetProperty

Set prop= CurrentDB.CreateProperty("AllowBypassKey", dbBoolean, False)

CurrentDb.Properties.Append prop

SetProperty:

if Msbox("Would you Like to turn On the Shift key?", vbYesNo, "Allow Shift key") = vbYes Then

CurrentDb.Properties("AllowBypassKey") = True

Else

CurrentDb.Properties("AllowBypassKey") = False

End if

بۆ بينينى ڤيديۆى فێركارى سەيرى ئەم ڤيديۆيە بكە