NFAC

Olá a Todos :) Gostaria que me ajudassem numa situação. Depois da base de dados(access 2007) Concluída, gostaria de publica-la numa página Web. Algem me sabe dizer alguma das maneiras possiveis? COmo devo fazer?! Que sitios web utlizar?! Qual a melhor maneira?! Obrigado Abraços.

Olá. Estava eu a trabalhar na minha base de dados e deparei-me com um problema: - Queria Fazer desaparecer a barra de ferramentas de acesso rápido. Porque esta permite o acesso às opções da Base de Dados o que torna possível a modificação da BD. Pergunto como modificar estas opções?! estou a usar o Office 2007 , este contêm a barra das ferramentas e o friso, as duas permitem ir as opções da BD. alguém me pode dar umas soluções para isto? O meu muito obrigado.

olá:) já tentei várias vezes usar este código que você me arranjou mas não estou a conseguir polo a funcionar. CODE Application.CommandBars("Menu Bar").Enabled = False mudei o nome Menu Bar , mas da-me um erros de código :S Abraços e Obrigado

olá viva, Pelo que entendi , temos de por o codigo em todos os formulários, certo?! não da para aplicar um codigo , num módulo que defina isso para todos , sem ter que por o codigo um a um?! VOu fazer dessa maneira até ver:) Abraço e obrigado:)

Viva, Desde já dou o meu retorno, já solucionei este problema. Criei um formulário com password que activa e desactica a tecla shift. coloquei um botão no menu inicial na qual abre este form, apenas com password, acedendo ao form, temos dois botoes um que desactiva e outro que activa a tecla shift :P . Pus o seguinte codigo no módulo: Option Compare Database ' Esta é a função para liberar o Shift Sub LiberaShift() Const DB_Boolean As Long = 1 ChangeProperty "AllowBypassKey", DB_Boolean, True End Sub 'Esta para Travar Sub TravaShift() Const DB_Boolean As Long = 1 ChangeProperty "AllowBypassKey", DB_Boolean, False End Sub Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then ' Propriedade não encontrada. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Erro desconhecido. ChangeProperty = False Resume Change_Bye End If End Function está a funcionar perfeitamente. Cumprimentos e obrigado pela sua ajuda:)

Viva, gostaria de saber como posso aplicar um codigo, para minimizar a barra das ferramentas do office, ficando só o fomurário que pretendo. já fiz da seguinte forma: Private Sub Form_Load() ' Minimiza a janela do Access DoCmd.RunCommand acCmdAppMinimize ´Titulo no formulário Me.Caption =" A minha Base de dados" End Sub o que acontece é que isto só se aplica ao formulário inicial. eu queria aplicar a todos... de forma a que ao clicar num botão do formulário inicial, ao abrir o próximo este também apareca sem os menus do access.. alguém sabe fazer isso, que me possa ajudar? Obrigado:)

:D Olá viva, Parece que estou a atinar com isto :)... agradeço lhe muito a sua ajuda, o seu exemplo é muito bom... vou tentar aplica-lo ao meu trabalho. o sistema de log in também. depois lhe darei o retorno . obrigado pela paciência e por me responder sempre:) Cumprimentos...

olá:) no exemplo que voce me cedeu, muito gentilmente, consegui abrir para ver o código, e para ver os formulários, relatórios, etc como é que faço ?!?! A Base dados(BD) seria para disponibilizar a vários Users, sendo que estes podessem usufruir dos seus dados, mas sem opção de a alterar... eu em tempos fiz algo com as ferramentas do access, e criei contas e defini ai as regras para cada utilizador, mas gostava de fazer isso com um log in implementado, que so premitisse editar modificar e aos outros não. já agora... secalhar também por isso não estou a entender muito bem isto, a tecla shift como é que funciona para activar e desactivar, ou seja, se eu tiver uma BD qualquer que não esteja protegida, como posso aceder com a tecla shift a estrutura? clico nela ao entar uma vez? fico a carregar? clico 5 vezes? o que faço?!!!!! OBrigado pela sua ajuda. Cumprimentos.

olá e desculpa a minha ignorância, mas antes de travar o shift não tenho de impedir que a base de dados deixe abrir os comandos que dão para modificar a sua estrutura.? Pelo que fui lendo o modo MDE serve para isso , ficando como base de leitura apenas, mas da-me erro a Base de Dados, não deixa gravar. obrigado pela ajuda:)

Olá:) Mas o modo design da para ser bloqueado... por exemplo, nos formularios, nas propriedades, defini o "menu de atalho"como (não) , o que permite não editar com o botao direito do rato , mas nos relatorios não sei como fazer isso... ao bloquear a tecla shift da para fazer isso que pretendo? muito obrigado:)

Olá. Obrigado pela sua ajuda, mas realmente não está a ser muito fácil para mim assimilar isso tudo...poderia arranjar-me um exemplo mais simples?.... Cumprimentos e Obrigado:)

Boa tarde, Gostaria de saber se existe alguma forma de bloquear a Vista Estrutura dos formulários e relatórios?! ao abrir a base de dados e clicar com o botão direito do rato sobre o formulário pode-se aceder à vista estrutura, e é essa situação que gostava de bloquear. mas com a opção de poder desbloquear também. penso que há uma forma através do menu do access, mas penso que não me deixa utilizar os filtros. alguém me pode ajudar?!?! obrigado.

olá, tenho um problema que não estou a entender e pode ser que voces me ajudem: tenho o seguinte formulario com um sub formulario (consulta) na qual pretendo filtar por intrevalo de anos. o que acontece é que ao fazer prourar ele abre -me a caixa "valor do parâmetro" na qual não queri a que aparecesse.(o comando funciona perfeitamente , só que tem este inconveniente). (nesta caixa não introduzo dados alguns, mas nem que introduza , o comando não sofre alterações). o código que efectuei na consulta é o seguinte: >=Ise(ÉNulo([Forms]![Form8]![AnoDesde]);[Form8]![AnoLectivo];[Forms]![Form8]![AnoDesde]) E <=Ise(ÉNulo([Forms]![Form8]![AnoAte]);[Form8]![AnoLectivo];[Forms]![Form8]![AnoAte]) alguém me pode identificar o erro? já dei voltas e voltas e nada:S Cumprimentos e obrigado.

olá, criei um fomulário "Sugestões" na qual queria : tornar obrigatório o preenchiemnto do campo(Email) , e caso não fosse preenchido, envia-se uma msg a dizer , por favor preencher campo email... alguém sabe de alguma dica para isto? já tentei fazer em Vba mas não saiu bem, :/ Private Sub Comando14_Click() If mail = Empty Then MsgBox "Por favor insira o Email!!!" mail.SetFocus actualiza = False End If End Sub Obrigado.:)

Olá novamente, Desde já obrigado:) e já consegui efectuar o que pretendia, através da dica que me foi indicada, usei o DISTINCT como expliquei anteriormente... e finalmente o aplikei um requery ao botão procurar. Funcionou na prefeição:) desta vez :) Cumprimentos e obrigado. Por mim podem por este tópico como [resolvido] B)

Olá, sei que este tópico já foi fechado ., mas tou com o tal problema de não aparecerem os dados... quando se vai ver os dados , eles estao lá , mas não aparecem.... só clicando na célula é que se vê que tão lá e qual é.... teem alguma explicaçºao para isto ..e alguma ajuda para o solucionar? o meu obrigado.

Olá, SELECT DISTINCT Count(QRYano.IDdocente) AS ContarDeIDdocente FROM QRYano; algo está errado neste código, porque me esta a contar os dados repetidos.... algume me sabe dizer quel é o erro? Muito obrigado .

Viva novamente, Consegui fazer isso da seguinte forma: Criei duas consultas... uma com o DISTINCT de forma a obter os dados sem ser repetidos, e criei outra de forma a contar o resultado da consulta anterior :P e deu certo :D Mas continuo com o problema de pôr o resultado no fomulário :S ao seleccionar o ano da-me uma serie de resultados... e ai gostaria de ter a contagem. já tentei fazer um requery mas ele não esta a devolver o resultado.....aparece #Nome" ou #erro# eo então da-me o numero total de dados... Obrigado:)

Olá, Tentei fazer isso, mas não estou a conseguir que o form conte os docentes... Ao fazer a procura por ano: Quero que ele conte os docentes consoante o ano que escolhi.... mas sem contar os resultados repetidos. Pode-me ajudar nesta dúvida por favor. Obrigado:)

ou seja, tenho de criar nova consulta para a caixa de texto "Contar" que se encontra na imagem, de forma a ele seleccionar o que pretendo, é isso ? Muito obrigado:) Cumprimentos.

Olá, Gostaria de inserir uma pequena utilidade na base de dados que estou a fazer.... Ao fazer a alterção no combo box escolhendo por exemplo o nome "filipe" ele faz-me a procura clicando em "Procurar" e devolve só o nome em questão. Através de uma consulta que apliquei. Gostaria de fazer duas coisas: 1º - Ao fazer uma procura do docente, ele vai nos dar vários anos. Queria fazer a contagem dos anos mas sem contar os que são repetidos, por exemplo o filipe deveria dar o resultado de 3 anos , o manuel, apesar de ter 4 anos lectivos, o ano é sempre o mesmo, daí deveria dar o resultado de 1 ano lectivo. 2º -Gostaria que ele fize-se a contagem do número de disciplinas que o docente teve, aparecendo na caixa de texto "contar" , como mostra a imagem, e à semelhança do anterior, que não contasse os valores iguais. Como faço isto amigos, Cumprimentos e obrigado a todos:)

Boas caro Leandro, Muito agradecido pelo seu exemplo ^_^ , essa é a forma que eu sei melhor fazer, não o faço através de vba mas pelos consultas sql, acabei por conseguir fazer :D atraves de uns artigos da microsoft, mas este exemplo da-me jeito para entender melhor o vba :). thanks. Em termos de pesquisa aleatória(como me mostrou no primeiro exemplo) é que não consigo fazer, é necessario muito código , pelo que tenho visto, e perco -me nas funções :( :s é possivel criar uma consulta em que procure os dados de várias colunas?! Tipo ao introduzir na caixa de texto " algo " fazer a procura na coluna ano, nome do docente, disciplina. <_< cumprimentos e muito obrigado

Boas, de facto o seu exemplo é muito bom... Mas estou com algumas dificuldades em entender o código , tlvz por ser muito verde, no vba... , tentei adaptar ao meu problema, mas tenho algumas dificuldades, tem mais algum exemplo.. que me possoa mostrar?! Obrigado:)

Boas, Indo em contra ao seu exemplo, gostaria que me explica-se o motivo de existir um módulo "basHandleQuotes" desclpe a minha ignorância.. e a caixa de "texto9" para que serve? obrigado pelo exemplo fornecido Cumprimentos:)

Olá ^_^ pretendia criar um formulário onde tivesse uma caixa de texto que fizesse uma procura num sub formulário...por exemplo por docente como faço? <_< já agora disponibilizo bd de exemplo: https://docs.google.com/leaf?id=0BwDC5dUXF2...hk&hl=pt_PT Cumprimentos e os meus agradecimentos.