/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 vote331 views1 answer
How remove decimal points in java
TypeScript
2 votes317 views1 answer
Create model class angular
TypeScript
0 vote322 views1 answer
What is .align mips
TypeScript
0 vote313 views1 answer
Google sheets k format
TypeScript
5 votes307 views2 answers
Javascript float element right
TypeScript
11 votes302 views6 answers
Localstorage
TypeScript
1 vote348 views1 answer
DbQueryEventNode
TypeScript
0 vote315 views1 answer
Vscode use relative paths in auto import
TypeScript
0 vote345 views1 answer
How to take multiple int inputs in the same line in C++
TypeScript
0 vote342 views1 answer
Mongoose model enum
TypeScript