Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Adpatção para Cadastro de Clientes
Adpatção para Cadastro de Clientes
Olá, boa tarde, o aplicativo de cadastro é excelente, estou tentando adaptá-lopara cadastro e consulta de clientes, porém consegui fazer algunas alterações, mas como nao disponho de muita sabedoria em VBA, (ainda vou apreender) está dando um erro quando altero os nomes como por expemlo NOMEEMPRESA vou alterar para NomeCliente e nao roda o aplicativo, da a seguinte mensagem: erro de compilação. Metodo ou membro de dados nao encontrado
tive o cuidade alterar a lebel tanto na macro como no formulario (propriedade (name))
Private Sub CarregaRegistro()
'carrega os dados do primeiro registro
With wsCadastro
If Not IsEmpty(.Cells(indiceRegistro, colCargoDoContato)) Then
Me.txtCodigoFornecedor.Text = .Cells(indiceRegistro, colCodigoDoFornecedor).Value
Me.txtNomeCliente.Text = .Cells(indiceRegistro, colNome_do_Cliente).Value - AQUI APARECE O ERRO - aparentemente ele executa uma outra macro? onde estaria? desculpe a ignorancia.
Me.txtNomeContato.Text = .Cells(indiceRegistro, colNomeDoContato).Value
Me.txtCargoContato.Text = .Cells(indiceRegistro, colCargoDoContato).Value
Me.txtEndereco.Text = .Cells(indiceRegistro, colEndereco).Value
Me.txtCidade.Text = .Cells(indiceRegistro, colCidade).Value
Me.txtRegiao.Text = .Cells(indiceRegistro, colRegiao).Value
Me.txtCEP.Text = .Cells(indiceRegistro, colCEP).Value
Me.txtPais.Text = .Cells(indiceRegistro, colPais).Value
Me.txtTelefone.Text = .Cells(indiceRegistro, colTelefone).Value
Me.txtFax.Text = .Cells(indiceRegistro, colFax).Value
Me.txtHomePage.Text = .Cells(indiceRegistro, colHomePage).Value
End If
End With
Call AtualizaRegistroCorrente
End Sub
se possivel auxiliar-me ficaria grato.
tive o cuidade alterar a lebel tanto na macro como no formulario (propriedade (name))
Private Sub CarregaRegistro()
'carrega os dados do primeiro registro
With wsCadastro
If Not IsEmpty(.Cells(indiceRegistro, colCargoDoContato)) Then
Me.txtCodigoFornecedor.Text = .Cells(indiceRegistro, colCodigoDoFornecedor).Value
Me.txtNomeCliente.Text = .Cells(indiceRegistro, colNome_do_Cliente).Value - AQUI APARECE O ERRO - aparentemente ele executa uma outra macro? onde estaria? desculpe a ignorancia.
Me.txtNomeContato.Text = .Cells(indiceRegistro, colNomeDoContato).Value
Me.txtCargoContato.Text = .Cells(indiceRegistro, colCargoDoContato).Value
Me.txtEndereco.Text = .Cells(indiceRegistro, colEndereco).Value
Me.txtCidade.Text = .Cells(indiceRegistro, colCidade).Value
Me.txtRegiao.Text = .Cells(indiceRegistro, colRegiao).Value
Me.txtCEP.Text = .Cells(indiceRegistro, colCEP).Value
Me.txtPais.Text = .Cells(indiceRegistro, colPais).Value
Me.txtTelefone.Text = .Cells(indiceRegistro, colTelefone).Value
Me.txtFax.Text = .Cells(indiceRegistro, colFax).Value
Me.txtHomePage.Text = .Cells(indiceRegistro, colHomePage).Value
End If
End With
Call AtualizaRegistroCorrente
End Sub
se possivel auxiliar-me ficaria grato.
Re: Adpatção para Cadastro de Clientes
olá, desculpe a minha falta de conhecimento, mas eu alterei no corpo do documento e onde aparece o formulario, na caixa de propriedades da palavra "nome cliente", ai é o controle? (veja no arquivo anexo) ou pode me mostrar onde fica?webmaster escreveu:Colega,
Chegou a mudar o nome do controle?
Abraços
obrigado pela atenção
- Anexos
-
- tela.png (189.37 KiB) Exibido 6745 vezes
Re: Adpatção para Cadastro de Clientes
Sim,
Mas no caso, o controle é o do lado, a caixa de texto. o txt é uma abreviação de TextBox, assim como lbl uma abreviação de Label.
Abraços
Mas no caso, o controle é o do lado, a caixa de texto. o txt é uma abreviação de TextBox, assim como lbl uma abreviação de Label.
Abraços
Re: Adpatção para Cadastro de Clientes
Obrigado Funcionou certinho. So nao vou colocar como resolvida pk comecando a alterar se der algo errado uso o mesmo topico.
obriogado pela atencao.
um abraço
Lamcarter
obriogado pela atencao.
um abraço
Lamcarter
Re: Adpatção para Cadastro de Clientes
Olá, terminei a adptaçao, porém, estou tentando incrementar um pouco, pois a minha planilha controla os clientes e os processos que tenho.
estou com os seguintes problemas.
o formulario de pesquisa nao filtra por nome de cliente. e nao da erro nenhum.
no cadastro de processos eu queria buscar os nomes dos clientes cadastrados na planilha cliente, o mesmo procedimento queria inserir na pesquisa, pois onde há a opcao nome de cliente já aparecer uma combobx com os clientes cadastrados. Até tentei fazer o código mas nao pega dado de lugar algun e nem da erro para nortear algo.
poderiam me auxiliar ae.
obrigado
estou com os seguintes problemas.
o formulario de pesquisa nao filtra por nome de cliente. e nao da erro nenhum.
no cadastro de processos eu queria buscar os nomes dos clientes cadastrados na planilha cliente, o mesmo procedimento queria inserir na pesquisa, pois onde há a opcao nome de cliente já aparecer uma combobx com os clientes cadastrados. Até tentei fazer o código mas nao pega dado de lugar algun e nem da erro para nortear algo.
poderiam me auxiliar ae.
obrigado
- Anexos
-
- Proc para teste funcao clientes em combobox.rar
- (59.61 KiB) Baixado 364 vezes
Re: Adpatção para Cadastro de Clientes
Consegui fazer com que busque os nome no cadastro. obrigadopela atençao.
Seguinte problema na Adpatcao, na pesquisa do cadastro de clientes, na combobox CBOORDENARPOR, nao filtra por nome de clientes e nao da erro nenhum. e nem na opcao Nome do CLiente.
Seguinte problema na Adpatcao, na pesquisa do cadastro de clientes, na combobox CBOORDENARPOR, nao filtra por nome de clientes e nao da erro nenhum. e nem na opcao Nome do CLiente.
- Anexos
-
- Proc para teste funcao clientes em combobox.zip
- (83.92 KiB) Baixado 377 vezes