Tomás Vásquez Fórum

Reinaldo

Creio eu que a tabela em questão seja a de nome ==> "tbOrç_Detalhe1" Como disse o Webmaster, sua tabela já está "configurada" para não aceitar cpf/cnpj duplicado; e o access controla essa situação de maneira eficiente; assim ao tentar incluir um registro de cliente com esse campo duplicado, irá gera...

Reinaldo

Em adicional, verifique se a sugestão do Paulinho (PMPOKER) no tópico https://www.tomasvasquez.com.br/forum/v ... =22&t=6427, não lhe auxilia

Reinaldo

Creio que por default, um checkbox e "carregado" como False; exceto nos casos em que sua propriedade tiver "forçado" como true. No evento de abertura do Form (Initialize ou Activate) pode-se verificar o valor existente na celula e "Flegar" o checkbox de acordo Algo +/- If Range("U4").Value = 1 Then ...

Reinaldo

... não estava digitando com a primeira letra em maiúsculo...

Pode experimentar:
substitua/altere a linha da rotina:

Código: Selecionar todos

Nome = Me.txtnome.Text
If ListBox1.List(Item, 6) Like "*" & Nome & "*" Then

Para:

Código: Selecionar todos

Nome = UCase(Me.txtnome.Text)
If UCase(ListBox1.List(Item, 6)) Like "*" & Nome & "*" Then

Reinaldo

Pelo que pude "ver" o filtro conforme abaixo funciona (retira do listbox itens diferente do pesquisado) Private Sub btnbuscanome_Click() Dim Nome As String Nome = Me.txtnome.Text 'APLICAÇÃO DO FILTRO 'ActiveSheet.Range("$A$1:$CD$1069").AutoFilter Field:=8, Criteria1:="*" & Nome & "*" 'CONDICAO PARA ...

Reinaldo

Assim no escuro, vamos no "achômetro":
altere a linha
If ListBox1.List(item, 6) = nome Then
para
If ListBox1.List(item, 6) like "*" & nome & "*" Then
Se não atender poste um modelo representativo de sua estrutura/dados

Reinaldo

Talvez assim: Private Sub BtnInserir_Click() Dim iCodigo As String Dim Lin As Integer Dim Qtde As Double For x = 0 To ListBox1.ListCount - 1 'Pego o Código da LisBox iCodigo = ListBox1.List(x, 0) 'Pego a Qtde Qtde = ListBox1.List(x, 1) Lin = 2 'Faz um Loop na Plan Estoque Do While Sheets("ESTOQUE")....

Reinaldo

Jamilson,o ideal e abrir seu próprio tópico, pois apesar de similar (listview com 21 colunas), pelo seu relato trata-se de outro problema; e sem poder analisar seu projeto/planilha fica muito difícil e improvável uma solução

Reinaldo

...as datas ele elimina... Pelo que vi (ja bom tempo atraz, por sinal uma excelente solução mas que pessoalmente não utilizo, prefiro como propos o colega Mikel recarregar o controle com os dados filtrados ) essa e a "essência" da rotina proposta; ou seja: excluir do listbox ou listiview não record...

Reinaldo

Poderia até tentar, após entender a dinâmica a ser aplicada (momento/tipo de input/disparo), pois normalmente em exposições assim resumidamente simples, ao propor uma possibilidade "escutamos": Quase la, não e exatamente isso, etc... Gerando muito retrabalho e dispersão de energia Também é preciso d...

Pesquisa resultou em 1428 ocorrências

Re: Não Permitir Gravar Cpf duplicado

Re: Não Permitir Gravar Cpf duplicado

Re: Manter CheckBox Flegado Ao Abrir Formulário

Re: Filtro no Listbox com "*"

Re: Filtro no Listbox com "*"

Re: Filtro no Listbox com "*"

Re: Erro em tempo de execução

Re: ListView 21 colunas Sub ou Function não definida

Re: Pesquisa com datas

Re: Copiar intervalo baseado em criterio de tempo em VBA