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.
Private Sub CustomerID_NotInList (NewData As String, Response As _ Integer) Dim Result Dim Msg As String Dim CR As String CR = Chr$(13) ' Exit this subroutine if the combo box was cleared. If NewData = "" Then Exit Sub ' Ask the user if he or she wishes to add the new customer. Msg = "'" & NewData & "' is not in the list." & CR & CR Msg = Msg & "Do you want to add it?" If MsgBox(Msg, vbQuestion + vbYesNo) = vbYes Then ' If the user chose Yes, start the Customers form in data entry ' mode as a dialog form, passing the new company name in ' NewData to the OpenForm method's OpenArgs argument. The ' OpenArgs argument is used in Customer form's Form_Load event ' procedure. DoCmd.OpenForm "Customers", , , , acAdd, acDialog, NewData End If ' Look for the customer the user created in the Customers form. Result = DLookup("[CompanyName]", "Customers", _ "[CompanyName]='" & NewData & "'") If IsNull(Result) Then ' If the customer was not created, set the Response argument ' to suppress an error message and undo changes. Response = acDataErrContinue ' Display a customized message. MsgBox "Please try again!" Else ' If the customer was created, set the Response argument to ' indicate that new data is being added. Response = acDataErrAdded End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Trying to disallow duplicate entries in a text fiel on a form||3||18|
|HELP! MS Access VBA How Do you Add Attachments To XML Files Before Sending Over HTTP As API Call||36||48|
|Doing a Lookup to find the Values on one Table within a Cell of a second Table without an Exact Match||7||12|