View Single Post
  #7 (permalink)  
Old May 15th, 2004, 08:08 PM
compcad compcad is offline
Registered User
Join Date: May 2004
Posts: 7
Thanks: 0
Thanked 0 Times in 0 Posts

I think I had found the area at which the program fails I had tried passing arguments from the code given to me by my client and tried opening the back end program with a false Password and it did ok and then I tried the RaffleId and it seemed to fail and so I figure that the RUN TIME ERROR 91 is comming from this portion of the code.

Data1.DatabaseName = DataPath
        Data1.Connect = "; PWD=TheSecretPassword" 
        number1 = "select RaffieID, Prize1, NumberofTicketsAvailable, shortdescription, longdescription, raffleenddate, Ticketcost, " & _ 
        "Timeplace, CharityName from raffies Inner Join charity on Raffles.CharityIdd = charity.CharityId Where RaffielD like'" & RAFFLEID & "*'" 
        Data1.RecordSource = number1 
        Data1.Recordset.FindFirst "RaffleID = '" & RAFFLEID & "'" 
    ElseIf Data1.Recordset.NoMatch Then 
        Frame3.Visible = True 
        Label4.Visible = True 
        Label4.Caption = "No such record was found." 
        End If

before I Stuck the RaffleId code into Private Sub Form_Activate()I had it in a Command Button and it worked fine. At this time what should I do. What about put it into a Sub_Main() and then call it from there. Your advice is very helpful


Reply With Quote