ATENÇÃO NOVOS USUÁRIOS
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Pesquisa resultou em 1428 ocorrências
- Qui Jan 14, 2021 3:46 pm
- Fórum: Excel + Access
- Tópico: Não Permitir Gravar Cpf duplicado
- Respostas: 12
- Exibições: 348
Re: Não Permitir Gravar Cpf duplicado
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...
- Qua Jan 13, 2021 10:54 am
- Fórum: Excel + Access
- Tópico: Não Permitir Gravar Cpf duplicado
- Respostas: 12
- Exibições: 348
Re: Não Permitir Gravar Cpf duplicado
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
- Sex Dez 11, 2020 9:25 am
- Fórum: VBA Básico
- Tópico: [Resolvido] - Manter CheckBox Flegado Ao Abrir Formulário
- Respostas: 5
- Exibições: 423
Re: Manter CheckBox Flegado Ao Abrir Formulário
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 ...
- Sex Dez 04, 2020 10:52 am
- Fórum: VBA Básico
- Tópico: Filtro no Listbox com "*"
- Respostas: 7
- Exibições: 515
Re: Filtro no Listbox com "*"
Pode experimentar:... não estava digitando com a primeira letra em maiúsculo...
substitua/altere a linha da rotina:
Código: Selecionar todos
Nome = Me.txtnome.Text
If ListBox1.List(Item, 6) Like "*" & Nome & "*" Then
Código: Selecionar todos
Nome = UCase(Me.txtnome.Text)
If UCase(ListBox1.List(Item, 6)) Like "*" & Nome & "*" Then
- Qui Dez 03, 2020 7:48 am
- Fórum: VBA Básico
- Tópico: Filtro no Listbox com "*"
- Respostas: 7
- Exibições: 515
Re: Filtro no Listbox com "*"
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 ...
- Seg Nov 30, 2020 11:14 am
- Fórum: VBA Básico
- Tópico: Filtro no Listbox com "*"
- Respostas: 7
- Exibições: 515
Re: Filtro no Listbox com "*"
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
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
- Seg Nov 16, 2020 4:07 pm
- Fórum: VBA Básico
- Tópico: [Resolvido] Erro em tempo de execução 381
- Respostas: 4
- Exibições: 355
Re: Erro em tempo de execução
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")....
- Seg Nov 16, 2020 7:54 am
- Fórum: Excel + Access
- Tópico: ListView 21 colunas Sub ou Function não definida
- Respostas: 6
- Exibições: 926
Re: ListView 21 colunas Sub ou Function não definida
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
- Sáb Nov 14, 2020 2:00 pm
- Fórum: VBA Básico
- Tópico: Pesquisa com datas
- Respostas: 5
- Exibições: 5971
Re: Pesquisa com datas
...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...
- Sex Nov 13, 2020 5:01 pm
- Fórum: VBA Básico
- Tópico: Copiar intervalo baseado em criterio de tempo em VBA
- Respostas: 5
- Exibições: 389
Re: Copiar intervalo baseado em criterio de tempo em VBA
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...