/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

114 votes576 views3 answers
How to check whether file exists in python
TypeScript
2 votes356 views1 answer
Ionic is web check
TypeScript
0 vote362 views1 answer
Flutter rotate animation icon on press
TypeScript
4 votes335 views2 answers
Magento 2 enable template hints command line
TypeScript
0 vote336 views1 answer
Regroupe les éléments de 2 tableaux java
TypeScript
0 vote329 views3 answers
Check table exists in db laravel
TypeScript
0 vote421 views2 answers
Rails precompile assets production
TypeScript
0 vote326 views1 answer
Usage: testing_caption_generator.py [-h] -i IMAGE testing_caption_generator.py: error: the following arguments are required: -i/--image An exception has occurred, use %tb to see the full traceback.
TypeScript
0 vote342 views1 answer
Length functioni in typesrcipt
TypeScript
0 vote318 views1 answer
Sort even dont exists meta wordpress
TypeScript