/TypeScript/Access - Open form non data entry mode

Access - Open form non data entry mode

Private Sub openRecBtn_Click()
    Dim numID As Long

    numID = InputBox("Please enter the ID : ")

    If DCount("*", "yourTable", "numberID = " & numID) <> 0 Then
        DoCmd.OpenForm "tmpFrmName", WhereCondition:="numberID = " & numID
    Else
        MsgBox "The numberID : " & numID & " does not exist, please try again !"
    End If
End Sub

Source: stackoverflow.com

Similar codes

0 vote255 views1 answer
2 counts of IllegalAnnotationExceptions
TypeScript
9 votes264 views1 answer
How to print list as matrix in python without brackets
TypeScript
0 vote278 views1 answer
Socket.io typescript
TypeScript
1 vote252 views1 answer
Deno router
TypeScript
0 vote253 views1 answer
Vercel react redirects to index html
TypeScript
4 votes278 views1 answer
Require('dotenv').config() typescript
TypeScript
0 vote305 views3 answers
Typescript type of function
TypeScript
0 vote279 views1 answer
Typescript vue 3 css property !important
TypeScript
12 votes331 views4 answers
Delete contents of directory python
TypeScript
1 vote261 views1 answer
Typescript type check only
TypeScript