Jogar Valor De Inputbox Dentro Dum Insert Into

[Macêdo]

Vejam este codigo:

Private Sub Cmd_arquivar_Click()

Dim vA As Integer
vA = MsgBox("Desejar informar o número da caixa em que será arquivado este projeto ?", vbYesNo + vbQuestion, "Arquivar projeto")
If vA = vbYes Then

If TextCOD_PROJETOS = "" Then
Dim vINF As Integer
vINF = MsgBox("Não foi informado nenhum Projeto para arquivamento, verifique.", vbOKOnly + vbCritical, "Arquivar projeto")
    
    Else
    
    Dim cnncomando As New ADODB.Command
    Dim rs_arquivo As New ADODB.Recordset
    With cnncomando
    .ActiveConnection = cnnProjetos
    .CommandType = adCmdText
    .CommandText = " select * from arquivo "
    Set rs_arquivo = .Execute
    End With
        With rs_arquivo
        rs_arquivo.Filter = " cod = " & TextCOD_PROJETOS.Text
        If Not (.BOF And .EOF) Then
            
        Dim vJA_EXISTE_NO_ARQUIVO As Integer
        vJA_EXISTE_NO_ARQUIVO = MsgBox("Este projeto já consta na Base de Dados do Arquivo", vbOKOnly + vbCritical, "Arquivar projeto")
        
        Else
        
        With cnncomando
        .ActiveConnection = cnnProjetos
        .CommandType = adCmdText
        .CommandText = " insert into arquivo " & _
        "(cod, cpf, nome)select cod, cpf, nome from projetos where cod = " & TextCOD_PROJETOS.Text & " "
    .Execute
    
    End With
    End If
Set cnncomando = Nothing
Set rs_arquivo = Nothing

        

End With
End If
End If
End Sub

Vejam onde informo para gravar na tabela ARQUIVO os dados da tabela PROJETOS, porém, além destes campos gostaria de por dentro do: INSERT INTO, o outro campo da tabela ARQUIVO, que é o campo CAIXA mas, o valor informado para este campo teria que ser informado pelo usuario por uma inputbox, que viria logo após o ELSE, o problema é quando colocar o campo CAIXA dentro de:

.CommandText = " insert into arquivo " & _

"(cod, cpf, nome, CAIXA)select cod, cpf, nome from projetos where cod = " & TextCOD_PROJETOS.Text & " "

.Execute

onde colocarei a variavel valor da inputbox?

Editado Agosto 23, 2007 por kuroi
tag CODE

[kuroi]

acho q assim funciona, não??

.CommandText = " insert into arquivo " & _
"(cod, cpf, nome, CAIXA) select cod, cpf, nome, '" & variavel & "' from projetos where cod = " & TextCOD_PROJETOS.Text & " "
.Execute[/code]

[Macêdo]

Deu erro Kuroi, agradeço pela atenção, acabei colocando um UPDATE logo após o INSERT que acabou funcionando como se fosse um prolongamento do INSERT, inseri os valores dos campos COD, CPF, NOME com o insert e abaixo coloquei um UPDATE para o campo CAIXA onde o COD fosse o mesmo.

Valeu!