RicardoCarvalho

André. Verifique com o pessoal de .NET esta sua dúvida. Aqui o povo é mais do próprio legado VB6.

Leonardo, boa noite. Já sabia da resposta, porém pesquisei e não achei. Realmente terá que utilizar os dois CASE mesmo. Pois são duas informações diferentes. Se eu puder ajudar em algo mais. até

Cara, boa noite. Como você gostaria de fazer isso? Neste momento você está precisando desenvolver a consulta ou o relatório em si!? Caso for a consulta, é um pouco dificil sem ter as tabelas para ajudar.

Coloque um print da Tela com o erro.! Assim creio que de para verificar. Outra, que SO você usava e agora está usando? Att.,

mauriciolimax Você está no fórum errado. Este ai em cima é no .NET. Lá eles poderão te ajudar melhor!! abs ;)

Andre_Lui<script type='text/javascript'>window.mod_pagespeed_start = Number(new Date());</script> André a configuração da máquina é outra? Precisamos saber os erros para poder melhor te ajudar! Att.,

Boa tarde pessoal. Meu primeiro post vem com uma dúvida que creio que é simples para alguns. Estou construindo uma tela que permite que o usuário selecione onde será salvo o seu arquivo, e eu darei o nome para o arquivo. O problema é que o código que estou utilizando não verifica mapeamentos de rede, e não consigo utilizar endereço padrão para que se necessário o usuário nem selecione o endereço. Preciso de um help urgente! Abs. CODE: Option Explicit Private Enum BIF_OPTIONS_ENUM BIF_RETURNONLYFSDIRS = &H1& BIF_DONTGOBELOWDOMAIN = &H2& BIF_RETURNFSANCESTORS = &H8& BIF_EDITBOX = &H10& BIF_VALIDATE = &H11& BIF_NEWDIALOGSTYLE = &H40& BIF_BROWSEINCLUDEURLS = &H80& BIF_USENEWUI = BIF_EDITBOX Or BIF_NEWDIALOGSTYLE BIF_UAHINT = &H100& BIF_NONEWFOLDERBUTTON = &H200& BIF_NOTRANSLATETARGETS = &H400& BIF_BROWSEFORCOMPUTER = &H1000& BIF_BROWSEFORPRINTER = &H2000& BIF_BROWSEINCLUDEFILES = &H4000& BIF_SHAREABLE = &H8000& End Enum Private Sub cmdArquivoGNRE_Click() On Error GoTo DeuErro Dim Folder As Object With CreateObject("Shell.Application") Set Folder = .BrowseForFolder(hWnd, "Pick a folder", BIF_RETURNONLYFSDIRS _ Or BIF_SHAREABLE _ Or BIF_NEWDIALOGSTYLE _ Or BIF_NONEWFOLDERBUTTON) End With If Folder Is Nothing Then txtArquivoGNRE.Text = "" Else txtArquivoGNRE.Text = Folder.Self.path End If Exit Sub DeuErro: End Sub