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

    [Resolvido]Adaptação no DEMO por Dias do JPaulo

    Compartilhe

    msantolli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 02/07/2012

    [Resolvido]Adaptação no DEMO por Dias do JPaulo

    Mensagem  msantolli em Seg 17 Fev 2014, 23:24

    Senhores, gostaria da ajuda de vocês para adaptar o código do JPaulo "Demo por Dias" disponível no repositório de exemplos. Este código faz com que o sistema solicite um novo número de serial periodicamente conforme determinado pelo programador. Gostaria de adaptar o código às minhas aplicações, porém, desejo substituir a "inputbox" na qual o usuário do sistema digita o Serial, por um formulário personalizado. Segue parte do código para análise.


    Código:
    'se o campo dos dias for maior que 4, não deleta o serial e pede nova confirmação ou saír
        If rs![Numdia] >= 4 Then
    'se o campo dos dias for igual a 4, acrescenta +1 aos dias e pede o novo serial para liberar por mais 4 dias
            If rs![Numdia] = 4 Then
                DoCmd.SetWarnings False
                sSQL = "DELETE * FROM tblSeries WHERE Nserie ='" & A & "'" 'apaga o numero de serie
                DoCmd.RunSQL (sSQL)
                DoCmd.SetWarnings True
            End If
            A = DLookup("[Nserie]", "tblSeries") 'aqui busca o novo numero de serie para liberar
            Do
                x = InputBox("Arquivo expirado. Digite o serial, para liberar por mais 4 dias...", "Expirado")
                
    'se o serial informado for diferente do atual ou nulo, pergunta ao utilizador
                If x <> A Or IsNull(x) Or x = "" Then
                    MensagemX = "Serial não corresponde ou não foi digitado, introduza novamente ou seleccione Cancel para sair."
                    titulo = "Demo"
                    Dim resposta As Integer
                    resposta = MsgBox(MensagemX, vbOKCancel, titulo)
                    If resposta = vbCancel Then
                        rs.Edit
                        rs![Numdia] = rs![Numdia] + 1
                        rs![DataAtual] = Date
                        rs.Update
                        DoCmd.Quit
                    End If
            

    Segue também o arquivo disponibilzado pelo JPaulo no repositório de exemplos.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Adaptação no DEMO por Dias do JPaulo

    Mensagem  JPaulo em Ter 18 Fev 2014, 10:21

    Ola;

    Onde tem a InputBox é substituir por DoCmd.OpenForm "SeuSegundoForm", mas para isso o restante código terá de ser iinserido nesse formulario.

    Mas para isso, primeiramente você terá de montar esse form e depois tentamos a judar a adpatar.



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

    msantolli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 02/07/2012

    Re: Adaptação no DEMO por Dias do JPaulo

    Mensagem  msantolli em Ter 18 Fev 2014, 11:18

    JPaulo, obrigado pela atenção!

    No mesmo arquivo que você disponibilizou fiz o que disse. Criei o formulário "frmSerial", e um campo de texto não acoplado com o nome "texto1", colei o restante do código no evento "ao carregar" do formulário, ficou assim:

    Do
    If Texto1 <> A Or IsNull(x) Or Texto1 = "" Then
    MensagemTexto1 = "Serial não corresponde ou não foi digitado, introduza novamente ou seleccione Cancel para sair."
    titulo = "Demo"
    Dim resposta As Integer
    resposta = MsgBox(MensagemX, vbOKCancel, titulo)
    If resposta = vbCancel Then
    rs.Edit
    rs![Numdia] = rs![Numdia] + 1
    rs![DataAtual] = Date
    rs.Update
    DoCmd.Quit
    End If
    Else

    'se o serial informado estiver correto com o atual,libera por mais 4 dias
    rs.Edit
    rs![Numdia] = 0
    rs![DataAtual] = Date
    rs.Update
    Exit Do
    End If
    Loop
    'End If
    Set rs = Nothing
    Set rs2 = Nothing
    End Sub

    Ao vencer o prazo o formulário "frmSerial" é exibido porém o sistema trava. Como meu conhecimento é muito pequeno, não tenho ideia de onde pode estar o erro!


    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Adaptação no DEMO por Dias do JPaulo

    Mensagem  JPaulo em Ter 18 Fev 2014, 14:14

    Existe ae instruções incorretas.

    Para facilitar a ajuda, anexe aqui o seu banco.



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

    msantolli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 02/07/2012

    Re: Adaptação no DEMO por Dias do JPaulo

    Mensagem  msantolli em Qua 19 Fev 2014, 12:09

    Segue o arquivo:

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

    msantolli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 02/07/2012

    Re: Adaptação no DEMO por Dias do JPaulo

    Mensagem  msantolli em Sex 21 Fev 2014, 01:05

    Por favor pessoal, não deixem de me ajudar, preciso muito dessa solução! Desculpem, o meu conhecimento é muito pequeno, por mais que eu me esforce não consigo chegar a lugar algum. Preciso realmente da ajuda de vocês. Obrigado!

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Adaptação no DEMO por Dias do JPaulo

    Mensagem  JPaulo em Sex 21 Fev 2014, 11:01

    Amigo Moura Santoli, ninguem o abandona aqui, apenas temos os nosso trabalho diario e nos tempos livres tentamos ajudar.

    Assim que possivel irei dar uma olhada no exemplo.


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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Adaptação no DEMO por Dias do JPaulo

    Mensagem  JPaulo em Sex 21 Fev 2014, 11:17

    Ola novamente;

    Veja o simples;

    1º Criei uma variavel publica no modulo da função;

    'variavel publica que recebe o valor do form frmInfoSerial
    Public varInfoSerial As String


    2º Substituí a InputBox pela abertura de um formulario em modo Dialog, para que o codigo da função seja interrompido
       até receber o valor do serial informado no form frmInfoSerial.

    Teste por favor e retorne;

    [Você precisa estar registrado e conectado para ver este link.]
    Anexos
    ExpiraInformaSerial_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 23 vez(es)

    msantolli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 02/07/2012

    Re: Adaptação no DEMO por Dias do JPaulo

    Mensagem  msantolli em Sex 21 Fev 2014, 13:20

    Mestre JPaulo, sinceramente, fico até envergonhado em dizer apenas OBRIGADO, quero também parabenizá-lo mais uma vez, por compartilhar seu conhecimento aqui no fórum ajudando tantas pessoas independente do grau de conhecimento delas. Que Deus te dê muito mais sabedoria. Muito obrigado!!

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Adaptação no DEMO por Dias do JPaulo

    Mensagem  JPaulo em Sex 21 Fev 2014, 13:57

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    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: Sab 03 Dez 2016, 15:36