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

    [Resolvido]TextBox Bissexto

    Compartilhe

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 25/07/2017

    [Resolvido]TextBox Bissexto

    Mensagem  alantb em Qui 05 Out 2017, 15:25

    Olá, preciso que as funções abaixo preencham o campo "txtTrabalho" com 365 se for ano normal e 366 se for ano bissexto. Para isso deve pegar a data do campo "txtAte" .O campo com a data é carregado com dados selecionados em outro form; não é digitado e "Text1" deve receber a parte da data que se refere ao ano e o restante da function faz o cálculo. Qual seria um evento para atirar o valor 365 ou 366 corretamente em txtTrabalho???

    Sub VerificaBissexto()
    Dim data As Date ' Declara variaveis

    data = txtAte.Text
    Text1.Text = DatePart("yyyy", data)

    Bissexto (Text1)

    End Sub

    Public Function Bissexto(intAno As Integer) As Boolean
    '' verifica se um ano é bissexto
    Bissexto = False

    txtTrabalho.Text = "365"


     If intAno Mod 4 = 0 Then
        If intAno Mod 100 = 0 Then
           If intAno Mod 400 = 0 Then
               Bissexto = True
           End If
        Else
              Bissexto = True
        End If
       
        txtTrabalho.Text = "366"

     End If

    End Function


    ALAN

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 25/07/2017

    Re: [Resolvido]TextBox Bissexto

    Mensagem  alantb em Sex 06 Out 2017, 15:06

    Pessoal, o erro que está ocorrendo e que está me atrasando é que o Access fica sempre pedindo foco nos textbox abaixo para poder executar as functions. Como faço para desviar isso???

    data = txtAte.Text ´as vezes aqui
    Text1.Text = DatePart("yyyy", data) ' ou aqui

    ALAN
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]TextBox Bissexto

    Mensagem  JPaulo em Sex 06 Out 2017, 17:03

    Ola;

    Varias coisinhas mal;

    1º Não pode usar palavras reservadas do Access, tais como a palavra "Data" entre outras
    2º Não deve usar o .Text para estes casos, deve usar o .Value


    Código:
    Sub VerificaBissexto()
    Dim dt As Date ' Declara variaveis

    dt = Nz(Me.txtAte.Value, 0)
    Me.Text1.Value = DatePart("yyyy", dt)
    Bissexto (Me.Text1.Value)

    End Sub

    Public Function Bissexto(intAno As Integer) As Boolean
    '' verifica se um ano é bissexto
    Bissexto = False

     If intAno Mod 4 = 0 Then
        If intAno Mod 100 = 0 Then
           If intAno Mod 400 = 0 Then
               Bissexto = True
           End If
        Else
              Bissexto = True
      End If
    End If
     
     If Bissexto = False Then Me.txtTrabalho.Value = 365
     If Bissexto = True Then Me.txtTrabalho.Value = 366
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 25/07/2017

    Re: [Resolvido]TextBox Bissexto

    Mensagem  alantb em Sex 06 Out 2017, 18:52

    JPaulo, as suas dicas foram muito importantes e como sempre direto ao ponto. Agora funcionou perfeitamente. Encerramos por aqui.Grande abraço, valeu!!!

    ALAN
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]TextBox Bissexto

    Mensagem  JPaulo em Sex 06 Out 2017, 22:01

    Fico feliz
    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Ter 21 Nov 2017, 17:36