MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Confirmar Data em tabela e Setar Registro conforme data

    Compartilhe

    Jerecardoso
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 12/07/2013

    Confirmar Data em tabela e Setar Registro conforme data

    Mensagem  Jerecardoso em Seg 02 Fev 2015, 17:50

    Boa Tarde a todos,
    gostaria de mais uma vez a ajudas de meu amigos aqui do forum !!

    estou montando um Loop, para setar Sim/não em uma tabela e este " setar" e dado pela data Inicio e fim.
    vejam o Codigo .

    If IsNull(Datacorfirmado) Then Exit Sub
    intCodigo = DMax("CodigoR", "Tab_Ferias")
    intCodigo = intCodigo + 1

    CurrentDb.Execute "insert into Tab_Ferias_Aprovadas (Codigo,CodigoR,CodCadastro,Periodo,DataInicio,DataFim,Numerodias)" & vbCrLf _
    & "values ('" & Codigo & "','" & intCodigo & " ','" & CodCadastro & "', '" & Periodo & "', '" & Datainicio & "', '" & DataFim & "','" & Numerodias & "')"




    dtInicio = DtaInicio
    dtFinal = DtaFim
    intDias = DateDiff("d", Datainicio, DataFim)
    dtContData = Datainicio




    For X = 0 To intDias

    CurrentDb.Execute "insert into Tab_Ferias (CodigoR,Nome,Pronturario,Data)" & vbCrLf _
    & "values ('" & intCodigo & " ','" & Nome & "', '" & Prontuario & "', '" & dtContData & "')"


    CurrentDb.Execute "Update [Tab_Escala] SET [Ferias_Periodo]= -1 WHERE [Data]= '" & dtContData & "'"
    dtContData = dtContData + 1



    tudo Funciona menos a ultima parte do Codigo, alguem poderia me ajudar..
    a ultima parte a do Setar da erro, ele não entende a data e não seta correto.


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.] É isso ai [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    Confirmar Data em tabela e Setar Registro conforme data

    Mensagem  good guy em Seg 02 Fev 2015, 19:00

    Olá Jere,

    Não entendi direito o que vc quis dizer com "Setar Registro", mas em relação ao campo que define a data, verifique que tipo de campo vc estabeleceu na tabela. Se foi do tipo texto a sua variável deverá ser do tipo String, mas se for Data/Hora a sua variável terá de ser do tipo Date e colocada entre o símbolo de jogo da velha #suavariávelData#. Qualquer dúvida a mais se não der certo, posta o bd para analisarmos.

    Jerecardoso
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 12/07/2013

    Re: Confirmar Data em tabela e Setar Registro conforme data

    Mensagem  Jerecardoso em Seg 02 Fev 2015, 23:54

    Vamos dizer assim ... na minha tabela....
    tenho 3 campo...
    Data, nome e férias ....



    data recebe as datas do ano todo, e os nomes tbm preenche todos os campos, porem o campo Ferias não ,
    este campo é o SIM/Não ... então o loop deve setar como -1 somente as datas do perio de férias ..


    neste trecho do codigo que está dando erro ...

    CurrentDb.Execute "Update [Tab_Escala] SET [Ferias_Periodo]= -1 WHERE [Data]= '" & dtContData & "'"
    dtContData = dtContData + 1


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.] É isso ai [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    Confirmar Data em tabela e Setar Registro conforme data

    Mensagem  good guy em Ter 03 Fev 2015, 15:35

    Olá Cardoso,

    Ao depurar o código aponta erro de sintaxe? ou o quê? Que tipo de dado é esta variável dtContData. Esta variável me parece ser do tipo Integer para entrar na contagem na linha seguinte. Logicamente esta variável não combina com o tipo de campo do qual é obtido, isto é, o campo Data que corresponde a dados do tipo Date e não Integer.

    Jerecardoso
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 12/07/2013

    Re: Confirmar Data em tabela e Setar Registro conforme data

    Mensagem  Jerecardoso em Qua 04 Fev 2015, 11:08

    Segue Banco Como Exemplo...

    Da uma olhada....



    Como eu informou  Tenho duas. Tabelas, Em uma delas eu recebo as Solicitações de Férias..
    depois Eu aprovo a solicitação.... quando eu aprovo a solicitação, deveria Setar no Campo Férias_Periodo na tabela Tab_escala, somente os periodos entre as datas Inicio e fim..

    Por Exemplo..

    data inicio  1/01/2015, data Fim 15/01/2015...  o comando deve preencher com -1 os campos correspondentes as datas inicio e fim, porem somente este periodo,
    o codigo que criei está loco....


    agradeço pela compreensão e ajuda
    Anexos
    teste1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (422 Kb) Baixado 9 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.] É isso ai [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    Confirmar Data em tabela e Setar Registro conforme data

    Mensagem  good guy em Qua 04 Fev 2015, 14:59

    Olá Cardoso,

    O programa está acusando vários erros ao depurar:

    Por exemplo:
    -Faltam as tabelas Tab_Ferias_Aprovadas e Tab_Ferias.


    Cheque o aplicativo antes de enviar, verifique se está acusando os erros mencionados anteriormente.

    Jerecardoso
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 12/07/2013

    Re: Confirmar Data em tabela e Setar Registro conforme data

    Mensagem  Jerecardoso em Qua 04 Fev 2015, 16:04

    é que meu aplicativo ´´e muito grande e não consigo enviar....


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.] É isso ai [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    Confirmar Data em tabela e Setar Registro conforme data

    Mensagem  good guy em Qua 04 Fev 2015, 16:11

    Olá,

    Posta de novo amigo pelo menos com estas duas tabelas que dá. Faça uma cópia do aplicativo, delete a maioria dos registros das tabelas e me envie.

    Jerecardoso
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 12/07/2013

    Re: Confirmar Data em tabela e Setar Registro conforme data

    Mensagem  Jerecardoso em Dom 08 Fev 2015, 02:11

    Ok Irmão vou Faze-lo.
    obigado pela Ajuda .

    Vou reenviar

    Abraço...


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.] É isso ai [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 03 Dez 2016, 15:39