malb Postado Julho 18, 2007 Denunciar Share Postado Julho 18, 2007 Run-time error '91': Object variable or With block variable not setCódigo:Private Sub SlPreencheCombo() Dim cSel As String Dim SsPesquisa As Recordset cSel = "SELECT DISTINCT * FROM USUARIO_SISTEMA " & _ "ORDER BY NOME_USUARIO" '"WHERE NOT LOGON " & _ Set SsPesquisa = Restaurante_DB.OpenRecordset(cSel, dbOpenSnapshot) If SsPesquisa.RecordCount > 0 Then SsPesquisa.MoveFirst Do While Not SsPesquisa.EOF Combo_Usuario.AddItem SsPesquisa!NOME_USUARIO SsPesquisa.MoveNext Loop Else Combo_Usuario.Enabled = False MsgBox "Não há nenhum usuário cadastrado no sistema! " & Chr(10) & _ "Favor entrar com a senha padrão do sistema.", _ vbInformation, "Atenção" TxtSenha_GotFocus End If End Sub Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Graymalkin Postado Julho 18, 2007 Denunciar Share Postado Julho 18, 2007 Em qual linha ocorre o erro?Graymalkin Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
malb
Run-time error '91': Object variable or With block variable not set
Código:
Private Sub SlPreencheCombo()
Dim cSel As String
Dim SsPesquisa As Recordset
cSel = "SELECT DISTINCT * FROM USUARIO_SISTEMA " & _
"ORDER BY NOME_USUARIO"
'"WHERE NOT LOGON " & _
Set SsPesquisa = Restaurante_DB.OpenRecordset(cSel, dbOpenSnapshot)
If SsPesquisa.RecordCount > 0 Then
SsPesquisa.MoveFirst
Do While Not SsPesquisa.EOF
Combo_Usuario.AddItem SsPesquisa!NOME_USUARIO
SsPesquisa.MoveNext
Loop
Else
Combo_Usuario.Enabled = False
MsgBox "Não há nenhum usuário cadastrado no sistema! " & Chr(10) & _
"Favor entrar com a senha padrão do sistema.", _
vbInformation, "Atenção"
TxtSenha_GotFocus
End If
End Sub
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.