ronniangra

Fui eu que escrevi a resposta acima, esqueci de logar. Abraço.

Na verdade não é pra ser em um botão quero rodar o módulo e as alterações funcionarem. Então vamos lá, eu preciso pegar esse código e colocar dentro de um módulo certo? Depois do código colado, basta executar o módulo a partir do botão F5 certo? aí aparece uma janela me pedindo para eu inserir uma macro, essa janela não era para aparecer? Se você me der algum e-mail eu mando a tela do pedido da macro pra você ver. Desculpe estar te enchendo o saco mas eu to precisando muito que isso funcione, se você tiver algum livro ou apostila para me indicar eu paro de te perturbar Um grande abraço e mais uma vez obrigado.

Graymalkin Eu fiz isso, atribui a um botão e mesmo assim ele me pede uma macro. O nome do meu bando é db1 e a tabela é qpocos a coluna é pocos. Dá uma olhada no meu código por favor. Option Compare Database Private Sub Command0_Click() 'Option Compare Database Dim qpocos As Recordset 'Obtendo todos os registros da tabela "Tabela1" Set qpocos = CurrentDb.OpenRecordset("SELECT * FROM qpocos") 'Percorrendo a tabela Do While Not qpocos.EOF Debug.Print qpocos.Fields("pocos").Value valor = qpocos.Fields("pocos").Value caracter = "" nvalor = "" For i = 1 To Len(valor) ultchr = caracter caracter = Mid(valor, i, 1) If ultchr <> "" And ((IsNumeric(ultchr) And Not IsNumeric(caracter)) Or (IsNumeric(caracter) And Not IsNumeric(ultchr))) Then nvalor = nvalor & "-" & caracter Else nvalor = nvalor & caracter End If Next Debug.Print nvalor qpocos.MoveNext Loop End Sub Obrigado irmão.

Graymalkin Então essa programação eu atribui a um módulo certo? Quanto eu rodo o módulo ele me joga uma tela pedindo uma macro, é isso mesmo? Obrigado.

Kuroi valeu pela atenção cara e Graymalkin vou testar sim e valeu mesmo cara, esclareceu bastante Grande abraço