Re:[MS_AccessPros] Re: After running this code, the form keeps blinking without stop.

 

Bill-

I will send you the code on Monday.

Best Regards,

Kevin

Life has an uncanny way of responding to your need.

在 2016年4月8日 下午11:08，"wrmosca@comcast.net [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>写道：

 

Kevin

I'm curious. That code seems like overkill. Can you explain what clicking the command button does?

Regards,

Bill Mosca, Founder - MS_Access_Professionals

http://www.thatlldoit.com

Microsoft Office Access MVP

https://mvp.microsoft.com/en-us/PublicProfile/35852?fullName=Bill%20%20Mosca

My nothing-to-do-with-Access blog

http://wrmosca.wordpress.com

---In MS_Access_Professionals@yahoogroups.com, <zhaoliqingoffice@163.com> wrote :

Dear All,

My problem is solved. Thanks.

I changed the "Me.Requery" into "Me.Refresh" in the Public command button.

Best Regards,

Kevin

---

 

From: 'zhaoliqingoffice@163.com' zhaoliqingoffice@163.com [MS_Access_Professionals]

Date: 2016-04-08 14:30

To: MS_Access_Professionals

Subject: [MS_AccessPros] After running this code, the form keeps blinking without stop.

 

Dear All,

After running this code, the form keeps blinking without stop. Please help.

On Error GoTo ErrHandle
Dim rst As DAO.Recordset

Set rst = Me.subRoomUpdate.Form.Recordset
rst.MoveFirst
Do Until rst.EOF

Call Me.subRoomUpdate.Form.Command64_Click
rst.MoveNext
Loop
Set rst = Nothing

ErrExit:
    Exit Sub
    
ErrHandle:
    Resume ErrExit

Best Regards,

Kevin

---

 

__._,_.___

---

Posted by: zhaoliqingoffice <zhaoliqingoffice@163.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (4)

---

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? The Yahoo Mail app is fast, beautiful and intuitive. Try it today!

---

Visit Your Group

• New Members 2

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___