Ir para conteúdo
Fórum Script Brasil

Marcio silveira

Membros
  • Total de itens

    6
  • Registro em

  • Última visita

Sobre Marcio silveira

Marcio silveira's Achievements

0

Reputação

  1. ola pessoal Abro o arquivo num campo tipo objeto ole ele abre ok , mas qua fecho ele mostra uma mensagem a operação sobre o objeto Acrobat Document falhou. Talvez o servidor OLE não esteja registrado. para registra-lo , reinstale-o. já registrei o servidor ole muito obrigado
  2. ola brunocasado seu o banco for em rede , voce poderia colocar um bat para executar a copia pela agendas de tarefas do windows. o bat ficaria assim exemplo @echo off cd\sistema copy *.mdb c:\backup echo " copia concluida com sucesso!!!! " exit valeu ate aproxima.
  3. boa noite eu acho melhor voce colocar um campo sim/não tanto nas contas aparga como na contas a receber. assim voce pode criar as consultas das recebidas e apagar . exemplo: as contas pagas voce marca o campo sim/não as contas a receber voce não marca assim o campo fica como 0 o falso assim voce pode filtar melhor ok muito obrigado pela sua atenção..
  4. Marcio silveira

    Estoque

    ola HUmm muito obrigado pela sua atenção no meu caso eu tenho mesmo que usar vba mais uma vez muito obrigado pela sua atenção para com a minha pessoa.. uma pergunta voce tem um exemplo de estoque que usa consultas muito interessante... valeu...
  5. Marcio silveira

    Estoque

    ola pessoal eu sei que sou novo nesse forum mas estou com uma dificuldade de resolver o meu problema segue codigo Private Sub cmd_comfirma_Click() If MsgBox("Você confirma esta venda?", vbQuestion + vbYesNo, "Venda Concluida com sucesso!!!") = vbYes Then Confirmado.Value = True '''''''''Atualização - baixa no estoque dos produtos vendidos'''''''''''''''''''''''' DoCmd.RunCommand acCmdSaveRecord Dim wk As DAO.Workspace Dim db As DAO.Database Dim rstEstoque As DAO.Recordset Dim rstSubFrm As DAO.Recordset Set wk = DBEngine.Workspaces(0) Set db = CurrentDb Set rstEstoque = db.OpenRecordset("Produto") Set rstSubFrm = Me.ItemVenda.Form.RecordsetClone 'Informa qual indice será utilzado pelo metodo seek no recordset de Estoque rstEstoque.Index = "PrimaryKey" 'Posiciona o ponteiro do recordset do subfrm no primeiro registro rstSubFrm.MoveFirst 'Inicia um loop no recordset do subfrm Do While Not rstSubFrm.EOF 'Inicia a busca no recordset estoque usando como argumento de busca o conteudo do campo CodPeca do subfrm rstEstoque.Seek "=", rstSubFrm!CodProduto 'Se idêntico If rstEstoque.NoMatch = False Then rstEstoque.Edit 'Coloca o recordset em modo de edicao rstEstoque("Estoque") = rstEstoque("Estoque") - rstSubFrm("Quantia") rstEstoque.Update 'Grava a alteracao efetuada! End If 'avanca para o proximo registro do subfrm rstSubFrm.MoveNext Loop 'Encerra as variaveis rstSubFrm.Close rstEstoque.Close db.Close wk.Close 'Informa que foi dada baixa no estoque e imprime cupom de venda MsgBox "Baixa do estoque. " _ , vbInformation, "Realizada Com Sucesso!!!" Else End If End Sub meu problema esta onde esta de negrito , quando vendo e primeira vez beleza da baixa normal mas qaundo vendo a segunda clicando no botao nova venda não da baixa e da erro 3420 objeto não e valido ou não esta definido. se alguém tiver disposto e me ajudar e vou agredecer muito. muito obrigado a todos..
  6. ola jordani eu sou novo aqui no forum ai vai o comando en vba If (Not IsNull(DLookup("[Nome]", "cliente", _ "[Nome] ='" & Me!Nome & "'"))) Then MsgBox "Funcionario já está cadastrado na tabela funcionario.", _ vbInformation, "Atenção" Cancel = True 'cancela o evento. Me!Nome.Undo 'desfaz a digitação. End If coloque antes de atualizar do campo exemplo Nome valeu... ate aproxima :)
×
×
  • Criar Novo...