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


3 participantes

    [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada

    avatar
    tiagocsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 12/03/2012

    [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada Empty [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada

    Mensagem  tiagocsilva 12/3/2012, 17:30

    Boa tarde tenho um formulário no qual preencho os campos com variáveis e ao fim gostaria de salvar estes campos em uma tabela via vba, porém não estou conseguindo alguém poderia me ajudar com o código deste botão salvar?

    Grato a todos
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada Empty Re: [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada

    Mensagem  criquio 12/3/2012, 17:37

    Olá, seja bem vindo ao forum. Dê uma pesquisada por Execute ou Recordset que encontrarás bastante tópicos já resolvidos sobre o assunto.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    tiagocsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 12/03/2012

    [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada Empty Re: [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada

    Mensagem  tiagocsilva 12/3/2012, 19:39

    Sim estou tentando utilizar recordset, mas por conhecer bem pouco de vba estou com dificuldades

    Private Sub SalvarIT_Click()

    Dim r As DAO.Recordset
    Set r = CurrentDb.OpenRecordset(DOC_IT)

    r.AddNew
    r![N°_Doc] = Me.N°_Doc
    r![Nome_Doc] = Me.Nome_Doc
    r.Update


    End Sub

    Este é o meu código, estou tentando incluir o valor do campo do formulário na tabela ("DOC_IT") em seu correspondente campo.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada Empty Re: [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada

    Mensagem  criquio 12/3/2012, 19:51

    Tente colocar o nome da tabela entre aspas. E não se esqueça de fechar a tabela e liberar a memória depois do Update:

    r.Close ' Fecha a tabela
    Set r = Nothing ' Libera a memória


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada Empty Re: [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada

    Mensagem  Avelino Sampaio 13/3/2012, 00:25

    Olá

    Se a tabela é NÃO vinculada, então não serve o "CurrentDb". Use o Opendatabase

    Algo assim:

    dim bd as dao.database

    Set bd = OpenDatabase("c:/suapasta/Seubd_be.accdb")
    set r bd.openrecordset(DOC_IT)
    ...
    ...


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    tiagocsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 12/03/2012

    [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada Empty Re: [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada

    Mensagem  tiagocsilva 13/3/2012, 10:54

    A tabela é vinculada ao form porém os campos não, pois preciso que não salve automático, preciso que salve somente após clicar no botão salvar.

    Segui as sugestões dos colegas porém sem sucesso ainda, to enviando uma imagem do form com a tabela ao fundo.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada Empty Re: [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada

    Mensagem  Avelino Sampaio 13/3/2012, 11:24

    Então troque o títilo do seu post porque lá esta dizendo que a tabela que não é vinculada.

    Três peguntas:

    O seu formulário então está realmente desvinculado ? Vc não pode vincular a tabela a este formulário, se for fazer uso do recordset
    O nome da sua tabela é "DOC_IT" ?
    Qual é examanente o erro que acusa?

    A única mudança seria colocar as aspas no nome da tabela:


    Private Sub SalvarIT_Click()

    Dim r As DAO.Recordset
    Set r = CurrentDb.OpenRecordset("DOC_IT")

    r.AddNew
    r![N°_Doc] = Me.N°_Doc
    r![Nome_Doc] = Me.Nome_Doc
    r.Update


    End Sub


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    tiagocsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 12/03/2012

    [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada Empty Re: [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada

    Mensagem  tiagocsilva 13/3/2012, 11:48

    Desvinculei a tabela do form pois estavam somente os campos desvinculados, fiz as alterações informadas pelos colegas.

    Funcionou perfeitamento
    obrigado a todos

    Conteúdo patrocinado


    [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada Empty Re: [Resolvido]Salvar campos de um Formulário em uma tabela não vinculada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 03:11