/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 votes206 views1 answer
Label points in plot in r
TypeScript
0 vote190 views1 answer
Test strategy vs test plan
TypeScript
0 vote209 views2 answers
Property 'of' does not exist on type 'typeof Observable'.
TypeScript
0 vote212 views1 answer
Error: either specify it explicitly with --sdk_root= or move this package into its expected location: <sdk>/cmdline-tools/latest/
TypeScript
1 vote205 views1 answer
Typescript check if string is number
TypeScript
0 vote220 views1 answer
Paint effects will render natively in maya software and maya hardware 2.0 render. Command will enable paint effects to render in Arnold or ay third-party render:
TypeScript
0 vote260 views3 answers
How to print brackets characters in c#
TypeScript
0 vote226 views1 answer
Grants ORACLE
TypeScript
1 vote226 views1 answer
Drop the rows where all elements are missing in a pandas dataframe
TypeScript
0 vote212 views1 answer
How to Convert MATLAB Scripts to Python
TypeScript