AcidSnow

não seria mais facil usar 5 textbox e somar o resultado final na váriavel e dividir por 5 ? ou nem usar variavel media.text = text1.text + text2.text + text3.text + text4.text /5 tipo isso.

Kuroi, Assim até rola, o problema é que quando eu filtro por código ele simplesmente deixa o grid em branco ! :wacko:

Aproveitando... estou tentando fazer também que o datagrid seja atualizado de acordo com o que o usuário digita em um textbox, mas não está dando certo, estou fazendo da seguinte forma : Private Sub txtpesquisa_KeyUp(KeyCode As Integer, Shift As Integer) rsgrid.Filter = dtgp.Columns(dtgp.Col).DataField & " like * " & txtpesquisa.Text & " * """ End Sub Alguém sabe o que posso fazer pra resolver isso ?

Eu tava tão bitolado no datagrid que não vi que podia tratar no recordset . Usei: rsgrid!descricao = Replace(rsgrid!descricao, "!", "'") Funcionou !!! Kuroi, muito obrigado cara !

E ai galera !? Andei pesquisando por aqui e não consegui encontrar nada parecido, então vamos lá ! Eu estava precisando utilizar um replace quando eu for exibir os dados em um datagrid. Alguém sabe como posso fazer ? Estou preenchendo o grid assim : Function preenchegrid() sql = "select * from nsql" rsgrid.Open sql, ocon, adOpenKeyset, adLockOptimistic If Not rsgrid.EOF Then Set dtgp.DataSource = Nothing For i = 0 To rsgrid.Fields.Count - 1 dtgp.Columns.Add (i) dtgp.Columns(i).Caption = rsgrid.Fields(i).Name Next Set dtgp.DataSource = rsgrid dtgp.Columns(0).Width = 600 dtgp.Columns(1).Width = 5000 dtgp.Refresh End If End Function Eu preciso substituir todo sinal de exclamação que for apresentado no grid por aspas simples. Obrigado.