/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

6 votes269 views1 answer
An unhandled exception occurred: Cannot find module '@angular-devkit/build-angular/package.json'
TypeScript
0 vote276 views1 answer
Custom events in unity c#
TypeScript
0 vote280 views1 answer
What is the reason we are using properties file
TypeScript
2 votes250 views1 answer
Styled-components error in typescript
TypeScript
0 vote265 views1 answer
Css all inoputs not checkbox
TypeScript
0 vote250 views2 answers
Open ports on RPI
TypeScript
0 vote258 views1 answer
React/Typescript Storybook not allowing objects to be imported
TypeScript
0 vote256 views1 answer
Facade design pattern typescript
TypeScript
4 votes219 views1 answer
Typescript convert image base64 librarie
TypeScript
1 vote243 views1 answer
Typescript mix props
TypeScript