/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

2 votes160 views1 answer
Angular convert file to base64
TypeScript
0 vote162 views1 answer
Type script array declaration
TypeScript
6 votes192 views1 answer
Create react native app typescript ligne command
TypeScript
1 vote219 views1 answer
Main concepts in asp.net core
TypeScript
2 votes203 views1 answer
Check typescript version
TypeScript
1 vote181 views1 answer
Serenity.is Entity service async to sync requests
TypeScript
0 vote233 views1 answer
Install typescript homebrew
TypeScript
0 vote167 views1 answer
Nextjs waiting for compiling problem
TypeScript
4 votes173 views1 answer
Axis limits matlab
TypeScript
0 vote171 views1 answer
Import hostlistener angular
TypeScript