Gabriel Cabral

Vlw..mas eu acho que ainda não é isso.... eu preciso que no inicio do mês, todos os clientes tenham 5h00min e conforme eles vao sendo atendidos, vai descontando e esse tempo que eles tem direito vai diminuindo.. e então quando o mês mudar, todos voltam a ter direito de 5h00min, independente de qnt tempo eles tinham no mês que passou o que eu qro é que td vez que mude o mês da data do computador, todos os clientes voltem a ter 5h00min

não, não.....é assim..... é um controle de tempo d atendimento para clientes.... Cada cliente pode ter ateh 5 horas de atendimento por mês... conforme um cliente é atendido, será atualizado o tempo que ele ainda tem para ser atendido num determinado mês.... vamos supor.... um cliente A no começo do mês tem direito de 5h para ser atendido, aí determinado dia desse mês ele é atendido por 30 minutos, então esse tempo de 30 minutos será cadastrado e o tempo do cliente será atualizado para 4h30min..... mas como todos os clientes tem direito de 5 horas por mês, quando o mês mudar [por exemplo...o dia mudar de 31/03/07 para 01/04/07], todos os campos em que cada tempo de cada cliente está cadastrado teria que voltar para 5h Tá confusa ainda a minha explicação ou deu pra intender agora??? talvez não esteja muito claro Mas qm intendeu me ajude pfavor

Olá pessoal.... alguém aew pode me ajudar?? é o seguinte... eu tenho um formulario de cadastro de clientes, e neste formulario existe um label para controle de horas em atendimento e tal.... e conforme o mês muda, este label precisa mudar automaticamente o seu caption para 05h00min, que é o tempo maximo em atendimento por mês.... tem que ter alguma coisa que controle o tempo e a data conforme o calendario do computador??? aguardo ajuda d vocês obrigado

alguém pode me informar se existe algum site com algum aplicativo para fazer em VB... como eleborar um sistema de controle de estoque ou um sistema para locadora...qualquer prática que tenha explicação passo a passo.... não apenas o codigo fonte, mas também explicação passo a passo de como fazer.... obrigado

fiz o que você disse.... mas está a mesmo coisa mas brigado d qualquer forma alguém me ajuda pfavooooorrrrr !!!!

Por favor me ajudem !!!!! tenho um formulario de cadastro d usuarios e está tudo certo....acho....... a conexao está feita..... quando vou testar o programa, preencho todos os campos e clico em gravar dados.. os campos se esvaziam pra poder cadastrar mais.... ateh aí tudo bem.... mas quando vou ao banco de dados, nenhum cadastro que fiz está lá... o banco de dados se encontra vazio...sem nenhum registro... o que está acontecendo??? o que está errado??? aqui está a codificação......se alguém tiver a paciencia d analisar e me ajudar, agradeço muito Dim vInclusao As Boolean Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then SendKeys "{Tab}" KeyAscii = 0 End If End Sub Private Sub Form_Load() Me.Left = (frmBiblio.ScaleWidth - Me.Width) / 2 Me.Top = (frmBiblio.ScaleHeight - Me.Height) / 2 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 GravarDados Case 2 LimparTela Case 3 ExcluirRegistro Case 4 Unload Me End Select End Sub Private Sub txtCodUsuario_LostFocus() Dim cnnComando As New ADODB.Command Dim rsSelecao As New ADODB.Recordset On Error GoTo errSelecao If Val(txtCodUsuario.Text) = 0 Then MsgBox "Não foi digitado um código válido, verifique.", vbExclamation + vbOKOnly + vbApplicationModal, "Erro" Exit Sub End If With cnnComando .ActiveConnection = cnnBiblioteca .CommandType = adCmdText .CommandText = "SELECT * FROM Usuarios WHERE CodUsuario = " & txtCodUsuario.Text & ";" Set rsSelecao = .Execute End With With rsSelecao If .EOF And .BOF Then LimparDados vInclusao = True Else txtNomeUsuario.Text = !NomeUsuario txtEndereco.Text = !Endereco txtCidade.Text = !Cidade txtEstado.Text = !Estado txtCEP.Text = !CEP txtDDD.Text = Empty & !DDD txtTelefone.Text = Empty & !Telefone vInclusao = False Toolbar1.Buttons(3).Enabled = True End If End With Saida: Set rsSelecao = Nothing Set cnnComando = Nothing Exit Sub errSelecao: With Err If .Number <> 0 Then MsgBox "Houve um erro na recuperação do registro solicitado.", vbExclamation + vbOKOnly + vbApplicationModal, "Aviso" .Number = 0 GoTo Saida End If End With End Sub Private Sub LimparDados() txtNomeUsuario.Text = "" txtEndereco.Text = "" txtCidade.Text = "" txtEstado.Text = "" txtCEP.Text = "" txtDDD.Text = "" txtTelefone.Text = "" End Sub Private Sub GravarDados() Dim cnnComando As New ADODB.Command Dim vConfMsg As Integer Dim vErro As Boolean On Error GoTo errGravacao vConfMsg = vbExclamation + vbOKOnly + vbSystemModal vErro = False If txtNomeUsuario.Text = "" Then MsgBox "O campo Nome não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtEndereco.Text = "" Then MsgBox "O campo Enderço não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtCidade.Text = "" Then MsgBox "O campo Cidade não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtEstado.Text = "" Then MsgBox "O campo Estado não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtCEP.Text = "" Then MsgBox "O campo CEP não foi preenchido.", vConfMsg, "Erro" vErro = True End If If vErro Then Exit Sub With cnnComando .ActiveConnection = cnnBiblioteca .CommandType = adCmdText If vInclusao Then .CommandText = "INSERT INTO Usuarios " & _ "(CodUsuario, NomeUsuario, Endereco, Cidade, " & _ "Estado, CEP, DDD, Telefone) VALUES ('" & _ txtCodUsuario.Text & ",'" & _ txtNomeUsuario.Text & "','" & _ txtEndereco.Text & "','" & _ txtCidade.Text & "','" & _ txtEstado.Text & "','" & _ txtCEP.Text & "','" & _ txtDDD.Text & "','" & _ txtTelefone.Text & "');" Else .CommandText = "UPDATE Usuarios SET " & _ "NomeUsuario = '" & txtNomeUsuario.Text & "'," & _ "Endereco = '," & txtEndereco.Text & "'," & _ "Cidade = '," & txtCidade.Text & "'," & _ "Estado = '," & txtEstado.Text & "'," & _ "CEP = '," & txtCEP.Text & "'," & _ "DDD = '," & txtDDD.Text & "'," & _ "Telefone = '," & txtTelefone.Text & "' " & _ "WHERE CodUsuario = " & txtCodUsuario.Text & ";" .Execute End If End With MsgBox "Gravação concluída com sucesso.", vbApplicationModal + vbInformation + vbOKOnly, "Gravação OK" LimparTela Saida: Set cnnComando = Nothing Exit Sub errGravacao: With Err If .Number <> 0 Then MsgBox "Houve um erro durante a gravação dos dados na tabela.", vbExclamation + vbOKOnly + vbApplicationModal, "Erro" .Number = 0 GoTo Saida End If End With End Sub Private Sub LimparTela() LimparDados Toolbar1.Buttons(3).Enabled = False txtCodUsuario.Text = "" txtCodUsuario.SetFocus End Sub Private Sub ExcluirRegistro() Dim cnnComando As New ADODB.Command Dim vOk As Integer On Error GoTo errExclusao vOk = MsgBox("Confirma a exclusão desse registro?", vbApplicationModal + vbDefaultButton2 + vbQuestion + vbYesNo, "Exclusão") If vOk = vbYes Then With cnnComando .ActiveConnection = cnnBiblioteca .CommandType = adCmdText .CommandText = "DELETE FROM Usuarios WHERE CodUsuario = " & _ txtCodUsuario.Text & ";" .Execute End With MsgBox "Registro excluído com sucesso.", vbApplicationModal + vbInformation + vbOKOnly, "Exclusão OK" LimparTela End If Saida: Set cnnComando = Nothing Exit Sub errExclusao: With Err If .Number <> 0 Then MsgBox "Houve um erro durante a exclusão do registro.", vbExclamation + vbOKOnly + vbApplicationModal, "Erro" .Number = 0 GoTo Saida End If End With End Sub