Ir para conteúdo
Fórum Script Brasil

gjacobis

Membros
  • Total de itens

    53
  • Registro em

  • Última visita

Tudo que gjacobis postou

  1. gjacobis

    Estoque

    Boa tarde amigos, beleza? B) Consegui calcular o valor em estoque por produto, agora preciso calcular o valor em estoque, somando todos os produtos. Como fazer?
  2. Mr, encontrei uma solução bem fácil. B) Recapitulando: tenho as tabelas: TabCompras, TabFretes e TabPag. Criei o form FormCompras com um controle guia onde na primeira guia fica os campos da TabCompras e na segunda guia os campos da TabPag, na terceira guia os campos da TabFretes. Necessidade: ao pagar a compra a TabCompras deveria receber automaticamente o CodPag da TabPag que foi gerado. E ao lançar o frete da compra a TabCompras deveria receber o CodFrete da TabFretes. Erro: descrito nos tópicaos acima. Solução: 1º Não relacionei as tabelas 2º Criei consultas da TabPag e TabFretes com critério nos campos do FormCompras 3º Os FormPagCompras e FormFretesCompras foram baseados nas consultas 4º No controle guia, não vinculei os campos, mas criei um código para o campo CodPag do FormCompras receber o valor do CodPAg do FormPagCompras após atualizar do form. O mesmo fiz pro frete. Espero que isso possa ajudar outros. Obrigado por tudo!!!
  3. B) Mr. dá dando erro também. Fiz o seguinte deixei as tabelas sem relacionamento e no form não vinculei os campos do controle guia, criei o código abaixo para q quando abrir a guia para pagar a conta, se já tiver registro na TabPag, mostra o registro, se não abre a guia só pra entrada de dados, acontece q ao abrir a guia de pagamentos o programa demora abrir a guia porque parece q está executando tal código. Como posso melhorá-lo? Dim rst As DAO.Recordset Set rst = Me.RecordsetClone If IsNull(Forms!TabVendas!CodPag) Then 'se Venda sem CodPag Me.DataEntry = True 'TabPag só aceita novo registro Else 'Procura o registro de pagamento Me.DataEntry = False rst.FindFirst "CodPag =" & Forms!TabVendas!CodPag If rst.NoMatch Then MsgNoRegistro Else Me.Bookmark = rst.Bookmark End If Set rst = Nothing End If
  4. B) Fera, relacionei as tabelas com a TabPag, só que ao tentar adcionar algum registro em qualquer tabela, aparece "Não é possível adicionar ou alterar registros, pois é necessário que eles tenham um registro relacionado na tabela 'TabPag'". Então, eu tirei os relacionamentos e criei um form com um controle guia, onde numa página fica a venda e na outra o SubForm de pagamento, e vinculei os campos, só que ao efetuar algum pagamento aparece "Você tentou atribuir o valor Nulo a uma variável que não é um tipo de dados Variante.". Cara preciso resolver esta coisa o mais rápido possível, o que você sugere para minhas tabelas? Grato.
  5. Olá amigos, beleza? B) Meu BD tem 6 tabelas de entrada e saída de produtos, as separei devido algumas particularidades dos produtos, agora gostaria de ter 1 única tabela para efetuar o pagamento das vendas ou compras das 6 tabelas, tentei criando a TabPagamentos e nas 6 tabelas coloquei o campo CodPag, mas sem sucesso. O que fazer? Valeu amigos.
  6. Everaldo, beleza? B) O seu exemplo é um form normal ou um form tabela? Pode me enviar seu exemplo? Gabriel Jacobis gjacobis@hotmail.com
  7. Bom dia Everaldo. B) Valeu cara, é isso que preciso, mas no meu form não está funcionando por que há combobox e acho que por isso não está deixando duplicar. Será que tem como abrir a Tab do Form no mesmo registro que está mostrando o Form e duplicar o registro na Tab (tudo oculto)? Obrigado!
  8. Aê moçada, beleza? B) Preciso duplicar o registro atual de um form, se possível perguntando quantas vezes duplicar e a data de vencimento mudar pro próximo mês. Valeu.
  9. Humm, beleza? B) Não entendi essa parte final, pode esclarecer como fazer isso? Obrigado.
  10. B) MrMALJ, realmente eu faria assim, mas acontece que esse programa não teria esse módulo bancário, mas o pessoal foi vendo as possibilidades do BD e isso foi solicitado, só pra você ter uma idéia, tudo começou com um simples BD para imprimir NFs. kkk Obrigado B) Humm, valeu fera, deu certinho. Obrigado
  11. Boa tarde amigos, beleza? B) Através da consulta união consegui criar um relatório igual extrato bancário. Preciso de um campo Saldo para cada linha. Como pegar o valor do registro anterior? Obrigado.
  12. Amigos, não preciso mais dividir as Tabelas. Criei uma Consulta União que resolveu tudo. Caso encerrado. Obrigado.
  13. Amigos Bom dia. B) Tenho a TabCompras e a TabVendas já com os campos ValorPG, DataPG, FormaPG e ContaBanco. Consegui criar um Form com o saldo das contas bancárias, agora preciso criar um extrato bancário. Não estou conseguindo devido as informações estarem nas TabCompras e TabVendas. Alguma sugestão? Desde já agradeço.
  14. (Aplausos) Meu caro, MrMALJ. :D Funcionou perfeitamente. Muito obrigado.
  15. Fera MrMALJ. B) Apareceu #Erro Obrigado
  16. Amigos boa tarde. B) O que há de errado nesta linha que está na fonte do controle de uma caixa de texto: =DSoma("[ValorRec]";"TabVendas";"[LocalUnid]=" & 1 E "[ContaBanco]=" & 2) Obrigado
  17. gjacobis

    GOTORECORD

    Aê moçada, resolvi meu problema (Depois de muita busca). Criei uma inputbox onde entro com o valor a pesquisar e valor é captado pelo FindFirst. Private Sub BuscarNF_Click() Dim NF, NFBusca As Integer NF = InputBox("Qual o número da NF que deseja buscar?") NFBusca = NF ' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[NF] = " & Str(Nz(NFBusca, 0)) If rs.EOF = False Then Me.Bookmark = rs.Bookmark Else DoCmd.GoToRecord acActiveDataObject, , acNewRec End If End Sub Agora preciso contar quantos arquivos foram encontrados com o mesmo número de NF.
  18. gjacobis

    GOTORECORD

    Aê moçada, beleza? B) Quero num Form buscar registro digitando número da Nota Fiscal. Coisa simples né? Mas não consegui. Obrigado
  19. Amigos, beleza? B) Tem como mandar gerar relatórios e copiar as informações deles para passar pra txt ou xls para serem reaproveitadas? Obrigado.
  20. Fera MrMALJ. B) Excelente, exatamente como eu queria. Mais uma vez, muito obrigado.
  21. Bom dia moçada. B) Já começo a semana precisando de seus conhecimentos. Preciso saber de qual unidade o programa está rodando. Obrigado
  22. gjacobis

    Do Delphi para Access

    Meu caro Jhonas, beleza? Obrigado por se interessar na minha dúvida. B) Já copiei o BD do sistema que é em Access, só que só uma TB tem registros, então não tenho a menor idéia de como posso pegar essas informações e reeaproveitar para o meu sistema em Access. Se eu puder te enviar o BD que copiei pra dar uma olhada. Obrigado.
  23. Olá moçada. beleza? B) Preciso das informações de um programa em Delphi com BD em Access, para passar para um sistema em Access. Eu copiei o BD do Delphi, mas só uma TB tem informações, as outras estão vazias. Alguém pode me ajudar? Desde já agradeço.
  24. Olá moçada. beleza? B) Preciso das informações de um programa em Delphi com BD em Access, para passar para um sistema em Access. Eu copiei o BD do Delphi, mas só uma TB tem informações, as outras estão vazias. Alguém pode me ajudar? Desde já agradeço.
  25. gjacobis

    Form sempre maximizado

    Pois é Humm. B) Eu quero saber se tem outro jeito de manter os forms maximizados sem ter que usar essa do cronômetro. Será que existe?
×
×
  • Criar Novo...