[Resolvido]Problemas com Dcount - Copiar dados de um Form para outro Form

Olá Galera!

Bem tentei, tentei e tentei, li todos os tópicos aqui com Dcount para verificar se eu conseguiria resolver só que nada.

segue o banco de dados de exemplo

E simples a historia preciso copiar dados de um form para outro, só que tem uma condição
não pode copiar se já tiver o mesmo numero de orçamento, quando eu clico no "Efetuar Venda"

-----------------------------------------------------------------------------
Private Sub Comando5_Click()
DoCmd.OpenForm "venda", acNormal
If DCount("Form_Venda.Num_Orcamento", "Venda", "Form_Venda.Num_Orcamento='" & Form_Venda.Num_Orcamento & "'") >= 1 Then
MsgBox "Atenção! Numero de Orçamento já está Cadastrado!", vbInformation, "Informação"
Cancel = True
Exit Sub
Else
DoCmd.GoToRecord , , acNewRec
Form_Venda.Cliente = Me.Cliente
Form_Venda.Num_Orcamento = Me.Id

DoCmd.OpenForm "orcamento", acNormal
DoCmd.Close
End If
End Sub
-------------------------------------------------------------------------------------------------------------------------

Já tive que criar um comando parecido, tive bastante ajuda no forum.

Segue os links vê se podes adaptar:

http://maximoaccess.forumeiros.com/t17982-resolvidoajuda-com-conexao-a-bd-access-usando-vba#133567

http://maximoaccess.forumeiros.com/t16974-resolvidorun-time-error-3420

http://maximoaccess.forumeiros.com/t19963-atualizar-caixa-de-combinacao

Eder

Experimente assim:
Acreditando que Num_Contrato seja string, se  for número, retire as aspas simples  do código abaixo.

Código:


If DCount("[Num_Orcamento]", "Venda", "Num_Orcamento='" &  Forms!Form_Venda.Num_Orcamento & "'") > 0 Then
   MsgBox "Atenção! Numero de Orçamento já está Cadastrado!", vbInformation, "Informação"
   'Cancel = True desncessário, usa-se cancel se a propriedade tiver (cancel as ..) nos parenteses.
   Exit Sub
Else
   DoCmd.OpenForm "venda",,,acFormAdd
  
   Forms!Form_Venda!Cliente = Me.Cliente
   Forms!Form_Venda!Num_Orcamento = Me.Id

   DoCmd.OpenForm "orcamento", acNormal
   DoCmd.Close Me.Name
End If



Abraços

Noob

Olá Eder Santana.

Verifiquei o seu bd e fiz uma pequena correção no código.
Vê se te ajuda, ok.

Segue o mesmo corrigido.

Até mais.

RDuarte

Olá Pessoal!

o que eu noobezinho passou não funcionou no primeiro momento.
Deu o seguinte erro

"erro em tempo de execução '2450'

o microsoft office access não pode localizar o formulario 'Form_Venda' referido em uma expressão de macro ou no codigo do Visual Basic"

só que eu estava vinculando o campo numero com campo texto

por isso deu errado.quando eu troquei funcionou

----------------------------------------------------------------------------------------
Toyebom - eu já tinha lido esses topicos e não consegui resolver por eles

------------------------------------------------------------------------------------------

o exemplo do Rduarte tambem estava dando errado quando eu arrumei o campo funcionou tambem
------------------------------------------------------------------------------------------

Obrigado a todos pela ajuda

consegui colocar pra funcionar.   

Eder

Bem que estava desconfiado, por isso o alertei sobre as aspas simples no código.

Valeu pelo Retorno


Boa sorte

Noob