Coloniz@dor escreveu:Otimo trabalho realizado pelo colega e fico feliz em ver que o mesmo disponibilizou para que outros possam aprender.
abraço a todos.
Seja bem vindo Coloniz@dor, se não me engano, é você que tinha um site e publicou vários artigos sobre Excel_Access que muito me inspirou. Esperamos contar com seu vasto conhecimento e sua colaboração.
Sincronicidade. Li muitos materiais do amigo Coloniz@dor a respeito da integração excel_access e exatamente neste momento ele chega a este fórum. Seja bem vindo Coloniz@ador!
Tenho uma pendencia que não estou conseguindo resolver. Neste mesmo aplicativo quero inserir uma combobox no formCadastro, cuja fonte seja de outra tabela no banco access que tenha chave estrangeira na tabela que estamos trabalhando.
Coloniz@dor escreveu:Otimo trabalho realizado pelo colega e fico feliz em ver que o mesmo disponibilizou para que outros possam aprender.
abraço a todos.
Seja bem vindo Coloniz@dor, se não me engano, é você que tinha um site e publicou vários artigos sobre Excel_Access que muito me inspirou. Esperamos contar com seu vasto conhecimento e sua colaboração.
Sincronicidade. Li muitos materiais do amigo Coloniz@dor a respeito da integração excel_access e exatamente neste momento ele chega a este fórum. Seja bem vindo Coloniz@ador!
Tenho uma pendencia que não estou conseguindo resolver. Neste mesmo aplicativo quero inserir uma combobox no formCadastro, cuja fonte seja de outra tabela no banco access que tenha chave estrangeira na tabela que estamos trabalhando.
Amigo clauterra, obrigado pela recepção.
Bom, quanto a sua pendencia, temos duas situações, se for apenas carregar o combobox com informações de uma coluna de determinada tabela, basta realizar um SELECT no evento de iniciação do formulário, mais se as informações a serem carregadas depender de alguma informação de tabelas diferentes, precisaremos fazer um JOIN entre as tabelas.
Não sei se conseguir esclarecer bem, mais de qualquer forma, se puder postar a aplacação que já esta trabalhando com as alterações que deseja, posso analisar melhor.
Coloniz@dor escreveu:Otimo trabalho realizado pelo colega e fico feliz em ver que o mesmo disponibilizou para que outros possam aprender.
abraço a todos.
Seja bem vindo Coloniz@dor, se não me engano, é você que tinha um site e publicou vários artigos sobre Excel_Access que muito me inspirou. Esperamos contar com seu vasto conhecimento e sua colaboração.
Olá amigo joseA, sou eu mesmo, andei meio ocupado com outras linguagens devido a faculdade, mais sempre volto para VBA porque amo de verdade.
Espero poder contribuir com alguma coisa, mais estou vendo que o fórum tem um nível bastante avançado, e espero aprender também.
Coloniz@dor escreveu:
Amigo clauterra, obrigado pela recepção.
Bom, quanto a sua pendencia, temos duas situações, se for apenas carregar o combobox com informações de uma coluna de determinada tabela, basta realizar um SELECT no evento de iniciação do formulário, mais se as informações a serem carregadas depender de alguma informação de tabelas diferentes, precisaremos fazer um JOIN entre as tabelas.
Não sei se conseguir esclarecer bem, mais de qualquer forma, se puder postar a aplacação que já esta trabalhando com as alterações que deseja, posso analisar melhor.
abraço.
Bom dia,
Obrigado pela dica e pela disponibilidade.
Creio que consegui avançar com a dica. A aplicação não esta 100% funcional, pois não trabalhei nas demais sub, array e funções. Também não atribui os nomes adequados aos controles. Estou pensando apenas na estrutura. De qualquer maneira segue o anexo. Imagino que alguns dos avanços possam ajudar alguém.
O que fiz então foi: Alterar o recordset para um SELECT JOIN a fim de que a ComboBox exibisse o valor texto (e não a sua chave). Criei outro record para usar a ComboBox ao inserir ou alterar o registro. Também mudei o código para carregar o registro:
Sub PreencherCampos()
On Error Resume Next
Me.txtCodigoFornecedor.Text = rstBanco.Fields(0).Value
Me.txtNomeEmpresa.Text = rstBanco.Fields(1).Value
Me.txtNomeContato.Text = rstBanco.Fields(2).Value
Me.txtCargoContato.Text = rstBanco.Fields(3).Value
Me.txtEndereco.Text = rstBanco.Fields(4).Value
Me.txtCidade.Text = rstBanco.Fields(5).Value
Me.txtRegiao.Text = rstBanco.Fields(6).Value
Me.txtCEP.Text = rstBanco.Fields(7).Value
Me.txtPais.Text = rstBanco.Fields(8).Value
Me.txtTelefone.Text = rstBanco.Fields(9).Value
Me.txtFax.Text = rstBanco.Fields(10).Value
Me.txtHomePage.Text = rstBanco.Fields(11).Value
'Me.ComboBox1.Text = rstBanco.Fields(8).Value
'Me.ComboBox1.Text = rstMant!NomeDaMantenedora
' Este aqui apresenta o valor texto
Me.ComboBox1.Text = rstBanco.Fields(8).Value
'Este permite alterar ou incluir a partir da tabela mestre
Do While Not rstMant.EOF
Me.ComboBox1.AddItem rstMant!NomeDaMantenedora
rstMant.MoveNext
Loop
'Do While Not rstBanco.EOF
'Me.ComboBox1.AddItem rstBanco!NomeDaMantenedora
'rstBanco.MoveNext
'Loop
final:
End Sub
Estou tentando fazer um cadastro de clientes baseado no modelo aqui do forum mais estou encontrando algumas dificuldades e não sei omo resolver
ao fazer a alteração aparece a mensagem erro no tempo de execução já tentei todas as dicas aqui e não deu certo.
quando mando depurar vai para o trecho banco.Open sql, cx.Conn
Boa tarde pessoal,
Quero deixar minha contribuição. Em anexo a aplicação que estou trabalhando. É um pouco mais complexa no sentido de que envolve tabelas vinculadas, uma vez que o banco pretende ser normalizado. Trata-se de um cadastro de matrizes e filiais inteiramente baseado no modelo discutido neste fórum. A aplicação esta totalmente funcional quanto ao cadastramento das filiais. Ainda farei a implementação do cadastro das matrizes e talvez implemente o cadastro de subfiliais.
Mesclei informações dos amigos Jose Antonio, Tomaz Vasques e Coloniz@dor. Juntei tudo isto com muitas tentativas, erros e muita pesquisa até entender o quê e o como as coisas estavam acontecendo, até dar certo. Confesso que quase "joguei a toalha".
O que tem de interessante, na minha opinião, e que pode acrescentar em funcionalidade ao que já foi construído é:
Compatibilidade com office 2010 64 bits;
Escolha automatica da versão do Provider (JET ou ACE)
Utilização de um modulo de classe para a conexão.
Tive que alterar a sub que faz a atualização dos registros (removi a estrutura em array pois gerava erro de tipos imcompativeis) para a mesma estrutura que faz a inclusão de novos registros. Minha explicação (que não sei se esta correta) para este erro é a de que um array trabalha sempre com o mesmo tipo de dados. Imagino que como estava tentando trasnferir uma estrutura dos controles que continha texto e numeros para o array, acontecia o erro.
Como não sou programador é bem possível que minhas alterações no código possam ser implementadas de forma mais simples e eficiente, mas foi o que consegui.
Parabéns, pela iniciativa de compartilhar seus esforços/conhecimento.
Um pedido, como seu projeto utiliza um banco de dados com tabelas compartilhadas de um segundo banco (db_Regioes.mdb),
ao executar sua aplicação, é gerado um erro pios não é possivel "achar" o caminho e tabelas.
Seria conveniente que disponibilize esse banco também (pelo menos as estruturas das tabelas vinculadas), assim facilitará o estudo/utilização de sua aplicação.