[Resolvido]EXECUTAR VÁRIAS EXPRESSÕES SQL ARMAZENADAS EM UMA MESMA VARIÁVEL

Prezados, boa tarde!

Consulto faz algum tempo o fórum, me ajudou muitas e muitas vezes, e hoje é a primeira vez que necessito fazer um questionamento (sempre encontrava algum caso similar para usar como exemplo e resolvia meu problema).

Criei um evento que geram vários INSERTS E UPDATES de tabela, para possibilitar o estorno cada update vai gerando um log com o código respectivo para o estorno se necessário, esse código fica armazenado na tabela que são incluídos os dados para o lançamento.



Acima segue um exemplo de como ficou armazenado esse log de estorno.

Porém, não consigo usar esses códigos armazenados para realizar os lançamentos de estorno, pois como tratam-se de várias expressões o DoCmd.RunSQL ou similares não executam. Alguém tem alguma sugestão?

Desde já agradeço!


Código com problema:

Private Sub Comando83_Click()

Dim cod_estorno As Variant
Dim cod_sql As Variant
Dim leng As String


cod_estorno = Me.[cod_estorno]
leng = Len(cod_estorno) - 2
cod_sql = Mid(cod_estorno, 2, leng)

DoCmd.RunSQL cod_sql

Acabei conseguindo resolver sozinho a questão, busquei em alguns fóruns gringos a opção Split e UBound, segue o código como ficou, testado e funcionando:

Private Sub Comando83_Click()

Dim cod_estorno As Variant
Dim cod_sql As Variant
Dim leng As String
Dim codsqlexec() As String
Dim Quantidade As String
Dim contagem As String
Dim cod_sql_exec As String

contagem = 0
cod_estorno = Me.[cod_estorno]

Dim MSG99, Style, Title, Help, Ctxt, Response, MyString
MSG99 = "CUIDADO! Realizar o estorno?! este procedimento não poderá ser desfeito!"    ' Define message.
Style = vbOKCancel + vbCritical + vbDefaultButton2    ' Define buttons.
Title = "Aviso"    ' Define title.
Help = "DEMO.HLP"    ' Define Help file.
Ctxt = 1000    ' Define topic context.
       ' Display message.
Response = MsgBox(MSG99, Style, Title, Help, Ctxt)

If Response <> vbOK Then

MsgBox ("Ação cancelada! Estorno não realizado.")

End

Else: GoTo continuacao_estorno

End If


continuacao_estorno:

If Me.[estornado?] <> Empty Then

MsgBox "ERRO!!! Documento já estornado anteriormente!"
End

ElseIf IsNull(Me.[cod_estorno]) Then

MsgBox "ERRO!!! Sem dados para estorno. Documento não lançado ou lançado antes da implantação da aplicação de estorno!"
End


Else

leng = Len(cod_estorno) - 1
cod_sql = Mid(cod_estorno, 2, leng)

codsqlexec() = Split(cod_sql, ";", , 1)

Quantidade = UBound(codsqlexec)

DoCmd.SetWarnings False

Do Until contagem = Quantidade + 1

DoCmd.RunSQL codsqlexec(contagem)

contagem = contagem + 1
Loop

DoCmd.SetWarnings True

Me.[estornado?] = "s"

MsgBox "Documento estornado com Sucesso!"

End If

End

End Sub

Boa tarde e bem-vindo ao fórum
Leia e respeite as regras.
- Não escrever em maiúsculas, que significa gritar
- Respeite o título, não o utilize para mensagem