Thiago Caires

OLha eu encontrei como fazer fazer ele me dá a quantidade correta.... tem um campo que os funcionários preenchem... se o reeducando se encontra na unidade ou não.... se o campo que se chama "ESTA" dentro da tabela "QUALIFICATIVA" for = SIM... ai conta agora se for igual a NÃO... ai ele não conta.... AGORA ALGUÉM PODE ME DAR UMA IDEIA DE COMO EU POSSO FAZER BATER ESSAS INFORMAÇÕES? Agradeço desde já Thiago Caires

Ele não me fala sóh dá esse erro.... "Erro "Run-time error '424' Object Required" :(

Olha... eu tenho uma programa que funciona e alguma penitenciarias.... ai como sempre esta mudando de diretores, me pediram para fazer um cadastro de diretor eu elaborei esse cadastro mas está dando erro.... "Erro "Run-time error '424' Object Required" a base se dados é em access a tabela da base de dados se chama "DIRETOR".... eu preciso que quando o usuario clique no "incluir" a pessoa possa cadastrar um novo diretor... tem um botão "gravar" tem um botão para "cancelar" tem um botão para "excluir" e outro botão para sair... e tem o campo para digitar "txtnome" para digitar o nome do proximo diretor e cadastrar... vou colocar a programação a baixo espero que vocês possam me ajudar a achar o erro.... Private Sub txtnome_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Data1.RecordSource = "select * from diretor where esta='SIM'" Data1.Refresh Data1.RecordSource = "select * from diretor=' & txtnome.Text & " '" End If End Sub Private Sub cmdcancelar_Click() Data1.Recordset.CancelUpdate Data1.Refresh cmdincluir.Enabled = True cmdgravar.Enabled = False cmdcancelar.Enabled = False cmdexcluir.Enabled = True cmdsair.Enabled = True cmdlocalizar.Enabled = True cmdimprimir.Enabled = True Data.Enabled = True cmdincluir.SetFocus End Sub Private Sub cmdexcluir_Click() If MsgBox("Deseja Excluir: " & txtnome.Text & " da lista", vbYesNo + vbInformation, "Excluir ?") = vbYes Then Data.Recordset.Delete Data.Refresh End If End Sub Private Sub cmdgravar_Click() If txtnome.Text = "" Then MsgBox "Nome em Branco!", vbExclamation, "Atenção!" txtnome.SetFocus Exit Sub End If Data1.Recordset.Update Data1.Refresh cmdincluir.Enabled = True cmdgravar.Enabled = False cmdcancelar.Enabled = False cmdexcluir.Enabled = True cmdsair.Enabled = True Data1.Enabled = True cmdincluir.SetFocus End Sub Private Sub cmdincluir_Click() Data1.Recordset.AddNew cmdincluir.Enabled = True cmdgravar.Enabled = True cmdcancelar.Enabled = True cmdexcluir.Enabled = False cmdsair.Enabled = False Data1.Enabled = False txtnome.Text = " " txtnome.SetFocus End Sub Private Sub cmdsair_Click() Unload Me End Sub Private Sub Form_Load() var0b = Conexao(diretor, caminho_bd, "qpalzmMZN", False) End Sub Agradeço desde já a todos! Thiago Caires

Deu certo.... mas sóh tem um problema.... eu preciso que ele me de esse resultado, levando em conta a data do dia... e não todos os reeducandos que já passaram na unidade.... realmente eu coloquei uma váriavel a mais... uma igual a outra.... e com a mesma função.... agora que eu reparei também.... será que você poderia me ajudar nisso... Grato!! Thiago Caires

Eu preciso fazer outra pesquisa..... preciso fazer ele me trazer o resultado se o preso é primario ou reincidente. parece ser simples..... mas na base de dados do Access ele grava assim... TEM A COLUNA "PRIMARIO" se o preso for primario vai estar o valor SIM se o preso for reincidente vai estar o valor NÃO se o preso for primario vai estar o valor SIM se o preso for reincidente vai estar o valor NÃO E assim por diante.... agora me ajuda a pensar como eu posso fazer essa pesquisa ele trazendo o resultado no "list" exemplo : 50 primarios 90 reincidentes OLha eu já montei uma programação.... mas ele esta me repetindo o resultado na lista um monte de vezes.... sai um lista grande sendo que era para sair apenas Existem "valor" Reeducandos primarios Existem "valor" Reeducandos reincidentes OLha o código: Private Sub cmdpesquisar_Click() estado.RecordSource = "select * from qualificativa" estado.Refresh List1.Clear Dim rel As String Dim Sim As Currency Sim = 0 Dim Não As Currency Não = 0 Dim stotal As String stotal = 0 While Not estado.Recordset.EOF rel = estado.Recordset.Fields("primario") & "" qualificativa.RecordSource = "select * from qualificativa where esta='SIM'" qualificativa.Refresh Dim relig As String While Not qualificativa.Recordset.EOF relig = qualificativa.Recordset.Fields("primario") & "" If relig = rel Then Sim = Sim + 1 Não = Não + 1 End If qualificativa.Recordset.MoveNext Wend List1.AddItem "Existem: " & Format(Sim, "00") & " Reeducandos primarios " & rel stotal = stotal + Sim Sim = 0 List1.AddItem "Existem: " & Format(Não, "00") & " Reeducandos Reincidentes " & rel stotal = stotal + Não Não = 0 estado.Recordset.MoveNext Wend End Sub Private Sub Data_Validate(Action As Integer, Save As Integer) End Sub Private Sub Form_Load() var0b = Conexao(estado, caminho_bd, "qpalzmMZN", False) var0b = Conexao(qualificativa, caminho_bd, "qpalzmMZN", False) End Sub Se alguém puder me ajudar agradeço muito! Thiago Caires