Bom Tarde, Estou criando um cadastro de clientes, onde tem uma parte para a pesquisa do cliente, porém quando clico em pesquisar ele primeiro abre o formulário vazio ai tenho que fechar o formulário e abri-lo novamente para ele me retornar com os dados, e eu queria que ele já carrega-se o formulário com os dados, sem ter que fechar e abrir de novo. Abaixo Segue o Código:
Range("e1").Select 'começa a pesquisa pela célula d1 Do Until ActiveCell = "" 'repita os passos abaixo até encontrar uma célula vazia
Pergunta
Vitinho
Bom Tarde,
Estou criando um cadastro de clientes, onde tem uma parte para a pesquisa do cliente, porém quando clico em pesquisar ele primeiro abre o formulário vazio ai tenho que fechar o formulário e abri-lo novamente para ele me retornar com os dados, e eu queria que ele já carrega-se o formulário com os dados, sem ter que fechar e abrir de novo.
Abaixo Segue o Código:
Range("e1").Select 'começa a pesquisa pela célula d1
Do Until ActiveCell = "" 'repita os passos abaixo até encontrar uma célula vazia
If ActiveCell = txtPesquisarCliente Then
frmEditarCliente.Show
frmEditarCliente.txtCPF.Value = ActiveCell
frmEditarCliente.txtCodigo.Value = ActiveCell.Offset(0, -4)
frmEditarCliente.txtNome.Value = ActiveCell.Offset(0, -3)
frmEditarCliente.txtDataNasc.Value = ActiveCell.Offset(0, -2)
frmEditarCliente.txtRG.Value = ActiveCell.Offset(0, -1)
frmEditarCliente.cbSexo.Value = ActiveCell.Offset(0, 1)
frmEditarCliente.cbEstadoCivil.Value = ActiveCell.Offset(0, 2)
frmEditarCliente.txtEndereco.Value = ActiveCell.Offset(0, 3)
frmEditarCliente.txtNumero.Value = ActiveCell.Offset(0, 4)
frmEditarCliente.txtComplemento.Value = ActiveCell.Offset(0, 5)
frmEditarCliente.txtCEP.Value = ActiveCell.Offset(0, 6)
frmEditarCliente.txtCidade.Value = ActiveCell.Offset(0, 7)
frmEditarCliente.txtBairro.Value = ActiveCell.Offset(0, 8)
frmEditarCliente.cbUF.Value = ActiveCell.Offset(0, 9)
frmEditarCliente.txtTelefoneResidencial.Value = ActiveCell.Offset(0, 10)
frmEditarCliente.txtCelular.Value = ActiveCell.Offset(0, 11)
frmEditarCliente.txtEmail.Value = ActiveCell.Offset(0, 12)
Exit Sub
End If
ActiveCell.Offset(1, 0).Select 'pula uma célula para baixo
Loop
MsgBox "Cliente Não Encontrado!", vbExclamation, "Cliente Inexistente"
txtPesquisarCliente = ""
txtPesquisarCliente.SetFocus
Quem poder me ajudar, ficarei muito agradecido.
Obrigado.
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.