Problem de End of statement

Problem de End of statement - VB/VBA/VBS - Programmation

Marsh Posté le 03-02-2009 à 23:20:46    

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 :
  1. IDNumber= rs("IndividualNdx" )
  2.         requeteInAndOut = "SELECT RptEvents.EventTypeNdx, RptEvents.DateTime, RptEvents.DeviceName, " &_
  3.         "RptEventTypes.EventText, RptEvents.IndividualNdx FROM RptEventTypes " &_
  4.         "INNER JOIN RptEvents ON RptEventTypes.EventTypeId = RptEvents.EventTypeNdx " &_
  5.         "WHERE (((RptEvents.IndividualNdx)='" & IDNumber & "')) order BY RptEvents.DateTime desc"
  6.         'msgbox requeteInAndOut, vbok, "test"
  7.         set rsEventText = cn.Execute (requeteInAndOut)
  8.         'msgbox rsEventText("EventText" ) & " " & rs("FirstName" ), vbok, "test"
  10.         Dim status
  11.         status = rsEventText.FindFirst["EventText"]
  12.         If status = "Reader Entry" Then
  13.                 status =  "1"
  14.                 msgbox status,vbok,"test"
  15.         Else if status = "Reader Exit" Then
  16.                 status =  "0"
  17.                 msgbox status,vbok,"test"
  18. End if
  19.         End if


 
Si quelqu'un peu aider...
 
Merci d'avance


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

Marsh Posté le 03-02-2009 à 23:20:46   

Reply

Marsh Posté le 04-02-2009 à 09:35:17    

FindFirst ne s'emploie pas avec des crochets.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed