Estou precisando criar um banco onde coloco fornecedores e materiais, e consigo ver qual fornecedor trabalha com cada material, onde um fornecedor pode ter n materiais e vice e versa, usei o access a muitos anos e fiquei sem mexer, então estou um pouco perdido. Preciso criar um cadastro de fornecedores, um cadastro de materiais, onde ja consigo colocar os fornecedores do msm, e depois criar uma cosulta de quem fornece tal material.
3 participantes
[Resolvido]Ajuda com uma noção de Access para cirar uma pequena aplicação.
pvmtb- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 30
Registrado : 30/09/2015
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2680
Registrado : 23/01/2018
O código da tbmaterialfornecedores de que está na tabela do material.
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
pvmtb- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 30
Registrado : 30/09/2015
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2680
Registrado : 23/01/2018
Espere um dos colegas entrarem, pois só a noite poderei te ajudar.
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
pvmtb- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 30
Registrado : 30/09/2015
Eu aguardo, não tem problemas!
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3218
Registrado : 13/12/2016
Olá Paulo,
Desenvolvi um pequeno exemplo para te ajudar, e tá bem "basicão"...rsss
Ficou assim:
- Relação das tabelas:
- Cadastro de Fornecedores:
- Cadastro de Materiais
- Cadastro de Materiais/Lista de pesquisa
Ao clicar no material, o sistema seta o foco para a guia "Cadastro", com os dados do material selecionado e seus respectivos fornecedores.
- Associar Material com Fornecedor:
Após selecionar o material e o fornecedor, Ao clicar em "Incluir" o sistema já grava na tabela "TB_MAT_FORNEC".
Para excluir a associação do fornecedor com o material, selecione o fornecedor na lista e clique em "Remover".
- Relação de Materiais
Relação de materiais e seus respectivos fornecedores. Neste relatório também constam os materiais que não possuem associação com fornecedores.
Segue versão.
Espero ter ajudado
Boa sorte
[]'s
FIM
Desenvolvi um pequeno exemplo para te ajudar, e tá bem "basicão"...rsss
Ficou assim:
- Relação das tabelas:
- Cadastro de Fornecedores:
- Cadastro de Materiais
- Cadastro de Materiais/Lista de pesquisa
Ao clicar no material, o sistema seta o foco para a guia "Cadastro", com os dados do material selecionado e seus respectivos fornecedores.
- Associar Material com Fornecedor:
Após selecionar o material e o fornecedor, Ao clicar em "Incluir" o sistema já grava na tabela "TB_MAT_FORNEC".
Para excluir a associação do fornecedor com o material, selecione o fornecedor na lista e clique em "Remover".
- Relação de Materiais
Relação de materiais e seus respectivos fornecedores. Neste relatório também constam os materiais que não possuem associação com fornecedores.
Segue versão.
Espero ter ajudado
Boa sorte
[]'s
FIM
- Anexos
- MatFornec.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (46 Kb) Baixado 24 vez(es)
.................................................................................
Marcar tópico como Resolvido: clique aqui
Postar anexos no fórum: clique aqui
Sistemas e Tecnologia Ltda
pvmtb- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 30
Registrado : 30/09/2015
Muito obrigado, vou estudar aqui! Por favor me manda seu pix vou te mandar um agrado!
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3218
Registrado : 13/12/2016
Olá Paulo,
Não há necessidade de PIX...rssss
Este é um fórum onde todos participam gratuitamente.
Sucesso!!
Não há necessidade de PIX...rssss
Este é um fórum onde todos participam gratuitamente.
Sucesso!!
.................................................................................
Marcar tópico como Resolvido: clique aqui
Postar anexos no fórum: clique aqui
Sistemas e Tecnologia Ltda
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2680
Registrado : 23/01/2018
Sucesso
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
pvmtb- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 30
Registrado : 30/09/2015
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3218
Registrado : 13/12/2016
Paulo bom dia,
No botão Salvar, no evento "Ao Clicar" vc usou que tipo de comando?
Macro Inserida ou Procedimento de Evento?
No botão Salvar, no evento "Ao Clicar" vc usou que tipo de comando?
Macro Inserida ou Procedimento de Evento?
.................................................................................
Marcar tópico como Resolvido: clique aqui
Postar anexos no fórum: clique aqui
Sistemas e Tecnologia Ltda
pvmtb- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 30
Registrado : 30/09/2015
Esta macro inserida
Eu poderia usar uma vba tipo essa que estava usando no excel?
Private Sub btn_salvar_fornecedores_Click()
Sheets("fornecedores").Activate
For X = 2 To 10000
If Cells(X, 1) = "" Then
Y = X
Exit For
End If
Next
txt_telefone_fornecedores.Text = Format(txt_telefone_fornecedores, "(##)####-####")
Cells(Y, 1) = txt_codigo_fornecedores.Text
Cells(Y, 2) = txt_empresa_fornecedores.Text
Cells(Y, 3) = txt_contato_fornecedores.Text
Cells(Y, 4) = txt_telefone_fornecedores.Text
Cells(Y, 5) = txt_email_fornecedores.Text
Cells(Y, 6) = txt_cidade_fornecedores.Text
Cells(Y, 7) = txt_estado_fornecedores.Text
txt_empresa_fornecedores.SetFocus
Call Limpar_Fornecedores
End Sub
Eu poderia usar uma vba tipo essa que estava usando no excel?
Private Sub btn_salvar_fornecedores_Click()
Sheets("fornecedores").Activate
For X = 2 To 10000
If Cells(X, 1) = "" Then
Y = X
Exit For
End If
Next
txt_telefone_fornecedores.Text = Format(txt_telefone_fornecedores, "(##)####-####")
Cells(Y, 1) = txt_codigo_fornecedores.Text
Cells(Y, 2) = txt_empresa_fornecedores.Text
Cells(Y, 3) = txt_contato_fornecedores.Text
Cells(Y, 4) = txt_telefone_fornecedores.Text
Cells(Y, 5) = txt_email_fornecedores.Text
Cells(Y, 6) = txt_cidade_fornecedores.Text
Cells(Y, 7) = txt_estado_fornecedores.Text
txt_empresa_fornecedores.SetFocus
Call Limpar_Fornecedores
End Sub
Última edição por pvmtb em 4/3/2022, 13:09, editado 1 vez(es)
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3218
Registrado : 13/12/2016
Ok.
Na Macro, inclua o comando abaixo:
Particularmente, não utilizo Macros para operações de registros mas, se possível, procure se familiarizar com comandos via código VBA.
As macros são bem intuitivas e con interface gráfica para facilitar, mas no código você terá mais autonomia sobre o sistema, e também facilita a manutenção.
É isso!
[]'s
FIM
Na Macro, inclua o comando abaixo:
Particularmente, não utilizo Macros para operações de registros mas, se possível, procure se familiarizar com comandos via código VBA.
As macros são bem intuitivas e con interface gráfica para facilitar, mas no código você terá mais autonomia sobre o sistema, e também facilita a manutenção.
É isso!
[]'s
FIM
.................................................................................
Marcar tópico como Resolvido: clique aqui
Postar anexos no fórum: clique aqui
Sistemas e Tecnologia Ltda
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3218
Registrado : 13/12/2016
Se você tem familiaridade com código VBA, melhor ainda.
Como mencionei anteriormente, o sistema tava "basicão", e não coloquei as devidas validações/obrigatoriedade de preenchimento dos campos nos cadastros e etc, pois era apenas para vc começar a se familiarizar com sistemas.
Compartilhe uma cópia do seu bd para eu verificar como está o cadastro, e qualquer coisa, eu uso como exemplo o cadastro de Fornecedores, e a partir dele vc usa a mesma rotina para outros cadastros.
NOTA: Finalize este tópico clicando em Resolvido e abra outro tópico com a sua dúvida, para que não fique a resolução de mais de 1 problema no mesmo tópico.
Obrigado.
[]'s
FIM
Como mencionei anteriormente, o sistema tava "basicão", e não coloquei as devidas validações/obrigatoriedade de preenchimento dos campos nos cadastros e etc, pois era apenas para vc começar a se familiarizar com sistemas.
Compartilhe uma cópia do seu bd para eu verificar como está o cadastro, e qualquer coisa, eu uso como exemplo o cadastro de Fornecedores, e a partir dele vc usa a mesma rotina para outros cadastros.
NOTA: Finalize este tópico clicando em Resolvido e abra outro tópico com a sua dúvida, para que não fique a resolução de mais de 1 problema no mesmo tópico.
Obrigado.
[]'s
FIM
.................................................................................
Marcar tópico como Resolvido: clique aqui
Postar anexos no fórum: clique aqui
Sistemas e Tecnologia Ltda
pvmtb gosta desta mensagem
pvmtb- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 30
Registrado : 30/09/2015
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3218
Registrado : 13/12/2016
Olá Paulo,
Neste caso, vc vai ter que mudar de listbox para subformulário do tipo Folha de Dados, conforme abaixo:
Para isso, no modo Estrutura do formulário, no repositório de controles, selecione "Subformulário/Sub-relatório", conform abaixo:
Em seguida, é só seguir os passos do Assistente..é bem intuitivo..e fácil
Para resolução de tópicos veja o link abaixo:
https://www.maximoaccess.com/t860-resolucao-de-topicos
É isso
Boa sorte
[]'s
FIM
Neste caso, vc vai ter que mudar de listbox para subformulário do tipo Folha de Dados, conforme abaixo:
Para isso, no modo Estrutura do formulário, no repositório de controles, selecione "Subformulário/Sub-relatório", conform abaixo:
Em seguida, é só seguir os passos do Assistente..é bem intuitivo..e fácil
Para resolução de tópicos veja o link abaixo:
https://www.maximoaccess.com/t860-resolucao-de-topicos
É isso
Boa sorte
[]'s
FIM
.................................................................................
Marcar tópico como Resolvido: clique aqui
Postar anexos no fórum: clique aqui
Sistemas e Tecnologia Ltda
pvmtb gosta desta mensagem
pvmtb- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 30
Registrado : 30/09/2015
pvmtb- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 30
Registrado : 30/09/2015
Segue meu projeto
- Anexos
- Teste.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (339 Kb) Baixado 9 vez(es)
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3218
Registrado : 13/12/2016
Paulo, boa noite
Fiz alguns ajustes nos formulários de Fornecedores e Material X Fornecedores, em suas funcionalidades e seu alyout também (formulários estavam grandes demais..rss)
- Fornecedores:
Nota 1 : nos botões de comando é possivel colocar uma legenda, não é necessário colocar um rótulo abaixo do botão.
Nota 2: Ao clicar no grid, carrega os dados nos campos. Neste caso não é necessário usar botoes de navegação. Quando sua base tiver mais de 50 fornecedores, a navegação é inviável.
Nota 3: Renomeei os subformulários para ficar mais legíveis de acordo com seus formulários principal. Fica mais fácil a procura e manutenção.
- Material X Fornecedores
OBS 1: Criei um módulo para declaração de variáveis globais. Abra o código e veja os comentários que fiz.
OBS 2: A versão em anexo estão com tabelas vinculadas no diretório onde baixei o arquivo na minha máquima. É necessário refazer os links com o diretório da sua máquina, senão vai dar erro.
É isso
Segue versão
Divirta-se e boa sorte
Abs
FIM
Fiz alguns ajustes nos formulários de Fornecedores e Material X Fornecedores, em suas funcionalidades e seu alyout também (formulários estavam grandes demais..rss)
- Fornecedores:
Nota 1 : nos botões de comando é possivel colocar uma legenda, não é necessário colocar um rótulo abaixo do botão.
Nota 2: Ao clicar no grid, carrega os dados nos campos. Neste caso não é necessário usar botoes de navegação. Quando sua base tiver mais de 50 fornecedores, a navegação é inviável.
Nota 3: Renomeei os subformulários para ficar mais legíveis de acordo com seus formulários principal. Fica mais fácil a procura e manutenção.
- Material X Fornecedores
OBS 1: Criei um módulo para declaração de variáveis globais. Abra o código e veja os comentários que fiz.
OBS 2: A versão em anexo estão com tabelas vinculadas no diretório onde baixei o arquivo na minha máquima. É necessário refazer os links com o diretório da sua máquina, senão vai dar erro.
É isso
Segue versão
Divirta-se e boa sorte
Abs
FIM
- Anexos
- Sistema Fornecedores_ajuste.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (156 Kb) Baixado 31 vez(es)
.................................................................................
Marcar tópico como Resolvido: clique aqui
Postar anexos no fórum: clique aqui
Sistemas e Tecnologia Ltda
pvmtb- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 30
Registrado : 30/09/2015
Nossa cara muito obrigado!
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3218
Registrado : 13/12/2016
Valeu Paulo....
O fórum agradece.
Sucesso!!!
O fórum agradece.
Sucesso!!!
.................................................................................
Marcar tópico como Resolvido: clique aqui
Postar anexos no fórum: clique aqui
Sistemas e Tecnologia Ltda
Conteúdo patrocinado