PRIVATE DESK

Workspace.

Your useful snippets,
without the noise.

⌕
ACCESS • VBA

Access Test

Private Sub Test_Click()
    MsgBox "Access is ready"
End Sub
ACCESS

Scanner Event

Private Sub ScanHere_AfterUpdate()
    ' Scanner logic
End Sub
SQL

Latest Records

SELECT TOP 20 *
FROM YourTable
ORDER BY ID DESC;
VBA

Open Form

Private Sub OpenForm_Click()
    DoCmd.OpenForm "FormName"
End Sub
Copied