USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Não consigo usar o Moveprevious
Ralph Teixeira
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 07/06/2006 20:09 hs            
ERRO-> 3229
"OPERAÇÃO NÃO PERMITIDA NESTE CONTEXTO"
o erro esta quando passa no moveprevious

Do While Not Reg.EOF
                  .
                  .
                  .
                   Reg.MoveNext 'vou para o proximo registro e se for = Filme então
                        If Reg("honora") = "Filme" Then
                          Total_Conta = Total_Conta + Reg("valor")
                          Total_Lote = Total_Lote + Reg("valor")
                          Vvalor = CDbl(Vvalor) + Format(Reg("valor"), "#,##0.00")
                        End If
                    Reg.MovePrevious 'preciso voltar para o registro anterior
                   .
                   .
                   .
               reg.MoveNext
          loop


Desde ja Agradeço a todos

Ralph Teixeira

Ralph Teixeira

   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 07/06/2006 20:12 hs            
Creio eu q depende de como está o cursortype qdo vc abriu este recordset... se vc abriu como adOpenForwardOnly não dá pra usar o moveprevious...
Bom, pode ser outra coisa...
Coloca como vc abriu o recordset
   
Ralph Teixeira
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 07/06/2006 20:21 hs            

Reg.Open "Select * from honora where bau = 1 and " & _
" id_agenda = " & Grid3.TextMatrix(Aux, 15) & " " & _
" order by id_hon, codigo ", Banco

Ralph Teixeira

   
Ralph Teixeira
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 07/06/2006 20:29 hs            

Coloquei assim

Reg.Open "Select * from honora where bau = 1 and " & _
" id_agenda = " & Grid3.TextMatrix(Aux, 15) & " " & _
" order by id_hon, codigo ", Banco, adOpenDynamic

Funcionou

Obrigado ghost_jlp


Valeu

Ralph Teixeira

   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página