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


4 participantes

    [Resolvido] Atualização automática de campos

    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    [Resolvido] Atualização automática de campos Empty [Resolvido] Atualização automática de campos

    Mensagem  jferna 20/5/2010, 01:52

    Boa noite, tenho um BD em que tenho várias tabelas, mais o que eu quero é o seguinte:
    Tenho uma tabela "conta corrente bancária" que tem os campos:
    Data;
    Histórico;
    Doc;
    entradas;
    saídas.

    E tenho outra tabela "despesas" com os seguintes campos:
    Data;
    Histórico;
    Doc;
    Valor.

    Gostaria que os campos da tabela "despesas" fossem atualizados automaticamente quando fosse lançados os dados da tabela "conta corrente bancária"
    Os 3 primeiros campos são iguais e o campo valor da tabela "despesas" deve ser os dados do campo saídas da tabela "conta corrente bancária"

    Jorge
    avatar
    Convidado
    Convidado


    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  Convidado 20/5/2010, 12:01

    Bom dia Jorge,

    Seja bem vindo ao forum.

    Pode ser feito usando recordset:

    Dim db As DAO.Database
    Dim rst As DAO.recordset

    Set db = CurrentDB()
    Set rst = db.OpenRecordset("despesas", dbOpenTable)
    rst.AddNew
    rst!Data1 = teuCampoDataNoForm
    rst!Historico = TeuCampoHistoricoNoForm
    rst!Doc = TeuCampoDocNoForm
    rst!valor1 = TeuCampoSaidasNoForm
    rst.Update
    rst.Close

    set rst = nothing

    Coloca no evento APÓSATUALIZAR do ultimo campo ou em um botão.

    Obs: Cuidados com as palavras reservadas do Access (data, valor, etc)
    Nivaldo.
    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  jferna 20/5/2010, 17:49

    Boa tarde Nivaldo.
    Acho que fiz como vc disse mais não deu certo, veja se fiz corretamente.

    Private Sub CRÉDITO_AfterUpdate()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset

    Set db = CurrentDb()
    Set rst = db.OpenRecordset("despesa", dbOpenTable)
    rst.AddNew
    rst!Data2 = Data1
    rst!Histórico2 = Histórico1
    rst!Doc2 = Doc1
    rst!valor2 = CRÉDITO
    rst.Update
    rst.Close

    Set rst = Nothing
    End Sub

    Onde a Data1, Histórico1, Doc1 e Crédito, são os campos do formulário que estou lançando para atualizar a tabela conta corrente banco - e os campos Data2, Histórico2, Doc2 e valor2, são os campos da tabela despesa que desejo que seja preenchidos automaticamente.

    Quando faço o lançamento e vou sair dá a seguinte mensagem:
    Erro de compilação:
    O tipo definido pelo usuário não foi definido.

    O que tem de errado?
    Ats.
    Jorge.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  JPaulo 20/5/2010, 19:40

    Uma preciosa ajuda;

    Marque a referencia "Microsoft DAO 3.6 Object Library" no VBA.


    .................................................................................
    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

    [Resolvido] Atualização automática de campos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Atualização automática de campos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Atualização automática de campos Folder_announce_new Instruções SQL como utilizar...
    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  jferna 20/5/2010, 20:02

    Não entendi onde marcar.
    JOrge.
    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] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  criquio 20/5/2010, 20:12

    Jorge, entre em um formulário no modo estrutura ou design e abra um módulo vba qualquer. Vá em Ferramentas e escolha a opção Referência. Lá procure a referência citada pelo JPaulo e marque ela e confirme.


    .................................................................................
    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
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  jferna 20/5/2010, 20:49

    Está quase chegando lá.
    Está dando erro quando confirmo um lançamento do tipo.
    Erro em tempo de execução '3314':
    O campo 'despesa.Data2' não pode conter um valor nulo, pois a propriedade requered desse campo está definida como true. Digite um valor nesse campo.

    Obs. o lançamento está sendo feito com preenchimento de todos os campos.

    Ats.

    Jorge.
    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] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  criquio 20/5/2010, 23:05

    Você tem certeza que tem um campo no form associado ao despesa.data2 da tabela? Talvez seja isso que esteja ocorrendo.


    .................................................................................
    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
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  jferna 20/5/2010, 23:24

    As tabelas são distintas não tem nenhum campo relacionado.
    Esse procedimento é igual fazer uma consulta altualização que tem que ter um campo ralacionado?
    Ats.
    Jorge.
    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] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  criquio 20/5/2010, 23:28

    Acontece que você está inserindo um registro em uma tabela. Se essa tabela tem um campo que é obrigatório ser preenchido e não tiver nenhum campo no form para inputar um valor no campo obrigatório da tabela, dará erro.


    Última edição por criquio em 20/5/2010, 23:44, editado 1 vez(es)


    .................................................................................
    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
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  jferna 20/5/2010, 23:38

    Todos os campos do formulário são preenchidos para atualizar a tabela "bancos" e o código é para pegar os dados desses campos e atualizar a tabela "despesa".

    Só as tabelas não tem relacionamentos, mais, todos os campos do formulário tem um campo correspondente na segunda tabela.
    Ats.
    Jorge.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  JPaulo 21/5/2010, 09:57

    Bom Dia Jorge;

    Veja como funfa e o que está a fazer mal;

    http://dl.dropbox.com/u/771097/Jorge.mdb


    .................................................................................
    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

    [Resolvido] Atualização automática de campos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Atualização automática de campos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Atualização automática de campos Folder_announce_new Instruções SQL como utilizar...
    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  jferna 21/5/2010, 13:54

    Bom dia, não consigo abrir/salvar o arquivo que tu mandaste, dá mensagem de que não é seguro.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  JPaulo 21/5/2010, 15:14

    Isso são configurações de segurança do seu PC.

    Veja assim:
    http://www.speedyshare.com/files/22550889/Jorge.rar


    .................................................................................
    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

    [Resolvido] Atualização automática de campos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Atualização automática de campos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Atualização automática de campos Folder_announce_new Instruções SQL como utilizar...
    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  jferna 24/5/2010, 15:49

    Bom dia, até que enfim fungô. Mais não foi fácil copiei ó código que está no exemplo acima e colei no meu formulário e mesmo assim não fungou, tive que importar o formulário do exemplo para meu BD e fazer as adaptações necessárias e aí fungou perfeitamente.
    Abraços e muito obrigado pela ajuda.

    Ats.

    Jorge.
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  scandinavo 21/6/2010, 23:54

    Bem estava usando o codigo que foi passado la em cima
    devidamente alterado os nomes

    Dim db As DAO.Database
    Dim rst As DAO.recordset

    Set db = CurrentDB()
    Set rst = db.OpenRecordset("despesas", dbOpenTable)
    rst.AddNew
    rst!Data1 = teuCampoDataNoForm
    rst!Historico = TeuCampoHistoricoNoForm
    rst!Doc = TeuCampoDocNoForm
    rst!valor1 = TeuCampoSaidasNoForm
    rst.Update
    rst.Close

    set rst = nothing


    Estava funcionando perfeitamente ate eu dividir o projeto em bac end e from end
    comecou a dar erro nesta linha.

    Set rst = db.OpenRecordset("despesas", dbOpenTable)


    Pelo jeito nao esta abrindo a tabela para salvar os dados, mas como ficaria o novo caminho completo.

    Desde ja agradeço
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  JPaulo 22/6/2010, 09:14

    Assim;

    Dim Conn As ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim strSQL As String
    Set Conn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    strSQL = "Select * from despesas"
    rst.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
    rst.AddNew
    rst!Data1 = teuCampoDataNoForm
    rst!Historico = TeuCampoHistoricoNoForm
    rst!doc = TeuCampoDocNoForm
    rst!valor1 = TeuCampoSaidasNoForm
    rst.Update
    rst.Close
    Set rst = Nothing


    .................................................................................
    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

    [Resolvido] Atualização automática de campos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Atualização automática de campos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Atualização automática de campos Folder_announce_new Instruções SQL como utilizar...
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  scandinavo 24/6/2010, 02:33

    Valeu JPaulo funcionou perfeitamente.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  JPaulo 24/6/2010, 12:02

    Obrigado pelo retorno amigo.


    .................................................................................
    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

    [Resolvido] Atualização automática de campos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Atualização automática de campos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Atualização automática de campos Folder_announce_new Instruções SQL como utilizar...
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  scandinavo 18/7/2010, 20:05

    ó Eu aqui outra vez....

    pelo codigo acima acrescenta uma linha de cada vez.

    Como fazer para acrescentar varios linha na tabela.

    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  scandinavo 20/7/2010, 02:20

    Tentei complicar o facil.

    Solução criei uma consulta de acrescimo.

    Para o codigo acima funcionar no 2007 presisa ativar a referencia


    microsoft activex data objects 2.1 library
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  scandinavo 7/8/2010, 01:56

    Como transformar esta rotina em uma sub function
    ou em um modulo.

    Dim Conn As ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim strSQL As String
    Set Conn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    strSQL = "Select * from despesas"
    rst.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
    rst.AddNew
    rst!Data1 = teuCampoDataNoForm
    rst!Historico = TeuCampoHistoricoNoForm
    rst!doc = TeuCampoDocNoForm
    rst!valor1 = TeuCampoSaidasNoForm
    rst.Update
    rst.Close
    Set rst = Nothing
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  scandinavo 10/8/2010, 17:04

    Veja o simples em uma Sub

    Sub NovoLote()

    Dim DataSaida As Date
    Dim CodIngrediente As String
    Dim NomeIngrediente As String
    Dim qntsaida As Integer

    Dim Conn As ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim strSQL As String
    Set Conn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    strSQL = "Select * from tbsaida"
    rst.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
    rst.AddNew
    rst!DataSaida = txDataSaida
    rst!CodIngrediente = txCodIngrediente
    rst!NomeIngrediente = txNomeIngrediente
    rst!qntsaida = txsobra
    rst.Update
    rst.Close
    Set rst = Nothing
    End Sub

    Observe que os campos de origem teve os nomes alterados no formulario para funcionarem corretamente.

    O meu maior problema foi definir as variaveis

    campo formato data = as date
    campo formato texto= as string
    campo formato numero = as integer

    Eu sei que existem outros criterios se alguem puder acrescentar mais fica em aberto.
    Meu conhecimento é limitado em VBA.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  JPaulo 10/8/2010, 17:45

    Obrigado pelo retorno amigo Mario, é sempre util e pode ajudar outras feras com o mesmo problema.


    .................................................................................
    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

    [Resolvido] Atualização automática de campos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Atualização automática de campos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Atualização automática de campos Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido] Atualização automática de campos Empty Re: [Resolvido] Atualização automática de campos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:03