CAMPOS DE SIM/NAO DE UM BNACO DE DADOS

USUARIO.EXCLUIDOS 17/08/2007 06:32:36
#231282

Estou tendo problemas para fazer meu aplicativo assinalar no access campo de bloqueio que é do tipo sim/não.

Este é um trabalho de escola que eu preciso bloquear o usuário através de campo sim ou não

Segue-se abaixo o código do programa


[txt-color=#3333ff]Private Sub[/txt-color] BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click

StrUSUARIO = TxtUsuario.Text
StrSENHA = TxtSenha.Text

StrSQL = [txt-color=#ff0000]"SELECT Usuarios,Senha FROM TblUsuarios WHERE Usuarios = '" & StrUSUARIO & "' AND Senha = '" & StrSENHA & "' AND Bloqueado=FALSE"[/txt-color]

StrBloqueio = "SELECT Usuarios, Bloqueado FROM QryBloqueados WHERE Usuarios= '" & StrUSUARIO & "' AND Bloqueado = TRUE"

QryBloqueados.Open(StrBloqueio, Conexao, 1, 2)

[txt-color=#3333ff]If[/txt-color] UCase(StrUSUARIO) = UCase([txt-color=#ff0000]"Administrador"[/txt-color]) Then

FrmAdm.Show()
Me.Hide()
[txt-color=#3333ff]Else[/txt-color]
If QryBloqueados.EOF And QryBloqueados.BOF Then

TblUsuarios.Open(StrSQL, Conexao, 1, 2)
[txt-color=#006600]'Verifca se o usuario é existente[/txt-color]

[txt-color=#3333ff]If[/txt-color] TblUsuarios.EOF And TblUsuarios.BOF Then
[txt-color=#006600]'Verifica o numero de tentativa[/txt-color]

If Tentativa >= 3 Then
QryBloqueados.Close()
MsgBox("Seu Usuário foi bloqueado", MsgBoxStyle.Critical, "Atenção")
StrBloqueio = ("INSERT INTO tblUsuarios(Usuarios, Bloqueado) Values('" & StrUSUARIO & "',True")
QryBloqueados.Open(StrBloqueio, Conexao, 1, 2)

QryBloqueados.Update()
QryBloqueados.Close()

'Se o usuario ñ estiver bloqueado
[txt-color=#3333ff] Else[/txt-color]
MsgBox([txt-color=#ff0000]"Usuário ou Senha Incorreto!"[/txt-color], MsgBoxStyle.Critical, "Atenção")
Tentativa += 1
TblUsuarios.Close()
QryBloqueados.Close()
[txt-color=#3333ff]End If[/txt-color]
Else
[txt-color=#006600]'Se não verifica se o campo de usuario tem texto[/txt-color]
[txt-color=#3333ff]If[/txt-color] TxtUsuario.Text = [txt-color=#ff0000]""[/txt-color] Then
MsgBox("Digite um Usuario")
TblUsuarios.Close()
QryBloqueados.Close()
[txt-color=#3333ff] Else[/txt-color]
[txt-color=#006600]'acessa o formulario principal e fecha a conexão[/txt-color]
TblUsuarios.Close()
QryBloqueados.Close()
FecharAConexao()
[txt-color=#3333ff] Me[/txt-color].Hide()
FrmInicio.Show()
End If
End If
Else
MsgBox([txt-color=#ff0000]"Seu Usuario foi Bloqueado"[/txt-color] & vbNewLine & "Entre em contato com o administrador do sistema", MsgBoxStyle.Critical, "Atenção")
TxtSenha.Text = [txt-color=#ff0000]""[/txt-color]
TxtUsuario.Text = ""
QryBloqueados.Close()
[txt-color=#3333ff] End If
End If
End Sub[/txt-color]


Quem puder ajudar eu agradeço.
Isso é um trabalho de banco de dados para o modulo de programação do curso técnico em informática- Redes de comunicação pela escola SENAI.