MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Tipos Incopativeis

    Compartilhe

    xanfos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 28/04/2016

    Tipos Incopativeis

    Mensagem  xanfos em Qui 28 Abr 2016, 09:08

    To querendo criar uma pasta para cada consulta com o mesmo tipo de região, as pastas são geradas porem com o erro:
    Tipos incopativeis
    Private Sub exportarConsolidado()
           Dim xlApp As Excel.Application
           Dim xlBk As Excel.Workbook
           Dim xlSht As Excel.Worksheet
           Dim Str As String
           Dim dbRst As Recordset
           Dim db As Database
           Set db = CurrentDb
           
           
           SQLStr = "SELECT *FROM tb_consolidado"
           Set dbRst = db.OpenRecordset(SQLStr)
         
           strDBPath = CurrentDb.Name
           strDBFile = Dir(strDBPath)
           fcurrentdbdir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1)
           Dim diretorio As String
           
           Do While dbRst.RecordCount > 0
           diretorio = fcurrentdbdir + dbRst!regional
          If Len(Dir(CInt(diretorio), vbDirectory)) > 0 Then
           'existe
           
           Else
           MkDir (fcurrentdbdir + dbRst!regional)
           End If
           dbRst.MoveNext
           Loop
         
           dbRst.Close
           db.Close

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: Tipos Incopativeis

    Mensagem  ahteixeira em Qui 28 Abr 2016, 16:55

    Olá Gustavo, bem-vindo ao fórum.

    Tente assim:
    Código:
    ?Len(Dir(diretorio, vbDirectory))

    Se der erro 13, deve verificar se a veriavel diretorio é nulo antes de testar.
    Abraço

      Data/hora atual: Seg 05 Dez 2016, 16:33