/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

1 vote135 views1 answer
Add correct host key in known_hosts to get rid of this message
TypeScript
0 vote109 views1 answer
Flutter check if app is in foreground
TypeScript
8 votes144 views1 answer
Python find the number of elements in a list
TypeScript
0 vote152 views1 answer
Get type of element of array typescript
TypeScript
3 votes143 views2 answers
Cool box shadow effects css
TypeScript
0 vote160 views2 answers
Ncbi datasets command-line tool
TypeScript
1 vote155 views4 answers
Pokediggerprank244
TypeScript
1 vote158 views4 answers
Ok
TypeScript
35 votes153 views6 answers
Comments in html
TypeScript
0 vote104 views1 answer
Echo contents of file to another file
TypeScript