Início
cesibo 10/6/2016, 14:28Tenho uma consulta SQL access vba, aonde no meio da SQL peço para abrir um formulário. Esse formulário é uma combobox aonde eu pego o texto selecionado e adiciono em uma variável publica. Ao fechar o formulario preciso que volte a executar a SQL( dar continuidade ), mas isso não ocorre.
Ela executa a SQL, abre o formulário e continua a SQL, virando aquele atropelo. Exemplo:
If RESP = vbYes Then
'=== FECHAR TABELAS
DoCmd.Close acTable, "PEDIDO"
DoCmd.Close acTable, "PRODUTO_MOV"
DoCmd.Close acTable, "Desdobramento"
'===SELECIONA O PORTADOR
DoCmd.OpenForm "F_BAIXA", acNormal <<< A partir da informação aqui, preciso usar ele no SQL abaixo XPORTADOR(variável publica)
'===CRIA O PEDIDO A VISTA
AVISTA = "INSERT INTO PEDIDO(ID_OS, ID_PORTADOR, ID_CLIENTE, DATA, DESCONTO, ATENDENTE, VENDEDOR, VENDEDOR2, VALOR_PED, CUSTO_TT_PED, VISTA_OU_PRAZO, TABPRECO, COBRANCA, C_CUSTO) " & _
"VALUES ([ID_OS], " & XPORTADOR & ", [ID_CLIENTE], Date(), [DESCONTO], [ATENDENTE], [MECAN], [MECAN2], [VALOR_OS], [CUSTO_TT], 'A VISTA', [TABPRECO], 'CARTEIRA', [CB_C_CUSTO])"
DoCmd.SetWarnings False
DoCmd.RunSQL AVISTA
Ela executa a SQL, abre o formulário e continua a SQL, virando aquele atropelo. Exemplo:
If RESP = vbYes Then
'=== FECHAR TABELAS
DoCmd.Close acTable, "PEDIDO"
DoCmd.Close acTable, "PRODUTO_MOV"
DoCmd.Close acTable, "Desdobramento"
'===SELECIONA O PORTADOR
DoCmd.OpenForm "F_BAIXA", acNormal <<< A partir da informação aqui, preciso usar ele no SQL abaixo XPORTADOR(variável publica)
'===CRIA O PEDIDO A VISTA
AVISTA = "INSERT INTO PEDIDO(ID_OS, ID_PORTADOR, ID_CLIENTE, DATA, DESCONTO, ATENDENTE, VENDEDOR, VENDEDOR2, VALOR_PED, CUSTO_TT_PED, VISTA_OU_PRAZO, TABPRECO, COBRANCA, C_CUSTO) " & _
"VALUES ([ID_OS], " & XPORTADOR & ", [ID_CLIENTE], Date(), [DESCONTO], [ATENDENTE], [MECAN], [MECAN2], [VALOR_OS], [CUSTO_TT], 'A VISTA', [TABPRECO], 'CARTEIRA', [CB_C_CUSTO])"
DoCmd.SetWarnings False
DoCmd.RunSQL AVISTA
