/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

26 votes263 views3 answers
Scripts cannot be executed on this system.
TypeScript
1 vote230 views1 answer
Kotlin version that is used for building with gradle
TypeScript
7 votes207 views2 answers
Firestore increment field
TypeScript
1 vote226 views1 answer
Create class angular
TypeScript
0 vote237 views1 answer
How to calculate distance between 2 points in knex postgis
TypeScript
0 vote204 views1 answer
Whats app link target blank
TypeScript
0 vote279 views1 answer
Sourcetree winmerge arguments three way merge
TypeScript
1 vote223 views2 answers
Typescript formik useFormik
TypeScript
0 vote237 views1 answer
Chakra ui menu open on hover
TypeScript
0 vote223 views1 answer
Ant typescript styles
TypeScript