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

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.

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.

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!

Existe ae instruções incorretas.

Para facilitar a ajuda, anexe aqui o seu banco.

Segue o arquivo:

https://www.dropbox.com/s/y9ao5qzr02d6l6g/ExpiraInformaSerial.mdb

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!

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.

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;

http://dl.dropboxusercontent.com/u/771097/ExpiraInformaSerial_OLD.rar

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

Obrigado pelo retorno o forum agradece.