MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Problemas no Insert Into

    avatar
    patrickdanielli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 28/03/2014

    Problemas no Insert Into Empty Problemas no Insert Into

    Mensagem  patrickdanielli 27/5/2015, 21:12

    Olá amigos estou com o problema na instrução
    Código:
    CurrentDb.Execute "INSERT INTO tbl_fechamento SELECT * FROM tbl_saida WHERE  tbl_saida.Destino =  " & Forms!frm_fechamento!Fazenda & " AND tbl_saida.Talhão = '" & Forms!frm_fechamento!Talhões & "'"
    Aparece o erro:
    Erro em tempo de execução "3075"
    Erro de sintaxe (operador faltando) na expressão da consulta
    "Destino = Fazenda X AND Talhão = X1 

    Achei que poderia ser algum erro de digitação, mas conferi tudo, as 2 tabelas tem os mesmo campos e do mesmo tipo.

    Obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Problemas no Insert Into Empty Re: Problemas no Insert Into

    Mensagem  JPaulo 28/5/2015, 16:02

    Teste por favor;

    Verifique se "frm_fechamento" é form ou subform, se "Fazenda" é texto ou numerico e se "Talhões" é texto ou numerico.

    Código:
    Dim strInsert As String
    strInsert = "INSERT INTO tbl_fechamento"
    strInsert = strInsert & " (SELECT * FROM tbl_saida"
    strInsert = strInsert & " WHERE (tbl_saida.Destino = '" & Forms!frm_fechamento!Fazenda & "'"
    strInsert = strInsert & " AND tbl_saida.Talhão = '" & Forms!frm_fechamento!Talhões & "'))"
    CurrentDb.Execute strInsert


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Problemas no Insert Into Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Problemas no Insert Into Folder_announce_new 102 Códigos VBA Gratuitos...
    Problemas no Insert Into Folder_announce_new Instruções SQL como utilizar...
    avatar
    patrickdanielli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 28/03/2014

    Problemas no Insert Into Empty Re: Problemas no Insert Into

    Mensagem  patrickdanielli 28/5/2015, 17:47

    Ola JPaulo

    testei e dá erro de sintexe 3134

    "frm_fechamento" é form, "fazenda" é numero, e "talhão" é texto
    retirando as aspas simples de "fazenda"
    Código:
    Dim strInsert As String
    strInsert = "INSERT INTO tbl_fechamento"
    strInsert = strInsert & " (SELECT * FROM tbl_saida"
    strInsert = strInsert & " WHERE (tbl_saida.Destino = " & Forms!frm_fechamento!Fazenda & ""
    strInsert = strInsert & " AND tbl_saida.Talhão = '" & Forms!frm_fechamento!Talhões & "'))"
    CurrentDb.Execute strInsert

    mas o erro persiste.

    Conteúdo patrocinado


    Problemas no Insert Into Empty Re: Problemas no Insert Into

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2024, 13:11