MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]erro comando for

    avatar
    infformax
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 221
    Registrado : 29/05/2013

    [Resolvido]erro comando for Empty [Resolvido]erro comando for

    Mensagem  infformax em 26/10/2020, 17:23

    boa tarde

    por favor, faz tempo que nao desenvolvo e estou com um problema simples no comando for, mas nao consigo achar.

    tenho uma rotina abaixo num formulario com varios itens:


    Private Sub Comando72_Click()

    Dim i, strContar As Integer

    'recebe a qtde de notas que contou
    strContar = QTDE_NOTAS


    'inicio do cursor
    For i = 1 To strContar

    'calcula
    PRECO = PRECO + Texto70


    DoCmd.GoToRecord , , acNext

    Next

    MsgBox "Documentos Processados com Sucesso...", vbInformation

    'DoCmd.Close

    End Sub



    ele faz certinho, so que quando termino o ultimo registro, ele da erro:

    erro em tempo de execucao 2105
    voce nao pode ir para o registro especificado

    mandar depurar e ao depurar mostra esta linha

    DoCmd.GoToRecord , , acNext

    obrigado


    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 22/11/2016

    [Resolvido]erro comando for Empty Re: [Resolvido]erro comando for

    Mensagem  DamascenoJr. em 26/10/2020, 17:56

    If not (i = strContar) then DoCmd.GoToRecord , , acNext


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    infformax gosta desta mensagem

    avatar
    infformax
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 221
    Registrado : 29/05/2013

    [Resolvido]erro comando for Empty Re: [Resolvido]erro comando for

    Mensagem  infformax em 26/10/2020, 18:16

    muito obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 22/11/2016

    [Resolvido]erro comando for Empty Re: [Resolvido]erro comando for

    Mensagem  DamascenoJr. em 26/10/2020, 21:32

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 1/12/2020, 17:56