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

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2935
    Registrado : 07/11/2009

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

    Mensagem  Assis em Qui 19 Fev 2015, 8:30 pm

    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 ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4403
    Registrado : 16/03/2013

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

    Mensagem  ahteixeira em Qui 19 Fev 2015, 8:37 pm

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4403
    Registrado : 16/03/2013

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

    Mensagem  ahteixeira em Qui 19 Fev 2015, 10:06 pm

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2935
    Registrado : 07/11/2009

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

    Mensagem  Assis em Sex 20 Fev 2015, 1:09 am

    Obrigado Teixeira


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4403
    Registrado : 16/03/2013

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

    Mensagem  ahteixeira em Sex 20 Fev 2015, 3:43 am

    Assis, obrigado pelo retorno, Abraço cheers

      Data/hora atual: Ter 26 Set 2017, 3:48 am