MrMALJ

ummmm, então devo presumir que sua aplicação foi toda feita com assistente...rsrsrs Cara seguinte tu tem que criar a tabela pra armazenar isso, aconselho você a colocar essa função num módulo, e chama-la sempre num evento do formulário de abertura de seu sistema!

Bom quando eu fazia isso eu utilizava uma função que guardava o nr de série numa tabela, e toda vez que abria ele verificava essa serie e caso fosse diferente ele retornava uma mensagem e fechava a aplicação, a função que eu usava na epoca não tenho mais, porém fiz uma pesquisa e encontrei uma no JRs FAQ. Function NuHD() As String Dim fs, d, sTmp Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName( _ fs.GetAbsolutePathName("C:"))) sTmp = Hex$(d.SerialNumber) NuHD = Left$(sTmp, 4) & "-" & Right$(sTmp, 4) End Function Bom espero que resolva!

Crie um caixade texto não acoplada e na sua origem e controle digite algo assim: =[nz([seuTotalEntrada])-nz([seuTotalSaida])

Cara quando quero manter o foco no objeto, eu sempre faço a validação na propriedade de "Ao receber foco" do proximo objeto, mostro a mensagem e retorno o foco.

Fera dá uma olha no link esse programinha talvez lhe ajude! http://portugues.softpicks.net/software/Ac...er_pt-17315.htm

Fera sua dúvida é simples tem vários tópicos aqui no forum que foram resolvidos, e são semelhantes a sua dúvida, utilize a busca do forum e procure por DLOOKUP.

1º) Pode ser resolvido fazendo o Relacionamento entre as tabelas; 2º) docmd.gotorecord,,acnewcec (esse código muda o foco sempre para um novo registro) 3º) se o combo está num subForm e o "ME Responsavel" no pricipal você deve usar algo assim: Forms!NomeForm!ME_Responsavel 4º) Você pode fazer um código para atualizar as demais sempre que atualizar essa aba. Infelizmente aqui não consigo abrir o 4shared e por isso não tenho como abrir seu banco mais acho que o que expus pode resolver!

Tem como você postar o Bd?

Sim o que você tah querendo exatamente, você postou as formulas mais não disse onde e como quer usar!

O access pode ser usado para construir isso sim, para "sincronizar" (pelo que entendi centralizar tudo num só) você poderia criar criar uma opção onde você vicularia as tabelas externas no caso as tabelas de seus BDs das outras estações e executaria uma consulta acrescimo.

MDE?

Ummm... bom você pode utilizar um codigo de evento simples "Após atualizar" o seu campo do form principal ou então "Ao receber o foco" no seu campo do subForm, mais ou menos assim: if isnull(me.campoSub) then me.campoSub.value=forms!seuFormPrincipal!campoPrincipal end if O if fará uma validação de conteúdo no campo, se ele estiver nulo ele irá atualizar o conteúdo do campo no sub formulário fazendo ele ficar igual ao do formulario principal, caso necessite que ele fique sempre igual do principal sempre basta retirar o IF. Retorne se deu certo ok!

É algo mais ou menos assim, Select * from suaTabela where month([suaData]) between month([suaData]3)+3 Adapte, teste e nos retorne ok?

Bom na estrutura da tabela altera a quantidade de caracteres que deseja em "Tamanho do Campo".

Fera utilize a ajuda do access e comece procurando por "Recordset", você irá encontrar diversos exemplos apartir dele, ok?

Fera crie uma caixa de texto ou uma variável pra guardar o resultado e faça uma operação direta mais ou menos assim: seuObjetoParaGuardar=suaData2-suaData2 Isso resolve!

Infelizmente nem eu entendi :(

Sinceramente não aconselho guardar fotos no seu Bd, seu banco irá ficar grande rapidamente, aqui no forum já foram feitos alguns tópicos sobre o assunto utilize a busca e encontre os tópicos, lembro que deixei um exemplo por lá...

Ummmm posivelmente possa ser isso, afinal os kernell são diferentes...

Como disse ainda não testei a função, mais como está sendo informado o telefone, lembre-se de informar somente numeros!..

Infelizmente não uso o vista, mais acho que logo logo alguém lhe dar uma luz!

Umm pelo que vi falta um "end sub" em DesativaCtrlAltDel(), tenta colocar e testar, nessas ultimas funções que te passei num testei nenhuma delas...rsrsrsr

Bom pelo que entendi você pode colocar a função na propridade ao clicar do seu botão (sinceramente não testei), então tente colocar algo assim: x=PhoneCall(me.seuTextoTelefone,me.seuTextoNome) Espero que dê certo!

Fera achei mais este código. Public Declare Function tapiRequestMakeCall _ Lib "TAPI32.DLL" (ByVal Dest As String, _ ByVal AppName As String, ByVal _ CalledParty As String, ByVal Comment _ As String) As Long Public Sub PhoneCall(sNumber As String, sName As String) Dim lRetVal As Long lRetVal = tapiRequestMakeCall(sNumber, _ App.Title, sName, "") If lRetVal <> 0 Then 'Erro qualquer ou não conseguiu! End If End Sub Crie um controle com um textbox e um botão de comando ao lado. Quando o Text tem algo, se o usuário clicar no botão a função é executada.

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long Private Const RSP_SIMPLE_SERVICE = 1 Private Const RSP_UNREGISTER_SERVICE = 0 Public Sub DesativaCtrlAltDel() ' Rotina que deve ser chamada no formulário. Dim pid As Long, reserv As Long pid = GetCurrentProcessId() reserv end sub