Problem de End of statement

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problem de End of statement

akaii

Hello,

Je ne vois pas ce que j'ai qui manque a la ligne "status = rsEventText.FindFirst["EventText"]" du code ci-dessous, je recois une erreur "Expected End of statement"

Code :

IDNumber= rs("IndividualNdx" )
requeteInAndOut = "SELECT RptEvents.EventTypeNdx, RptEvents.DateTime, RptEvents.DeviceName, " &_
"RptEventTypes.EventText, RptEvents.IndividualNdx FROM RptEventTypes " &_
"INNER JOIN RptEvents ON RptEventTypes.EventTypeId = RptEvents.EventTypeNdx " &_
"WHERE (((RptEvents.IndividualNdx)='" & IDNumber & "')) order BY RptEvents.DateTime desc"
'msgbox requeteInAndOut, vbok, "test"
set rsEventText = cn.Execute (requeteInAndOut)
'msgbox rsEventText("EventText" ) & " " & rs("FirstName" ), vbok, "test"
Dim status
status = rsEventText.FindFirst["EventText"]
If status = "Reader Entry" Then
status = "1"
msgbox status,vbok,"test"
Else if status = "Reader Exit" Then
status = "0"
msgbox status,vbok,"test"
End if
End if

Si quelqu'un peu aider...

Merci d'avance

Message édité par akaii le 03-02-2009 à 23:21:56

Publicité

olivthill

FindFirst ne s'emploie pas avec des crochets.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problem de End of statement

Sujets relatifs
problem de define en c avec winapi	Scrolling problem !
[Resolu][Mysql] Utiliser un IF ... THEN ... ELSE ... END IF ?	problem on sprite
problem : invalid database handle (no active connection)	problem de recuperation du contenu d variable sous perl
problem de recuperation du contenu d variable sous perl	[XML]problem chemin relatif pour feuille de style xsl avec IE et FF
probleme d'affichage avec un script	num = Range("A65536").End(xlUp).Row + 1 mal utilisé ?
Plus de sujets relatifs à : Problem de End of statement

Page générée en 0.038 secondes