[Vba Como Atribuir O Valor De Um Registro No Access A Um Array?]

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

Abraço.

[Vba Como Atribuir O Valor De Um Registro No Access A Um Array?]

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.

[Vba Como Atribuir O Valor De Um Registro No Access A Um Array?]

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.

[Vba Como Atribuir O Valor De Um Registro No Access A Um Array?]

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.

[Vba Como Atribuir O Valor De Um Registro No Access A Um Array?]

Células são no Excel... no Access lidamos com registros e campos. Veja um exemplo de como percorrer todos os registros de uma tabela e de como fazer a separação:

Dim tabela1 As Recordset

'Obtendo todos os registros da tabela "Tabela1"
Set tabela1 = CurrentDb.OpenRecordset("SELECT * FROM Tabela1")

'Percorrendo a tabela
Do While Not tabela1.EOF
    Debug.Print tabela1.Fields("campo").Value
    valor = tabela1.Fields("campo").Value

    caracter = ""
    nvalor = ""
    
    For i = 1 To Len(valor)
        últchr = caracter
        caracter = Mid(valor, i, 1)
        If últchr <> "" And ((IsNumeric(últchr) And Not IsNumeric(caracter)) Or (IsNumeric(caracter) And Not IsNumeric(últchr))) Then
            nvalor = nvalor & "-" & caracter
        Else
            nvalor = nvalor & caracter
        End If
    Next
    
    Debug.Print nvalor
    
    tabela1.MoveNext
Loop

Os dados serão mostrados na janela Imediata.

Abraços,

Graymalkin

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

Grande abraço