HowTo Draw Birthday Balloons in Access
Access is more than information management. It can be a fun drawing tool too. Draw birthday balloons for special folks in your life.
I met online with other Access developers in the Bay area. This is a recording of part of that meeting since it was Steve's birthday! We modified a PartyWords table in my Birthday Balloons database to have words that are relevent for Steve, and then Access made a birthday card for him with balloons, words, and colors.
You can see how the code works, and download this free tool to make fun birthday cards for others.
Download:
https://msaccessgurus.com/VBA/Draw_Bi...
Edit the PartyWords table to add new words and flip IsActive for words already there. Then specify who the birthday balloon report is for when it opens.
If a word is too wide for a balloon, the font size will be scaled using the report TextWidth method to decrease the FontSize till the word fits.
The code to draw and place balloons is explained ... if you have questions about this code, ask in the comments. Thanks for watching.
0:36 Party Words
02:10 chocolate
02:43 travel
03:24 filter for selected
03:42 uncheck IsActive to reduce number of words
03:56 -sing
04:22 open Birthday Balloons report
06:13 scales text in balloon
06:44 TextWidth to check length of word
07:18 patterns and random -- how is that accomplished?
14:32 TextWidth is a method for a report object (FontName also matters, in addition to FontSize)
15:17 generate report again
colors change but position doesn't. Word also change.
15:35 random positioning didn't generate a lot of pretty reports
15:56 something fun so when someone is having a birthday, and give it to them -- various ways to share
16:46 export to PDF
17:30 balloon strings
18:51 if you draw things outside the canvas, you don't get an error, they just don't show up
19:30 cut the number of party words down -- start repeating the words
19:37 cycles through the words
19:41 uncheck IsActive in PartyWords to get less words
20:09 look at report again, with less words -- words repeat.
20:21 complete (if it can) and repeat pattern no matter how much data you give it
20:28 RecordSet for words is sorted by GetRandomInteger, and opened as SnapShot
21:00 I'm having way too much fun with Access
21:10 ♪ Happy Birthday to you ♪ ... Happy birthday, Steve!
Happy everyday to everyone
kind regards,
crystal
Contact me for one-on-one training ... Access, Excel, Word, PowerPoint, VBA ... drawing, creative things, ... whatever I know, I'm happy to share ~