MaximoAccess

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

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
    avatar
    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.]
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    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.
    avatar
    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.]
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    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.
    avatar
    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.]
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    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.
    avatar
    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.]
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    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.
    avatar
    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: Dom 19 Nov 2017, 21:26