/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 vote127 views1 answer
The derived ungapped alignments are calleed
TypeScript
5 votes142 views2 answers
Pass function as argument typescript
TypeScript
0 vote73 views0 answer
TypeScript
0 vote102 views1 answer
How to take list as command line arguments in python
TypeScript
0 vote99 views1 answer
Tes ssh gitlab
TypeScript
0 vote105 views1 answer
Typescript object get value by key
TypeScript
4 votes58 views1 answer
Typescript define return type based on parameter
TypeScript
0 vote123 views1 answer
Query the NAME field for all American cities in the CITY table with populations larger than 120000. The CountryCode for America is USA.
TypeScript
0 vote102 views1 answer
How to align text inside an li to its center
TypeScript
24 votes125 views4 answers
NgFor
TypeScript