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.
Private Sub Form_Load() Dim strSQL As String strSQL = "SELECT ZipID, ZipCodeNbr FROM sysdta_ZipCodes;" Me.listZip.RowSource = strSQL End Sub Private Sub txtNewZip_Change() Dim lngZipLength As Long, lngNewZip As Long Dim strSQL As String 'lngNewZip = Me.txtNewZip lngZipLength = Len(Format(Me.txtNewZip, "")) If lngZipLength > 0 Then strSQL = "SELECT ZipID, ZipCodeNbr" & _ " FROM [sysdta_ZipCodes]" & _ " WHERE " & Me.txtNewZip & " LIKE " & ZipCodeNbr & "*" Else strSQL = "SELECT ZipID, ZipCodeNbr FROM sysdta_ZipCodes;" End If Me.listZip.RowSource = strSQL End Sub
|Access 2013 - Export multiple query/table from access to one excel workbook with formatting||2||31|
|How to include a comma in a currency field within an expression in a query in Access 2010||3||29|
|How to make query not show results in table form go straight to report||4||23|
|append to an ms access field||6||26|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!