Microsoft Office Forums - View Single Post - [Solved] Access/PPT VBA difficulties

Thread: [Solved] Access/PPT VBA difficulties

View Single Post

Old

03-05-2015, 11:43 PM

JohnWilson JohnWilson is offline

JohnWilson is offline

JohnWilson uses Windows 7 64bit

Windows 7 64bit JohnWilson uses Office 2010 32bit

JohnWilson uses Office 2010 32bit

Office 2010 32bit

Programmer

Join Date: Nov 2008

Location: UK

Posts: 1,914

JohnWilson has a spectacular aura about

JohnWilson has a spectacular aura about

Default

Looks like you are maybe changing (not adding to) the shapes 2 text with each loop.

Code:

While Not rs.EOF
.Shapes(2).TextFrame.TextRange.Text = .Shapes(2).TextFrame.TextRange.Text & _
CStr(rs.Fields("[Closed]").Value) & vbCrLf
rs.MoveNext
Wend

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials

Reply With Quote