/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 vote213 views1 answer
Inno add exe in service
TypeScript
1 vote177 views1 answer
Count items in list applescript
TypeScript
0 vote215 views1 answer
Cypress not defined
TypeScript
16 votes189 views2 answers
Typescript loop types
TypeScript
1 vote210 views1 answer
Gets ents within range gmod lua
TypeScript
0 vote204 views1 answer
Ignore hosts option in network proxy in ubuntu 16.04
TypeScript
0 vote204 views3 answers
Figma documentation
TypeScript
1 vote140 views2 answers
Loop an audio javascript
TypeScript
0 vote197 views1 answer
Haskell list of lists to list
TypeScript
18 votes223 views6 answers
Remove multiple elements from array es6
TypeScript