Marcio silveira
Membros-
Total de itens
6 -
Registro em
-
Última visita
Sobre Marcio silveira
Marcio silveira's Achievements
0
Reputação
-
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
-
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.
-
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..
-
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...
-
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..
-
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 :)