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

    [Resolvido]Erro 3219 ao exportar para outra tabela

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Erro 3219 ao exportar para outra tabela Empty Erro 3219 ao exportar para outra tabela

    Mensagem  Silvio 10/7/2013, 19:24

    Boa tarde para todos.

    Não sei por que cargas d´água meu código não funfa. Segue ele.

    Private Sub bt_salvar_Click()
    If IsNull(Me.CodigoPeca) Or IsNull(Me.Descricao) Or IsNull(Me.PrecoCusto) Or IsNull(Me.MargemLucro) Then
    MsgBox "O Cadastro está incompleto e será excluído!"
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

    Else

    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.RunCommand acCmdRefresh

    Dim db1 As Database, rs1 As DAO.Recordset
    Set db1 = CurrentDb
    Set rs1 = db1.OpenRecordset("tblpgtofornece", dbOpenTable)

    With rs1
    ' os campos abaixo do formulário tem que ser iguais aos que estão na tabela para realizar a exportação
    .AddNew
    ' campos que estão na tabela = campos do fomulario
    ![DataCadastro] = Me.DataCadastro
    ![Nome] = Me.Nome
    ![PedidoN] = Me.PedidoN
    ![Desconto] = Me.Desconto
    ![PrecoCusto] = Me.PrecoCusto
    ![Valoraserpago] = Me.Valoraserpago
    .Update
    End With
    MsgBox " Cadastro... salvo com sucesso !", vbOKOnly, "Concluído..."
    End If
    End Sub

    Ele salva o registro, mas não ocorre a exportação, me retorna o erro 3219 ( tempo de execução); Já olhei, olhei de novo...e não sei onde esta o dito erro.

    Alguma luz ?

    Agradeço a todos antecipadamente.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Erro 3219 ao exportar para outra tabela Empty Re: [Resolvido]Erro 3219 ao exportar para outra tabela

    Mensagem  Marcelo David 10/7/2013, 19:36

    Grande Silvio, nos dê mais detalhes:
    O que você está exportando? Um registro? Qual? Toda a tabela? Está exportando para onde?
    E para onde o erro depura?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Erro 3219 ao exportar para outra tabela Marcel11
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Erro 3219 ao exportar para outra tabela Empty Re: [Resolvido]Erro 3219 ao exportar para outra tabela

    Mensagem  Silvio 10/7/2013, 19:45

    Salve Grande Marcelo, espero que tudo esteja bem contigo...

    bom vamos lá....

    O que eu exporto:
    ![DataCadastro] = Me.DataCadastro
    ![Nome] = Me.Nome
    ![PedidoN] = Me.PedidoN
    ![Desconto] = Me.Desconto
    ![PrecoCusto] = Me.PrecoCusto
    ![Valoraserpago] = Me.Valoraserpago

    Para onde vai:
    tblpgtofornece

    Onde ocorre o erro:
    Set rs1 = db1.OpenRecordset("tblpgtofornece", dbOpenTable)

    Obs.: antes de dividir, funfava, perfeitamente. Será que é nessa divisão que ocorreu o erro ?

    Desde já, grato por tua ajuda e tempo dispensado a mim !

    Silvio


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Erro 3219 ao exportar para outra tabela Empty Re: [Resolvido]Erro 3219 ao exportar para outra tabela

    Mensagem  Marcelo David 10/7/2013, 19:57

    Não consigo identificar erro algum...

    Disponibilize para nós as partes envolvidas, assim tentamos reproduzir
    o erro aqui.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Erro 3219 ao exportar para outra tabela Marcel11
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Erro 3219 ao exportar para outra tabela Empty Re: [Resolvido]Erro 3219 ao exportar para outra tabela

    Mensagem  Silvio 10/7/2013, 20:10

    La vai.....

    User admim  senha 1234, menu principal...cadastro de peças, cadastre qualquer coisa, coloque o preço, a nf, o fornecedor...e tenta salvar


    Última edição por Silvio em 10/7/2013, 20:47, editado 1 vez(es) (Motivo da edição : removido o exemplo, pois ainda esta em fase de desenvolvimento.)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Erro 3219 ao exportar para outra tabela Empty Re: [Resolvido]Erro 3219 ao exportar para outra tabela

    Mensagem  Marcelo David 10/7/2013, 20:24

    Descobri...

    Retire o que está em vermelho na seguinte linha: Set rs1 = db1.OpenRecordset("tblpgtofornece", dbOpenTable)
    Deixe assim: Set rs1 = db1.OpenRecordset("tblpgtofornece")

    dbOpenTable não funciona em tabelas vinculadas.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Erro 3219 ao exportar para outra tabela Marcel11
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Erro 3219 ao exportar para outra tabela Empty Re: [Resolvido]Erro 3219 ao exportar para outra tabela

    Mensagem  Silvio 10/7/2013, 20:46

    Grande Marcelo.....uma coisa simples e eu complicando aqui.

    Agradeço a ti por ter me ajudado, já testei e funfou legal mesmo.

    Abraços.

    Ps. vou tirar o exemplo anexado daqui, pois ainda estou a desenvolver o mesmo. Se quiser dar uma olhada nele e se tiver alguma coisa para melhorar ele...é só falar.


    Silvio


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Erro 3219 ao exportar para outra tabela Empty Re: [Resolvido]Erro 3219 ao exportar para outra tabela

    Mensagem  Marcelo David 10/7/2013, 20:49

    Ok, qualquer coisa eu dou um pitaco! Obrigado pelo retorno!
    Como sempre, caprichando no layout! Parabéns, muito leve a interface!


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Erro 3219 ao exportar para outra tabela Marcel11

    Conteúdo patrocinado


    [Resolvido]Erro 3219 ao exportar para outra tabela Empty Re: [Resolvido]Erro 3219 ao exportar para outra tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:11