Gabriel Cabral

alguém me ajuda pelamor de deus shauhsuashauhsuahsuahsuahsuhsua

Eu poderia usar uma funçao pra pegar a data e assim verificar quando for dia 1º de cada mês, eu gravar o que quero nos campos da tabela..... isso funcionaria se não tivesse dia primeiro que cai em sabado e/ou domingo não é? porque nesses dias o computador não é ligado e então, no dia seguinte, vamos supor um segunda feira, dia 2, o mês mudou mas nada acontecerá porque já não é dia 1º mais...... então não dá mesmo pra usar uma funçao dessas.... era isso que eu precisava fazer, mas não sei como fzr isso usando o timer... os links que você me passou não ajudaram muito :unsure: você saberia me explicar como eu devo fzr isso....ou como eu devo utilizar o timer pra fzr isso??!! obrigado

Intao...acho que não tem codigo em comum entre as tabelas não... porque assim.... primeiro eu cadastro um cliente na tabela Clientes..e um dos campos é um tempo (TempoDisp)..que no caso será cadastrado 05:00 dps, em outro form, usando a tabela Atendimentos, eu cadastro um atendimento... chamo um cliente por uma combo, e seu tempo que foi cadastrado no campo TempoDisp da tabela Clientes, é gravado no campo TempoDispAtend da tabela Atendimentos... o que eu qria agora era gravar no campo TempoDisp da tabela Clientes o que foi gravado no campo TempoDispAtend da tabela Atendimentos... quer que eu passe o codigo do que já fiz pra você analisar???

Olá pessoal.... eu tenho duas tabelas...Clientes e Atendimentos na tabela clientes, eu cadastro um determinado tempo no campo TempoDisp na tabela atendimentos eu chamo e gravo no campo TempoDispAtend o que foi gravado em TempoDisp o que eu não estou conseguindo fazer é gravar no TempoDisp o que foi alterado e gravado em TempoDispAtend como faço??? espero que possam em ajudar obrigado

Bem..que eu saiba sim....DadosAtendimentos está apontando pro registro esperado... e TempoDispAtend é do tipo TEXT

Mas como eu faço isso??? sou iniciante em vb..não sei usar muito bem o timer... poderia me explicar?? obrigado

obrigado pela dica.......mas eu postei em lugar errado......eu preciso fazer isso no vb... é a mesmo coisa???

Olá pessoal..... minha duvida é o seguinte... tenho um campo d uma tabela em que seu conteúdo é determinado tempo [ex.: 03:30] gostaria de saber como faço pro campo desse tempo d todos os clientes cadastrados terem o valor 05:00 ao mudar o mês do computador.... espero que possam me ajudar Obrigado

Olá pessoal..... minha duvida é o seguinte... tenho um campo d uma tabela em que seu conteúdo é determinado tempo [ex.: 03:30] gostaria de saber como faço pro campo desse tempo d todos os clientes cadastrados terem o valor 05:00 ao mudar o mês do computador.... espero que possam me ajudar Obrigado

Olá pessoal.....to com um pequeno problema com uma msgbox é o seguinte.... o código que coloquei pra msgbox é esse MsgBox "Tempo disponível para atendimento ao cliente " & Clientes.Recordset.Fields("NomeFantasia") & ": " & DadosAtendimentos.Recordset.Fields("TempoDispAtend") mas o texto que aparece na msgbox é esse Tempo disponível para atendimento ao cliente [nome_do_cliente_que_está_gravado_no_campo_NomeFantasia]: só isso.....o que está gravado no campo TempoDispAtend, que é o tempo disponivel, não aparece.... o que está errado??? Obrigado

Intao Rochedo, eu tentei fazer isso que você falou..mas não tá dando certo não... não teria que ser tabelaclientes.recordset.fields("nomecliente")....e assim por diante???? porque não está dando certo mesmo.... qr que eu lhe envie o codigo do que estou fazendo pra ficar mais facil de você poder me ajudar??? obrigado

Olá pessoal..... eu tenho duas tabelas..... uma de clientes e outra d atendimentos..... no formulario d atendimentos, há uma combo box em que estao gravados todos os clientes cadastrados na tabela Clientes um dos campos da tabela clientes é "TempoDisp" eu gostaria de saber como faço pra quando eu selecionar um cliente na combo box do formulario atendimentos, o valor "TempoDisp" desse cliente, que foi cadastrado na tabela clientes, aparecer no campo "TempoDispAtend", que pertence à tabela atendimentos. Obrigado

mas é que pro usuario, seria melhor trabalhar com o tempo em horas e minutos... pois tem muita gnt que se confunde ao usar apenas minutos...

Olá pessoal, eu tenho um campo em um formulario com o valor 05:00 (05h00min) e em outro formulario, eu qro cadastrar a duração do atendimento a cada cliente. como uso o TimeSerial() nesse caso?? como devo fazer pra subtrair um campo de um formulario por um campo d outro formulario??? colocarei aqui parte do codigo pra vocês avaliarem o que fiz e o que está errado... Private Sub cmdGravar_Click() Dim descontarhora As Integer Dim descontarminuto As Integer descontarhora = Hour(mkeTempo.Text) descontarminuto = Minute(mkeTempo.Text) cmdIncluir.Enabled = True cmdGravar.Enabled = False mkeData.Enabled = False mkeTempo.Enabled = False cboCliente.Enabled = False DadosAtendimentos.Recordset.Fields("Data") = mkeData DadosAtendimentos.Recordset.Fields("Tempo") = TimeSerial(Hour(mkeTempo.Text), Minute(mkeTempo.Text), 0) DadosAtendimentos.Recordset.Fields("Cliente") = cboCliente.Text DadosAtendimentos.Recordset.Update Clientes.Recordset.FindFirst "NomeFantasia = '" & cboCliente.Text & "'" If Clientes.Recordset.NoMatch = False Then If IsNull(Clientes.Recordset.Fields("TempoDisp")) = False Then Clientes.Recordset.Edit Clientes.Recordset.Fields("TempoDisp") = TimeSerial(Hour(Clientes.Recordset.Fields("TempoDisp")) - descontarhora, Minute(Clientes.Recordset.Fields("TempDisp")) - descontarminuto, 0) Clientes.Recordset.Update MsgBox "Este cliente possui " & Clientes.Recordset.Fields("TempoDisp") & " disponíveis para atendimento este mês." Clientes.Refresh DadosAtendimentos.Refresh End If End If End Sub Obrigado

gente.....surgiu um novo problema aqui.... é que eu tenho um campo em um formulario com o valor 05:00 (05h00min) e em outro formulario, eu qro cadastrar a duração do atendimento a cada cliente. como uso o TimeSerial() nesse caso?? como devo fazer pra subtrair um campo de um formulario por um campo d outro formulario??? colocarei aqui parte do codigo pra vocês avaliarem o que fiz e o que está errado... Private Sub cmdGravar_Click() Dim descontarhora As Integer Dim descontarminuto As Integer descontarhora = Hour(mkeTempo.Text) descontarminuto = Minute(mkeTempo.Text) cmdIncluir.Enabled = True cmdGravar.Enabled = False mkeData.Enabled = False mkeTempo.Enabled = False cboCliente.Enabled = False DadosAtendimentos.Recordset.Fields("Data") = mkeData DadosAtendimentos.Recordset.Fields("Tempo") = TimeSerial(Hour(mkeTempo.Text), Minute(mkeTempo.Text), 0) DadosAtendimentos.Recordset.Fields("Cliente") = cboCliente.Text DadosAtendimentos.Recordset.Update Clientes.Recordset.FindFirst "NomeFantasia = '" & cboCliente.Text & "'" If Clientes.Recordset.NoMatch = False Then If IsNull(Clientes.Recordset.Fields("TempoDisp")) = False Then Clientes.Recordset.Edit Clientes.Recordset.Fields("TempoDisp") = TimeSerial(Hour(Clientes.Recordset.Fields("TempoDisp")) - descontarhora, Minute(Clientes.Recordset.Fields("TempDisp")) - descontarminuto, 0) Clientes.Recordset.Update MsgBox "Este cliente possui " & Clientes.Recordset.Fields("TempoDisp") & " disponíveis para atendimento este mês." Clientes.Refresh DadosAtendimentos.Refresh End If End If End Sub Obrigado

Aew gente.....agora deu certo....muito obrigado.... tinha também uma coisa errada que o resultado tava dando 00:00...mas é porque eu tava mandando subtrair mkeTempo1 de mkeTempo1....sendo que o certo é subtrair mkeTempo2 de mkeTempo1 Vlw gnt ateh a proxima.....

nossa...é mesmo........hsauhsuahsuahus mas assim...... descontarhora e descontarminuto terao valores que serao atribuídos na mascara mkeTempo1.Text, não é??? então eu fiz assim.... Private Sub cmdOK_Click() Dim descontarhora As Integer Dim descontarminuto As Integer tempo = mkeTempo1.Text descontarhora = mkeTempo1.Text descontarminuto = mkeTempo1.Text txtResultado.Text = TimeSerial(Hour(tempo) - descontarhora, Minute(tempo) - descontarminuto, 0) End Sub mas continua dando erro.......

Ok.....já tirei akela linha.... ficou assim.. Private Sub cmdOK_Click() Dim descontarhora As Integer Dim descontarminuto As Integer tempo = mkeTempo1.Text txtResultado.Text = TimeSerial(Hour(tempo) - descontarhora, Minute(tempo) - descontarminuto, 0) End Sub mas eu coloco 05:00 na mkeTempo1 e 30 no mkeTempo2.....e o txtResultado fica 05:00:00 qr dizer que não está subtraindo não é???? o que está errado?? akelas variaveis são necessarias???

eu fiz isso agora...... Private Sub cmdOK_Click() Dim descontarhora As Integer Dim descontarminuto As Integer tempo = mkeTempo1.Text txtResultado.Text = TimeSerial(Hour(tempo) - descontarhora, Minute(tempo) - descontarminuto, 0) txtResultado.Text = Format(txtResultado.Text, "hh:mm") End Sub eu fiz isso mas agora o txtResultado está dando sempre 00:00 eu tenho que declarar alguma variavel????

Obrigado Donati...agora não está mais dando erro.... o mkeTempo2, onde eu coloco o tempo que quero descontar, não precisa estar com a propriedade Format= hh:mm, não é???? eu fiz o seguinte... o mkeTempo1 tem a propriedade Format=hh:mm......então eu digitei 05:00 o mkeTempo2, ficou com a propriedade Format vazia, então eu digitei apenas 30.... então o txtResultado, que tem format=hh:mm, apareceu 04:30.... ateh aí tudo bem...deu tudo certo.... mas só está fazendo a operação com minutos, não é??? e se eu precisar descontar uma hora e 20 minutos (01:20), por exemplo....tem como fzr ao invés de ter que digitar 80 (80 minutos)???

eu fiz o que você falou, donati...mas ainda está dando o mesmo erro

então.....o que está errado aqui no que fiz??? Private Sub cmdOK_Click() tempo = mkeTempo1.Text descontar = mkeTempo2.Text txtResultado.Text = TimeSerial(Hour(tempo), Minute(tempo) - descontar) txtResultado.Text = Format(txtResultado.Text, "00h00min") End Sub em tempo d execução, eu coloquei 05:00 no mkeTempo1 e 00:30 no mkeTempo2.. mas quando clico no cmdOK, dá o seguinte erro: Compile Error: Argument not optional e então o TimeSerial fica em destaque

mas como se usa essa função???

Olá pessoal.... o que eu preciso deve ser relativamente simples pra qm não é iniciante como eu.......hsuahsuahsuahsua eu preciso somar/subtrair horas e minutos....por exemplo eu tenho um campo do tipo Date/Time com o valor 05:00 (05h00min) e preciso subtrair 30 minutos...para que o campo passe a ter um valor 04:30 (04h30min) como devo fazer ???? Obrigado

Desculpa minha ignorancia, mas é que sou iniciante e não sei como nem onde faço isso.... nem que comandos eu tenho usar pra fazer isso..... eu teria mais um formulario em que seria cadastrado o tempo que o cliente foi atendido..... e então, esse tempo seria atualizado......isso eu consigo fazer..... o que eu qria saber é onde e como faço pra todos voltarem a terem "5h00min" quando a data do computador mudar de mês se quiser, posso mandar o codigo do que já fiz pra você ver o que estou fazendo