HABILITAR BOTÃO

FABRICIOWEB 24/05/2016 21:14:11
#462531

Se você quiser usar da forma que te falei substitui todo o seu codigo por esse





[ô] ---------------------------------
[ô] FrmLancar
[ô] Formulário: Lançamento
[ô] ---------------------------------
[ô]Option Explicit

Private Sub cmdImprimir_Click()






If cboBusca.Text = [Ô]Código[Ô] Then
bde = [Ô]Codigo[Ô]
End If
If cboBusca.Text = [Ô]Descrição[Ô] Then
bde = [Ô]Descricao[Ô]
End If
If cboBusca.Text = [Ô]Tipo[Ô] Then
bde = [Ô]Tipo[Ô]
End If
If cboBusca.Text = [Ô]Competência[Ô] Then
bde = [Ô]Compete[Ô]
End If









Dim SQL As String

If txtBusca.Text <> [Ô][Ô] Then


SQL2 = [Ô]SELECT Codigo, Descricao, Valor, CadData, Mes, Compete, Tipo, Observacao FROM tblFinanca Where Compete Like [ô][Ô] & txtBusca.Text & [Ô]%[ô] ORDER BY Codigo[Ô]
SQL = [Ô]SELECT Codigo, Descricao, Valor, CadData, Mes, Compete, Tipo, Observacao FROM tblFinanca Where [Ô] & bde & [Ô] like [ô][Ô] & txtBusca & [Ô]%[ô] ORDER BY Codigo[Ô]


If SQL <> [Ô][Ô] Then

rpFinanca.DcFinanca.ConnectionString = Cnn.ConnectionString
rpFinanca.DcFinanca.Source = SQL

rpFinanca.PageSettings.TopMargin = 300
rpFinanca.PageSettings.BottomMargin = 300
rpFinanca.PageSettings.LeftMargin = 300
rpFinanca.PageSettings.RightMargin = 300

With rpFinanca.Sections([Ô]Detail[Ô]).Controls
.Item([Ô]txtCodigo[Ô]).DataField = [Ô]Codigo[Ô]
.Item([Ô]txtDescricao[Ô]).DataField = [Ô]Descricao[Ô]
.Item([Ô]txtvalor[Ô]).DataField = [Ô]Valor[Ô]
.Item([Ô]txtCadData[Ô]).DataField = [Ô]CadData[Ô]
.Item([Ô]txtMes[Ô]).DataField = [Ô]Mes[Ô]
.Item([Ô]txtCompete[Ô]).DataField = [Ô]Compete[Ô]
.Item([Ô]txtTipo[Ô]).DataField = [Ô]Tipo[Ô]
End With

Dim Prt1, Prt2, Prt3
Prt1 = txtVEntrada.Text
Prt2 = txtVSaida.Text
Prt3 = txtVTotal.Text

With rpFinanca
.txtVEntrada.Text = Prt1
.txtVSaida.Text = Prt2
.txtVTotal.Text = Prt3
End With

rpFinanca.Show 1

End If
End If
End Sub

Private Sub Command1_Click()
cmdImprimir.Enabled = True
End Sub

Private Sub txtVEntrada_GotFocus()
Me.txtVEntrada.SelStart = 0
Me.txtVEntrada.SelLength = Len(Me.txtVEntrada.Text)
End Sub

Private Sub txtVTotal_GotFocus()
Me.txtVTotal.SelStart = 0
Me.txtVTotal.SelLength = Len(Me.txtVTotal.Text)
End Sub

Private Sub txtVSaida_GotFocus()
Me.txtVSaida.SelStart = 0
Me.txtVSaida.SelLength = Len(Me.txtVSaida.Text)
End Sub

Private Sub cmdIncluir_Click()

frmLancar.Mode = [Ô]Add[Ô]

For RG = 0 To 4
frmLancar.txtCodigo.Text = [Ô][Ô]

Next RG

Load frmLancar
cmdIncluir.Enabled = False
cmdEditar.Enabled = False
cmdExcluir.Enabled = False
cmdSalvar.Enabled = False
cmdEditar.Enabled = False
cmdCancelar.Enabled = False
cmdImprimir.Enabled = False
cmdFechar.Enabled = False
frmResumo.Visible = False

frmLancar.Show

End Sub

Private Sub cmdFechar_Click()
Unload Me
FechaConexoes Rst
End Sub

Private Sub cmdExcluir_Click()
If MsgBox([Ô]Deseja Realmente Excluir o Registro: [Ô] & ListView1.SelectedItem.ListSubItems(1).Text & [Ô] [Ô] & ListView1.SelectedItem.ListSubItems(2).Text & [Ô]?[Ô], vbYesNo, [Ô]Exluir[Ô]) = vbYes Then
Cnn.Execute [Ô]Delete From tblFinanca Where Codigo = [ô][Ô] & ListView1.SelectedItem.Text & [Ô][ô][Ô]
Rst.Requery 1
Preenche_List
End If
End Sub

Private Sub cmdEditar_Click()

If ListView1.ListItems.Count = 0 Then Exit Sub
frmLancar.txtCodigo = ListView1.SelectedItem.Text
For RG = 1 To 2

Next RG

frmLancar.txtDescricao = ListView1.SelectedItem.ListSubItems(1).Text
frmLancar.txtValor = ListView1.SelectedItem.ListSubItems(2).Text
frmLancar.txtData = ListView1.SelectedItem.ListSubItems(3).Text
frmLancar.cboMes = ListView1.SelectedItem.ListSubItems(4).Text
frmLancar.cboCompete = ListView1.SelectedItem.ListSubItems(5).Text
frmLancar.cboTipo = ListView1.SelectedItem.ListSubItems(6).Text
frmLancar.txtObserva = ListView1.SelectedItem.ListSubItems(7).Text

frmLancar.Key = ListView1.SelectedItem.Text
frmLancar.Mode = [Ô]edit[Ô]
Load frmLancar

cmdIncluir.Enabled = False
cmdEditar.Enabled = False
cmdExcluir.Enabled = False
cmdSalvar.Enabled = False
cmdEditar.Enabled = False
cmdCancelar.Enabled = False
cmdImprimir.Enabled = False
cmdFechar.Enabled = False
frmLancar.Show
frmResumo.Visible = False
End Sub

Private Sub Form_Load()

Conexao
ReabreRst Rst

Rst.Open [Ô]select * from tblFinanca[Ô], Cnn

Preenche_List

[ô]Zebra o listview
If LVZebra(ListView1, Picture1, &HC0FFC0, &HC0FFFF) = False Then Exit Sub

[ô]Label
Dim A As String
Dim B As String

A = [Ô]RESUMO[Ô]

For i = 1 To Len(A)
B = Mid$(A, i, 1) & vbCrLf
S = S & B
Next

lblTeste = S


End Sub

Public Sub Preenche_List()

ListView1.ListItems.Clear
If Rst.RecordCount = 0 Then Exit Sub
While Not Rst.EOF

[ô]Set Lst = ListView1.ListItems.Add(, , Rst(0))
Set Lst = ListView1.ListItems.Add(, , Rst(0) & [Ô][Ô], , [Ô]verde[Ô])


For RG = 1 To 7
Lst.SubItems(RG) = Rst(RG)
Next RG
Rst.MoveNext
Wend

Dim i As Integer
Dim Soma As Double
Dim Soma1 As Double

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems.Item(i).SubItems(6) = [Ô]Entrada[Ô] And ListView1.ListItems.Item(i).SubItems(5) <> [Ô][Ô] Then
Soma = Soma + ListView1.ListItems.Item(i).SubItems(2)
End If

If ListView1.ListItems.Item(i).SubItems(6) = [Ô]Saida[Ô] And ListView1.ListItems.Item(i).SubItems(5) <> [Ô][Ô] Then
Soma1 = Soma1 + ListView1.ListItems.Item(i).SubItems(2)
End If

Next i

txtVEntrada.Text = (Soma)
txtVSaida.Text = (Soma1)

If txtVTotal.Text <> [Ô][Ô] Then
txtVTotal.Text = CDbl(txtVEntrada.Text) - CDbl(txtVSaida.Text)
End If

lblRegistro.Caption = Rst.RecordCount & [Ô] Registros[Ô]


[ô]Extenso
Dim nValor As String
txtVTotal.Text = Format(txtVTotal.Text, [Ô]0.00[Ô])
nValor = txtVTotal.Text
If IsNull(nValor) Or nValor <= 0 Or nValor > 9999999.99 Then
Exit Sub
End If

[ô]Declara as variáveis da função
Dim nContador, nTamanho As Integer
Dim cValor, cParte, cFinal As String
ReDim aGrupo(4), aTexto(4) As String

[ô]Define matrizes com extensos parciais
ReDim aUnid(19) As String
aUnid(1) = [Ô]Um [Ô]: aUnid(2) = [Ô]Dois [Ô]: aUnid(3) = [Ô]Três [Ô]
aUnid(4) = [Ô]Quatro [Ô]: aUnid(5) = [Ô]Cinco [Ô]: aUnid(6) = [Ô]Seis [Ô]
aUnid(7) = [Ô]Sete [Ô]: aUnid(8) = [Ô]Oito [Ô]: aUnid(9) = [Ô]Nove [Ô]
aUnid(10) = [Ô]Dez [Ô]: aUnid(11) = [Ô]Onze [Ô]: aUnid(12) = [Ô]Doze [Ô]
aUnid(13) = [Ô]Treze [Ô]: aUnid(14) = [Ô]Quatorze [Ô]: aUnid(15) = [Ô]Quinze [Ô]
aUnid(16) = [Ô]Dezesseis [Ô]: aUnid(17) = [Ô]Dezessete [Ô]: aUnid(18) = [Ô]Dezoito [Ô]
aUnid(19) = [Ô]Dezenove [Ô]

ReDim aDezena(9) As String
aDezena(1) = [Ô]Dez [Ô]: aDezena(2) = [Ô]Vinte [Ô]: aDezena(3) = [Ô]Trinta [Ô]
aDezena(4) = [Ô]Quarenta [Ô]: aDezena(5) = [Ô]Cinquenta [Ô]
aDezena(6) = [Ô]Sessenta [Ô]: aDezena(7) = [Ô]Setenta [Ô]: aDezena(8) = [Ô]Oitenta [Ô]
aDezena(9) = [Ô]Noventa [Ô]

ReDim aCentena(9) As String
aCentena(1) = [Ô]Cento [Ô]: aCentena(2) = [Ô]Duzentos [Ô]
aCentena(3) = [Ô]Trezentos [Ô]: aCentena(4) = [Ô]Quatrocentos [Ô]
aCentena(5) = [Ô]Quinhentos [Ô]: aCentena(6) = [Ô]Seiscentos [Ô]
aCentena(7) = [Ô]Setecentos [Ô]: aCentena(8) = [Ô]Oitocentos [Ô]
aCentena(9) = [Ô]Novecentos [Ô]

[ô]Divide o valor em vários grupos
cValor = Format$(nValor, [Ô]0000000000.00[Ô])
aGrupo(1) = Mid$(cValor, 2, 3)
aGrupo(2) = Mid$(cValor, 5, 3)
aGrupo(3) = Mid$(cValor, 8, 3)
aGrupo(4) = [Ô]0[Ô] + Mid$(cValor, 12, 2)

[ô]Processa cada grupo
For nContador = 1 To 4
cParte = aGrupo(nContador)
nTamanho = Switch(Val(cParte) < 10, 1, Val(cParte) < 100, 2, Val(cParte) < 1000, 3)
If nTamanho = 3 Then
If Right$(cParte, 2) <> [Ô]00[Ô] Then
aTexto(nContador) = aTexto(nContador) + aCentena(Left(cParte, 1)) + [Ô]e [Ô]
nTamanho = 2
Else
aTexto(nContador) = aTexto(nContador) + IIf(Left$(cParte, 1) = [Ô]1[Ô], [Ô]Cem [Ô], aCentena(Left(cParte, 1)))
End If
End If
If nTamanho = 2 Then
If Val(Right(cParte, 2)) < 20 Then
aTexto(nContador) = aTexto(nContador) + aUnid(Right(cParte, 2))
Else
aTexto(nContador) = aTexto(nContador) + aDezena(Mid(cParte, 2, 1))
If Right$(cParte, 1) <> [Ô]0[Ô] Then
aTexto(nContador) = aTexto(nContador) + [Ô]e [Ô]
nTamanho = 1
End If
End If
End If
If nTamanho = 1 Then
aTexto(nContador) = aTexto(nContador) + aUnid(Right(cParte, 1))
End If
Next

[ô]Gera o formato final do texto
If Val(aGrupo(1) + aGrupo(2) + aGrupo(3)) = 0 And Val(aGrupo(4)) <> 0 Then
cFinal = aTexto(4) + IIf(Val(aGrupo(4)) = 1, [Ô]Centavo[Ô], [Ô]Centavos[Ô])
Else
cFinal = [Ô][Ô]
cFinal = cFinal + IIf(Val(aGrupo(1)) <> 0, aTexto(1) + IIf(Val(aGrupo(1)) > 1, [Ô]Milhões [Ô], [Ô]Milhão [Ô]), [Ô][Ô])
If Val(aGrupo(2) + aGrupo(3)) = 0 Then
cFinal = cFinal + [Ô]de [Ô]
Else
cFinal = cFinal + IIf(Val(aGrupo(2)) <> 0, aTexto(2) + [Ô]Mil [Ô], [Ô][Ô])
End If
cFinal = cFinal + aTexto(3) + IIf(Val(aGrupo(1) + aGrupo(2) + aGrupo(3)) = 1, [Ô]Real [Ô], [Ô]Reais [Ô])
cFinal = cFinal + IIf(Val(aGrupo(4)) <> 0, [Ô]e [Ô] + aTexto(4) + IIf(Val(aGrupo(4)) = 1, [Ô]Centavo[Ô], [Ô]Centavos[Ô]), [Ô][Ô])
End If
frmResumo.lblExtenso.Caption = cFinal

End Sub

Private Sub Timer1_Timer()
lblHora.Caption = Time
lblData.Caption = Date
End Sub

Private Sub txtBusca_Change()
TxtFiltro





End Sub

Public Sub TxtFiltro()
Dim bde, ode, Pos As String

If cboBusca.ListIndex = -1 Then cboBusca.ListIndex = 0
If cboBuscaPor.ListIndex = -1 Then cboBuscaPor.ListIndex = 0
If cboOrdem.ListIndex = -1 Then cboOrdem.ListIndex = 0
If cboBusca.ListIndex = 0 Then

bde = [Ô]Codigo[Ô]
cmdImprimir.Enabled = False
ElseIf cboBusca.ListIndex = 1 Then

bde = [Ô]Descricao[Ô]
cmdImprimir.Enabled = False
ElseIf cboBusca.ListIndex = 2 Then

bde = [Ô]Tipo[Ô]
cmdImprimir.Enabled = False
ElseIf cboBusca.ListIndex = 3 Then

bde = [Ô]Compete[Ô]
cmdImprimir.Enabled = True
ElseIf cboBusca.ListIndex = 4 Then

End If

Select Case cboBuscaPor.ListIndex
Case 0
ode = [Ô]Codigo[Ô]
Case 1
ode = [Ô]Descricao[Ô]
Case 2
ode = [Ô]Tipo[Ô]
Case 3
ode = [Ô]Compete[Ô]

cmdImprimir.Enabled = True
End Select

Select Case cboOrdem.ListIndex
Case 0
Pos = [Ô]asc[Ô]
Case 1
Pos = [Ô]desc[Ô]
End Select

ReabreRst Rst

Rst.Open [Ô]Select * From tblFinanca Where [Ô] & bde & [Ô] like [ô][Ô] & txtBusca & [Ô]%[ô] Order By [Ô] & ode & [Ô] [Ô] & Pos, Cnn

Preenche_List

If ListView1.ListItems.Count > 0 Then
cmdImprimir.Enabled = True
End If

End Sub
Private Sub txtBusca_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc([Ô][ô][Ô]) Then KeyAscii = 0
End Sub
Private Sub CboOrdem_Click()
TxtFiltro
End Sub

Private Sub cboBusca_Click()
TxtFiltro
End Sub

Private Sub cboBuscaPor_Click()
TxtFiltro

[ô]cmdImprimir.Enabled = True
End Sub

[ô]-------------------------------

FABRICIOWEB 24/05/2016 21:16:10
#462532

Agora pode dar a nota kk