/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 vote331 views1 answer
Vertical dots latex
TypeScript
2 votes294 views1 answer
Typescript type for intervalId
TypeScript
-1 vote306 views1 answer
Union type property does not exist
TypeScript
5 votes298 views3 answers
Intersection python
TypeScript
0 vote325 views1 answer
Angular how to use observable object async
TypeScript
2 votes297 views2 answers
Typescript on window resize
TypeScript
0 vote315 views1 answer
Top 100 employers in the united states
TypeScript
1 vote300 views2 answers
Clipping input data to the valid range for imshow with RGB data ([0..1] for floats or [0..255] for integers)
TypeScript
0 vote358 views1 answer
How to send alert notifications to multiple destinations
TypeScript
9 votes309 views1 answer
Typescript check if element in array
TypeScript