Porque não Esta Executando O If

[mestre fyoda]

Run-Time error : '450'

wrong number of arguments or invalid property assignment

Private Sub Form_Load()

con = Conexao.Execute(" Select COUNT(*) from AGE where DATAGE = 'Now()' ")

If con < 1 Then

Agenda.Show

End If

End Sub

alguém poderia me ajudar , porque não está dando certo ? a conexao ao BD esta correta ! O bd é MYSQL

[Lucas Phillip]

aí,

da uma conferida no valor de con depois de executar o comando sql. (Eu geralmente gosto de utilizar um msgbox :D)

Pode ser que con esta "vazia"... ai não tem como comparar se uma string vazia é menor do que 1 hehe (if "" < 1 then)

falou :D

[kuroi]

con é um recordset?? se for, acho que na verdade, você teria que fazer assim:

Private Sub Form_Load()

Set con = Conexao.Execute(" Select COUNT(*) As Campo from AGE where DATAGE = Now() ")

If con!Campo < 1 Then
Agenda.Show
End If

End Sub[/code]

[mestre fyoda]

ali no Now() :

Set con = Conexao.Execute(" Select COUNT(*) As Campo from AGE where DATAGE = Now() ")

se eu for substituir por uma variavel, o certo seria :

Username = "Teste"
Set con = Conexao.Execute(" Select COUNT(*) As Campo from AGE where USER = '&Username&' ")

-> está certo ?

Editado Março 9, 2007 por mestre fyoda

[Graymalkin]

Não, você tem que concatenar:

Username = "Teste"
Set con = Conexao.Execute(" Select COUNT(*) As Campo from AGE where USER = '" & Username & "'")

Abraços,

Graymalkin