Dear All,
I have following code in a command button on the main form, after
running it. it doesn't stop looping until MS Access got crush. Please help.
On Error GoTo ErrHandle
Dim rst As DAO.Recordset
Set rst = Me.subItineraryForCoach.Form.Recordset
rst.MoveFirst
Do Until rst.EOF
Call Me.subItineraryForCoach.Form.Command44_Click
rst.MoveNext
Loop
Set rst = Nothing
ErrExit:
Exit Sub
ErrHandle:
Resume ErrExit
Best Regards,
Kevin
__._,_.___
Posted by: Kevin <qingqinga@yahoo.com>
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (1) |
Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.
SPONSORED LINKS
.
__,_._,___
Tidak ada komentar:
Posting Komentar