[Resolvido]Movendo registro e excluindo da tabela

Olá pessoal


Hoje eu tenho no access um formulario vinculado com tabela1 que cuido do serviço, assim que eu aperto o botão ele envia uma msg para outro programa . Eu preciso que ao apertar o botão ele  mova esse registro para tabela2 e exclua a informação da tabela1. Não estou utilizando filtro porque existe muita informação nessa tabela e eu preciso separar tudo isso.

Grato pela ajuda


Achei uma possivel solução mas estou encontrando problema

Em uma checkbox utilizei isso


Private Sub Analisado_AfterUpdate()

If Me.Analisado.Value = 0 Then
Exit Sub
Else
DoCmd.SetWarnings False
strSQL = "INSERT INTO tblEmAndamento ( TpNota, Nota) " & _
" SELECT tblAnalise.TpNota, tblAnalise.Nota " & _
" FROM tblAnalise WHERE tblAnalise.Nota = " & Nota1
DoCmd.RunSQL strSQL
strSQL = "DELETE * FROM tblAnalise WHERE Nota = " & Nota1
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
MsgBox "Movido..."
End If


End Sub

a parte em vermelho foi onde o codigo parou

Olá shirohige,

Tente assim:

Private Sub Analisado_AfterUpdate()
Dim strSQL1 As String
Dim strSQL2 As String

If Not IsNull(Analisado) Then
DoCmd.SetWarnings False
strSQL1 = "INSERT INTO tblEmAndamento ( TpNota, Nota) " & _
" SELECT tblAnalise.TpNota, tblAnalise.Nota " & _
" FROM tblAnalise WHERE tblAnalise.Nota = " & Nota1
DoCmd.RunSQL strSQL1
DoCmd.SetWarnings True
MsgBox "Inserido...",vbInformation,"Análise"

DoCmd.SetWarnings False
strSQL2 = "DELETE * FROM tblAnalise WHERE Nota = " & Nota1
DoCmd.RunSQL strSQL2
DoCmd.SetWarnings True

MsgBox "Movido...",vbInformation,"Análise"
Else
Exit Sub
End If


End Sub

Obriagdo pela resposta mas com esse codigo não consigo, eu achei uma solução dessa maneira.


If Me.Analisado.Value = 0 Then
Exit Sub
Else
DoCmd.SetWarnings False
strSQL = "INSERT INTO tblEmAndamento ( Campo1, TpNota, Nota )" & _
" SELECT tblAnalise.Campo1, tblAnalise.TpNota, tblAnalise.Nota" & _
" FROM tblAnalise WHERE (((tblAnalise.Nota) = [Formulários]![frmAnalise]![Nota1]))"
DoCmd.RunSQL strSQL

strSQL = "DELETE * FROM tblAnalise WHERE (((tblAnalise.Nota) = [Formulários]![frmAnalise]![Nota1]))"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True


MsgBox "Nota Enviada"
End If

DoCmd.GoToRecord , , acNext

só que surgiu outro problema... 1-Eu estou utilizando um formulario dividido e toda vez que executa isso ele envia e deleta, na linha que foi excluida fica aparencendo "excluido" e não consigo passar para o proximo registro através do codigo porque retorna um erro, também tentei atualizar a lista mas volta o erro falando que registro foi excluido, só atualiza apos utilizar o depurar do vb. Estava utilizando Requery

Tente assim:

Private Sub Analisado_AfterUpdate()
Dim strSQL1 As String
Dim strSQL2 As String
Dim strMsg As String
Dim StrTitle As String
Dim intRetVal As Integer


If Not IsNull(Analisado) Then    'Verifica se o campo Analisado está vazio ou nulo
DoCmd.SetWarnings False

'Esta é a sintaxe SQL que você postou. Não houve nenhuma alteração

strSQL1 = "INSERT INTO tblEmAndamento ( TpNota, Nota) " & _
" SELECT tblAnalise.TpNota, tblAnalise.Nota " & _
" FROM tblAnalise WHERE tblAnalise.Nota = " & Nota1
DoCmd.RunSQL strSQL1
DoCmd.SetWarnings True
MsgBox "Inserido...",vbInformation,"Análise"

strTitle = "Em andamento..."
strMsg = "Clique em OK para excluir"
intRetVal = MsgBox(strMsg,vbQuestion+vbOkCancel,strTitle)

Select Case intRetVal
Case Is = vbOK
DoCmd.SetWarnings False
strSQL2 = "DELETE * FROM tblAnalise WHERE Nota = " & Nota1
DoCmd.RunSQL strSQL2
DoCmd.SetWarnings True
MsgBox "Movido...",vbInformation,"Análise"
DoCmd.RunCommand acCmdRefresh
DoCmd.Close acForm, "frmAnalise", acSaveYes
DoCmd.OpenForm "frmAnalise"
Case Is = vbCancel
Exit Sub
End Select
Else
Exit Sub
End If


End Sub

Ficou problema nessa linha DoCmd.RunCommand acCmdRefresh

Quando ele tenta executar aparece "registro excluido" ae tenho que depurar e concluir o codigo pelo F8.

Consegui resolver o problema da seguinte maneira:

no meio do codigo que você me passou eu adicionei "On Error Resume Next", dexei esse codigo como public.

e dexei no botão assim

Dim Resel

Resel = "-1"
Me.Analisado.Value = Resel

Analisado_AfterUpdate


Forms!frmAnaliseA1.Requery


agora ele marca a caixa e depois executa o codigo, apos fazer o codigo ele atualiza a lista e não da erro.

Grato pela ajuda