/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

1 vote279 views1 answer
Python convert two lists with duplicates to dictiona
TypeScript
0 vote289 views1 answer
Are flights still running
TypeScript
14 votes297 views6 answers
Find the smallest number from an array
TypeScript
2 votes270 views1 answer
Nodejs express multer s3
TypeScript
-2 votes296 views2 answers
How to show code conflicts in git
TypeScript
0 vote290 views1 answer
Accessing widgets in screen manager kivy
TypeScript
0 vote248 views1 answer
Create file object from url typescript
TypeScript
0 vote305 views2 answers
To move a directory with its contents in terminal in linux
TypeScript
0 vote282 views1 answer
Split in angular 8
TypeScript
6 votes347 views1 answer
Angular forkjoin
TypeScript