CHECK BOX

USUARIO.EXCLUIDOS 07/06/2007 18:51:23
#220217
tenho um banco de dados em access e criei um campo com a opção SIM/NÃO, gostaria que no vb ele me mostrasse como chebox tb e nao uma coluna com valores 0 e 1. como faço.
desde já agradeço
ICEMAN 07/06/2007 19:23:49
#220220
meu nao ta muito claro nao mais acredito que se vc colocar assim no botao salvar

If check1.value=1 then
data1.recordset("SIm/nao")="Sim"
else data1.recordset("sim/nao")="Nao"
endif


ai na hora de visualizar vc pode por assim

if data1.recordset("sim/nao")="Sim" then
check1.value=1
else check1.value=0


espero ter ajudado
USUARIO.EXCLUIDOS 07/06/2007 21:46:13
#220235
a figua1.jpg mostra como quero que fique

porque no vb fica igual a figura1.jpg, quando peço para visualizar em um dbgrid.
USUARIO.EXCLUIDOS 07/06/2007 21:47:45
#220236
Figura1
USUARIO.EXCLUIDOS 08/06/2007 09:08:30
#220287
O exemplo abaixo funciona se o campo Rel conter o registro 0 como Nao e 1 como Sim...Se for ao contrário basta inverter.

if tbl.Rel=0 then
checkbox.caption="Não"
checkbox.value = checked
else
checkbox.caption="Sim"
checkbox.value = checked
end if

OBS.: Só não entendi o porque de usar um CheckBox pois o normal seria usar um Option Button já que a opção é SIM ou NÃO. E o checkbox normalmente é usado (exemplos) nos casos: EnviarMalaDireta,Cliente ativo, Produto Ativo (pois ficaria ticado).
USUARIO.EXCLUIDOS 08/06/2007 09:45:00
#220291
Realmente a dúvida não ficou muito clara, mas pelo que entendi, ele quer colocar um CheckBox dentro do DBGrid para representar o campo Sim/Não, assim como o Access possui em sua grid.
USUARIO.EXCLUIDOS 08/06/2007 12:42:06
#220359
FAÇA ASSIM...

NA HORA DE CARREGAR A GRID


  rs.Open "SUA CONSULTA NO ACCESS", CONEXAO, adOpenKeyset

MSFlexGrid1.Clear
MSFlexGrid1.Refresh
MSFlexGrid1.Rows = 2

    MAX = rs.RecordCount + 1

MSFlexGrid1.Rows = MAX
MSFlexGrid1.Cols = 4    'Define o Nro de Colunas que terá no FlexGrid

   MSFlexGrid1.TextMatrix(0, 0) = "Nº"
   MSFlexGrid1.TextMatrix(0, 1) = ""
   MSFlexGrid1.TextMatrix(0, 2) = "Usuario"
   MSFlexGrid1.TextMatrix(0, 3) = "GRUPO"
   
For I = 1 To MAX - 1
      MSFlexGrid1.TextMatrix(I, 0) = I                       '
      MSFlexGrid1.TextMatrix(I, 1) = ""                      '
      MSFlexGrid1.TextMatrix(I, 2) = rs(0).Value             '
      MSFlexGrid1.TextMatrix(I, 3) = rs(1).Value             '
rs.MoveNext
Next


For y = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = y
MSFlexGrid1.Col = 1
MSFlexGrid1.CellFontName = "Wingdings"
MSFlexGrid1.CellFontSize = 14
MSFlexGrid1.CellAlignment = flexAlignCenterCenter
MSFlexGrid1.Text = strUnChecked
Next y


QUALQUER DUVIDAD POSTA AI
Tópico encerrado , respostas não são mais permitidas
Voltar