[Resolvido]INSERT INTO com condição

Olá pessoal
Tenho um codigo em um formulario que acrescenta em outra tabela alguns campos (dados) e que funciona perfeitamente. Acontece que estou precisando que isso só aconteça quando se um campo (S/N) estiver marcado (S).
Este é o código que funciona no momento sem a condição:
Private Sub ValorEntrada_BeforeUpdate(Cancel As Integer)
CurrentDb.Execute "INSERT INTO CADCAIXA(DataPagto,DtVenda,Historico,NParc,tipopagamento,Entrada,NControle,NomeCliente) VALUES (#" & Format(DataEntrada, "mm-dd-yyyy") & "#,#" & Format(DATA_ORC, "mm-dd-yyyy") & "#,'" & Forms!frmControleVendaFin.txthistorico & "','" & Forms!frmControleVendaFin.parcelas & "','" & Forms!frmControleVendaFin.TipoPag & "','" & ValorEntrada & "'," & Forms!frmControleVendaFin!txtNumeroControle & ",'" & Forms!frmControleVendaFin!txtNomeCliente & "');"
If MsgBox("Estes dados serão ADICIONADOS ao caixa - DADOS CORRETOS ?" & vbCr & vbCr & "Data de pagamento: " & DataRecebimento & vbCr & vbCr & "Valor do Recebido: Entrada ou A Vista: " & ValorEntrada, vbYesNo, "Confirmar os dados") = vbYes Then
Else
DoCmd.CancelEvent
End If
End Sub

Aguardo retorno

Grato

boas.....talvez possa ser feito com um IF

algo parecido com isso...


Private Sub ValorEntrada_BeforeUpdate(Cancel As Integer)

if me.campoS/N.value = 0 then
exit sub
elseif me.campoS/N.value = -1 then
CurrentDb.Execute "INSERT INTO CADCAIXA(DataPagto,DtVenda,Historico,NParc,tipopagamento,Entrada,NControle,NomeCliente) VALUES (#" & Format(DataEntrada, "mm-dd-yyyy") & "#,#" & Format(DATA_ORC, "mm-dd-yyyy") & "#,'" & Forms!frmControleVendaFin.txthistorico & "','" & Forms!frmControleVendaFin.parcelas & "','" & Forms!frmControleVendaFin.TipoPag & "','" & ValorEntrada & "'," & Forms!frmControleVendaFin!txtNumeroControle & ",'" & Forms!frmControleVendaFin!txtNomeCliente & "');"
If MsgBox("Estes dados serão ADICIONADOS ao caixa - DADOS CORRETOS ?" & vbCr & vbCr & "Data de pagamento: " & DataRecebimento & vbCr & vbCr & "Valor do Recebido: Entrada ou A Vista: " & ValorEntrada, vbYesNo, "Confirmar os dados") = vbYes Then
Else
DoCmd.CancelEvent

end if

End If
End Sub

esta aparecendo uma mensagem de erro na linha:

If Me.CaixaSN.value=0 then

Erro em tempo de execução '2424'

A Expressão que você inseriur possui um nome de campo, controle ou propriedade que Ótica Visual - Admin não pode localizar

Vanderlei.....veja o nome correto da caixa sim/não

If Me.nome_da_sua_caixa_sim/não.value=0 then

substitua o que esta em vermelho pelo nome da sua caixa sim/não.

Silvio,

O nome do campo, caixa de texto, esta correto. Achei estranho também, já tinha verificado esta questão

Pela mensagem entende-se que o problema é ali, mas....


vanderlei

Bom dia....

Você está colocando esse evento antes de atualizar o campo - Private Sub ValorEntrada_BeforeUpdate(Cancel As Integer) -

Experimente colocar no evento após atualizar o campo.

Silvio,

Não pode ser após atualizar, porque preciso certificar se os dados estão corretos antes de atualizar a outra tabela, mesmo assim testei no evento após atualizar e aconteceu o mesmo erro.

Grato

Silvio,
Confesso que não sei te dizer o que estava ocorrendo, simplesmente mudei o nome do campo e da caixa de texto e rodou, vou testar se esta fazendo correto e te dou retorno.

Grato por enquanto, valew a ajuda

t+

Vanderlei, estando resolvido então é necessário marcar o tópico como resolvido.

Aguardamos sua ação.

resolvido