Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
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
|I suddenly cannot write to C drive||20||71|
|Any way to list subs or function names included in the application modules||4||26|
|DSN-LESS connection to MS Access database||6||27|
|Criteria for Date for DCount||4||16|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!