Dear Crystal,
I got it. Thanks a lot.
Best Regards,
Kevin
发自 WPS邮箱客戶端
在 "crystal 8 strive4peace2008@yahoo.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>，2019年2月12日 07:25写道：
hi Kevin,
adding on to Duane's comment and questions...
whatever the click event for Command44 does, it might be better to put the logic in your loop instead of calling it ... realize that the subItineraryForCoach form record is not changing, only the record for rst in your loop ...
also, it is a good idea to rename command buttons (all controls actually) before you assign code to them, or reference them.� You can do this afterward also -- then just replace the ambiguous references with logical ones, and make sure they are still hooked up with [Event Procedure] on the property sheet.
~crystal
On 2/10/2019 7:31 PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] wrote:
Kevin,What happens when you set a break point and step through your code.�Can you provide the code for:�Me.subItineraryForCoach.Form.Command44_Click8
What are you expecting to do with the code?�
Duane
From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Kevin qingqinga@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Friday, February 8, 2019 6:01 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Calling Public does not stop looping.�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>
------------------------------------
------------------------------------
Yahoo Groups Links
<*> To visit your group on the web, go to:
��� http://groups.yahoo.com/group/MS_Access_Professionals/
<*> Your email settings:
��� Individual Email | Traditional
<*> To change settings online go to:
��� http://groups.yahoo.com/group/MS_Access_Professionals/join
��� (Yahoo! ID required)
<*> To change settings via email:
��� MS_Access_Professionals-digest@yahoogroups.com
��� MS_Access_Professionals-fullfeatured@yahoogroups.com
<*> To unsubscribe from this group, send an email to:
��� MS_Access_Professionals-unsubscribe@yahoogroups.com
<*> Your use of Yahoo Groups is subject to:
��� https://info.yahoo.com/legal/us/yahoo/utos/terms/
__._,_.___
Posted by: qingqinga <qingqinga@yahoo.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (5) |
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