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.

Pesquisa resultou em 1433 ocorrências

por Reinaldo
Qui Ago 06, 2020 10:11 am
Fórum: VBA Básico
Tópico: Preencher TXT a partir de Matriz Variável
Respostas: 15
Exibições: 11655

Re: Preencher TXT a partir de Matriz Variável

Sem testar experimente Private Sub btCriar_Click() Dim Linha As Long Dim NomeDir As String, Caminho As String Dim strTemp As String, strPath As String Dim fsoLocal As Object Dim msgResp As VbMsgBoxResult strTemp = Cells(1, "AA").Value If strTemp <> "" Then msgResp = MsgBox("O Diretorio Atual é:" & s...
por Reinaldo
Qui Ago 06, 2020 9:57 am
Fórum: VBA Básico
Tópico: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula
Respostas: 16
Exibições: 13963

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Dificil entender/determinar o problema apenas pelo informado; pois nem sempre o "erro" está onde o interpretador para. Contudo o trecho disponibilizado aparente ter um end if "solto"; verifique se conforme abaixo resolve, caso não e melhor se dispor seu modelo. Private Sub MontaClausulaWhere(ByVal N...
por Reinaldo
Ter Ago 04, 2020 10:31 am
Fórum: VBA Básico
Tópico: preciso de ajuda com esse codigo vba excel para buscar dados do no Access
Respostas: 2
Exibições: 1532

Re: preciso de ajuda com esse codigo vba excel para buscar dados do no Access

Como estádefinido o campo Cadastro no Access
por Reinaldo
Dom Ago 02, 2020 11:46 am
Fórum: VBA Básico
Tópico: format Currency em modulo de classe
Respostas: 2
Exibições: 2319

Re: format Currency em modulo de classe

Well, uma caixa de texto ou TextBox, por padrão/default e como o nome/descrição sugere, considera seus dados/valores como uma string/texto; mesmo formatando,na inclusão seu conteúdo como numérico/currency, esse conteúdo ao ser "devolvido"/lido é tido como um texto/string. Se a formatação via seu mod...
por Reinaldo
Sex Jul 31, 2020 8:06 am
Fórum: VBA Básico
Tópico: Erro de compilação Variável Não Definida
Respostas: 2
Exibições: 1900

Re: Erro de compilação Variável Não Definida

Muito provavelmente seu modulo consta com a instrução "Option Explicit" na primeira linha.
Isso obriga a declaração/definição previa da variavel:
Dim valor1 as Double
Maiores detalhes veja no help do vba, posicione o cursor sobre a palavra Explicit ou Dim e tecle F1
por Reinaldo
Sáb Jul 25, 2020 9:36 am
Fórum: VBA Básico
Tópico: [Resolvido] SQL/vba para importar dados com critério de datas
Respostas: 4
Exibições: 2050

Re: SQL/vba para importar dados com critério de datas

A importação leva em conta o chamado "usedRange" da planilha, apesar de seu exemplo ter dados da coluna "A" até coluna K; portanto 11 colunas/campos; o usedRange da planilha considera ate a coluna "L", ou seja 12 colunas/campos. Como nessa coluna em "L1" não há valor explicito e é considerado um cam...
por Reinaldo
Sex Jul 24, 2020 11:12 am
Fórum: VBA Básico
Tópico: [Resolvido] SQL/vba para importar dados com critério de datas
Respostas: 4
Exibições: 2050

Re: SQL/vba para importar dados com critério de datas

Experimente: Sub Importar_Dados() Dim Fichier As String, Destination As String, Requete As String Dim strdtIni As String, strdtFim As String strdtIni = Format(Sheets("Plan2").Range("A2").Value, "yyyy/mm/dd") strdtFim = Format(Sheets("Plan2").Range("b2").Value, "yyyy/mm/dd") 'Fichier = "C:\Users\Usua...
por Reinaldo
Qua Jul 22, 2020 10:58 am
Fórum: Modelos Prontos
Tópico: SISTEMA DE CADASTRO COM LISTVIEW E FOTO
Respostas: 15
Exibições: 8110

Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Olá Tomaz.. Eu mesmo sou o criador, fui adaptando vários pequenos projetos meus de acordo com minhas necessidades e algumas informações aqui no fórum e em outros fóruns. Decidi posta-lo para sanar um BUG daí o Amigo Reinaldo solucionou pra mim. Esse arquivo depois de umas adaptações ou coisa que na...
por Reinaldo
Qua Jul 22, 2020 10:45 am
Fórum: Geral
Tópico: Retorna o Item
Respostas: 1
Exibições: 1111

Re: Retorna o Item

Fica dificil apenas por sua explanação. Poste um modelo de como tem e como espera ter
por Reinaldo
Qui Jul 16, 2020 2:38 pm
Fórum: VBA Básico
Tópico: AJUDAS (Filtrar, Combobox + TextBox, ListBox, etc)
Respostas: 4
Exibições: 2154

Re: AJUDAS (Filtrar, Combobox + TextBox, ListBox, etc)

Na sub rotina Sub somar_Selecionados() altere: IsNumeric(COBRANCA.List( lItem , 5)) Para: IsNumeric(COBRANCA.List( Item , 5)) Na Rotina que está comentada ++> Private Sub COBRANCA_Change() "descomente" e Utilize: Private Sub COBRANCA_Change() Call somar_Selecionados End Sub Assim deverá resolver a s...