Resolvi com este código, porém queria que ele contasse quantos pendentes existem.
Exemplo: "Existem 38 O.S Pendentes"
Dim vbResp As VbMsgBoxResult
SqlOrçDetum = "SELECT * FROM tbOrç_Detalhe1" 'Listagem de Orçamentos
Set rsOrçDetum = New ADODB.Recordset
rsOrçDetum.Open SqlOrçDetum, cn, adOpenKeyset, adLockOptimistic
Do Until rsOrçDetum.EOF
If rsOrçDetum(3) = "PENDENTE" Then
vbResp = MsgBox("Existe O.S PENDENTE No Sistema!" & Chr(13) _
& "Verifique Para Concluir Estas Pendências!" & Chr(13), vbQuestion, "Atenção")
Exit Sub
End If
rsOrçDetum.MoveNext
Loop
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Contar registros com msgbox
Moderador: joseA
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Contar registros com msgbox
Crovador, boa tarde.
Nossa, não precisa de nada disso meu amigo. Você já ajusta isso no próprio Select.
Com esse código, já resolve o seu problema.
Teste e nos retorne se tudo deu certo.
Nossa, não precisa de nada disso meu amigo. Você já ajusta isso no próprio Select.
Código: Selecionar todos
' Listagem de Orçamentos
' Esse código já retorna um único valor, correspondente a contagem das OS's.
SqlOrçDetum = "SELECT COUNT(*) FROM tbOrç_Detalhe1 Where CampoStatus = 'PENDENTE'"
Set rsOrçDetum = New ADODB.Recordset
rsOrçDetum.Open SqlOrçDetum, cn, adOpenKeyset, adLockOptimistic
If rsOrçDetum(0) > 0 Then
MsgBox("Existe O.S PENDENTE No Sistema!" & Chr(13) _
& "Verifique Para Concluir Estas Pendências!" & Chr(13), vbQuestion, "Atenção")
Exit Sub
End If
Teste e nos retorne se tudo deu certo.
Re: Contar registros com msgbox
Funcionou, mas ele não trás a quantidade de pendentes que existe no banco de dados.
Segue código que ajustei.
' Listagem de Orçamentos
' Esse código já retorna um único valor, correspondente a contagem das OS's.
SqlOrçDetum = "SELECT COUNT(*) FROM tbOrç_Detalhe1 Where Observaçoes = 'PENDENTE'"
Set rsOrçDetum = New ADODB.Recordset
rsOrçDetum.Open SqlOrçDetum, cn, adOpenKeyset, adLockOptimistic
Dim vbResp As VbMsgBoxResult
If rsOrçDetum(0) > 0 Then
vbResp = MsgBox("Existe O.S PENDENTE No Sistema!" & Chr(13) _
& "Verifique Para Concluir Estas Pendências!" & Chr(13), vbQuestion, "Atenção")
Exit Sub
End If
Segue código que ajustei.
' Listagem de Orçamentos
' Esse código já retorna um único valor, correspondente a contagem das OS's.
SqlOrçDetum = "SELECT COUNT(*) FROM tbOrç_Detalhe1 Where Observaçoes = 'PENDENTE'"
Set rsOrçDetum = New ADODB.Recordset
rsOrçDetum.Open SqlOrçDetum, cn, adOpenKeyset, adLockOptimistic
Dim vbResp As VbMsgBoxResult
If rsOrçDetum(0) > 0 Then
vbResp = MsgBox("Existe O.S PENDENTE No Sistema!" & Chr(13) _
& "Verifique Para Concluir Estas Pendências!" & Chr(13), vbQuestion, "Atenção")
Exit Sub
End If
- Anexos
-
- TESTE.rar
- (126.39 KiB) Baixado 109 vezes
Re: Contar registros com msgbox [Resolvido]
' Listagem de Orçamentos
' Esse código já retorna um único valor, correspondente a contagem das OS's.
SqlOrçDetum = "SELECT COUNT(*) FROM tbOrç_Detalhe1 Where Observaçoes = 'PENDENTE'"
Set rsOrçDetum = New ADODB.Recordset
rsOrçDetum.Open SqlOrçDetum, cn, adOpenKeyset, adLockOptimistic
'Dim vbResp As VbMsgBoxResult
If rsOrçDetum(0) > 0 Then
vbResp = MsgBox("Existem " & "( " & rsOrçDetum(0) & " )" & " Ordens De Serviços PENDENTE(s) No Sistema! " & Chr(13) _
& "Verifique Para Concluir Estas Pendências!" & Chr(13), vbQuestion, "Atenção")
Exit Sub
End If
' Esse código já retorna um único valor, correspondente a contagem das OS's.
SqlOrçDetum = "SELECT COUNT(*) FROM tbOrç_Detalhe1 Where Observaçoes = 'PENDENTE'"
Set rsOrçDetum = New ADODB.Recordset
rsOrçDetum.Open SqlOrçDetum, cn, adOpenKeyset, adLockOptimistic
'Dim vbResp As VbMsgBoxResult
If rsOrçDetum(0) > 0 Then
vbResp = MsgBox("Existem " & "( " & rsOrçDetum(0) & " )" & " Ordens De Serviços PENDENTE(s) No Sistema! " & Chr(13) _
& "Verifique Para Concluir Estas Pendências!" & Chr(13), vbQuestion, "Atenção")
Exit Sub
End If