CANCELAR

CAJU 22/04/2004 14:39:21
#21948 Resposta escolhida

faz uma condição

Private Sub btnprint2_Click()

'IMPRESSÃO

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

Dim busca As String, X As String

X = InputBox$("Digite o nome a ser impresso!!", "Imprimir")
If X = Empty Then Exit Sub

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

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

Me.MousePointer = 0

Else

MsgBox "Não este nome no banco de dados.", vbQuestion, "Imprimir"

End If

Cancel = True

db.Close

CrystalReport1.Refresh

End Sub

CAJU 23/04/2004 14:42:56
#22254

instantaneamente é difícil ou impossível

CAJU 23/04/2004 14:50:27
#22258

DICA QUENTÃÅ’SSIMA ! ! ! aquele velho e bom artifício [S37] [S46]

Private Sub btnprint2_Click()

'IMPRESSÃO

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

Dim busca As String, X As String

'*********** DICA QUENTE ***********
Dim ok As Boolean

verifica:

X = InputBox$("Digite o nome a ser impresso!!", "Imprimir")
If X = Empty Then Exit Sub
For i = 1 To Len(X)
If Asc(Mid(X, i, 1)) MAIOR 64 And Asc(Mid(X, i, 1)) MENOR 91 Then
ok = True
Else
ok = False
Exit For
End If
Next i
If ok = False Then GoTo verifica
'***********************************

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

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

Me.MousePointer = 0

Else

MsgBox "Não este nome no banco de dados.", vbQuestion, "Imprimir"

End If

Cancel = True

db.Close

CrystalReport1.Refresh

End Sub

CAJU 24/04/2004 09:48:18
#22357

resolveu?

CAJU 26/04/2004 16:05:42
#22744

sistema trava???

como assim?

CAJU 26/04/2004 17:52:15
#22762

cara o código que te passei ele valida somente se tiver letras maiúsculas....
ex:
ABBSBS 'ok!
ABSBASsA 'inválido

agora se vc quiser que o conteúdo do INPUTBOX seja em maiúsculo faz assim:

x = inputbox("digite um texto")
x = ucase(x)

blz?