/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 vote261 views1 answer
How can i get 2 inputs in singal line seprated by space
TypeScript
1 vote221 views1 answer
Main concepts in asp.net core
TypeScript
0 vote262 views1 answer
How to pass optional parameters while omitting some other optional parameters?
TypeScript
0 vote253 views1 answer
Unknown typescript
TypeScript
0 vote249 views1 answer
Typescript default public or private
TypeScript
2 votes300 views2 answers
Flutter run code every second
TypeScript
2 votes267 views1 answer
Promise to observable typescript
TypeScript
0 vote238 views1 answer
Typescript get promise allsettled
TypeScript
0 vote249 views1 answer
Components of selenium
TypeScript
0 vote275 views1 answer
Python sort list according to two elements in tuple
TypeScript