BRUCCE

beleza Galera! Antes de mais nada, quero agradecer à todos que teem me ajudado a solucionar minha dúvidas! Valeu.. Bom, estou criando um relatório, porém quero que seja impresso somente os campos que estiverem preenchidos, é possivel? O meu relatório é baseado numa Consulta, que ao busca as informações pelo Cod_Id.. Valeu

Valeu MrMajl! Deu certo!

Bzl pessoal, Tenho um BD de cadastro de funcionários, estou precisando criar um critério em alguns campos. Tenho um campo de PA, em formato SIM/NÃO, quero que seja assim: Ao selecionar SIM no campo PA, seja Habiliatado os Campos, Banco/AG./Conta, caso seja NÃO quero que o sistema pule esses campos. Valeu

boa tarde MrMalj, Desculpa, mas não entendi.... tenho um Form Principal (Main) com uma barra combinação, quando eu seleciono um Form que quero, ele abre no SubForm (havia te enviado por emial um cópia, não sei se você lembra...Chamase SEGURO), acontece que quando seleciono o FORM que quero abrir, ele abre no Sub Form, e também Abre o FORM, já tentei tirar o DoCmd.... mas a função do acFormReadOnly não funciona... aonde eu posso inserir o código que você me passou? Posso te mandar um cópia do BD se você preferir. Valeu

valeu MrMalj, São tantas coisas que nem havia pensado nisso, agora eu fiz, Valeu Abç.

beleza Pessoal! Bom, tenho m BD com niveis de acesso, ontem consegui configurar quais os usuários poderam realizar Alterações/Inclusões ou Exclusões, porem na função que crei, estou tendo um problema.. O Código ficou assim: (ex.) If DLookup("[Tipo]", "Usuario", "[Tipo] ='" & Forms!Main![xxx] & "'") = "Convidado" Then DoCmd.OpenForm "Nome do Form", , , , acFormReadOnly Porém o meu BD funciona assim, Tenho um FORM principal, que traves de um SubForm abre os demais, após selecionado numa caixa de Combinação. O que está acontecendo é o Seguinte, por conta do "DoCmd.Open Form.." esse formulário esta sendo aberto 2 vezes.. existe algo para que eu possa substituir o DOCmd.openForm e que o código funcione??? Valeu!

Grande MrMalj, Valeu a dica, dei uma procurada no Forum é achei algumas coisas.. foi ligando umas informações à outras e consegui fazer... atraves de umDLookup, ficou ótimo! ´Se você quiser, pode colocar o tópico como RESOLVIDO!... Valeu. Gde Abraço.

Valeu HUmm, mas como o MrMalj disse, não funcionou! Acabei de tentar, até abre a caixa de Dialogo p/ que eu selecione o que quero importar, mas não consigo selecionar nada....Ah, esse meu "Sisteminha" só possui um FORM... não tem tabelas... Valeu pela ajuda.!

beleza, Já possuo um BD com Niveis de Acesso, já defina à quais FORM cadas Usuário terá acesso, mas não estou conseguindo definir quais os Usuários que poderam: SOMENTE CONSULTAR; os que poderam INCLUIR, EDITAR ou EXCLUIR, como posso definir isso? o mais urgente que preciso é o de consultas, pois tenho que abrir o FORM para consultas em um outro Setor. OBS: Caso alguém posso me ajudar, e quiser dar uma olhada no BD, para ficar mais fácil, posso encaminhar uma cópia pr email... Valeu

beleza Pessoal! Criei um Form para calculos (diferença de dias entre datas) porém quero que quando alguém usar o FORM ele não grave o que foi digitado, é possivel? - Após ser utilizado, e ao re-abrir quero que apareça em branco... Valeu!

Bom dia Malj! Coloquei o EVENTO AO RECEBER FOCO, mas ficou do mesmo jeito, porém consegui ajeitar aqui, e ficou assim, Se for digitado um número incorreto de PIS, o sistema apresente a mensagem de Erro, e ao clicar em OK, "ele" apaga o n.º incorreto e pula p/ o proximo campo! Daki a pouco vou postar a Função como fiz, caso alguém precise, é so pegar.! Valeu, Gde Abraço! Jefferson

Bom dia MrMlj e Hummm! quando eu abro o form, algumas opções aparece (DEMO)....e não funciona nada. Será que existe alguma maneira?? Valeu!

beleza MrMalj, Tentei usar o software qu c me recomendou, mas não funcionou, ele converte o arquivo, mas não mostra o Código VBA, e dependente do arquivo, fica corrompido Valeu

Grande Malj! Sempre me ajudando, Valeu! dei um olhada no site, creio que vai funcionar, ainda não tive tempo para testar, mas assim que eu o fizer, posto para dizer o resultado. Gde Abç

beleza Galera! Consegui a Função abaixo para realizar validação de CPF, ela esta funcionando corretamente, já testei, só tem um probleminha, quando o número do PIS/PASEP é digitado errado, simplesmente aparece uma mensagem de erro, informando que o numero esta incorreto, e pulando p/ o proximo campo. Queria que fosse assim: Ao digitar um número incorreto de PIS, o sistema emita a mensagem de erro mas que não vá p/ o proximo campo. Obrigado! Option Compare Database Option Explicit Public Function PISPASEP(Numero As String) Dim ftap As String Dim total As String Dim i As Integer Dim resto As Integer If Val(Numero) = 0 Or Len(Numero) <> 11 Then PISPASEP = False Exit Function End If ftap = "3298765432" total = 0 For i = 1 To 10 total = total + Val(Mid(Numero, i, 1)) * Val(Mid(ftap, i, 1)) Next i resto = Int(total Mod 11) If resto <> 0 Then resto = 11 - resto End If If resto <> Val(Mid(Numero, 11, 1)) Then PISPASEP = False Exit Function End If PISPASEP = True End Function

Boa Tarde, Mr Malj! Sim a replica esta em MDE.

beleza Galera! Tenho um programa de Calculo em Réplica, consegui a muito tempo,a pessoa que me forneceu também não possui a cópia original, nem o código, e só funciona no ACCESS 97, existe alguma maneira para que ele funcione em outras versoes do ACCESS. Valeu

Boa Tarde! Galera, estou precisando criar um Form que faça calculo entre duas datas. Ex. Data Inicial DD/MM/AA Data Final DD/MM/AA e Quantidade de Dias entre as Datas. Consegui fazer esse calculo no Excel, mas não estou conseguindo implantar no Access. alguém pode me ajudar! Valeu! Abçs!

Bom dia, MrMalj! Dei uma pesquisa no Forum, mas nçao consegui encontrar o Exemplo, você ainda o tem? No meu BD, implantei da maneira que expliquei acima, porém a foto não é visualizada no BD, é criado somente um "Link" que ao clicar, abre a foto. Gostaria de fazer com que as fotos ficassem visiveis, mas não estou conseguindo. Valeu

Boa Tarde, Marcelo! Eu também estava com essa dúvida, consegui fazer o seguinte: quando eu opto em colocar uma foto no BD, o que fica visivel é o NOME DA FOTO, ou o "Endereço de onde ela esta salva" Fiz o seguinte: 1 - Na tabela que você irá inserir a Foto, crie um CAMPO (ex. Foto); 2 - Defina este campo com o Formato(tipo de Dados) como OBJETO OLE; 3 - Crie um Form, baseado na tabela, com todos os campos, inclusive o campo FOTO; 4 - Para inserir as fotos nos cadastros, clique com o Botão Direito do MOUSE sobre o campo FOTO; 5 - Selecione a o~pção, INSERIR OBJETO; 6 - Abrirá uma nova janela, do lado esquerdo, selecione a opção CRIAR DO ARQUIVO; 7 - Em seguida, clique em PROCURAR, e vá até a pasta onde contem a Foto que você deseja inserir o BD; 8 - Por fim, clique em OK. Lembrando que, a foto não será visializada no BD, será criado um Ícone com o nome da Foto, e após clicar sobre o Ícone, a foto será aberta, utilizando o Software adequado. Consegui esses procedimentos na NET, porém no Site onde consegui, informava que a foto ficaria visivel no BD, pelo menos no meu não ficou. Por um lado é bom, pois se as fotos ficarem visiveis no BD, o mesmo ficará muito pesado.... Espero ter ajudado, Se souber de uma outra maneira, manda p/ nós!

Eu também uso mascara de entrada para o CPF, será por isso que não esta funcionando?

MrMajl, eu fiz o seguinte. Copie a formula que você me passou e coloquei no EVENTO AO RECEBER FOCO (do campos seguinte ao CPF). Quando entro para fazer o cadastro e chego a esse campo, aparece o erro: ERRO DE COMPILAÇÃO ERRO NA SINTAXE. Private Sub Título_GotFocus() Dim guarda As Variant guarda = Me.CPF If Not IsNull(Me.CPF) Then If Len(Trim(Me.CNPJ)) = 11 Then Rem 99999999999 Rem 12345678901v_CPF (Me.CPF) Me.CPF.Value = Left(guarda, 3) & "." & Mid(guarda, 4, 3) & "." & Mid(guarda, 7, 3) & "-" & (guarda , 2)Else MsgBox "Quantidade de números digitados não é válida! Por favor digite comente numeros (99999999999)", vbOKOnly + vbInformation Me.CPF.SetFocus End If End If End Sub

Boa tarde Galera! Para que eu consiga fazer a valiação de PIS/PASEP, posso utilizar a mesma função de Validação do CPF, ou é algo diferente?

MrMajl, Eu coloquei essa formula, mas deu erro.

Boa Tarde, Hum! Tentei fazer o uqe você me disse, mas não due certo!