/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 vote164 views1 answer
Cannot find name 'describe'. Do you need to install type definitions for a test runner? Try `npm i --save-dev @types/jest`
TypeScript
16 votes154 views2 answers
Typescript loop types
TypeScript
0 vote157 views1 answer
Avoid hitting multiple same api hits angular
TypeScript
1 vote164 views1 answer
Matlab run all tests in folder
TypeScript
1 vote156 views1 answer
According to all known laws of aviation
TypeScript
0 vote182 views1 answer
Extract digits with serten lenth from string python
TypeScript
2 votes199 views1 answer
Formgroup addcontrol
TypeScript
4 votes165 views3 answers
Flutter unfocus textfield
TypeScript
0 vote180 views1 answer
Print in a tsv file all names of files in a directory linux
TypeScript
0 vote207 views1 answer
Why are lower case alphabets more preffered in html
TypeScript