We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Option Compare Database Option Explicit Private Sub Form_Current() If Me.optAsset.Value = -1 Then Me!lblAsset.Visible = True Me!cmdUpdateID.Enabled = True Me!AssetNo.Enabled = False Else: Me!AssetNo.Enabled = True Me!lblAsset.Visible = False Me!cmdUpdateID.Enabled = False End If End Sub Private Sub optAsset_Click() If optAsset.Value = -1 Then Me.lblAsset.Visible = True Me.cmdUpdateID.Enabled = True Me.AssetNo.Enabled = False Me.Comment = (Date & " -- No ID was found on Equipment, please notify Department of use to fix this issue.") Else Me.lblAsset.Visible = False Me.cmdUpdateID.Enabled = False Me.AssetNo.Enabled = True End If End Sub Private Sub cmdUpdateID_Click() Dim i As String i = InputBox("Enter Asset ID Number", "Asset ID") Me.AssetNo.Enabled = True Me.AssetNo = i Me.optAsset.Value = 0 Me.lblAsset.Visible = False Me.Comment = (Date & " -- ID found and affixed to equipment") End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.