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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Sex 20 Fev 2015, 01: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 ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Sex 20 Fev 2015, 01:07

    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 : 3976
    Registrado : 16/03/2013

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

    Mensagem  ahteixeira em Sex 20 Fev 2015, 02:36

    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 : 2840
    Registrado : 07/11/2009

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

    Mensagem  Assis em Sex 20 Fev 2015, 05:39

    Obrigado Teixeira


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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Sex 20 Fev 2015, 08:13

    Assis, obrigado pelo retorno, Abraço cheers

      Data/hora atual: Sab 27 Maio 2017, 02:51