BRUCCE

beleza HUmmm.... Vou ficar esperando.... ,VAleu...Abçs!

Bom dia Galera! Estou tentando criar uma consulta, mas estou me enrolando um pouco...... Tenho um Form de Cadastro com os seguintes campos: n.º Cadastro Nome; Endreço; bairro; cidade; CEP e Função.... A partir dessa tabela, criei uma Consulta(Cadastro Consulta), e coloquei como critério no Campo Nome "[Digite o Nome]..... E depois criei um FORM Baseado na Tabela Cadastro......... No Form de Cadastro, coloquei um botão que abre o form de consulta (CadastroConsulta), e de imediato, pede-se para digitar o nome que se deseja localizar.... Meu problema é: 1- Caso não nome digitado não exista no cadastro, como fazer que o form de COnsultas não abra, e que seja exibida uma mensagem "" Cadastro inexistente", por exemplo... 2 - Ou então, uma opção para que quando eu digite o primeiro nome, ex. JOAO, seja exibido todos os cadastros de Joao..??? Obrigado!

beleza Galera!!! Só uma dúvida! (Deve ser uma pergunta meio tosca,rsrs, mas vai lá) Estou tentando fazer o download do arquivo que foi deixado como exemplo, mas quando eu o salvo, é posto como formato .RAR, que programa devo usar pra conseguir abrir ou arquivo?? Valeu!!

Bom dia Pessoal! Estou criando um FORM para Cadastro de Ofícios/Memorandos que são emitidos aqui na Empresa. Tenha um campo, onde os funcionários devem relacionar, no caso, o número de PIS de todos as pessoas, que se refere a determinado Oficio/Memo. ***Essa campo é importante pois tenho um Caixa de Combinação que realiza a consulta direta no campo, para verificar se já foi emitido algum Docto para o PIS.... Pois bem, havia criado a principio, uma Caixa de texto, mas quando opto em consultar, ele só puxa a primeira numeração que estiver no campo: No caso só Puxa 12345678900. 12345678900 12433632521 11111111111 Se eu precisar consultat o PIS 12433632521, ele não encontra. Existe algum código que faça com que o "sistema" consulte todas as informações?? Tentei criar um sub FORM, para ver se consegui fazer algo, mas não consegui fazer com que tias numerações ficasse visiveis somente para X Oficio/Memo...... Agradeço antecipadamente pela ajuda! Feliz 2008! Abçs

Bom dia MrMalj e Humm, Valeu pelas dicas, eu até tentei colocar o código, como o MrMarjl disse: Forms!Cadastro_Fichas!alteração .value=Date() & " " & Forms!Main!operador Mas ainda continuava dando erro, pois ele nçao achava o FORM Cadastro_Fichas! Hoje deu uma fuçada e consegui resolver: Como o FORM Cadastro_Fichas é aberto em uma SUBFORM, o código ficou assim: Forms!Main!frameMain!alteração.Value = Date & " " & Forms!Main!operador Valeu pelas dicas, me ajudaram muito........Aos poucos estou aprendendo!.... MrMajl, se quiser, pode definir o tópico como Resolvido! Abçs!

MrMalje HUmmm, Bom dia! Valeu pelas dicas, vou tentar fazer da maneira que vocês me disseram. Acho que pra mim, a primeira opção é a mais facil, já que nçao entendo muito. Só tenho mais uma dúvida: Como disse, meu aplicativo funciona com um FORM principal, que atraves dele abre os demais form, por um sub FORM. Tenho o Botão de Opção num FORM que abre a página de parecer, gostaria que quando eu alterasse algo nesse FORM (movimentação) ele incluisse a data de alteração e o nome do user no FORM de cadastrados (fichas) Tentei fazer assim: Forms!Main!Cadastro_Fichas!alteração .value=Date() & " " & Forms!Main!operador Pensei assim: Pesquisar em Formulários! Main (form atual); Cadastro_Ficha (form onde está o campo, é aberto num sub form (frameMain)) e alteração (o campo que salvará as alterações) Ate ai eu consigo alterar de boa, mas quando clico em salvar, da uma mensagem de erro: ERRO EM TEMPO DE EXECUÇÃO '2465'; O SEGURO DESEMPREGO NÃO PODE LOCALIZAR O CAMPOR 'CADASTRO_FICHAS' REFERIDO EM SUA EXPESSÃO tEM ALGO ERRADO NESSO CÓDIGO?

beleza MrMalj. Se eu colocar os códigos em todos os campos, quando eu atualizar, ele irá mostrar qual o campo que foi atualizado? Ou somente irá colocar a data e o nome do Usuário no campo. No caso, crei somente um campo para guardar essa informação de quando e quem alterou..... Se pude me ajudar beleza! Se quise, pode por como resolvido... Vlw Abçcs!

Valeu HUmmm! Deu certo, é que sou meio leigo em VBA, mas consegui fazer.. Só uma coisa, no meu form, tenho 20 campos, é possivel criar somente um Campo para registrar as alterações? Preciso de informações sobre quais os campos que foram alterados. Se alteraram o nome, preciso que aparecer: DIa; Quem Alterou, Qual o Campo; Outra coisa que percebi é que ele sempre altera quem modificou algo, tem como fazer com que as informações sobre alterações fiquem visiveis? 01/01/01 NOME Joao 10/10/10 Endereço Jose 12/12/07 Parecer Brucce É possivel fazer isso? Obrigado!

bom dia MrMajl! Entendi o que você explicou, mas esta dando uma mensagem de erro. Fiz assim, na Opções APOS ATUALIZAR do campo PARECER, coloquei o seguinte código: me.Alteração(o campo de registrará as alterações).value=date() & " " & me.Form!Main!operador Meu BD tem um form principal(MAIN), que atraves dele é aberto dos demais, sempre que o usuário logo, aparece o nome no campo OPERADOR (esse campos "operador" aparece no mode design como OBJETO NÃO ACLOPADO. quando eu altere algo no campo Parecer, e opto em salvar, aparece a seguinte mensagem ERRO EM TEMPO DE EXECUÇÃO: '2465': O Seguro Desemprego nçao pode localizar o Campo MAIN referido em sua experessão. O que eu fiz está correto? Como posso resolver esse erro. Obrigado!

Bom dia Galera! já dei uma pesquisada no Forum , mas nçao encontrei nada.. Estou precisando criar um Campo que registre A DATA E A ALTERAÇÃO/ÎNCLUSÃO REALIZADA POR UM USUÀRIO. eX. sE O USUÁRIO ALTEROU ALGUMA INFORMAÇÃO NO CADASTRO: Data: Campo Usuário 10/07/07 "Inclusão de Cadastro" Joao (O campo inclusão seria quando o usuário incluiria o cadastro pela primeira vez. 10/11/07 Nome Pedro 12/07/07 Parecer Administrador Acho que dá pra ter uma idéia! Valeu pessoal, fico esperando uma ajuda! Abçs!

Bom dia galera!!! Preciso de uma mãozinha..... Já criei um BD para cadastro de processo e sempre recebemos PARECER das situações e fica meio complicado ficar procurando uma "DECLARAÇÃO" no meio de um monte de processo.. Enfim, é possivel criaruma opção para que eu possa anexar um Arquivo, sei lá, em formato WORD, para determinados cadastros... Mas preciso que cada anexo, acompanhe o cadastro de cada processo... Valeu!

beleza MrMalj! Eu criei uma consulta e coloquei o Critério que você me disse, mas os campos que não estão preenchidos continuam aparecendo... Como posso configurar. Valeu

Bom dia MrMalj! Entendi.. Só fiquei com uma curiosidade! Esses meus campos são para informar se o Funcionario possui dependentes, caso SIM, ele deve informar os nomes, criei 5 campo, mas nem sempre será preenchido os 5... É possivel fazer que fiquem visiveis somente os campos preenchido? Valeu! Obrigado pela ajuda!

Boa tarde Mr MAlj, Cara sou meio leigo no assunto, tem algum códio que eu possa por no EVENTO?? você pode me explicar? Valeu?

beleza Pessoal! Preciso saber se tem como criar um rotina p/ os Botoes PROXIMO REGISTRO e REGISTRO ANTERIOR.. É possivel fazer que os botões fiquem Invisiveis, quando o usuário visualizar o Ultimo Registro, ou o Primeiro... Ex: Tenho alguns registro, que que quando usuário for navegando pelos registro ambos bot~~oes estejam visiveis, mas quando ele chegar no ultimo, quero que o Botão Prox. Registro fique invisivel, tem como? Aproveitando, estou com um probleminha em uma Rotina, nos Campos SIM/Não... tenho uma rotina que se o usuário seleciona SIM, alguns campos aparecem p/ que ele digite outros dados, pois bem, a principio os campos não estavam ficando invisiveis, pois sempre que eu abria o FORM eles apareciam, mesmo o campo estando em N]aO. Depois fui orientado a Mudar o Formato do campo para invisivel, e deu certo.. mas agora quando os campos estão como SIM, e abre o FORM p/ consulta ele não estão aparecendo... Valeu! Obrigado pela ajuda de todos!

Gde MrMalj!!!! Cara valeu mesmo, eu já estava ficando doido aki, não sabia mais onde mexer... Valeu Mesmo... cara, aproveitando, você sabe me dizer como posso criar um Botão em um FORM que apague as informãções contidas em um determinado campo? Valeu.. Abçs!

beleza pessoal! Estou utilizando o Campo SIM/NÃO, em caso de SIM o sistema abre outros campos p/ preenchimento. Primeiro estav com um problema que mesmo estando NÃO os campos apareciam, fui orientado a alterar nas Propriedas o CAmpo Visivel e colocar como Não. ate´ai beleza, Mas quando eu seleciono sim, os campos aparecem, mas quando fecho o form, as informações não aparecem, o que posso fazer?

Bla MR MAlj, entaum, eu já tentei, criei um relatório Baseado em uma Consulta, com os dados que preciso. No modo Design do Relatório, eu inseri um COntrole de Imagem, mas é obrigatório que eu selecione uma imagem... selecionei... ma quando opto em abrir o Relatorio para imprimir o cadastro que preciso, ele apresenta a imagem que eu selecionei quando criei o Contorle de Imagem... Até tentei verificar se nesse controle de imagem eu poderia inserir um EVENTO... mas não aparece nada.

Bom dia Pessoal, Criei um BD de cadastro de funcionarios, euma opção para inserir fotos, conforme explicado no POST undefined, porém quando eu criei um relatório a imagem não aparece, já que o campo onde ela está não consta na tabela, pois é um Controle de Imagem. Tenho um campo que armazena o endereço da foto Existe algum código que eu posso colocar para que ela apareça no relatório? Estou precisando resolver urgente... Por favor, se alguém puder me ajudar.... Valeu!

Bom dia Galera! Vou postar abaixo, um código para carregar imagens no BD, dei uma procurar em alguns fóruns e achei esta, já testei e funciona... Vamos lá. 1º Crie um Campo com o nome Link em Sua tabela, ponha o Tamanho 255. 2º Crie um Form Baseado na Tabela. 3º Crie Controle de Imagem, apos seleciono qualquer foto.. 4º No Modo Desing, defina o nome desse Controle como Imagem 5º Va nas propriedades de Form e no EVENTO NO ATUAL, digite: Private Sub Form_Current() If Me.link <> nil Then Me.Imagem.Visible = True Me.Imagem.Picture = Me.link Else Me.Imagem.Visible = False End If End Sub 6º Crie um módulo com o código abaixo: (salve-o como strcaminho) Option Explicit Option Compare Database Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Boolean Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _ "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Boolean Type MSA_OPENFILENAME ' Seqüência de filtro usada para os filtros do diálogo Abrir. ' Usa MSA_CriarSeqüênciaDeFiltro() para criar isso. ' Padrão = Todos os Arquivos, *.* strFiltro As String ' Filtro inicial a exibir. ' Padrão = 1 lngÍndiceFiltro As Long ' Diretório inicial no qual abrir o diálogo. ' Padrão = Diretório de trabalho atual. strDirInicial As String ' Nome de arquivo inicial com o qual preencher o diálogo. ' Padrão = "". strArqInicial As String strTítuloDoDiálogo As String ' Extensão padrão para anexar ao arquivo se o usuário não especificar uma. ' Padrão = Valores do Sistema (Abrir Arquivo, Salvar Arquivo). strExtensãoPadrão As String ' Sinalizadores (consulte a lista de constantes) a serem usados. ' Padrão = sem sinalizadores. lngSinalizadores As Long ' Caminho completo do arquivo escolhido. Quando a caixa de diálogo Arquivo ' Abrir é apresentada e o usuário escolhe um arquivo não existente, somente ' o texto da caixa "Nome do arquivo" é retornado. strCaminhoCompletoRetornado As String ' Nome do arquivo escolhido. strNomeDeArquivoRetornado As String ' Deslocamento no caminho completo (strCaminhoCompletoRetornado) ' onde o nome do arquivo (strNomeDeArquivoRetornado) começa. intDeslocamentoDoArquivo As Integer ' Deslocamento no caminho completo (strCaminhoCompletoRetornado) ' onde começa a extensão do arquivo. intExtensãoDoArquivo As Integer End Type Const ALLFILES = "Todos os arquivos" Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As Long nMaxCustrFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustrData As Long lpfnHook As Long lpTemplateName As Long End Type Const OFN_ALLOWMULTISELECT = &H200 Const OFN_CREATEPROMPT = &H2000 Const OFN_EXPLORER = &H80000 Const OFN_FILEMUSTEXIST = &H1000 Const OFN_HIDEREADONLY = &H4 Const OFN_NOCHANGEDIR = &H8 Const OFN_NODEREFERENCELINKS = &H100000 Const OFN_NONETWORKBUTTON = &H20000 Const OFN_NOREADONLYRETURN = &H8000 Const OFN_NOVALIDATE = &H100 Const OFN_OVERWRITEPROMPT = &H2 Const OFN_PATHMUSTEXIST = &H800 Const OFN_READONLY = &H1 Const OFN_SHOWHELP = &H10 Function localizarArquivo(strCaminhoDeLocalização) As String ' Exibe a caixa de diálogo Abrir para que o usuário localize o ' banco de dados BdLab. Retorna o caminho completo para o BdLab. Dim msaof As MSA_OPENFILENAME ' Define opções para a caixa de diálogo. msaof.strTítuloDoDiálogo = "Selecione o arquivo." msaof.strDirInicial = strCaminhoDeLocalização msaof.strFiltro = MSA_CriarSeqüênciaDeFiltro("Todos", "*.*") ' Chama a rotina do diálogo Abrir. MSA_ObterAbrirNomeArq msaof ' Retorna o caminho e o nome de arquivo. localizarArquivo = Trim(msaof.strCaminhoCompletoRetornado) End Function Function MSA_CriarSeqüênciaDeFiltro(ParamArray varFilt() As Variant) As String ' Cria uma seqüência de filtro a partir dos argumentos passados. ' Retorna "" se nenhum argumento for passado. ' Espera um número par de argumentos (nome do filtro, extensão), ' mas se um número ímpar de argumentos for passado, anexa *.* Dim strFiltro As String Dim intRet As Integer Dim intNúm As Integer intNúm = UBound(varFilt) If (intNúm <> -1) Then For intRet = 0 To intNúm strFiltro = strFiltro & varFilt(intRet) & vbNullChar Next If intNúm Mod 2 = 0 Then strFiltro = strFiltro & "*.*" & vbNullChar End If strFiltro = strFiltro & vbNullChar Else strFiltro = "" End If MSA_CriarSeqüênciaDeFiltro = strFiltro End Function Function MSA_ConverterSeqüênciaDeFiltro(strFiltroEnt As String) As String ' Cria uma seqüência de filtro a partir de uma seqüência separada por barras ("|"). ' A seqüência deve consistir em pares filtro|extensão, como "Access Databases|*.mdb|All Files|*.*" ' Se não houver extensões para o último par de filtro, *.* será adicionado. ' Este código ignora quaisquer seqüências vazias, ou seja, pares "||". ' Retorna "" quando a seqüência passada está vazia. Dim strFiltro As String Dim intNúm As Integer, intPos As Integer, intÚltPos As Integer strFiltro = "" intNúm = 0 intPos = 1 intÚltPos = 1 ' Adiciona seqüências enquanto encontra barras. ' Ignora quaisquer seqüências vazias (não admitidas). Do intPos = InStr(intÚltPos, strFiltroEnt, "|") If (intPos > intÚltPos) Then strFiltro = strFiltro & Mid(strFiltroEnt, intÚltPos, intPos - intÚltPos) & vbNullChar intNúm = intNúm + 1 intÚltPos = intPos + 1 ElseIf (intPos = intÚltPos) Then intÚltPos = intPos + 1 End If Loop Until (intPos = 0) ' Obtém a última seqüência se ela existir (assumindo ' que strFiltroEnt não termina em barra). intPos = Len(strFiltroEnt) If (intPos >= intÚltPos) Then strFiltro = strFiltro & Mid(strFiltroEnt, intÚltPos, intPos - intÚltPos + 1) & vbNullChar intNúm = intNúm + 1 End If ' Adiciona *.* se não houver extensão para a última seqüência. If intNúm Mod 2 = 1 Then strFiltro = strFiltro & "*.*" & vbNullChar End If ' Adiciona NULL de terminação se temos algum filtro. If strFiltro <> "" Then strFiltro = strFiltro & vbNullChar End If MSA_ConverterSeqüênciaDeFiltro = strFiltro End Function Private Function MSA_ObterSalvarNomeArq(msaof As MSA_OPENFILENAME) As Integer ' Abre o diálogo de salvar arquivo. Dim of As OPENFILENAME Dim intRet As Integer MSAOF_para_OF msaof, of of.flags = of.flags Or OFN_HIDEREADONLY intRet = GetSaveFileName(of) If intRet Then OF_para_MSAOF of, msaof End If MSA_ObterSalvarNomeArq = intRet End Function Function MSA_SimplesObterSalvarNomeArq() As String ' Abre o diálogo de salvar arquivo com valores padrões. Dim msaof As MSA_OPENFILENAME Dim intRet As Integer Dim strRet As String intRet = MSA_ObterSalvarNomeArq(msaof) If intRet Then strRet = msaof.strCaminhoCompletoRetornado End If MSA_SimplesObterSalvarNomeArq = strRet End Function Private Function MSA_ObterAbrirNomeArq(msaof As MSA_OPENFILENAME) As Integer ' Abre o diálogo Abrir. Dim of As OPENFILENAME Dim intRet As Integer MSAOF_para_OF msaof, of intRet = GetOpenFileName(of) If intRet Then OF_para_MSAOF of, msaof End If MSA_ObterAbrirNomeArq = intRet End Function Function MSA_SimplesObterAbrirNomeArq() As String ' Abre o diálogo Abrir com valores padrões. Dim msaof As MSA_OPENFILENAME Dim intRet As Integer Dim strRet As String intRet = MSA_ObterAbrirNomeArq(msaof) If intRet Then strRet = msaof.strCaminhoCompletoRetornado End If MSA_SimplesObterAbrirNomeArq = strRet End Function Private Sub OF_para_MSAOF(of As OPENFILENAME, msaof As MSA_OPENFILENAME) ' Esta sub converte da estrutura Win32 para a estrutura do Microsoft Access. msaof.strCaminhoCompletoRetornado = Left(of.lpstrFile, InStr(of.lpstrFile, vbNullChar) - 1) msaof.strNomeDeArquivoRetornado = of.lpstrFileTitle msaof.intDeslocamentoDoArquivo = of.nFileOffset msaof.intExtensãoDoArquivo = of.nFileExtension End Sub Private Sub MSAOF_para_OF(msaof As MSA_OPENFILENAME, of As OPENFILENAME) ' Esta sub converte da estrutura do Microsoft Access para a estrutura Win32. Dim strArquivo As String * 512 ' Inicializa algumas partes da estrutura. of.hwndOwner = Application.hWndAccessApp of.hInstance = 0 of.lpstrCustomFilter = 0 of.nMaxCustrFilter = 0 of.lpfnHook = 0 of.lpTemplateName = 0 of.lCustrData = 0 If msaof.strFiltro = "" Then of.lpstrFilter = MSA_CriarSeqüênciaDeFiltro(ALLFILES) Else of.lpstrFilter = msaof.strFiltro End If of.nFilterIndex = msaof.lngÍndiceFiltro of.lpstrFile = msaof.strArqInicial _ & String(512 - Len(msaof.strArqInicial), 0) of.nMaxFile = 511 of.lpstrFileTitle = String(512, 0) of.nMaxFileTitle = 511 of.lpstrTitle = msaof.strTítuloDoDiálogo of.lpstrInitialDir = msaof.strDirInicial of.lpstrDefExt = msaof.strExtensãoPadrão of.flags = msaof.lngSinalizadores of.lStructSize = Len(of) End Sub 7º No Form em modo Desing, crie um Botão de Comando, e no EVENTO AO CLICAR, coloque o código abaixo: Dim strCaminho As String strCaminho = localizarArquivo("c:\") If IsNull(strCaminho) Or strCaminho = "" Then Exit Sub Link = strCaminho Lembrando que a Imagem não é carregado de imediato, após seleciona-la, navegue entre algum registro p/ que ela apareça... Espero ter ajudado.. Abçs! beleza Pessoal, já resolvei quase todo o meu probelma.... Preciso saber, como posso fazer para criar um botão que apague(limpar) as informações de um campo especifico em um determinado registro?? Valeu..

Bom dia MrMajl! Na verdade é uma dúvida, desculpe-me a enrolada que eu dei, por ter postado como se faz... Havia visto o Post que você havia feito, Quero que ao invés do usuário digitar o endereço da foto, quero que ele click em um botão e através de uma "Caixa de Dialogo" ele procuro a foto no Computador e este salve o caminho dela num campo.... Até tenho o código pra isso, mas quando clico no botão, da um erro.... Minha dúvida é quanto ao erro que aparece quando clico no botão... Valeu!

beleza Galera! Eu consegui um código para visualizar fotos em FORM, as fotos ficam salva em uma pasta, e atraves do endereço, é visualizada no FORM, mas esta dando um erro: Abaixo segue o código: (A mensagem d erro é: ERRO DE COMPILAÇÃO - OTIPO DEFINIDO PELO USUARIO NOA FOI DEFINIDO...., e quando eu clico em depurar, aparece selecionado Dim CxDialog As Office.FileDialog O que posso fazer para resolver? 1º Crie uma tabela com o seguintes campos, dê o nome que desejar: --------------------------------- Foto, Numeração Automática Descricao, Texto, 50 Link, Texto, 255 --------------------------------- 2º Crie um formulário baseado nessa tabela 3º Insira um controle Imagem nesse formulário (selecione uma foto qualquer) e defina seu nome como imagem. 4º Insira um botão ao lado da caixa de texto Link 5º Acione a caixa de propriedades (F4) do seu botão e no procedimento do evento Ao clicar insira o código abaixo: Private Sub MeuBotao_Click() 'É necessário fazer referência a Microsoft Office 11.0 Object Library 'em Ferramentas > Referências no Editor do Visual Basic Dim CxDialog As Office.FileDialog Set CxDialog = Application.FileDialog(msoFileDialogFilePicker) With CxDialog 'define como seleção simples .AllowMultiSelect = False ' Define o titulo da caixa de diálogo .Title = "Selecione uma imagem" ' limpa os filtros .Filters.Clear 'adiciona novos filtros .Filters.Add "JPG", "*.jpg" .Filters.Add "BMP", "*.bmp" .Filters.Add "Todos os arquivos", "*.*" 'mostra a caixa de dialogo If .Show = True Then 'se alguma imagem tiver sido escolhida 'atribuie o endereço da imagem ao campo link Me.link = .SelectedItems(1) 'exibe a foto me.Imagem.Visible = True 'carrega a foto Me.Imagem.Picture = Me.link End If End With End Sub 6º Vá no menu Ferramentas > Referências do Editor Visual basic e Marque a biblioteca Microsoft Office 11.0 Object Library. Isso é imprescendível para o funcionamento da rotina. Eu estou usando o Office 2003, de acordo com a sua versão pode ser outra, mas com o nome muito próximo a essa. 7º Volte ao seu formulário. Nas propriedades dele vá no envento No Atual e digite o código abaixo: Private Sub Form_Current() If Me.link <> nil Then Me.Imagem.Visible = True Me.Imagem.Picture = Me.link Else Me.Imagem.Visible = False End If End Sub

beleza Galera! Tenho um form onde cadastro funcionários. O cadastro funciona assim, para cada Filial, possuo uma qtde X de funcionários, cada um com um n.º de Matricula. Preciso fazer o seguinte. Criar por exemplo uma ComBox, que ao selecionar a Unidade (Filial) traga os nome e o n.ºs de matriculas dos funcionarios que trabalhem lá... É possivel? Valeu

\Valeu Mrmarlj!!!

Boa Tarde Galera! Desculpem-me por estar utilizando este Post novamente, já que o mesmo esta como Resolvido! Depois que coloqueio o Programa p/ rodar foi que me disseram uma coisa. O Codio para habilitar os campos funciona, mas se eu deixo ele em branco, ele continua visivel, Se eu o deixo Selecionado e depois tiro, ele apaga, mas quando abro o Form denovo, no mesmo cadastro, os campos aparecem, é possivel fazer com que os campos fiquem Invisiveis, aparecendo somente se o Campo SIM/Não estiver selecionado?? Obrigado!