Do you work with and analyze data? Enroll in October's Course of the Month for 7+ hours of SQL training, allowing you to quickly and efficiently store or retrieve data. It's free for Premium Members, Team Accounts, and Qualified Experts!
Dim arrayname Dim i As Long Dim bNumeric As Boolean arrayname = Array("q", "w", "e", "r", "t", "y", "u", "i", "p", "a") bNumeric = True Me.txtOutput = Null For i = 1 To Len(Me.txtInput) If IsNumeric(Mid(Me.txtInput, i, 1)) Then Else bNumeric = False i = Len(Me.txtInput) End If Next If bNumeric Then Me.txtOutput = "" For i = 1 To Len(Me.txtInput) Me.txtOutput = Me.txtOutput + arrayname(CInt(Mid(Me.txtInput, i, 1))) Next Else MsgBox "Non-numeric symbols entered: " & Me.txtInput, vbOKOnly End If Me.fldDateUpdated = Now()
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.