INPUTBOX

USUARIO.EXCLUIDOS 19/04/2004 15:12:08
#21374
Olá...
Como faço para que o INPUTBOX possa aceitar somente letras inclusive maiusculas? Existe algum quebra galho para o INPUTBOX?
Anexo o código:
----------------------------------------------------------------------------------------------------
Private Sub btnprint_Click()

Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\cadnome", False, False, ";PWD=unisys")
Set rs = db.OpenRecordset("Tblnome", dbOpenDynaset)

Dim busca As String, X As String

X = InputBox$("Digite o nome do cliente a ser impresso!!", "Imprimir")

busca = "Nome='" & X & "'"
rs.FindFirst busca
If rs.NoMatch = False Then
Me.MousePointer = 11

CrystalPrint.ReportFileName = (App.Path & "elanome.rpt")
CrystalPrint.DataFiles(0) = (App.Path & "\cadnome.mdb")
CrystalPrint.SelectionFormula = "{Tblnome.Nome}='" & X & "'"
CrystalPrint.CopiesToPrinter = 1
CrystalPrint.WindowState = 2
CrystalPrint.WindowControlBox = True
CrystalPrint.Destination = 0
CrystalPrint.Action = 1

Me.MousePointer = 0

Else
MsgBox "Este nome não existe no banco de dados.", vbQuestion, "Imprimir"

End If

End Sub
CAJU 23/04/2004 15:17:19
#22269 Resposta escolhida
é uma dica
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=21946
Tópico encerrado , respostas não são mais permitidas
Voltar