Erro No Script

[mestre fyoda]

Run-Time error '424':

Object required

Ai quando clico no Debug , essa linha frmPrincipal.Show fica amarela , alguém poderia corrigir o meu erro

ControleGeral

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub cmdEntrar_Click()
Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "select usuario, senha, cod_usuario from usuarios where usuario='" & txtUsuario.Text & "' and senha='" & txtSenha.Text & "'", cn, adOpenKeyset, adLockOptimistic

If .RecordCount = 0 Then
MsgBox "Usuário ou senha inválida!", vbExclamation, "Erro"
Else
codigo = CLng(rs("cod_usuario"))
frmPrincipal.Show
Unload Me
End If
.Close
End With
End Sub


Private Sub cmdSair_Click()
cn.Close
Unload Me
End Sub


Private Sub Form_Load()
cn.CursorLocation = adUseClient 'Define o cursor como local
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Banco.mdb" 'Abre o BD
rs.Open "SELECT * FROM usuarios", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs"

End Sub

frmPrincipal.Show

Private Sub Form_Load()
mnClientes.Enabled = False
mnProdutos.Enabled = False
mnFornecedores.Enabled = False
mnPagar.Enabled = False
mnReceber.Enabled = False
mnFluxo.Enabled = False

Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "select a.aplicacao, b.acesso from aplicacoes a, acesso b where a.cod_aplicacao = b.cod_aplicacao " _
& "and b.cod_usuario=" & codigo, cn, adOpenKeyset, adLockOptimistic

If .RecordCount = 0 Then
MsgBox "Usuário sem acesso ao sistema!", vbExclamation, "Erro"
Else
Do While Not .EOF
If rs("Aplicacao") = "Clientes" And rs("Acesso") = 1 Then
mnClientes.Enabled = True
End If
If rs("Aplicacao") = "Produtos" And rs("Acesso") = 1 Then
mnProdutos.Enabled = True
End If
If rs("Aplicacao") = "Fornecedores" And rs("Acesso") = 1 Then
mnFornecedores.Enabled = True
End If
If rs("Aplicacao") = "Pagar" And rs("Acesso") = 1 Then
mnPagar.Enabled = True
End If
If rs("Aplicacao") = "Receber" And rs("Acesso") = 1 Then
mnReceber.Enabled = True
End If
If rs("Aplicacao") = "Fluxo" And rs("Acesso") = 1 Then
mnFluxo.Enabled = True
End If

.MoveNext
Loop
End If
.Close
End With
End Sub

Private Sub mnSair_Click()
cn.Close
Unload Me
End Sub

[Decio]

Tenta rodar o debug passo a passo que fica mais fácil saber qual objeto não existe.

Se quizer , você pode enviar este código por email que eu dou uma olhada.

[Graymalkin]

Run-Time error '424':

Object required

Ai quando clico no Debug , essa linha frmPrincipal.Show fica amarela , alguém poderia corrigir o meu erro

ControleGeral

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub cmdEntrar_Click()
Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "select usuario, senha, cod_usuario from usuarios where usuario='" & txtUsuario.Text & "' and senha='" & txtSenha.Text & "'", cn, adOpenKeyset, adLockOptimistic

If .RecordCount = 0 Then
MsgBox "Usuário ou senha inválida!", vbExclamation, "Erro"
Else
codigo = CLng(rs("cod_usuario"))
frmPrincipal.Show
Unload Me
End If
.Close
End With
End Sub


Private Sub cmdSair_Click()
cn.Close
Unload Me
End Sub


Private Sub Form_Load()
cn.CursorLocation = adUseClient 'Define o cursor como local
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Banco.mdb" 'Abre o BD
rs.Open "SELECT * FROM usuarios", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs"

End Sub

frmPrincipal.Show

Private Sub Form_Load()
mnClientes.Enabled = False
mnProdutos.Enabled = False
mnFornecedores.Enabled = False
mnPagar.Enabled = False
mnReceber.Enabled = False
mnFluxo.Enabled = False

Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "select a.aplicacao, b.acesso from aplicacoes a, acesso b where a.cod_aplicacao = b.cod_aplicacao " _
& "and b.cod_usuario=" & codigo, cn, adOpenKeyset, adLockOptimistic

If .RecordCount = 0 Then
MsgBox "Usuário sem acesso ao sistema!", vbExclamation, "Erro"
Else
Do While Not .EOF
If rs("Aplicacao") = "Clientes" And rs("Acesso") = 1 Then
mnClientes.Enabled = True
End If
If rs("Aplicacao") = "Produtos" And rs("Acesso") = 1 Then
mnProdutos.Enabled = True
End If
If rs("Aplicacao") = "Fornecedores" And rs("Acesso") = 1 Then
mnFornecedores.Enabled = True
End If
If rs("Aplicacao") = "Pagar" And rs("Acesso") = 1 Then
mnPagar.Enabled = True
End If
If rs("Aplicacao") = "Receber" And rs("Acesso") = 1 Then
mnReceber.Enabled = True
End If
If rs("Aplicacao") = "Fluxo" And rs("Acesso") = 1 Then
mnFluxo.Enabled = True
End If

.MoveNext
Loop
End If
.Close
End With
End Sub

Private Sub mnSair_Click()
cn.Close
Unload Me
End Sub

O nome do formulário a ser aberto é realmente este (frmPrincipal)?

Graymalkin

[rodfraga]

frmPrincipal.Show

Acho que voce se equivocou ali, o nome do form deve ser frmPrincipal e não frmPrincipal.Show. Isso é claro se o form se chamar frmPrincipal.

O erro quer dizer que não existe o objeto frmPrincipal.

[mestre fyoda]

ei mano , como faço pra fazer uma paginação no vb , sem o campo data ?

[Graymalkin]

ei mano , como faço pra fazer uma paginação no vb , sem o campo data ?

O que seria uma "paginação"? E isso não seria assunto para outro tópico?

Abraços,

Graymalkin

[Luiz Humberto]

A paginação em VB você quer fazer usando DBGrid, ListView ou o que?

você pode olhar no site www.aspbrasil.com.br ensina fazer mas em ASP usando VBScrpt, dê uma olhada, pois acho que pode te ajudar.

[mestre fyoda]

pode fechar o tópico

[William Rodrigues]

pode fechar o tópico

Ok...

Fechado para balanço !!!

hehehe

Abraços,

William