/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

3 votes134 views1 answer
Sort list of lists by first element
TypeScript
1 vote103 views1 answer
Import fetch in typescript
TypeScript
1 vote157 views2 answers
Typescript convert readonly
TypeScript
-3 votes195 views1 answer
How to implement Bootstrap 4 for Angular 2 ngb-pagination
TypeScript
0 vote142 views1 answer
Typescript generic dictionary
TypeScript
1 vote146 views1 answer
Typescript string null or white space
TypeScript
0 vote146 views1 answer
Java delete contents of file
TypeScript
18 votes138 views3 answers
Typescript sort array of objects
TypeScript
2 votes148 views1 answer
Typescriprt specify type of key
TypeScript
0 vote135 views1 answer
Live airplane tracker
TypeScript