Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Contar registros com msgbox

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Contar registros com msgbox

Mensagem por CROVADOR »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Contar registros com msgbox

Mensagem por Mikel Silveira Fraga »

Crovador, boa tarde.

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
Com esse código, já resolve o seu problema.

Teste e nos retorne se tudo deu certo.


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Contar registros com msgbox

Mensagem por CROVADOR »

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
Anexos
TESTE.rar
(126.39 KiB) Baixado 109 vezes


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Contar registros com msgbox [Resolvido]

Mensagem por CROVADOR »

' 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder