Jump to content
Fórum Script Brasil

hpunaro

Membros
  • Posts

    13
  • Joined

  • Last visited

About hpunaro

hpunaro's Achievements

0

Reputation

  1. Bom dia a todos, pessoal estou criando um banco de dados agenda baseado em um exemplo que baixei e o mesmo tem um sistema de busca. Sempre que faço a busca o access busca exatamente a palavra que digitei na busca. Por exemplo, o campo de busca refere-se a busca do nome do funcionário, eu queria só escrever o primeiro nome ao invés de escrever o nome completo e correr o risco de cometer erros de digitação. A busca é feita através de um form field e um botão search que tem o seguinte código... Usando o query simples eu até consigo criar uma expressão Like... isso não tive problemas, mas queria manter essa estrutura pra busca funcionar direto dentro do mesmo formulário, se alguém tiver uma ajuda agradeço, abs! Private Sub cmdSearch_Click() Dim strStudentRef As String Dim strSearch As String 'Check txtSearch for Null value or Nill Entry first. If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!" Me![txtSearch].SetFocus Exit Sub End If '--------------------------------------------------------------- 'Performs the search using value entered into txtSearch 'and evaluates this against values in strStudentID DoCmd.ShowAllRecords DoCmd.GoToControl ("strStudentID") DoCmd.FindRecord Me!txtSearch strStudentID.SetFocus strStudentRef = strStudentID.Text txtSearch.SetFocus strSearch = txtSearch.Text 'If matching record found sets focus in strStudentID and shows msgbox 'and clears search control If strStudentRef = strSearch Then MsgBox "Match Found For: " & strSearch, , "Congratulations!" strStudentID.SetFocus txtSearch = "" 'If value not found sets focus back to txtSearch and shows msgbox Else MsgBox "Match Not Found For: " & strSearch & " - Please Try Again.", _ , "Invalid Search Criterion!" txtSearch.SetFocus End If End Sub
  2. Olá, bom suas dicas foram ótimas e simplifiquei bastante a fórmula e consegui chegar nisso... Private Sub Command2_Click() If Val(txtres11) >= 0 Then txtres1 = Val(txtopen1) - Val(txtdl1) txtres11 = Val(txtopen2) - Val(txtdl11) Else txtres1 = Val(txtopen1) - Val(txtdl1) - 1 txtres11 = Val(txtopen2) - Val(txtdl11) + 60 End If End Sub Meu problema agora... Quando eu clico no botão que executa o comando ele dá valores diferentes...cada vez que eu clico é como se ele fizesse a situação 1 e depois a situação 2, alguma maneira de evitar isso?
  3. Bom é o seguinte eu tenho a seguinte estrutura agora e eu queria adicionar a seguinte condição Se txtres11 for menor que 0 eu devo subtrair o valor "-1" do campo txtres1 e somar o valor "+60" a txtres11 alguma sugestão, porque eu tento else...elseif e dá pau... o erro é type mismatch abraço Private Sub Command2_Click() mskdep.PromptInclude = False mskactdep.PromptInclude = False If mskdep.Text = Empty Or mskactdep.Text = Empty Then MsgBox "Please Insert a Valid Time", vbExclamation, "Delay Calculator" mskdep.PromptInclude = True mskactdep.PromptInclude = True mskdep.SetFocus Else txtres1 = txtopen1 - txtdl1 txtres11 = txtopen2 - txtdl11 End If End Sub
  4. Putz que burrice hahaha funcinou perfeito, bom mas caí em outra cilada... O que estou fazendo é um programa que calcula atrasos para que determinadas tarefas sejam executadas, com a fórmula assim só me interessaram as horas e minutos e fiz as devidas adaptações. Bom agora a segunda fase. Essa diferença de horas me deixa um tempo x em aberto e a resposta que eu obtenho é algo do tipo... "24 horas e 10 minutos" eu preciso continuar usando essas horas para justificar os atrasos, e o campo em seguida pegaria os dados do campo de horas em aberto só que deveria ser no formato padrão hh:mm e com esses "24 horas e 10 minutos" eu tenho um belo de um erro. Existe como converter isso? Abraço!
  5. Pessoal já estou faz algumas horas tentando por isso decidi pedir ajuda novamente. bom estou tentando fazer com que meu cálculo de diferença de horas suporte valores superiores a 24 horas. Fui na página do macoratti para pegar umas dicas, mas não estou conseguindo adaptar a função. bom, eu tenho dois textbox que neles eu coloco as datas+horas. um botão para executar e um terceiro botão para mostrar o resultado somente em horas. Esse é o código que tenho do site do marcoratti, mas não consigo adaptar... Dim dataincial As Date Dim datafinal As Date datainicial = #6/1/1993 8:00:00 AM# datafinal = #6/3/1993 1:00:00 PM# CalculaIntervaloTempo(datafinal-datainicial) Function CalculaIntervaloHoras(intervalo) Dim resultado As Double CalculaIntervaloHoras = Int(CSng(intervalo * 24)) End Function alguém pode daruma luz por favor, agradeço demais! Abraço
  6. Bom estou passando pelo mesmo problema quando chego nas 24 horas. Bom sou um iniciante esse split é uma novidade, vocês podem colocar algum exemplo por favor? A minha intenção é calcular a diferença entre horas que podem ser de diferentes datas e quando passa de 24 dá "pau na fórmula". Falou aí, abraço.
  7. uhauhauha do cassete! Valeu cara!
  8. Pessoal, desculpe nem sei se é certo ficar criando tópicos assim, mas é que eu já procurei no fórum antes de começar um novo. Bom é o seguinte, no meu form eu possuo textbox, bem como maskedbox e estou usando um limpa campos para remover o conteúdo, mas não a máscara de entrada. Num tópico anterior o colega me sugeriu para desativar a opção prompt include, ok funciona beleza, mas a conta que o vb tem de fazer não. Daí eu reativo o promptinclude e a limpeza de campos vai pro saco... O comando que eu uso é esse... Private Sub Command1_Click() MsgBox "All fields will be erased! Are you sure?", vbInformation mskdep="" mskactdep="" Esses em vermelho são os problemáticos. txtopen = "" txtdl1 = "" txtdl2 = "" txtdl3 = "" txtdl4 = "" txtres1 = "" txtres2 = "" txtres3 = "" txtres4 = "" cd1 = "" cd2 = "" cd3 = "" cd4 = "" End Sub Obrigado
  9. Pessoal tenho um textbox e quero colocar nele uma pré formatação para entrada de horas, algo do tipo __:__ Eu estou usando o seguinte no form activate... txtdl1 = Format("00:00", "__:__") Eu consigo exibir o que eu quero, mas queria que o ":" estivesse fixo e eu pudesse alterar somente os caracteres underline com números para formar a hora desejada. Alguma sugestão? Abraço
  10. Olá amigos, gostaria de inserir um arquivo txt em um form, existe alguma forma? Abraço e desde já agradeço
×
×
  • Create New...