[Resolvido]Inserir apenas registos selecionados num formulário continuo numa tabela temporária

Boas,

Tenho uma tabela onde lanço os dados referentes a recebimento de cheques de clientes com os campos: ID, codcliente, nome, banco, ncheque, valor, depositado, datadeposito

O campo depositado é um campo sim/não que utilizo para saber se o cheque já foi depositado ou não. Ou seja criei uma consulta que me filtra os que ainda não foram depositados e depois são apresentados num formulário continuo.

O que pretendo e não sei como fazer, é no formulário continuo através de um botão de comando inserir numa tabela temporária "CHdepositoTMP" apenas os cheques em que coloco o visto no campo depositado.

Como consigo fazer isso?

Obrigado.

Boa tarde, euros

Currentdb.execute "SELECT * INTO CHdepositoTMP FROM TabelaOndeLancaOsCheques WHERE Depositado;"

Ainda não consegui chegar lá, mas já consegui por o seguinte código:
Tenho 3 registos inseridos e ao rodar o código ele insere 3 vezes o mesmo registo.
Onde está o erro?

Dim rs As DAO.Recordset
Dim strSQL As String
Dim strBookmark As String

Set rs = Me.RecordsetClone
rs.MoveFirst

Do While Not rs.EOF
If Me.Depositado = -1 Then
strBookmark = rs.Bookmark
strSQL = "INSERT INTO CHdepositosTMP (codcliente, Nome, chounum, banco, ncheque,valor, depositado, datadep )VALUES (codcliente, Nome, cn, banco, ncheque,valor, depositado, datadep);"

DoCmd.RunSQL strSQL

End If

rs.MoveNext
Loop

rs.Close

Alexandre Neves Hoje à(s) 4:15 pm
Boa tarde, euros

Currentdb.execute "SELECT * INTO CHdepositoTMP FROM TabelaOndeLancaOsCheques WHERE Depositado;"


Com o código acima ele vai enviar todos os registos (cheques) onde ainda não tem o visto no campo "depositado". Eu pretendo que apenas insira os que escolher no formulário.

O código registará os que têm o visto no campo depositado.
Não percebi que só queria os contidos no form que estivessem marcados
Para tal, utilize
Dim rs As DAO.Recordset

Set rs = Me.RecordsetClone
Do While Not rs.EOF
If rs("Depositado") Then
Currentdb.execute "INSERT INTO CHdepositosTMP (codcliente, Nome, chounum, banco, ncheque,valor, depositado, datadep) VALUES (" & rs("codcliente") & ",'" & rs("Nome") & "'," & rs("cn") & "," & rs("banco") & "," & rs("ncheque") & "," & rs("valor") & "," & rs("depositado") & ",#" & rs("datadep") & "#);"
End If
rs.MoveNext
Loop
rs.Close
rs=nothing

Confira a formatação da DataDep

Boa tarde Alexandre,

Dá erro em: rs = Nothing

Compile: error
Invalid use of property

set rs=nothing

Não dá nenhum erro mas também não insere nenhum registo.

Retirando o if:
Dim rs As DAO.Recordset

Set rs = Me.RecordsetClone
Do While Not rs.EOF
'If rs("Depositado") Then
CurrentDb.Execute "INSERT INTO CHdepositosTMP (codcliente, Nome, chounum, banco, ncheque,valor, depositado, datadep) VALUES (" & rs("codcliente") & ",'" & rs("Nome") & "'," & rs("cn") & "," & rs("banco") & "," & rs("ncheque") & "," & rs("valor") & "," & rs("depositado") & ",#" & rs("datadep") & "#);"

'End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing


Dá o seguinte erro:
Run-time error '3075'
Erro de sintaxe (operador em falta) na expressão de consulta 'Caixa Nova'

Dim rs As DAO.Recordset

Set rs = Me.RecordsetClone
Do While Not rs.EOF
msgbox rs("Depositado")'veja o resultado. Só valor True ou Sim é válido para a execução do código dentro do If
If rs("Depositado") Then'páre o código aqui > linha seleccionada, prima F9. Para continuar, instrução a instrução, prima F8
CurrentDb.Execute "INSERT INTO CHdepositosTMP (codcliente, Nome, chounum, banco, ncheque,valor, depositado, datadep) VALUES (" & rs("codcliente") & ",'" & rs("Nome") & "'," & rs("cn") & "," & rs("banco") & "," & rs("ncheque") & "," & rs("valor") & "," & rs("depositado") & ",#" & rs("datadep") & "#);"
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

1º Deve já existir a tabela CHdepositosTMP, caso contrário, o código tem de ser reformulado
2º Campos da tabela carregada pelo formulário > campos da tabela CHdepositosTMP
codcliente > codcliente : número
Nome > Nome : texto
cn > chounum : número
banco > banco : número
ncheque > ncheque : número
valor > valor : número
depositado > depositado : número (pode ser sim/não)
datadep > datadep : data

1º Deve já existir a tabela CHdepositosTMP, caso contrário, o código tem de ser reformulado --> Sim a tabela já existe
2º Campos da tabela carregada pelo formulário > campos da tabela CHdepositosTMP
codcliente > codcliente : número
Nome > Nome : texto
cn > chounum : número --> texto
banco > banco : número --> texto
ncheque > ncheque : número
valor > valor : número --> Euro (moeda)
depositado > depositado : número (pode ser sim/não) --> sim/não
datadep > datadep : data

No if não está a detectar o campo depositado como estando selecionado. Tirando o if dá erro: erro de sintaxe na data na expressão de consulta '##'.
Nos restantes campos que são texto em vez de número coloquei as aspas simples.

Envio exemplo em anexo.

O resultado msgbox rs("Depositado") o que dá?

O anexo

http://www.4shared.com/folder/ZS8jiLkl/_online.html

Coloque num sítio livre de registo, dropbox por exemplo

Aqui vai:

https://www.dropbox.com/s/x2a09gvmsq386n7/cheques.zip

Testei e funcionou
Veja se funciona bem

Código:

Private Sub Comando29_Click()
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone
    Do While Not rs.EOF
        If rs("Depositado") Then
            CurrentDb.Execute "INSERT INTO CHdepositosTMP (codcliente, Nome, chounum, banco, ncheque,valor, depositado, datadep) VALUES (" & rs("codcliente") & ",'" & rs("Nome") & "','" & rs("cn") & "','" & rs("banco") & "'," & rs("ncheque") & "," & rs("valor") & "," & rs("depositado") & ",#" & rs("datadep") & "#);"
        End If
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
End Sub

Private Sub Depositado_AfterUpdate()
    Select Case Depositado
    Case -1
        Datadep = Date
        DoCmd.GoToRecord acActiveDataObject, , acNext
    Case 0
        Datadep = ""
    End Select
End Sub


Nomeie os controlos de forma normalizada

Funciona em parte, pois se eu selecionar o 1º e o 3º registo, apenas passa o 1º.

O 3º apesar de estar selecionado na msgbox dá como false.

Tenta
Private Sub Comando29_Click()
Dim rs As DAO.Recordset
Me.Recalc
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
If rs("Depositado") Then
CurrentDb.Execute "INSERT INTO CHdepositosTMP (codcliente, Nome, chounum, banco, ncheque,valor, depositado, datadep) VALUES (" & rs("codcliente") & ",'" & rs("Nome") & "','" & rs("cn") & "','" & rs("banco") & "'," & rs("ncheque") & "," & rs("valor") & "," & rs("depositado") & ",#" & rs("datadep") & "#);"
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub

Certissimo.

Muito Obrigado.