/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

29 votes139 views6 answers
Bootstrap angular
TypeScript
1 vote137 views1 answer
NASDAQ: TSLA
TypeScript
1 vote132 views1 answer
React typescript custom hook
TypeScript
0 vote130 views1 answer
Algorithm that prints if one of the numbers is multiple of the other
TypeScript
0 vote122 views1 answer
Create n sublists python
TypeScript
14 votes130 views4 answers
Typescript convert color to rgb
TypeScript
1 vote158 views1 answer
A device that interconnects two local area networks that both have a medium access control sublayer.
TypeScript
0 vote131 views1 answer
Check if email exists firebase
TypeScript
31 votes160 views4 answers
How to see all commits in git
TypeScript
0 vote132 views1 answer
Remove dots and commas java
TypeScript