With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
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.