User Profile

Collapse

Profile Sidebar

Collapse
burrina
burrina
Last Activity: Dec 18 '14, 11:01 PM
Joined: Jun 29 '14
Location:
  •  
  • Time
  • Show
  • Source
Clear All
new posts

  • burrina
    replied to Keep form from closing
    Your Very Welcome. FYI, for 2010 it is different.

    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
    See more | Go to post

    Leave a comment:


  • burrina
    replied to Keep form from closing
    Here is the Code to deal with this issue.

    Code:
    If Shift = acAltMask And KeyCode = vbKeyF4 Then		'KeyDown Procedure
      KeyCode = 0	'Set Form KeyPreview Property to YES
     End If

    HTH
    See more | Go to post

    Leave a comment:


  • burrina
    replied to Combo box adding new fields
    Is this combo bound and do you have code using the afterupdateeven t?
    See more | Go to post

    Leave a comment:


  • burrina
    replied to Password Form
    This is not my thread. However, after looking back at it, yes that is true. I would have a command button that opens another password form that asks for confirmation.
    Code:
    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 >
    ...
    See more | Go to post

    Leave a comment:


  • burrina
    replied to Password Form
    Easy Way! Using OnOpenEvent. Of course, you can change the Msg and Password to your liking.

    Code:
    Cancel = (InputBox("Please Enter a Password ?") <> "authorized")
    HTH
    See more | Go to post

    Leave a comment:


  • burrina
    replied to Stock Control Database
    Here is SQL code for tblProducts that may help you.
    Code:
    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;
    HTH
    See more | Go to post

    Leave a comment:

No activity results to display
Show More
Working...