HABILITAR BOTÃO
vamos ver se eu entendi
e isso?
Se for isso substitua sua função e coloque seu [txt-color=#e80000]botao enable = false[/txt-color] e me pontue vlwww abraço
[txt-color=#e80000]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
End Sub[/txt-color]
[txt-color=#e80000]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
End Sub[/txt-color]
Citação::
e isso?
Correto. Isso mesmo...
Citação::
:
e isso?
Correto. Isso mesmo...
devia o webmaster colocar mais uma estrela pela agilidade.Muito obrigada!
Eu faria de um jeito diferente posso ter dar a dica?
Da forma que você fez você fica presa so podendo imprimir quando pesquisar por compe ne?
e se você quisesse imprimir todo o resultado encontrado filtrado não seria melhor?
Da forma que você fez você fica presa so podendo imprimir quando pesquisar por compe ne?
e se você quisesse imprimir todo o resultado encontrado filtrado não seria melhor?
Citação::
Eu faria de um jeito diferente posso ter dar a dica?
Pode sim... com certeza!
Da forma que você fez você fica presa so podendo imprimir quando pesquisar por compe ne?
e se você quisesse imprimir todo o resultado encontrado filtrado não seria melhor?
e se você quisesse imprimir todo o resultado encontrado filtrado não seria melhor?
ele imprimi o resultado que esta no listview se o resultador for zero ele não habilita o print
Citação::
Da forma que você fez você fica presa so podendo imprimir quando pesquisar por compe ne?
e se você quisesse imprimir todo o resultado encontrado filtrado não seria melhor?
Sim. Ficaria melhor...
Pois o que importa é que saia a impressão correta.
Tópico encerrado , respostas não são mais permitidas