Pessoal não consigo fazer o seguinte.

 

Dar um Update em um valor no meu Banco.

Ex.

ID_PERG      ID_RESP

  1001           2

  1002           4

  1001           5

  1002           3

 

Caso o cliente queira alterar a escolha, no meu caso seria o valor "3", o Ultimo.

No meu SQL modifico pela condição Where ID_PERG, assim ele pega o código 1001 e muda a primeira escolha também.

Preciso mudar o último vamor "3" do ID_PERG 1002 que foi o último registro cadastrado.

 

Alguem ?

passa a linha de código que vc fez pra ficar mais claro o seu problema

tabela.Open "Select ID_RESP from tblRespPossiveis where RESP = '" & recebe & "'", conexao
ID_ALTRESP = tabela("ID_RESP")
tabela.Close

    For x = 0 To 4
       If Option1(x).Value = True Then
           sql = "Update tblRespDadas Set RESPDADA = " & ID_ALTRESP & " where ID = " & conexao.Execute("Select @@IDETITY") & ""
                conexao.Execute sql, Rows
                    If Rows > 0 Then
                        MsgBox "OPÇÃO ALTERADA"
                        cmdPer1.Enabled = False
                    Else
                        MsgBox "ERRO - Consulte um Administrador", vbCritical
                    End If
 Else
  MsgBox "Nao esta no fim do banco"
End If
           
   Next x

End Sub

 

+ ou - espero que entenda rs..

tabela.Open "Select ID_RESP from tblRespPossiveis where RESP = '" & recebe & "'", conexao, 3, 3
   tabela.moveMax
   ID_ALTRESP = tabela("ID_RESP")
   tabela.Close
   For x = 0 To 4
      If Option1(x).Value = True Then
          sql = "Update tblRespDadas Set RESPDADA = " & ID_ALTRESP & " where ID = " & conexao.Execute("Select @@IDETITY") & ""
               conexao.Execute sql, Rows
                   If Rows > 0 Then
                       MsgBox "OPÇÃO ALTERADA"
                       cmdPer1.Enabled = False
                   Else
                       MsgBox "ERRO - Consulte um Administrador", vbCritical
                   End If
      Else
        MsgBox "Nao esta no fim do banco"
      End If
   Next

 

para vc pegar o ultimo resgistro é soh vc mover o "ponteiro" para o ultimo registro usando o moveMax!!

 

tenta essa!!!

 

faloowww

T+

Bruno seguinte, deu um erro de Metodo Não encontrado no  MoveMax....

 

Oque pode ser ??

 

Brigado