Tomás Vásquez Fórum

Reinaldo

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...

Reinaldo

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...

Reinaldo

Como estádefinido o campo Cadastro no Access

Reinaldo

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...

Reinaldo

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

Reinaldo

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...

Reinaldo

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...

Reinaldo

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...

Reinaldo

Fica dificil apenas por sua explanação. Poste um modelo de como tem e como espera ter

Reinaldo

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...

Pesquisa resultou em 1433 ocorrências

Re: Preencher TXT a partir de Matriz Variável

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

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

Re: format Currency em modulo de classe

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

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

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

Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Re: Retorna o Item

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