Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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.