ACCESS DATA/HORA TRATAR COMO VAZIA
Pessoal o que tenho que fazer no Access para tratar uma data vazia
vi que nao tem opcao permitir comprimento 0 sim
como tratar a hora no mostra dados
e no acess ?
Txthora.Text = rs([Ô]hora[Ô])
Abs
Marcelo Fazan
vi que nao tem opcao permitir comprimento 0 sim
como tratar a hora no mostra dados
e no acess ?
Txthora.Text = rs([Ô]hora[Ô])
Abs
Marcelo Fazan
Tente assim, caso o valor da HORA seja NULO.
Txthora.Text = IIf(IsNull(rs([Ô]hora[Ô])) = True, [Ô][Ô], rs([Ô]hora[Ô]))
Tecla Blz
ajudo e mto , a hora funciono
só que eu tentei fazer algo identico com a data e nao deu certo
para data tb esta assim
Item.SubItems(1) = [Ô][Ô] & rs([Ô]Data[Ô])
ai tentei fazer assim pra data
Item.SubItems(1) = IIf(IsNull(rs([Ô]data[Ô])) = True, [Ô][Ô], rs([Ô]data[Ô]))
mais nesse caso foi dados imcompativeis com o criterio
Queria utilizar o Help do VB6 ou VB5 ... peguei um help aqui no forum
mais ai se quero localizar exemplo commando ISNULL ele nao acha nada ,
peguei um Help que sao varios helps mais que qdo pesquiso os comandos q utilizo nao consigo achar nenhum comando
sabe onde posso ter ou puxar um Help .arquivo lhp pra usar
Obrigado
Abs
Marcelo Fazan
ajudo e mto , a hora funciono
só que eu tentei fazer algo identico com a data e nao deu certo
para data tb esta assim
Item.SubItems(1) = [Ô][Ô] & rs([Ô]Data[Ô])
ai tentei fazer assim pra data
Item.SubItems(1) = IIf(IsNull(rs([Ô]data[Ô])) = True, [Ô][Ô], rs([Ô]data[Ô]))
mais nesse caso foi dados imcompativeis com o criterio
Queria utilizar o Help do VB6 ou VB5 ... peguei um help aqui no forum
mais ai se quero localizar exemplo commando ISNULL ele nao acha nada ,
peguei um Help que sao varios helps mais que qdo pesquiso os comandos q utilizo nao consigo achar nenhum comando
sabe onde posso ter ou puxar um Help .arquivo lhp pra usar
Obrigado
Abs
Marcelo Fazan
Use a opção:
Item.SubItems(1) = IIf(IsDate(rs([Ô]data[Ô])) = False, [Ô][Ô], rs([Ô]data[Ô]))
Se a data vier nula ou não for uma data válida, ira retornar NULO ou Branco, se for uma data valida, ira retornar ela mesma.
Item.SubItems(1) = IIf(IsDate(rs([Ô]data[Ô])) = False, [Ô][Ô], rs([Ô]data[Ô]))
Se a data vier nula ou não for uma data válida, ira retornar NULO ou Branco, se for uma data valida, ira retornar ela mesma.
se for apenas para exibir os dados tente desta maneira costuma funcionar
simples porém funcional
se for pra gravar ai sim vc terá de fazer um iif
Item.SubItems(1) = rs([Ô]data[Ô]) & [Ô][Ô]simples porém funcional
se for pra gravar ai sim vc terá de fazer um iif
Item.SubItems(1) = rs([Ô]data[Ô]) & [Ô][Ô]
me da um Erro
Case 1
filtro = [Ô]where Data = [ô][Ô] & TxtCriterio.Text & [Ô][ô][Ô]
Tipos de dados incompativel
na expressao de criterio
sera que o erro está agora ai tb ???
me da um Erro
Case 1
filtro = [Ô]where Data = [ô][Ô] & TxtCriterio.Text & [Ô][ô][Ô]
Tipos de dados incompativel
na expressao de criterio
sera que o erro está agora ai tb ???
Veja se a alteração abaixo resolve o problema.
filtro = [Ô]where Data=#[Ô] & Format(TxtCriterio.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
Obrigado Tecla
agora preciso fazer pra Hora
erro sintaxe na data expressao de consulta [ô] Hora = # # [ô] ,
funciona ate quando encontra , depois que muda que encontra q da o erro
Case 3
filtro = [Ô]where Hora=#[Ô] & Format(TxtCriterio.Text, [Ô]h:m:s[Ô]) & [Ô]#[Ô]
agora preciso fazer pra Hora
erro sintaxe na data expressao de consulta [ô] Hora = # # [ô] ,
funciona ate quando encontra , depois que muda que encontra q da o erro
Case 3
filtro = [Ô]where Hora=#[Ô] & Format(TxtCriterio.Text, [Ô]h:m:s[Ô]) & [Ô]#[Ô]
se o campo hora estiver definido como data hora, então seria assim
Case 3
filtro = [Ô]where Hora=#[Ô] & Format(TxtCriterio.Text, [Ô]hh:nn:ss[Ô]) & [Ô]#[Ô]
Obrigado 13 Funcionaram os criterios
Abs pess
Marcelo Fazan
Abs pess
Marcelo Fazan
os criterios funcionam as buscas , só que eu provoco o erro colocando o campo em branco e buscando
contornar ou concertar isso seria colocar uma condicao dando uma mesagem informe a pesquisa qdo estiver embranco
Select Case CmbCriterio.ListIndex
Case 0
filtro = [Ô][Ô]
Case 1
filtro = [Ô]where Data=#[Ô] & Format(TxtCriterio.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
Case 2
filtro = [Ô]where nome like [ô]%[Ô] & TxtCriterio.Text & [Ô]%[ô][Ô]
Case 3
filtro = [Ô]where Hora=#[Ô] & Format(TxtCriterio.Text, [Ô]hh:nn:ss[Ô]) & [Ô]#[Ô]
End Select
Sql = [Ô] Select * from frequencia [Ô] & filtro
rs.Open Sql, conexao
LsvBusca.ListItems.Clear
Do While Not rs.EOF
Set Item = LsvBusca.ListItems.Add(, , rs([Ô]id[Ô]))
Item.SubItems(1) = IIf(rs([Ô]data[Ô]) = True, [Ô][Ô], rs([Ô]data[Ô]))
Item.SubItems(2) = [Ô][Ô] & rs([Ô]NOME[Ô])
Item.SubItems(3) = IIf(IsNull(rs([Ô]hora[Ô])) = True, [Ô][Ô], rs([Ô]hora[Ô]))
rs.MoveNext
Loop
End Sub
Talves tem a haver algo como no Criterio tratei ## e depois quando vazio ele nao acha esse formato
Erro de sintaxe na data na expressao de consulta [ô]Data =## [ô] ,
Marcelo Fazan
contornar ou concertar isso seria colocar uma condicao dando uma mesagem informe a pesquisa qdo estiver embranco
Select Case CmbCriterio.ListIndex
Case 0
filtro = [Ô][Ô]
Case 1
filtro = [Ô]where Data=#[Ô] & Format(TxtCriterio.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
Case 2
filtro = [Ô]where nome like [ô]%[Ô] & TxtCriterio.Text & [Ô]%[ô][Ô]
Case 3
filtro = [Ô]where Hora=#[Ô] & Format(TxtCriterio.Text, [Ô]hh:nn:ss[Ô]) & [Ô]#[Ô]
End Select
Sql = [Ô] Select * from frequencia [Ô] & filtro
rs.Open Sql, conexao
LsvBusca.ListItems.Clear
Do While Not rs.EOF
Set Item = LsvBusca.ListItems.Add(, , rs([Ô]id[Ô]))
Item.SubItems(1) = IIf(rs([Ô]data[Ô]) = True, [Ô][Ô], rs([Ô]data[Ô]))
Item.SubItems(2) = [Ô][Ô] & rs([Ô]NOME[Ô])
Item.SubItems(3) = IIf(IsNull(rs([Ô]hora[Ô])) = True, [Ô][Ô], rs([Ô]hora[Ô]))
rs.MoveNext
Loop
End Sub
Talves tem a haver algo como no Criterio tratei ## e depois quando vazio ele nao acha esse formato
Erro de sintaxe na data na expressao de consulta [ô]Data =## [ô] ,
Marcelo Fazan
Tópico encerrado , respostas não são mais permitidas