Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 23/04/2008 20:39 hs
a sua idéia é limpar apenas a primeira linha pois é isso que seu código faz bom o problema é o seguinte: você determinou o seguinte para flex: tabela.Rows = 2 ' duas linhas
tabela.Cols = 9 ' nove colunas
' lembrando que a contagem das linhas e colunas comweça do 0 (zero) ' então sua MSFlexgrid vai de 0 a 8 que é o total de colunas ' pra resolver basta você colocar tabela.cols=10 ' abaixop segue o exemplo de como apagar o msflexgrid todo mantendo apenas o cabeçário Private Sub Limpar_Tela()
tabela.Clear
tabela.FormatString = " | Código | Catalogo | Console |Nome |Genero |Armazenamento |Boot |Sistema Cor |Linguagem "
end sub espero ter ajudado, até mais |
|
|
|
|
|
|
|
Postada em 24/04/2008 08:50 hs
eae amigo Treze, esse problema até que ja passou mas agora ta dando pau aki esse é o scprit para carregar a tabela
Private Sub Form_Load()
Set WS = DBEngine.Workspaces(0)
Set DB = WS.OpenDatabase(App.Path & "Games.mdb")
Set TB = DB.OpenRecordset("Consulta", dbOpenDynaset)
cblocalizar.AddItem "Codigo"
cdlocalizar.AddItem "Nome"
cblocalizar.AddItem "Genero"
cdlocalizar.ListIndex = 0
CboOrdem.AddItem "Nome"
CboOrdem.ListIndex = 0
End Sub
quando peço pra carregar o formulário da erro Object Required e destaca a linha
cblocalizar.AddItem "Codigo"
e na tabela no access o Codigo ta sem acento mesmo. |
|
|
|
Treze
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/04/2008 09:38 hs
sabe o que eu percebi é que em alguns você colocou cb e emoutros cd é isso que está causando o erro, a digitação. cblocalizar.AddItem "Codigo"
cdlocalizar.AddItem "Nome"
cblocalizar.AddItem "Genero"
cdlocalizar.ListIndex = 0 veja se era isto
|
|
|
|
|
|
Postada em 24/04/2008 19:31 hs
valew treze, ta meio dificil pq to começando mais vo indo, arrumei isso mas agora travou nessa parte
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 = 9
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 If
'
End Sub
da o seguinte erro:
Runtime error 94
Invalid Use of Null
e destaca a seguinte linha:
tabela.Text = TB("Catalogo")
não na primeira parte, mas sim na segunda parte...
se puderem me ajudar fico agradecido
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/04/2008 20:30 hs
Tente esse macete em todos os campos text altere para esta forma tabela.Text = TB("Codigo") & ""
acrescente este & "" que vai resolver |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 24/04/2008 21:47 hs
agora o problema é o seguinte executo o aplicativo, ele carrega beleza, seleciono o cbolocalizar "nome" e quando vou digitar algo pra procurar só digita uma letra, fica uma sobrepondo outra e ela fica selecionada, eu usei um exemplo que peguei daqui do vbweb, "sistema Busca" e to meio que empacado aki, peço desculpas pelo incomodo mas acho muito desafiador esse ramo de programação e fiz um cursinho só com o básico mesmo, arroz e feijão, e me falaram muito bem desse site, obrigado.
|
|
|
|
