MrMALJ

Fera sinto muito eu nem conhecia isso, mais ainda assim pesquisei, e a única caisa que descobri que isso é um software da fujitsu... sinto não poder ajudar!

Veja os links abaixo: http://forumaccess.com/eve/forums/a/tpc/f/...06395#625106395 http://forumaccess.com/eve/forums/a/tpc/f/...00302#955600302 Espero que ajude!

Fera atendendo seu pedido vou retirar o arquivo, e quanto a isso que você mencionou agora basta que você coloque no lugar dos txt? o nome da caixa de texto que deseja, para isso basta clicar com o botão direito da caixa de texto onde você seleciona o cliente e ache a propriedade de evento "Após atualizar" e faça as mudanças!... vlw

Ok dark, envie o arquivo para mrmalj@yahoo.com.br Fera seguinte criei uma consulta "tstBuscaDados" que irá filtrar os dados do cliente, então no formulário criei 4 caixas de texto (txt1,txt2,txt3 e txt4) não acopladas que serão atualizadas sempre que o campo de clientes da OS for atualizada! Bom pelo que vi isso resolve seu problema, o arquivo está anexado e zipei ele com o nome da senha! Informe-nos se era isso mesmo... t+ Atendendo MP do usuário removi o anexo, quem precisar do exemplo peço que entre em contato com o mesmo!

Opa Fernando, tranquilo fera, acho que o Elber se expressou mal, toda dica aqui postada é bem vinda, pena que não consegui acessar a página do link... mais valeu assim mesmo!

Fera se você puder me envio seu BD eu faço as altereação e posto pra você!

Ummm talvez isso lhe ajude http://accessjr.brinkster.net/detalhe.asp?...arch=MSysObject

Ummm, se realmente for problema com o BD talvez o artigo do link abaixo lhe ajude, mais também pode se problema com o próprio office. http://support.microsoft.com/kb/279334/pt-br ou ainda tenta pegar o programa share abaixo! http://www.filehungry.com/portuguese/produ...database_repair

Essa eu também toh querendo sabendo, está acontecendo com a versão 2003... vou ver esperar pra ver se alguém conseguiu resolver isso!

Veja bem, crie o campo na tabela venda e quando lançar o produto na venda faça com que o sistema insira o valor da tabela estoque no campo que você criou.

bom fiz um exemplo que você pode adaptar a sua necessidade, veja o tópico abaixo e nos dê o retorno. http://scriptbrasil.com.br/forum/index.php?showtopic=100675

Cláudia, o problema é justamente por você manter o preço dos produtos somente na tabela estoque, se você tivesse um campo em vendas que armazenasse esse valor você não estaria tendo este problema, você pode cria um campo em vendas que pegue o valor atual do produto na tabela estoque, então quando você atualizasse este campo no estoque o valor das vendas passadas não sofreriam alterações!

Se os campos já estiverem relacionados fica fácil, porém aconselho você á utilizar nomeclatura diferente (evita erros de retundância) por exemplo se você utiliza codVenda na tabela manutenção isso quer dizer que na tabela vendas você teria algo como numVenda e sabendo que a garantia é baseada na data da compra o que tem de fazer é buscar a data venda!

Fera tai um exemplo bem simples, mais apartir daí você já poderá entender o funcionamento, disso apesar de simples apanhei muito até pensar em fazer isso, mais tenho certeza que existem formas melhores e mais práticas! Deixei 2 usuarios: mrmalj, com a senha 123456789 e usuario, com a senha 123456 Não esqueça do retorno! tstLogin.zip

Fera sei que alguém ai vai poder fazer isso pra você infelizmente agora estou com muita coisa pra fazer e não poderei pegar mais isso, mais o que você quer me parece simples, tenho certeza que alguém irá fazer pra você!

Tranquilo Elber estamos aqui pra ajudar e ser ajudado, o código deve ser colocado num módulo, e claro não fui eu que fiz, peguei a muito tempo atrás no forumaccess infelizmente não lembro o autor mais funciona perfeitamente, o que fiz foi apenas uma ou outra alteração. Function dvcpf(CPF As String) As String Dim lngSoma, lngInteiro As Long Dim intNumero, intMais, i, intResto As Integer Dim intDig1, intDig2 As Integer Dim strDigVer, strcampo, strCaracter, StrConf As String Dim dblDivisao As Double lngSoma = 0 intNumero = 0 intMais = 0 strcampo = Left(CPF, 9) strDigVer = Right(CPF, 2) For i = 2 To 10 strCaracter = Right(strcampo, i - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * i lngSoma = lngSoma + intMais Next i dblDivisao = lngSoma / 11 lngInteiro = Int(dblDivisao) * 11 intResto = lngSoma - lngInteiro If intResto = 0 Or intResto = 1 Then intDig1 = 0 Else intDig1 = 11 - intResto End If strcampo = strcampo & intDig1 lngSoma = 0 intNumero = 0 intMais = 0 For i = 2 To 11 strCaracter = Right(strcampo, i - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * i lngSoma = lngSoma + intMais Next i dblDivisao = lngSoma / 11 lngInteiro = Int(dblDivisao) * 11 intResto = lngSoma - lngInteiro If intResto = 0 Or intResto = 1 Then intDig2 = 0 Else intDig2 = 11 - intResto End If StrConf = intDig1 & intDig2 dvcpf = StrConf 'If dvcpf = strDigVer Then Rem 999.999.999-99 'CPF = Mid(CPF, 1, 3) & "." & Mid(CPF, 4, 6) & "." & Mid(CPF, 7, 9) & "-" & Right(CGC, 2) 'dvcpf = CPF If dvcpf <> strDigVer Then 'Else MsgBox "CPF inválido", vbCritical DoCmd.CancelEvent 'MsgBox "CPF válido!", vbInformation 'Else End If End Function Não esqueça de confirmar se deu certo!

Vou ver se arranjo tempo pra fazer um exemplo e mandar pra você!

Fera pra acessar os dados da receita eu não tenho, mais tenho uma função que faz os calculos pra ver se o cpf é válido ou não!

Tenta assim: suaHora=TEMPO(trim(mid(seuTexto,16,2)),trim(mid(seuTexto,18,2)),trim(mid(seuTexto,20,2)))

Faça os calculos considerando que o ano tem exatamente "365,2425" ou 365 dias e 05:49:12, os anos de 366 dias têem um dia a mais pois pegam 4 dessas sobras de horas e adicionam e fazem um novo dia!

Veja bem como disse anteriormente faço as consultas para obter os saldos, não gravo eles em nenhum lugar!

Eu fiz caixas de textos para cada critério que eu queira utilizar e um botão para executar a consulta ao clicar no botão fiz um codigo que verifica quais das caixas critérios estão nulas ou vázias e quando estão ele atribui um "*" (asterisco) a ele, então no critério da consulta coloque algo assim: como [Formulários]![seuFormulário]![seuCampo]

Fera você pode definir status para seus usuarios na hora do Cadastro, no meu caso "SysOP". "Administrador" e "Usuário", depois do login guardo o nome de usuario e seu status e nos forms faço as comparações pra permitir a ele ou não certos procedimentos, um pouco trabalhoso pois tenho que validar cada processo mais pra mim funcionou pra mim

Veja se o valor da diária é R$20 então você poderia fazer assim: Private Sub preco_aluguer_AfterUpdate() num_dias_aluguer = me.seuValorRecebido/ 20 ----------------->no case de R$60 o resultado será 3 Me.data_entrega = me.suaDataAluguel+num_dias_Aluguer----> não sei como fazer esta função End Sub Bom isso deve resolver seu problema!

Fera ainda não descobri como pegar a senha de um usuario no servidor de dominio o que consegui ate então foi conseguir o usuario que está logado na maquina com a função que passo abaixo coloque ela num módulo: Function usuarioAtivo() As String usuarioAtivo = Environ("USERNAME") End Function Para utiliza-la é por exemplo coloque ela na propriedade "Origem do controle" de uma caixa de texto assim: =usuarioAtivo() Agora quanto a forçar login no seu sistema, eu utilizo uma tabela onde cadastro os usuarios e outras informação do usuario e criei uma formulário que pede a principio login e seguida a senha para logar.