i can only click my button once per form load

[Weresmytriple]

hi all

i have created a button that works fine however it will only work one click per form load and i cant seem to figure out why.

here is my code any help will be much appreciated

Private Sub BntExpired_Click()
  
Dim QryAllCourses As recordset
Do Until ExpiryDate > Date Or ExpiryDate = ""
    MsgBox ([FirstName].Value + " " + [SecondName].Value + "'s course in " + [CourseName].Value + " has expired")
    recordset.MoveNext
Loop
Exit_BntExpired_Click:
    Exit Sub
Err_BntExpired_Click:
    MsgBox Err.Description
    Resume Exit_BntExpired_Click
End Sub

thanks

michael

 

[pr2-eugin]

You have not set the Recordset anywhere? How would the code even execute the first time?

When declaring objects, declare them as they are to avoid ambiguity. Like.

Dim someObj As [COLOR=Red][B]DAO.[/B][/COLOR]Recordset

 

[Weresmytriple]

i honestly have no idea how it works im not tat good at coding but it works. it just wont let me click it the 2nd time

 

[pr2-eugin]

Okay explain what you want to use the button for? In very simple English words with no Access/programming terminology.

 

[Weresmytriple]

basically to go through and bring up and text box saying which person and which courses have expired

 

[Weresmytriple]

actually just thought i can have a query do the exact same thign and open another form for it

 

[pr2-eugin]

actually just thought i can have a query do the exact same thign and open another form for it

Does this mean, you have solved your problem and you are okay to carry on?

 

[Weresmytriple]

yes i have solved it

 

[pr2-eugin]

Good for you ! Good Luck !