Code:
'Disable Ctrl-F4 Hot Key in Access 2010. Select Case KeyCode Case vbKeyF4 'MsgBox "The F2 key was Pressed" KeyCode = 0 Case Else 'MsgBox "No match!" 'testing End Select
'Disable Ctrl-F4 Hot Key in Access 2010. Select Case KeyCode Case vbKeyF4 'MsgBox "The F2 key was Pressed" KeyCode = 0 Case Else 'MsgBox "No match!" 'testing End Select
If Shift = acAltMask And KeyCode = vbKeyF4 Then 'KeyDown Procedure KeyCode = 0 'Set Form KeyPreview Property to YES End If
If IsNull(Forms!frmPassword!Text0) Then 'No Blank passwords allowed MsgBox "You cannot enter a blank Password. Try again." Me!Text0.SetFocus Else 'No More Than 3 Attempts Allowed If Me.LIChk >
Cancel = (InputBox("Please Enter a Password ?") <> "authorized")
SELECT tblProducts.ProductID, tblProducts.ProductName, Sum(tblProducts.Inventory) AS StockLevel, Nz([ReOrderLevel],0-Nz([StockLevel],0)) AS ReStockAmnt, tblProducts.ReorderLevel FROM tblProducts GROUP BY tblProducts.ProductID, tblProducts.ProductName, tblProducts.ReorderLevel;
Leave a comment: