Treze
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 25/04/2008 16:47 hs
não entendi o problema que você está tendo agora, qual o código que você está usando neste combo |
|
|
|
|
|
|
|
Postada em 25/04/2008 19:09 hs
Private Sub cbolocalizar_KeyPress(KeyAscii As Integer)
'
If Trim(txtnome.Text) = Empty Then
x = MsgBox("Quer listar todos os jogos ?", 36, "Aviso")
If x = vbYes Then
If TB.RecordCount = 0 Then
Call Limpar_Tela
Call Desligar_Tela
MsgBox "Não contem registros com esta especificação.", 64, "Aviso"
txtnome.SetFocus
txtnome.SelStart = 0
txtnome.SelLength = Len(txtNomePor.Text)
Else
TB.MoveMin
tabela.Cols = 10
tabela.Rows = 2
tabela.Row = 1
tabela.Col = 1
tabela.Text = TB("Codigo")
tabela.Row = 1
tabela.Col = 2
tabela.Text = TB("Catalogo")
tabela.Row = 1
tabela.Col = 3
tabela.Text = TB("Console")
tabela.Row = 1
tabela.Col = 4
tabela.Text = TB("Nome")
tabela.Row = 1
tabela.Col = 5
tabela.Text = TB("Genero")
tabela.Row = 1
tabela.Col = 6
tabela.Text = TB("Armazenamento")
tabela.Row = 1
tabela.Col = 7
tabela.Text = TB("Boot")
tabela.Row = 1
tabela.Col = 8
tabela.Text = TB("Sistcor")
tabela.Row = 1
tabela.Col = 9
tabela.Text = TB("Linguagem")
Numero = 1
Linhas = 2
TrmProcurarTodos1.Enabled = True
End If
If x = vbNo Then
Call Limpar_Tela
Call Desligar_Tela
End If
End If
Exit Sub
Else
Criterio = TxtInformacao.Text & " LIKE '*" & txtnome.Text & "*'"
TB.FindMin Criterio
If TB.NoMatch Then
Call Limpar_Tela
Call Desligar_Tela
MsgBox "Não contem registros com esta especificação.", 64, "Aviso"
txtnome.SelStart = 0
txtnome.SelLength = Len(txtnome.Text)
Else
tabela.Cols = 10
tabela.Rows = 2
tabela.Row = 1
tabela.Col = 1
tabela.Text = TB("Codigo")
tabela.Row = 1
tabela.Col = 2
tabela.Text = TB("Catalogo")
tabela.Row = 1
tabela.Col = 3
tabela.Text = TB("Console")
tabela.Row = 1
tabela.Col = 4
tabela.Text = TB("Nome")
tabela.Row = 1
tabela.Col = 5
tabela.Text = TB("Genero")
tabela.Row = 1
tabela.Col = 6
tabela.Text = TB("Armazenamento")
tabela.Row = 1
tabela.Col = 7
tabela.Text = TB("Boot")
tabela.Row = 1
tabela.Col = 8
tabela.Text = TB("Sistcor")
tabela.Row = 1
tabela.Col = 9
tabela.Text = TB("Linguagem")
Numero = 1
Linhas = 2
TrmProcurarOutros1.Enabled = True
End If
Exit Sub
End If
End Sub
o Código do Combo Box é esse aí de cima, mas quando rodo o programinha, eu clico no textbox pra digitar uma palavra, mas não digita uma palavra, tipo, eu digito uma palavra inteira e no textbox uma letra vai sobrepondo a outra entendeu??? se digito naruto,fica só o "o" no textbox
o código do textbox é o seguinte
Private Sub txtnome_Change()
txtnome.SelStart = 0
txtnome.SelLength = Len(txtnome.Text)
Call Limpar_Tela
Call Desligar_Tela
End Sub
|
|
|
|
|
|
Postada em 25/04/2008 19:19 hs
o problema do nome uma letra só eu ja acertei, agora ta abrindo a janela e digita o nome completo, só que quando eu digito o nome no "txtnome" e dou enter não acontece nada, e se dou enter com o "txtnome" em branco aparece a mensagem pra consultar todos os registros, o código do txtnome esta embaixo
Private Sub txtnome_KeyPress(KeyAscii As Integer)
'
If KeyAscii = 13 Then
If Trim(txtnome.Text) = Empty Then
x = MsgBox("Deseja consultar todos os registros ?", 36, "Aviso")
If x = vbYes Then
If TB.RecordCount = 0 Then
Call Limpar_Tela
Call Desligar_Tela
MsgBox "Não contem registros com esta especificação.", 64, "Aviso"
txtnome.SetFocus
txtnome.SelStart = 0
txtnome.SelLength = Len(txtnome.Text)
Else
TB.MoveMin
tabela.Cols = 10
tabela.Rows = 2
tabela.Row = 1
tabela.Col = 1
tabela.Text = TB("Codigo") & ""
tabela.Row = 1
tabela.Col = 2
tabela.Text = TB("Catalogo") & ""
tabela.Row = 1
tabela.Col = 3
tabela.Text = TB("Console") & ""
tabela.Row = 1
tabela.Col = 4
tabela.Text = TB("Nome") & ""
tabela.Row = 1
tabela.Col = 5
tabela.Text = TB("Genero") & ""
tabela.Row = 1
tabela.Col = 6
tabela.Text = TB("Armazenamento") & ""
tabela.Row = 1
tabela.Col = 7
tabela.Text = TB("Boot") & ""
tabela.Row = 1
tabela.Col = 8
tabela.Text = TB("Sistcor") & ""
tabela.Row = 1
tabela.Col = 9
tabela.Text = TB("Linguagem") & ""
Numero = 1
Linhas = 2
End If
If x = vbNo Then
Call Limpar_Tela
Call Desligar_Tela
End If
End If
Exit Sub
Else
Criterio = TxtInformacao.Text & " LIKE '*" & txtnome.Text & "*'"
TB.FindMin Criterio
If TB.NoMatch Then
Call Limpar_Tela
Call Desligar_Tela
MsgBox "Não contem registros com esta especificação.", 64, "Aviso"
txtnome.SelStart = 0
txtnome.SelLength = Len(txtnome.Text)
Else
tabela.Cols = 10
tabela.Rows = 2
tabela.Row = 1
tabela.Col = 1
tabela.Text = TB("Codigo") & ""
tabela.Row = 1
tabela.Col = 2
tabela.Text = TB("Catalogo") & ""
tabela.Row = 1
tabela.Col = 3
tabela.Text = TB("Console") & ""
tabela.Row = 1
tabela.Col = 4
tabela.Text = TB("Nome") & ""
tabela.Row = 1
tabela.Col = 5
tabela.Text = TB("Genero") & ""
tabela.Row = 1
tabela.Col = 6
tabela.Text = TB("Armazenamento") & ""
tabela.Row = 1
tabela.Col = 7
tabela.Text = TB("Boot") & ""
tabela.Row = 1
tabela.Col = 8
tabela.Text = TB("Sistcor") & ""
tabela.Row = 1
tabela.Col = 9
tabela.Text = TB("Linguagem") & ""
Numero = 1
Linhas = 2
TrmProcurarOutros1.Enabled = True
End If
Exit Sub
End If
End If
'
End Sub
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/04/2008 19:25 hs
agora tá ficando pior. o que você deseja fazer? deixa eu te explicar uma coisa sobre o código acima este faz o seguinte: posiciona o cursor em zero e seleciona o que for digitado isso em tempo real de execussão, ou seja a posição do cursor será sempre zero, o que causa a sobreposição, resumindo o código é inutil. o que você gostaria de fazer digitar no text box e selecionar no combo é isso? |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/04/2008 19:46 hs
tenta esta alteração If KeyAscii = 13 Then
If Trim(txtnome.Text) = Empty Then
x = MsgBox("Deseja consultar todos os registros ?", 36, "Aviso")
If x = vbYes Then
If TB.RecordCount = 0 Then
Call Limpar_Tela
Call Desligar_Tela
MsgBox "Não contem registros com esta especificação.", 64, "Aviso"
txtnome.SetFocus
txtnome.SelStart = 0
txtnome.SelLength = Len(txtnome.Text)
Else
TB.MoveMin
tabela.Cols = 10
tabela.Rows = 2
tabela.Row = 1
tabela.Col = 1
tabela.Text = TB("Codigo") & ""
tabela.Row = 1
tabela.Col = 2
tabela.Text = TB("Catalogo") & ""
tabela.Row = 1
tabela.Col = 3
tabela.Text = TB("Console") & ""
tabela.Row = 1
tabela.Col = 4
tabela.Text = TB("Nome") & ""
tabela.Row = 1
tabela.Col = 5
tabela.Text = TB("Genero") & ""
tabela.Row = 1
tabela.Col = 6
tabela.Text = TB("Armazenamento") & ""
tabela.Row = 1
tabela.Col = 7
tabela.Text = TB("Boot") & ""
tabela.Row = 1
tabela.Col = 8
tabela.Text = TB("Sistcor") & ""
tabela.Row = 1
tabela.Col = 9
tabela.Text = TB("Linguagem") & ""
Numero = 1
Linhas = 2
End If
If x = vbNo Then
Call Limpar_Tela
Call Desligar_Tela
End If Exit Sub
End If
Else
Criterio = TxtInformacao.Text & " LIKE '*" & txtnome.Text & "*'"
TB.FindMin Criterio
If TB.NoMatch Then
Call Limpar_Tela
Call Desligar_Tela
MsgBox "Não contem registros com esta especificação.", 64, "Aviso"
txtnome.SelStart = 0
txtnome.SelLength = Len(txtnome.Text)
Else
tabela.Cols = 10
tabela.Rows = 2
tabela.Row = 1
tabela.Col = 1
tabela.Text = TB("Codigo") & ""
tabela.Row = 1
tabela.Col = 2
tabela.Text = TB("Catalogo") & ""
tabela.Row = 1
tabela.Col = 3
tabela.Text = TB("Console") & ""
tabela.Row = 1
tabela.Col = 4
tabela.Text = TB("Nome") & ""
tabela.Row = 1
tabela.Col = 5
tabela.Text = TB("Genero") & ""
tabela.Row = 1
tabela.Col = 6
tabela.Text = TB("Armazenamento") & ""
tabela.Row = 1
tabela.Col = 7
tabela.Text = TB("Boot") & ""
tabela.Row = 1
tabela.Col = 8
tabela.Text = TB("Sistcor") & ""
tabela.Row = 1
tabela.Col = 9
tabela.Text = TB("Linguagem") & ""
Numero = 1
Linhas = 2
TrmProcurarOutros1.Enabled = True
End If
Exit Sub
End If
End If
'
End Sub |
|
|
|
|
|
Postada em 26/04/2008 15:29 hs
é isso mesmo que eu quero fazer Treze, quero filtrar os dados que eu digitar no txtnome para aparecer num msflexgrid, só para consulta não precisa mudar os dados no msflexgrid, fiz a correção que você me passou, mas de um erro na linha "TB.MoveMin" no começo do código, pq o meu como vc viu, esta TB.MoveMin, e muito obrigado pela ajuda
|
|
|
|
|
