[Resolvido]Erro na hora de escolher o lancamento (D ou C) Debito ou Credito em ComBox

Baixei esse exemplo de controle de conta corrente e o converti...
ocorre que dá erro na hora de escolher o lancamento (D ou C) Debito ou Credito.. por ser em uma versao anterior do acces precisaria que alguem pudesse verificar isso...

se puderem me ajudar.. agradeço de antemão..

Grato
Harysoohn

http://dl.dropbox.com/u/26441349/ContaCorrente.zip

Não tenho aqui 0 7 amigão. Talvez um outro colega possa ajudar.

Sobre colocar o Exemplo Caixa no SVC portal.. nao estou conseguindo.. poderia colocá-lo? se nAo for incomodo..

Grato

Ok, sem problema.

Harisohn, boa noite.

Amigo, é necessário que você escreva um título que indique a dúvida, veja que você colocou dois títulos:

- Cumprimentos a todos e,
- Valeu amigo

Não são títulos adequados, pois não representam nada em relação a sua dúvida, é simplesmente um cumprimento.

Poderia colocar algo do tipo "Erro ao escolher o lançamento na combobox"

Ajude-nos a melhorar o sistema de busca para que outros colegas com a mesma dúvida possam ter a resposta através de seu tópico mais rapidamente.

Abraço!

Em tempo:
Escreva o título apenas uma vez, nas várias respostas não precisa escrever título, deixe em branco que o primeiro digitado por você, por padrão se repete.

Grato.. vou observar mais nos proximos tópicos..

Boa noite

É necessário faze-lo já conforme o Dilson disse. Eu vou alterar o tópico

Corrigi os títulos..

Obrigado

Não encontro problema algum na escolha do C ou D.

Boa tarde

Alguem coloca este conta corrente em 2003 ?

Obrigado

Versão 2003.

http://dl.dropbox.com/u/771097/ContaCorrente.rar

Obrigado JPaulo

Caro João paulo.. creio que não me expressei devidamente no título:

Se escolhe o tipo de lancamento D ou C e na hora de lançar ele pergunta se confirma o lancamento...
ao clicar em si dá o seguinte erro:

O comando ou ação "Copiar" não está disponivel agora... Talvez voce esteja em um banco de dados so de leitura ou de Banco de dados nao convertido de uma versao anterior.....

Verdadeiro: [Formulários]![Conta Movimentos]![comb1]="C"

Esta dando problema na macro que confirma o lançamento... e de Macro...Puts.. eu não sou fã rsrs

Se puder me ajudar a converte-la em VBA

se puder dar um olhada... agradeço

Saudações

HArysohn

Testei no 2007 e não encontrei problema algum, faz o lançamento bonito.

Macro Convertida:

'------------------------------------------------------------
' ConfirmaLançamento
'
'------------------------------------------------------------
Function ConfirmaLançamento()
On Error GoTo ConfirmaLançamento_Err

DoCmd.Close acForm, "Confirma Lançamento"
DoCmd.SelectObject acForm, "Conta Movimentos", False
DoCmd.GoToControl "comb1"
If (Eval("[Forms]![Conta Movimentos]![histo] Is Null")) Then
Beep
MsgBox "Entre com o Histórico do Lançamento", vbCritical, "Impossível efetuar o Lançamento !"
DoCmd.GoToControl "[Histo]"
Exit Function
End If
If (Eval("[Forms]![Conta Movimentos]![Para] Is Null")) Then
Beep
MsgBox "Entre com a Data do Lançamento", vbCritical, "Impossível efetuar o Lançamento !"
DoCmd.GoToControl "[Histo]"
Exit Function
End If
If (Eval("[Forms]![Conta Movimentos]![vlr] Is Null")) Then
Beep
MsgBox "Entre com o valor do Lançamento", vbCritical, "Impossível efetuar o Lançamento !"
DoCmd.GoToControl "[vlr]"
Exit Function
End If
If (Eval("[Forms]![Conta Movimentos]![comb1] Is Null")) Then
Beep
MsgBox "Entre com o Tipo do Lançamento", vbCritical, "Impossível efetuar o Lançamento !"
DoCmd.GoToControl "[comb1]"
Exit Function
End If
If (Forms![Conta Movimentos]!comb1 = "C") Then
Forms![Conta Movimentos]!Movimentos.Form.AllowEditing = True
DoCmd.GoToControl "Movimentos"
DoCmd.GoToRecord , "", acNewRec
DoCmd.GoToRecord , "", acPrevious
DoCmd.GoToControl "[saldo]"
SendKeys "+{home}", True
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , "", acNewRec
DoCmd.GoToControl "[Saldo Anterior]"
SendKeys "+{home}", True
DoCmd.RunCommand acCmdPaste
Forms![Conta Movimentos]!Movimentos.Form!Data = Forms![Conta Movimentos]!Para
Forms![Conta Movimentos]!Movimentos.Form![Tipo Movimento] = "C"
DoCmd.GoToControl "Histórico"
Forms![Conta Movimentos]!Movimentos.Form!Histórico = Forms![Conta Movimentos]!histo
DoCmd.GoToControl "Lançamento"
Forms![Conta Movimentos]!Movimentos.Form!Lançamento = Forms![Conta Movimentos]!Vlr
DoCmd.GoToControl "Saldo"
Forms![Conta Movimentos]!Movimentos.Form.AllowEditing = False
Forms![Conta Movimentos]!histo = ""
Forms![Conta Movimentos]!Vlr = ""
Forms![Conta Movimentos]!Para = ""
Forms![Conta Movimentos]!comb1 = ""
SendKeys "^{tab}", True
SendKeys "^{tab}", True
SendKeys "{NUMLOCK}", True
SendKeys "{NUMLOCK}", True
End If
If (Forms![Conta Movimentos]!comb1 = "D") Then
Forms![Conta Movimentos]!Movimentos.Form.AllowEditing = True
DoCmd.GoToControl "Movimentos"
DoCmd.GoToRecord , "", acNewRec
DoCmd.GoToRecord , "", acPrevious
DoCmd.GoToControl "[saldo]"
SendKeys "+{home}", True
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , "", acNewRec
DoCmd.GoToControl "[Saldo Anterior]"
SendKeys "+{home}", True
DoCmd.RunCommand acCmdPaste
Forms![Conta Movimentos]!Movimentos.Form!Data = Forms![Conta Movimentos]!Para
Forms![Conta Movimentos]!Movimentos.Form![Tipo Movimento] = "D"
DoCmd.GoToControl "Histórico"
Forms![Conta Movimentos]!Movimentos.Form!Histórico = Forms![Conta Movimentos]!histo
DoCmd.GoToControl "Lançamento"
Forms![Conta Movimentos]!Movimentos.Form!Lançamento = Forms![Conta Movimentos]!Vlr
DoCmd.GoToControl "Saldo"
Forms![Conta Movimentos]!histo = ""
Forms![Conta Movimentos]!Vlr = ""
Forms![Conta Movimentos]!Para = ""
Forms![Conta Movimentos]!comb1 = ""
Forms![Conta Movimentos]!Movimentos.Form.AllowEditing = False
SendKeys "^{tab}", False
SendKeys "^{tab}", False
SendKeys "{NUMLOCK}", True
SendKeys "{NUMLOCK}", True
End If


ConfirmaLançamento_Exit:
Exit Function

ConfirmaLançamento_Err:
MsgBox Error$
Resume ConfirmaLançamento_Exit

End Function

pois é será poque aqui dá esse erro?

diz que o comando copiar nao esta disponivel

dá erro na linha

Verdadeiro: [Formulários]![Conta Movimentos]![comb1]="C"

Converti a macro em VB e usei com o codigop e deu p mesmo erro

Ja revi todo a aplicativo... esta tudo certo
mas aqui continua dizendo que o comando ou acao copiar nao esta disponivel...

Sera algo nas propriedades..
la em permitir edicoes/exclusoes etc?

Não faço ideia;

Posso colocar aqui o exemplo que testei.

Me envia então amigo

Grato Harysohn

Fiz um lançamento agora mesmo e não deu erro.

Access 2007
http://dl.dropbox.com/u/771097/ContaCorrente2007.rar

Access 2003
http://dl.dropbox.com/u/771097/ContaCorrente.rar

Baixei e continua dizendo que o comando ou acao copiar nao esta disponivel...
é...ta feio pra mim rsrsrs

realmente não sei o que esta acontecendo....

Vou refazer ao aplicativo, usando uma LstBox no lugar do Sub Formulario e consultas acrescimo..

Depois posto aqui..

Grato João Paulo

O erro que acontece aqui acontece quando se copia a coluna saldo e a cola na coluna Saldo Anterior no proxima linha..

Harysohn