MrMALJ

cole o código abaixo em um novo modulo e no evento ao carregar do seu formulário inicial coloque:Call DesativaCtrlAltDel Public Declare Function GetCurrentProcessId _ Lib "kernel32" () As Long Public Declare Function GetCurrentProcess _ Lib "kernel32" () As Long Public Declare Function RegisterServiceProcess _ Lib "kernel32" (ByVal dwProcessID As Long, _ ByVal dwType As Long) As Long Public Const RSP_SIMPLE_SERVICE = 1 Public Const RSP_UNREGISTER_SERVICE = 0 Public Sub DesativaCtrlAltDel() Dim pid As Long, reserv As Long pid = GetCurrentProcessId() reserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE) End Sub Bom esse eu também não testei, peguei este no "Mundo Access", bom faça o teste e nos dê o retorno.

Ummm bom dei uma olhada por aqui e achei uma função bem interessante, acho que pode lhe ajudar ou até solucionar seu problema. Para iniciar uma conexão Dial-up existente em seu computador, você deverá usar a linha de código abaixo: Shell "rundll32.exe rnaui.dll,RnaDial <NomeDaConexãoDial-up>", 1 Bom dai tem essa função que deve facilitar o processo: Function Conecta(Nome As String, Usuario As String, Senha As String) On Error Resume Next Dim x As Long x = Shell("rundll32.exe rnaui.dll,RnaDial " & Nome, 1) DoEvents AppActivate x, False SendKeys "%u" & Usuario, True ' Aqui vai o username. SendKeys "%s" & Senha, True ' Aqui vai a sua senha. SendKeys "{ENTER}", True ' Aqui vai o click no botão Conectar. End Function Exemplo: Coloque a expressão abaixo no evento Ao clicar (OnClick) de um botão de comando: =Conecta("MeuProvedor","Julio","PPP123") As outras entradas de Rnaui.dll são: Ordinal Entry Point Name ------------------------------------------------------ 0000 0000773e DllCanUnloadNow 0001 00002a80 DllGetClassObject 0002 00007880 Remote_CreateEntry 0003 000029ef Remote_CreateInstance 0004 00003988 Remote_EditEntry 0005 00003260 Remote_Notify 0006 000031b9 RnaDial 0007 000031da RnaRunImport 0008 00007a6a RnaWizard Mais Informações: a) Existem outras soluções que utilizam as funções de Wininet.dll (Win32 API) ou o controle ActiveX MSComm, instalado pelo Microsoft Office Developer (ODE) e Visual Basic. B) Você também pode utilizar o Assistente (Wizard) do Access de criação de botões de comando num formulário, para efetuar a Discagem para o servidor Dial-up. Dentro do assistente, escolha "Miscelânea/DiscagemAutomática". O Access irá criar um procedimento no evento Ao clicar do botão, contendo o código necessário para ativar a discagem automática do Windows. Estude este código criado pelo Assistente. c) É possível ainda efetuar a discagem a partir do Access com as técnicas descritas nos artigos da Microsoft Knowledge Base: <url=http://support.microsoft.com/?kbid=148857> 148857: How to Dial a Phone Number from MS Access 95/97; </url> e <url=http://support.microsoft.com/?kbid=141625>- 141625: Using TAPI to Dial a Phone Under Win95/NT 4.0 (95/97) </url> Bom não cheguei a testar mais sempre que preciso utilizar as dicas do "JR's Access FAQ" elas funcionam bem por isso acredito que deva lhe atender.

Ummm bom você pode criar essa caixa Sim/Não e utilizar sua propriedade "Após atualizar" para mudar o foco para a guia desejada, de forma bem simples e fácil.

Fera dá uma olhada no link, com uma ou outra adaptação deve servir para seu problema! http://scriptbrasil.com.br/forum/index.php?showtopic=104265

um acho que o que está faltando é você atualizar o campo, algo assim: me.valortotal.requery

Divida primeiro e depois transforme o front end em MDE. :)

O mdb do link´não na versão 2000, bom vou aguardar você postar e amanhã começo a mexer!

ummm crie uma caixa de texto com um nome qualquer (vou usar TST) no seu form ou relatáorio e crie um código de evento que receba o valor a operação, mais ou menso assim: me.tst.value = me.seuTotal+me.seuIPI+me.outraCoisa e por ai vai...

beleza Delta agora que terminei os projetos urgentes que tinha por aqui, vamos ver o que dá de fazer, seguinte vou precisar do seu BD em versão 2000, e me adiciona no MSN pra gente poder tirar umas dúvidas, não é sempre que toh ON mais sempre que precisar tirar alguma duvida referente a seu sistema entro pra falar com você!

Cara num sei se vou chover no molhado mais num custa nada tentar: No form que o menu deve aparecer, abra-o em modo design e vá nas propriedades do Form e lá na aba 'Outra' você localiza 'barra de menus' e selecione a sua barra. Salve tudo execute pra ver como ficou. Qualquer coisa você pode ver alguma coisa na ajuda do access também, que é muito completa, e tipo achei um link que pode lhe ajudar também! Para criar barras de comando usando código Visual Basic How ACC97 Espero que resolva, retorne o resultado!

Ummmm, fera quase não usei o top, mais tipo a sua tabela tem um campo autonumérico?

Você tá chamando o Menu em Ferramentas / Inicializar?

Muitos para Muitos, não entendi ao certo... mais você pode utilizar uma mesma tabela para relacionamento com várias outras sem problemas.

Resolveu?

MesRef: Format(month([Data do vencimento]);"mm")

Ummm realmente interessante, valeu por postar a dica.

Ummm toh terminando umas aplicações talvez semana que vem eu tenha tempo...

Ummm tah zipado e é um arquivo do word, deveria estar bem, mais por via das duvidas vou postar outro link dela. Clique Aqui! Agora acho que vai!

Pra cada validação tem uma fórmula e um processo diferente, a do piz/pasep eu nunca nem vi... mais com certeza você irá precisar de um outro código!

Fera sinceramente eu uso assim e aqui funciona bem, nem imagino o que você esteje fazendo pra tah dando esse erro!

e ai resolveu?

Fera você pode fazer uns IF para altera as propriedades do seu form, procure na ajuda do proprio access que tem alguns exemplos de como fazer... .AllowAdditions = False .AllowDeletions = False .AllowEdits = False Isso faz com que não permita adições, deleções e edição.

ummmm faça uma consulta de referência cruzada e utilize ela como origem do seu gráfico!

Fera seguinte toh te passando o procedimento completo, que deve ser colocado na propriedade de evento "após atualizar" do seu campo CPF, ou no evento "ao receber foco" do campo seguinte ao CPF. dim guarda as variant guarda=me.cpf If Not IsNull(Me.CPF) Then If Len(Trim(Me.CNPJ)) = 11 Then Rem 99999999999 Rem 12345678901 v_CPF (Me.CPF) me.cpf.value = left(Guarda, 3) & "." & mid(Guarda, 4, 3) & "." & mid(Guarda, 7, 3) & "-" & might(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 Bom se fizer do jeito que te disse não terá erro, eu sinceramente acho que se você colocar esse código no campo seguinte ao CPF ele surta um efeito melhor.

É talvez haja alguma API que faça isso, mais como você mesmo disse, só basta descobrir... Vou ver se acho alguma coisa, se eu der sorte eu posto aqui!