Problema na function.

[Leandro_Pirozzi]

Porque não executa o que eu pedi?!?!

não esconde datagrid e tb não altera o lblfeliz.caption.

Function Exibiraniver()

Dim SQL As String

Dim Data As Date

Data = Date

Set cnaniver = New ADODB.Connection

With cnaniver

.Provider = "Microsoft.Jet.OLEDB.4.0"

.ConnectionString = "Data Source=F:\Advanced\CONTATOS.mdb"

.Open

End With

Set rsaniver = New ADODB.Recordset

Set rsaniver.ActiveConnection = cnaniver

rsaniver.CursorLocation = adUseClient

SQL = "Select CODEMP, NOMEMPRESA, NOMCONT, ANIVERSARIO, CARGOCONT, EMAILCONT, TELCONT " & _

"FROM CONTATOS_CONTATO Where ANIVERSARIO = Date() "

rsaniver.Open SQL

Set Me.DataGrid4.DataSource = rsaniver

If Data <> Date Then

DataGrid4.Visible = False

lblfeliz.Caption = "SEM ANIVERSARIANTES!"

else

DataGrid4.Visible = True

lblfeliz.Caption = "FELIZ ANIVERSÁRIO!"

End If

End Function

Editado Fevereiro 19, 2009 por Leandro_Pirozzi

[raphael_suporte]

veja na parte de cima do seu codigo

"Data = Date"

ou seja data é igual ao date, o que exatamente você quer validar no IF??

[Leandro_Pirozzi]

então O QUE EU QUERO É O SEGUINTE.

QUANDO A DATA FOR IGUAL AO DATE ELE EXIBE O GRID COM OS ANIVERSARIANTES DA DATA, SENAO ELE NEM EXIBE O DATAGRID E A MENSAGEM NO LBLFELIZ.CAPTION.

ENTENDEU?

OBRIGADO!

[raphael_suporte]

cara ele não está exibindo é isso??

manda ele printar o valor de data, antes do if, para você ver.. se estiver com o valor de data e não com o valor "date", pode ser conversão no banco do access...

[Leandro_Pirozzi]

ele exibe o problema que não muda o caption do label e nem esconde o datagrid quando data não for date.

mandei printar e o Data tá assim:

?Data

00:00:00

Editado Fevereiro 20, 2009 por Leandro_Pirozzi

[raphael_suporte]

então cara como eu havia falado com você antes..você está passando o valor de Date para Data no inicio da função...

ou seja quando você comparar o valor date, como o valor data( que na verdade é date) ele sempre será igual a date...

pelo que entendi, não sei qual evento chama essa function, mas só vai passar uma vez, ela não está em loop ou seja, vai passar uma vez, data vai receber date e vai ficar como true...

uma outra observação, acho que você quer comparar data com a data atual mas não a hora e sim com o dia então acho que seu date seria:

"data = format(now(),"dd/mm/YY")

[Leandro_Pirozzi]

como eu poderia fazer ele ser "false" tb? Para quando for false ele mudar o caption para "Sem aniversariantes".

Vlwwww

[raphael_suporte]

acho que a data tem que vir do Select que você faz, correto, você seleciona os nomes cadastrados e compara a data que está no banco com a data de hoje, ai sim você terá a chance de ter as duas opções no seu IF

[Leandro_Pirozzi]

como assim os nomes cadastrados?

[raphael_suporte]

o teu select busca o que??

[Leandro_Pirozzi]

Seria isso??

If rsaniver!ANIVERSARIO = Date Then

DataGrid4.Visible = True

lblfeliz.Caption = "FELIZ ANIVERSÁRIO!"

else

DataGrid4.Visible = False

lblfeliz.Caption = "SEM ANIVERSARIANTES!"

End If

[Leandro_Pirozzi]

O select retorna isso.

Select CODEMP, NOMEMPRESA, NOMCONT, ANIVERSARIO, CARGOCONT, EMAILCONT, TELCONT " & _

"FROM CONTATOS_CONTATO Where ANIVERSARIO = Date()

Onde ANIVERSARIO é a data que esta cadastrada no banco.

[raphael_suporte]

no select você continua filtrando a data atual com o "Where ANIVERSARIO = date()", como é feita a pesquisa, através de um nome ou algo parecido??

pois se for feita apenas pela data, ela vai continua sendo sempre True

[Leandro_Pirozzi]

então o select é isso mesmo ele vai exibir os aniversariantes do dia.

por isso aniversario = date().

ai ele vai me trazer o nome, codigo da empresa do aniversariante, cargo, email, telefone.

sendo assim não tem como?

[raphael_suporte]

se na sua pesquisa já está filtrando todos os aniversariantes o que você quer e se não tenha resultado sua pesquisa, ele mostre a mensagem "Sem Aniversariantes"

o seu if será outro será se o recordset é maior que 0.

caso não haja aniversariante ele modifica o label

[Leandro_Pirozzi]

Modifiquei o If para recordset maior q 0.

ai exibiu:

Run-time error '3021':

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

Tem idéia do q possa ser?

[raphael_suporte]

como você fez o if?

pois ele está avisando que tem itens no Recordset.

[Leandro_Pirozzi]

Ficou assim.

If rsaniver!ANIVERSARIO < 0 Then

DataGrid4.Visible = False

lblfeliz.Caption = "SEM ANIVERSARIANTES!"

Else

DataGrid4.Visible = True

lblfeliz.Caption = "FELIZ ANIVERSÁRIO!"

End If

[raphael_suporte]

então tente o seguinte teste...

If rsaniver.count < 0 Then
DataGrid4.Visible = False
lblfeliz.Caption = "SEM ANIVERSARIANTES!"
Else
DataGrid4.Visible = True
lblfeliz.Caption = "FELIZ ANIVERSÁRIO!"
End If

[Leandro_Pirozzi]

Dá o seguinte erro.

If rsaniver.count < 0 Then

DataGrid4.Visible = False

lblfeliz.Caption = "SEM ANIVERSARIANTES!"

Else

DataGrid4.Visible = True

lblfeliz.Caption = "FELIZ ANIVERSÁRIO!"

End If

Compile error:

Method or data member not found

Editado Fevereiro 26, 2009 por Leandro_Pirozzi

[raphael_suporte]

quando você coloca o . (ponto) ele abre uma janela para mexer nas propriedades... existe a propriedade "count" existe( sinceramente não lembro e não estou com o VB aqui). caso sim, coloque esse valor em uma variável e depois compare a variável ao invés de comparar o valor direto

[Leandro_Pirozzi]

não existe count não.

[raphael_suporte]

cara então verifica a propriedade RecordCount, esta deve ter e é com ela que você vai fazer o IF

[Leandro_Pirozzi]

tem o recordcount sim, porém não exibe os dados no grid.

[raphael_suporte]

coloque aqui como você fez?, não é para tirar a parte do de preencher o grid não

[Leandro_Pirozzi]

Function Exibiraniver()
    Dim SQL As String
    Dim Data As Date
         
    Set cnaniver = New ADODB.Connection
    
    With cnaniver
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;"
      .Open
    End With
    
    Set rsaniver = New ADODB.Recordset
    Set rsaniver.ActiveConnection = cnaniver
    rsaniver.CursorLocation = adUseClient
    
    SQL = "Select CODEMP, NOMEMPRESA, NOMCONT, ANIVERSARIO, CARGOCONT, EMAILCONT, TELCONT " & _
          "FROM CONTATOS_CONTATO Where ANIVERSARIO = Date() "
        
    Set Me.DataGrid4.DataSource = rsaniver
        rsaniver.Open SQL
        
    If rsaniver.RecordCount < 0 Then
        DataGrid4.Visible = False
        lblfeliz.Caption = "SEM ANIVERSARIANTES!"
    Else
        DataGrid4.Visible = True
        lblfeliz.Caption = "FELIZ ANIVERSÁRIO!"
    End If

End Function

Editado Fevereiro 26, 2009 por kuroi
Adicionar tag CODE