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.
Dim strsql As String Dim i As Integer Dim Msg As String Dim s As String 'Exit this sub if the combo box is cleared If NewData = "" Then Exit Sub Msg = "'" & NewData & "' is not currently in the list." & vbCr & vbCr Msg = Msg & "Do you want to add it?" i = MsgBox(Msg, vbQuestion + vbYesNo, "Unknown Item...") strsql = fProperCase(NewData, 1) If i = vbYes Then s = fProperCase(NewData, 1) strsql = "INSERT INTO tblCompany(CompanyName) " _ & " SELECT '" & s & "';" CurrentDb.Execute strsql, dbFailOnError Response = acDataErrAdded Else Response = acDataErrContinue Me.Undo End If
|Trying to open Visio 2013 from a ms access 2016 database||9||31|
|Create a EXCEL FIle from Access Procedure||1||13|
|Why can't I get rid of record selectors on my form?||9||28|