Ir para conteúdo
Fórum Script Brasil

gjacobis

Membros
  • Total de itens

    53
  • Registro em

  • Última visita

Posts postados por gjacobis

  1. 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!!!

  2. Veja bem, pra isso funcionar você terá que relacionar sem impor integridade referencial...

    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

  3. 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.

  4. 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.

  5. 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!

  6. Instale o Hamachi no servidor e nos clientes que acessarem pela internet.

    Então você cria pela maquina Server que contem o banco de dados, uma rede dentro do hamachi com senha. Isso servirá de Tunneling seguro entre seus clientes e o server.

    Sendo assim, o hamachi designará um IP para o servidor e cada maquina com hamachi instalado.

    Ai, você cria um frontend que vincule as tabelas pelo IP do hamachi do servidor, exemplo:

    \\45.6.76.45\C\Programa\base_be.mdb

    assim como voce fez pra importar as tabelas nos seus frontend, porem atravez do IP do hamachi dessa vez.

    abraços

    Humm, beleza? B)

    Não entendi essa parte final, pode esclarecer como fazer isso?

    Obrigado.

  7. Cara quando faça caixa e controles bancarios faça tudo numa tabela só pra evitar isso q você tah passando... pois tipo você teria que gerar uma consulta pra totalizar as entradas e saidas anteriores ao registro atual e efetuar o calcula pra isso, e em tabelas diferentes você vai ter q criar 2 processos um pra cada total...

    bom a ideia é essa ok?!

    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

    os relatorios tem recursos de função para campos como soma parcial e soma total para campos calculados.

    se não me engano isso aparece nas propriedades de cada campo.

    selecionando o campo como soma parcial, indica q será um campo totalizador acumulador.. mostra o total acumulado a cada registro.

    o de soma total mostra o total de todos os registros.

    abraços

    B) Humm, valeu fera, deu certinho.

    Obrigado

  8. 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.

  9. 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.

  10. 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.

  11. 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.

  12. 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.

×
×
  • Criar Novo...