[Resolvido] Checkbox - Checked - Unchecked

essex · Abril 2, 2009

Olá galerinha

Nao estou conseguindo deixar a caixa do checkbox "assinalada" no modo de edicao

do registro ( asp classico )

A caixinha do checbox DEVE aparece assinalada...

- Nome do campo no access é do tipo "Sim/Não"

- Nome do checkbox = c_aprova_jpg_sim

- Nom da variavel = var_aprova_jpg_sim

Tentei... dentro outras ...

<input name="c_aprova_jpg_sim" type="checkbox" id="c_aprova_jpg_sim" 
value="<%If var_aprova_jpg_sim = True Then
  var_aprova_jpg_sim = 1
  ' tetando assinalar o caixinha do checkbox
Else
  var_aprova_jpg_sim = 0
End If

' c_aprova_jpg_sim   = é o nome do checkbox
' var_aprova_jpg_sim = é o nome da variável que recebe
' aprova_jpg_sim	 = é o nome do campo no Access do tipo "Sim/Nao"
%>">

Obrigado

hargon · Abril 2, 2009

If var_aprova_jpg_sim = True Then

var_aprova_jpg_sim = 1

' tetando assinalar o caixinha do checkbox

Response.Write "checked=""checked"""

Else

var_aprova_jpg_sim = 0

End If

essex · Abril 2, 2009

Amigo, obrigado pela ajuda... mas nao deu

Apos salva, entro em edicao.. quero ver o "checkbox" MARCADO... caso foi gravado algo

Escrevi isto... tenho que buscar do banco....

:
:
var_aprova_jpg_sim = Request.Form("c_aprova_jpg_sim") 
:
:

<input name="c_aprova_jpg_sim"  type="checkbox"  value="<% If var_aprova_jpg_sim = True Then
var_aprova_jpg_sim = 1
Response.Write "checked=""checked"""
Else
var_aprova_jpg_sim = 0
End If
%>">

hargon · Abril 2, 2009

Você sabe buscar alguma informação no banco? É a mesma coisa.

Depois é só acrescentar o IF da forma que citei.

essex · Abril 2, 2009

tentei isso .. tambem nao deu

<input name="c_aprova_jpg_sim" type="checkbox" id="c_aprova_jpg_sim" 
value="<% If rs("aprova_jpg_sim") = "True" Then 
Response.Write ("checked") 
end if%>">

hargon · Abril 2, 2009

Alguma mensagem de erro?

Coloque assim:

If rs("aprova_jpg_sim") = True Then

Se for o caso, dê um response.write rs("aprova_jpg_sim") e poste o conteúdo.

essex · Abril 2, 2009

Esta dando este erro

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'rs'

/tip1/alteracao1.asp, line 787

hargon · Abril 2, 2009

Posta o código da página para facilitar o entendimento, pq pelo visto você não criou a recordset RS aí...

essex · Abril 2, 2009

Veja....

select case Request.QueryString("salvar")
case "ok"
:
:
var_aprova_jpg_sim = Request.Form("c_aprova_jpg_sim") '11
:
:
:
if var_aprova_jpg_sim  = "" then var_aprova_jpg_sim = Chr(10)
:
:
var_aprova_jpg_sim  = Replace(var_aprova_jpg_sim , "<", "<") 
var_aprova_jpg_sim  = Replace(var_aprova_jpg_sim , ">", ">")
var_aprova_jpg_sim  = Replace(var_aprova_jpg_sim , "'", "''")
:
:


SQL = "UPDATE tabela SET nome_resp_vendas = '" & var_nome_resp_vendas ....
& var_horario_entr_arq & "', aprova_jpg_sim = '" & var_aprova_jpg_sim & "', aprova_jpg_nao = '" & var_aprova_jpg_nao &  "' WHERE id = " & Request.QueryString("id")

Conexao.execute(SQL)
Call Fecha_Tabelas

Response.Redirect("pesquisa.asp")

end select
SQL = "SELECT * FROM tabela WHERE id = " & Request.QueryString("id")
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, conexao, 3
 
var_id = rs("id")
:
var_aprova_jpg_nao = rs("aprova_jpg_nao")
:

rs.Close
set rs = nothing
Call Fecha_Tabelas
'conexao.Close
'set conexao = nothing
%>

<html>
<head>
<title>.: Altrerando Registro :.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilos.css" rel="stylesheet" type="text/css">

<input name="c_aprova_jpg_sim" type="checkbox" id="c_aprova_jpg_sim" 
value="<% If rs("aprova_jpg_sim") = "True" Then %>
<%Response.Write ("checked") %>
<%end if%>">

						
</form>
</body>
</html>

hargon · Abril 2, 2009

Essas linhas devem está no final do código, já que você utiliza a recordset depois delas.

rs.Close
set rs = nothing
Call Fecha_Tabelas
'conexao.Close
'set conexao = nothing

essex · Abril 2, 2009

xou.... nao dá mais erro ....

mas acho que tem que mudar algo no codigo porque o checkbox ainda nao fica assinalado...

como fazer isto?

hargon · Abril 2, 2009

Eu falei para tirar as aspas do TRUE, e você as manteve.

Retire e teste novamente.

essex · Abril 2, 2009

desculpe, me equivoquei no colar - mas fiz como voce pediu - com mostra abaixo... mas ainda nao mostra a caixinha assinalada

<input name="c_aprova_jpg_sim" type="checkbox" id="c_aprova_jpg_sim" 

value="<%If var_aprova_jpg_sim = True Then
  var_aprova_jpg_sim = 1
Else
  var_aprova_jpg_sim = 0
End If
%> ">

tentei assim, mas tambem nao deu

<input name="c_aprova_jpg_sim" type="checkbox" id="c_aprova_jpg_sim" 
value="<% =rs.fields("aprova_jpg_sim").value %>

hargon · Abril 2, 2009

Acima da input, coloque:

<%
response.write rs.fields("aprova_jpg_sim").value
response.end
%>

Poste o resultado.

essex · Abril 3, 2009

Amigo, há algo de errado nesta linha... diz que falta uma "aspa"

Pelo que entendi queres ver o conteúdo deste campo, né?

<%
response.write rs.fields("aprova_jpg_sim").value
response.end
%>

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/tip1/inclusao1.asp, line 745

---------------------------------------------

Esqueci de te falar, no modulo de "inclusao" estou o código abaixo:

If var_aprova_jpg_sim = "checkbox"   then 
	var_aprova_jpg_sim = 1 
 else
	var_aprova_jpg_sim = 0
 end if

--------------------------------------------------

No modulo de ALTERACAO

Inseri um editbox para espiar o que ele resultava, ele escreve True, ou seja,

aparentemente esta ok... apenas nao deixa a caixinha do checkbox assinalada. :unsure:

hargon · Abril 3, 2009

Coloca o IF assim:

If var_aprova_jpg_sim then

Se não funcionar, posta como está seu código agora, pq a cada post está de um jeito. Uma hora usa field, outra rs, outra nada... fiquei perdido.

essex · Abril 3, 2009

ok, obrigado pelo apoio... codigo completo abaixo

Campo no access é do tipo --> "Sim/Nao" - nome do campo no access --> aprova_jpg_sim

======== Modulo INCLUSAO ============

' 0 = false

' 1 = true

If var_aprova_jpg_sim = "checkbox" then

var_aprova_jpg_sim = 1

else

var_aprova_jpg_sim = 0

end if

======== Modulo ALTERACAO ============

A sua sugestao esta resultando o valor "zero" - 0 e a caixinha nao fica assinalada

no modo de edicao

select case Request.QueryString("salvar")

case "ok"

:

var_aprova_jpg_sim = Request.Form("c_aprova_jpg_sim") '11

:

if var_aprova_jpg_sim = "" then var_aprova_jpg_sim = Chr(10)

:

var_aprova_jpg_sim = Replace(var_aprova_jpg_sim , "<", "<")

var_aprova_jpg_sim = Replace(var_aprova_jpg_sim , ">", ">")

var_aprova_jpg_sim = Replace(var_aprova_jpg_sim , "'", "''")

:

SQL = "UPDATE tabela SET nome_resp_vendas = '" & var_nome_resp_vendas ....

& var_horario_entr_arq & "', aprova_jpg_sim = '" & var_aprova_jpg_sim & "', aprova_jpg_nao = '" & var_aprova_jpg_nao & "' WHERE id = " & Request.QueryString("id")

Conexao.execute(SQL)

Call Fecha_Tabelas

Response.Redirect("pesquisa.asp")

end select

SQL = "SELECT * FROM tabela WHERE id = " & Request.QueryString("id")

set rs = Server.CreateObject("ADODB.RecordSet")

rs.Open SQL, conexao, 3

var_id = rs("id")

:

var_aprova_jpg_nao = rs("aprova_jpg_nao")

:

rs.Close

set rs = nothing

Call Fecha_Tabelas

'conexao.Close

'set conexao = nothing

%>

<html>

<head>

<title>.: Altrerando Registro :.</title>

<input name="c_aprova_jpg_sim" type="checkbox" id="c_aprova_jpg_sim"

value="<%If var_aprova_jpg_sim Then

var_aprova_jpg_sim = 1

Else

var_aprova_jpg_sim = 0

End If

%>">

' resulta zero = 0

</form>

</body>

</html>

hargon · Abril 3, 2009

Essa linha

If var_aprova_jpg_sim = "checkbox" then

Substitua por

If var_aprova_jpg_sim then

Se é sim/não você não pode comparar a checkbox.

essex · Abril 3, 2009

penso que estejas falando sobre as linhas no MODULO DE INCLUSAO.... mudei e tenho o erro abaixo

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'var_aprova_jpg_sim'

/tip1/inclusao1.asp, line 527

----------------------------------- pensando...

Estou no modo de INCLUSAO .... clico no checkbox... passa valor para variavel

va_aprova_jpg_sim - eu tenho que fazer assim, do contrário como pegarei o clique / valor do do checkbox ?

If var_aprova_jpg_sim = "checkbox" then

var_aprova_jpg_sim = 1

else

var_aprova_jpg_sim = 0

end if

hargon · Abril 3, 2009

Ok. No módulo INCLUSÃO, como ele está recebendo var_aprova_jpg_sim? Request.Form? E no formulário, qual o valor da checkbox?

Arquivado

[Resolvido] Checkbox - Checked - Unchecked

Recommended Posts

essex 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

essex 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

essex 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

essex 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

essex 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

essex 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

essex 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

essex 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

essex 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

essex 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64