Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat. The purpose of this eBook is to educate the reader about ransomware attacks.
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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!