Pesquisar na Comunidade

Olá a todos, Sou novo no fórum e também novo na utilização de VB, pelo que estou com problemas na criação de um procedimento. O que tenho é o seguinte: Um formulário (frmMenu) que tem hiperligações para os diversos formulários da aplicação. Essa parte é pacífica e funciona correctamente. Acontece que tenho a necessidade de copiar uma tabela que está a ser usada em "produção" devido ao facto de estar ainda numa fase de teste e não querer correr riscos com os dados originais. O que pretendo é que quando o referido frmMenu for aberto, executar duas instruções SQL (neste momento em forma de consulta) para apagar o conteúdo de uma tabela temporária (tBuffer) e voltar a preenchê-la com os dados actuais da tabela original: Consulta 1 (LimparTBuffer): DELETE * FROM tBuffer; Carregar 'buffer' com dados actualizados da tabela em "produção" - Consulta (copiarTOrigem): INSERT INTO tBuffer SELECT * FROM tOrigem; O código VBA que tenho actualmente é o seguinte: Private Sub Form_Open(Cancel As Integer) 'Disabilitar temporariamente os avisos e caixas de mensagem Application.ScreenUpdating = False Application.DisplayAlerts = False DoCmd.SetWarnings False 'Executar queries CurrentDb.Execute LimparTBuffer CurrentDb.Execute CopiarTOrigem 'Activar novamente os avisos DoCmd.SetWarnings True Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub E produz o seguinte erro quando é executada: Não consigo perceber onde está o problema. Já agora, existirá forma mais optimizada de atingir o mesmo objectivo no que ao código VBA diz respeito? Obrigado desde já.

Boa noite galera.. Estou com um problema que já está me tirando do sério. Desejo criar uma trigger que deverá inserir vários registros em uma tabela com base em uma outra, rsrs.. Em outras palavras é o seguinte: Tenho uma tabela que ao ser inserido um registro nela, ela vai consultar uma outra tabela, e se houver registro nessa consulta, a trigger deve inserir em uma terceira tabela um registro para cada registro presente na segunda. Segue uma tentativa de construir o código: DELIMITER $$ CREATE TRIGGER tgr_insertPriceProduct BEFORE INSERT ON precoprodutos FOR EACH ROW BEGIN SELECT count(*) INTO @verificador FROM produtos WHERE idRepresentada = NEW.idRepresentada; SET @i = 0; WHILE (@i < @verificador) DO BEGIN SELECT idProduto, preço INTO @idProduto, @preço FROM produto ORDER BY idProduto LIMITE @i,@i+1; INSERT INTO valoresprecosproduto (valorPrecoProduto, idPrecoProduto, idproduto) VALUES (@preço+5, NEW.idPrecoProduto, @idProduto); SET @i := @i+1; END; END$$ DELIMITER ; Erro: Ocorre o erro de sintaxe. Estou desde já grato.