/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

30 votes301 views6 answers
Install typescript using npm
TypeScript
1 vote305 views1 answer
How to use mutliple layouts in recyclerview
TypeScript
0 vote286 views1 answer
Typescript get object value
TypeScript
0 vote275 views1 answer
Angular dictionary
TypeScript
1 vote293 views1 answer
Cannot find name 'debounceTime'
TypeScript
19 votes283 views6 answers
Create new component in Angular
TypeScript
0 vote335 views1 answer
Nullish Coalescing
TypeScript
0 vote271 views1 answer
Material ui iccons
TypeScript
0 vote379 views1 answer
Request exceeded the limit of 10 internal redirects due to probable configuration error
TypeScript
1 vote294 views2 answers
Multiple scatter plots in python
TypeScript