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]Função dá erro depois de converter de 2003 para 2007

    Compartilhe

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    [Resolvido]Função dá erro depois de converter de 2003 para 2007

    Mensagem  Assis em Qui 19 Fev 2015, 15:00

    Boa tarde amigos

    Tenho esta função que na versão 2003 funciona direito, mas converti para 2007 e sublinha a azul a parte que está a vermelho ao fazer o "Debug".
    Pergunto:
    Se é falta de uma referencia que está em falta .... qual e ela ?

    Obrigado

    Function proximoNumero() As String
       Dim StrSQL As String
       Dim rstDoc As New ADODB.Recordset
       Dim numeroEncontrado As Integer
       StrSQL = "Select producao From producaobloco " & _
                   "Where (producao Like '" & Format(Date, "YYYY") & "%') " & _
                   "Order By producao Desc"
       rstDoc.Open StrSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly
       If rstDoc.RecordCount > 0 Then
           numeroEncontrado = CInt(Right(rstDoc("producao"), 4))
       Else
           numeroEncontrado = 0
       End If
       proximoNumero = Format(Date, "YYYY") & Format(numeroEncontrado + 1, "0000")
       rstDoc.Close
       Set rstDoc = Nothing
    End Function


    .................................................................................
    *** Só sei que nada sei ***

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3216
    Registrado : 15/03/2013

    Re: [Resolvido]Função dá erro depois de converter de 2003 para 2007

    Mensagem  ahteixeira em Qui 19 Fev 2015, 15:07

    Ola Assis, não tenho a certeza, mas verifique as referências deve ser
    Microsoft ActiveX Data Objects 2.x
    Abraço

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3216
    Registrado : 15/03/2013

    Re: [Resolvido]Função dá erro depois de converter de 2003 para 2007

    Mensagem  ahteixeira em Qui 19 Fev 2015, 16:36

    Assis, é mesmo isso testei e funciona.
    [Você precisa estar registrado e conectado para ver esta imagem.]
    Abraço

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: [Resolvido]Função dá erro depois de converter de 2003 para 2007

    Mensagem  Assis em Qui 19 Fev 2015, 19:39

    Obrigado Teixeira


    .................................................................................
    *** Só sei que nada sei ***

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3216
    Registrado : 15/03/2013

    Re: [Resolvido]Função dá erro depois de converter de 2003 para 2007

    Mensagem  ahteixeira em Qui 19 Fev 2015, 22:13

    Assis, obrigado pelo retorno, Abraço cheers

      Data/hora atual: Sex 09 Dez 2016, 07:41