Tomás Vásquez Fórum

joseA

Tente assim:

Private Sub ComboBox_Estado_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = 0
End Sub

Private Sub ComboBox_Tipo_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = 0
End Sub

joseA

Muito obrigado Mauro é isso mesmo. :D Pelo que observei é bem símples, já vistes quando busca uma saída com ansiedade, não conseguí ver. :oops: Poupaste o Tomás um pouco. :lol: Muito obrigado pela tua valorosa contribuição. Em tempo... Seja bem vindo ao fórum, visto que bons ventos lhe trouxeram. :r...

joseA

Veja bem, No ComboBoxCampos quando o frmFiltro é ativado o primeiro item é CódigoDoFornecedor , gostaria que essa 1ª coluna fosse desprezada teríamos o Campo NomeDaEmpresa em diante, ou seja, a 2ª coluna em diante. Conseguí fazer isso alterando em coluna = 1 para coluna = 2 só que o filtro não retor...

joseA

Bom dia!!

Tomás,

Teria como no "ComboBoxCampos" a opção partir da coluna 2 "NomeDaEmpresa" em diante?

Até que conseguí alterar para colunas, mas o filtro não funcionou.

Como ficaria, qual seria a alteração no código??

joseA

Tomás,

Ok ficarei no aguardo.

É que não tenho muita familiaridade com a linguagem utilizada e a proposta do ModeloCadastro é a melhor em termos de cadastro, pesquisa e edição de dados. Então quando temos muitos dados pode ocorrer esse problema??

joseA

Tomás, Peguei a planilha ModeloCadastro, sem alterar nada, e inserí dados em linhas -copiei/colei (80 cadastros) e no botão navegar ele salta itens (do 6 p/ 8, dentre outros ), não acessa o último registro e quando chega no item 30 para de funcionar e na pesquisa ignora alguns registros, não retorna...

joseA

Em tempo...

No caso, acho que usaria os ComboBox's para as opções cidades e estados e para sexo usaria como opção OptionButton's (Feminino e Masculino).

Quem disse que é o FINAL??

joseA

Olá Luiz, Verifique se é isso: JoseA, Funiconou legal, so que quando se adiciona uma cadastro novo no userformauxiliar, na barra de rolagem aparece todos os cadastros em duplicidade, dae quando voce fecha a userformcadastro e volta fica tudo normal, mas aconteceu esse fato enusitado....o que voce ac...

joseA

Luiz, Se o que desejas é atualizar o dois ComboBox's do frmCadastro ao lançar um novo dado pelo frmAuxiliar, tente assim inserindo as duas linhas em destaque no botão CommandButtonAdicionar do frmAuxiliar: Private Sub CommandButtonAdicionar_Click() If Me.ComboBoxAtributos.ListIndex = -1 Then MsgBox ...

joseA

Realmente, ficou demais. É uma pena que a utilização não seja mais ampla. Com o meu linitado conhecimento tentarei dar mais "utilidade" a essa interface, se conseguí postarei aquí.

Parabéns e obrigado Tomás, por brindar-nos com o seus vastos recursos!!

Pesquisa resultou em 1048 ocorrências

Re: Barra de rolagem

Re: Filtrar ListBox

Re: Filtrar ListBox

Re: Filtrar ListBox

Re: Adaptar ModeloCadastro Passos

Re: Adaptar ModeloCadastro Passos

Re: Barra de rolagem

Re: Barra de rolagem

Re: Barra de rolagem

Re: Filtrar ListBox