Henrique Flausino

Olá Pessoal. Agradeço a todos que tem me ajudado, que não foi poucas vezes. Estou com um pequeno problema. Tenho um código que soma os campos de um form, porém se um dos campos esta sem valor o mesmo não faz a soma. Obs.: fiz em código, pois foi o unico modo que encontrei para atualizar conforme o valor é alterado (evento, após atualizar). Me.TOTAL.Value = Me.Entrada + Me.Valor1 + Me.Valor2 + Me.Valor3 + Me.Valor4 + Me.Valor5 + Me.Valor6 + Me.Valor7 + Me.Valor8 + Me.Valor9 + Me.Valor10 + Me.Valor11 + Me.Valor12 + Me.Valor13 + Me.Valor14 + Me.Valor15 + Me.Valor16 + Me.Valor17 + Me.Valor18 + Me.Valor19 + Me.Valor20 + Me.Valor21 + Me.Valor22 + Me.Valor23 + Me.Valor24 + Me.Valor25 + Me.Valor26 + Me.Valor27 + Me.Valor28 + Me.Valor29 + Me.Valor30 Será que alguém poderia me ajudar com este código ou passar outro que atenda a esta situação. Desde já agradeço pela atenção. Att. Henrique Flausino.

Ok, Obrigado, já enviei o arquivo. Att. Henrique Flausino

Olá MrMALJ. Tenho um form que é aberto para carregar o programa, após 90 dias ele vence e o cliente tem que digitar um serial. Logo após ele digitar o serial o programa abre normalmente, porém apartir deste numero que foi digitado é feito o procedimento para o novo serial e validade do mesmo, neste caso estou somando 177 ao numero inicial o que gera o novo serial com validade para mais 90 dias. Se precisar te passo o programa completo por e-mail. Att. Henrique Flausino

Ok, muito obrigado. Já havia pensado nisso, porém pensei que poderia ter outra forma. Agradeço pela atenção. Att. Henrique Flausino

Olá pessoal. Estou utilizando o script abaixo para atualiza um serial toda vez q ele é digitado na caixa de confirmação. Private Sub cxRegSenha_LostFocus() DoCmd.GoToRecord , "", acFirst If Me.cxRegSenha = Me.Serial Then Me.btContinua.Visible = True Me.Confirma = -1 Else Me.btContinua.Visible = False Me.Confirma = 0 MsgBox "Senha inválida", vbCritical, "ATENÇÃO" DoCmd.Quit End If Me.DataInstala = Date Me.Serial = [Serial] + 177 End Sub Como pode ser verificado este script atualiza o valor somando 177. Queria q a próxima atualização fosse 83, ou seja, uma ele usa o valor 177 e a outra 83. Não sei se estou sendo claro, mas queria algo assim. Senha para login 177 177+83 seria a próxima senha (260) 260+177 seria a próxima senha (437) 437+83 seria a próxima senha (520) Assim por diante. Será que é possivel fazer isto? Grato pela atenção. Att. Henrique Flausino

Olá pessoal. Aqui estou novamente para tirar uma duvida. Estou utilizando a função entre para localizar datas, esta funcionando corretamente, porém quando tento buscar uma data que inicie em 2007 e finalize em 2008 ele não me retorne o resultado, mesmo que o tempo seja curto, semanas, ele retornar o valor nulo. :blink: Gostaria de saber se tem outra forma de busca entre datas que não tenha esta restrição de ano. Desde já agradeço pela ajuda. Att. Henrique Flausino

Bom amigo. Me passe o que você precisa que posso tentar te ajudar, sou iniciante em access, mas pelo que pude ver o que você quer é bem simples de fazer. Se puder me mandar um e-mail com os dados que você precisa te ajudo e criaremos juntos ok. E-mail: rique_tec@ig.com.br Att. Henrique Flausino

Olá pessoal. Somente para colocar como resolvido este tópico, vou colocar a solução que encontrei. Cadastrar o CPF's sequenciais 111111111-11, 222222222-22 etc, e colocar a opção de index: Sim (Duplicação não autorizada). Se alguém tiver uma solução mais simples favor postar para que possa utilizar aqui. Desde já agradeço pela atenção. Att. Henrique Flausino

Olá MrMALJ :) e cia. Seguinte, consegui achar uma solução para este problema e estou postando, pois como eu, muitos precisam desta função. Obs.: Para solucionar meu problema coloque como evento ao abrir o form, porém pode ser colocado como botão, o que não aconselho. Vamos lá, vou passar um passo a passo da solução, pois sei o quanto é dificil para um iniciante fazer com que esta função seja executada. 1° - Baixe o arquivo extraia ele na pasta onde esta o bd. Esta dll não foi feita por mim, por isso não posso garantir q seja 100%, mas comigo esta funcionando normalmente. http://riquetec.scriptmania.com/MouseHook.zip 2° - Insira no access um novo módulo com o nome de modMouseHook e o código abaixo. Option Compare Database Option Explicit Private Declare Function LoadLibrary Lib "kernel32" _ Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Private Declare Function FreeLibrary Lib "kernel32" _ (ByVal hLibModule As Long) As Long Private Declare Function StopMouseWheel Lib "MouseHook" _ (ByVal hWnd As Long, ByVal AccessThreadID As Long, _ Optional ByVal bNoSubformScroll As Boolean = False, Optional ByVal blIsGlobal As Boolean = False) As Boolean Private Declare Function StartMouseWheel Lib "MouseHook" _ (ByVal hWnd As Long) As Boolean Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long ' Instance returned from LoadLibrary call Private hLib As Long Public Function MouseWheelON() As Boolean MouseWheelON = StartMouseWheel(Application.hWndAccessApp) If hLib <> 0 Then hLib = FreeLibrary(hLib) End If End Function Public Function MouseWheelOFF(Optional NoSubFormScroll As Boolean = False, Optional GlobalHook As Boolean = False) As Boolean Dim s As String Dim blRet As Boolean Dim AccessThreadID As Long On Error Resume Next ' Our error string s = "Sorry...cannot find the MouseHook.dll file" & vbCrLf s = s & "Please copy the MouseHook.dll file to your Windows System folder or into the same folder as this Access MDB." ' OK Try to load the DLL assuming it is in the Window System folder hLib = LoadLibrary("MouseHook.dll") If hLib = 0 Then ' See if the DLL is in the same folder as this MDB ' CurrentDB works with both A97 and A2K or higher hLib = LoadLibrary(CurrentDBDir() & "MouseHook.dll") If hLib = 0 Then MsgBox s, vbOKOnly, "MISSING MOUSEHOOK.dll FILE" MouseWheelOFF = False Exit Function End If End If ' Get the ID for this thread AccessThreadID = GetCurrentThreadId() ' Call our MouseHook function in the MouseHook dll. ' Please not the Optional GlobalHook BOOLEAN parameter ' Several developers asked for the MouseHook to be able to work with ' multiple instances of Access. In order to accomodate this request I ' have modified the function to allow the caller to ' specify a thread specific(this current instance of Access only) or ' a global(all applications) MouseWheel Hook. ' Only use the GlobalHook if you will be running multiple instances of Access! MouseWheelOFF = StopMouseWheel(Application.hWndAccessApp, AccessThreadID, NoSubFormScroll, GlobalHook) End Function '******************** Code Begin **************** 'Code courtesy of 'Terry Kreft & Ken Getz ' Function CurrentDBDir() As String Dim strDBPath As String Dim strDBFile As String strDBPath = CurrentDb.Name strDBFile = Dir(strDBPath) CurrentDBDir = Left$(strDBPath, Len(strDBPath) - Len(strDBFile)) End Function '******************** Code End **************** 3° - Abra o form em modo design e insira o seguinte evento nas propriedades do form. Ao Abrir: Procedimento do Evento Private Sub Form_Open(Cancel As Integer) Dim blRet As Boolean blRet = MouseWheelOFF(False) End Sub Prontinho, agora o scroll do mouse esta desativado, abaixo vou postar o código para reativar o scroll, caso alguém queira colocar como botão. Private Sub Command16_Click() Dim blRet As Boolean blRet = MouseWheelON End Sub Esta ai a solução, caso alguém tenha uma mais simples, por favor posta aqui, pois usar dll nem sempre é bom, pois o user pode excluir a mesma. Solução retirada do site http://www.lebans.com/mousewheelonoff.htm (em inglês). Agradeço a todos pela força. Att. Henrique Flausino

Olá MrMALJ. Como havia dito já procurei no site e não tem nenhum tópido com a solução deste problema, o unico que se aproxima é um onde tenho que criar uma dll, que tb não foi totalmente solucionado, pois não tem como implementar esta dll. Por este motivo tive q abrir um tópico para tratar este assunto. Desde já agradeço pela ajuda. Att. Henrique Flausino

Olá. Caros, Estou tentando bloquear a opção de add registro com o Scroll do mouse e não estou conseguindo. Já verifiquei no forum todo e em nenhum lugar consegui achar esta opção resolvida. Será que alguém poderia me ajudar? Att. Henrique

Oi. Este script já estou usando e esta funcionando perfeitamente, porém preciso bloquear registros com o CPF 111111111-11 (que é valido), pois o mesmo passa sem problemas pelo validador. Desde já agradeço pela ajuda. Att. Henrique

Muito obrigado MrMALJ. :rolleyes: Você já me ajudou muito, agradeço pela força e pela paciencia.

Boa tarde. Caros, Tenho um sistema para validação de CPF, porém ele esta com uma "falha" e preciso da ajuda de vocês. Consegui criar um validador com 95% de eficiencia, porém ele esta deixando cadastrar numeros sequenciais (111.111.111-11), que é um cpf válido. Preciso bloquear este tipo de CPF mas não sei como. Será que alguém poderia me ajudar? Obs: sou iniciante em access por isso posso a gentileza de que me informem com detalhes para implementação do mesmo. Desde já agradeço pela atenção. Att. Henrique Flausino

Valeu...Muito obrigado. Já comecei a montar o banco de dados, como é para ontem já sabe né rs. Será que poderia me ensinar como faz para ao selecionar um estado em uma caixa de combinação faz carregar a outra com as possíveis cidades. Agradeço pela força e pela paciencia tb. Att. Henrique Flausino

Olá :) Já estou fazendo isto, mas preciso começar a montar o banco de dados já, é um trabalho para ontem... entende. Será qu poderia me indicar onde encontro um material completo e com ex. para pessoas iniciantes como eu? Agradeço desde já pela atenção. Att. Henrique Flausino

Bom dia. Caros, Estou tentando montar um banco de dados para cadastro de vendas (cliente), vendedor, forma de pagamento, e tudo mais. Gostaria de saber se alguém tem algum tutorial para montar tal banco, pois sou super leigo no assunto e estou estudando via apostilas que baixei aqui no site, mas esta complicado :blink: . Se alguém tiver algum ex. agradeço. Desde já agradeço pela força ;) Att. Henrique Flausino