VERIFICACAO SE VAZIO OU NAO
Olá blz pessoal?!
Pessoal com o Componente Data1, como que eu posso verificar se existe ou não alguma coisa em uma tabela?!
Preciso verificar se existem cadastros numa tabela chamada Logins, para poder acessar um form de cadastro de for "vazio" ou abrir outro form se tiver cadastros.
grato
Pessoal com o Componente Data1, como que eu posso verificar se existe ou não alguma coisa em uma tabela?!
Preciso verificar se existem cadastros numa tabela chamada Logins, para poder acessar um form de cadastro de for "vazio" ou abrir outro form se tiver cadastros.
grato
só é abrir a tabela, e depois
if rst.recordcount = 0 then msgbox "Está vazio"
if rst.recordcount = 0 then msgbox "Está vazio"
Então mano blz?!
Eu sei fazer por este modo, mas é pelo DATA1
e se fazer data1.recordset.recordcount = 0
ele da um erro
Eu sei fazer por este modo, mas é pelo DATA1
e se fazer data1.recordset.recordcount = 0
ele da um erro
não cara, a propriedade RecordCount é somente leitura
faça assim
data1.RecordSource = "SELECT * From SUATabela"
If Data1.RecordSet.RecordCount = 0 then
msgbox "Não existem cadastros"
end if
faça assim
data1.RecordSource = "SELECT * From SUATabela"
If Data1.RecordSet.RecordCount = 0 then
msgbox "Não existem cadastros"
end if
fala ae cara
entao eu fiz assim quase, ó:
If Data1.Recordset.RecordCount = 0 Then
MsgBox "Você não tem nenhum cadastro no Banco de Dados, favor cadastrar pelo menos 1 Administrador do Sistema.", vbCritical, Me.Caption
Exit Sub
End If
mas ele da o erro 91, ai eu tentei de outra forma que deu certo, mas na realidade não eh verificação se tem ou nao cadastro, e sim uma gambiarra:
On Error GoTo erro:
'aqui a rotina pra logar caso tenha o login no banco de dados
'depois ele verifica se vai acontecer o erro de nao ter cadastros e manda
'pro tratamento do erro
erro:
If Err.Number = 3021 Then
MsgBox "Não existem cadastros no Banco de Dados, por favor, providênciar o cadastro de pelo menos um Administrador de Sistema!", vbCritical, Me.Caption
End
Exit Sub
End If
mas vlws a ajuda vo usar esse geito mesmo abraço
entao eu fiz assim quase, ó:
If Data1.Recordset.RecordCount = 0 Then
MsgBox "Você não tem nenhum cadastro no Banco de Dados, favor cadastrar pelo menos 1 Administrador do Sistema.", vbCritical, Me.Caption
Exit Sub
End If
mas ele da o erro 91, ai eu tentei de outra forma que deu certo, mas na realidade não eh verificação se tem ou nao cadastro, e sim uma gambiarra:
On Error GoTo erro:
'aqui a rotina pra logar caso tenha o login no banco de dados
'depois ele verifica se vai acontecer o erro de nao ter cadastros e manda
'pro tratamento do erro
erro:
If Err.Number = 3021 Then
MsgBox "Não existem cadastros no Banco de Dados, por favor, providênciar o cadastro de pelo menos um Administrador de Sistema!", vbCritical, Me.Caption
End
Exit Sub
End If
mas vlws a ajuda vo usar esse geito mesmo abraço
Tópico encerrado , respostas não são mais permitidas