Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.
Solved
Monthly Scheduler
Posted on 2012-12-22
Hi EE
I am playing with developing a simple Monthly scheduler the text box for each day is
Width 3cm and Height is 2cm. Is there a way via vba when clicking on a text box it can expand to a given size. I would like to click on a given day, box opens up then enter text for that day when exit the box shrinks back to original size. Any help appreciated
chestera
I am playing with developing a simple Monthly scheduler the text box for each day is
Width 3cm and Height is 2cm. Is there a way via vba when clicking on a text box it can expand to a given size. I would like to click on a given day, box opens up then enter text for that day when exit the box shrinks back to original size. Any help appreciated
chestera
-
5
3
2
10 Comments
Active 2 days ago
Look at sample
DBFieldsize.mdb
DBFieldsize.mdb
Active 1 day ago
You could use this code:
Dim sLastOne As String
Const cmTwips As Integer = 567
Private Sub ExpandMe()
'expand textbox
With Me.ActiveControl
.Width = 5 * cmTwips
.Height = 4 * cmTwips
sLastOne = Me.ActiveControl.name
End With
End Sub
Private Sub RestoreMe()
'restore textbox
If sLastOne <> "" Then
Me.Controls(sLastOne).Width = 3 * cmTwips
Me.Controls(sLastOne).Height = 1 * cmTwips
End If
End Sub
Private Sub Detail_Click()
RestoreMe
End Sub
Private Sub tDay1_GotFocus()
ExpandMe
End Sub
Private Sub tDay2_GotFocus()
ExpandMe
End Sub
Private Sub tDay3_GotFocus()
ExpandMe
End Sub
Private Sub tDay1_LostFocus()
RestoreMe
End Sub
Private Sub tDay2_LostFocus()
RestoreMe
End Sub
Private Sub tDay3_LostFocus()
RestoreMe
End Sub
Active today
als315
Thank you for that just what I am looking for do you mind if I split the paints.
chestera
Thank you for that just what I am looking for do you mind if I split the paints.
chestera
Active 2 days ago
chestera: you can assign points as you like. Ron's solution is universal - you can use it on any control if they have same siza.
Active 1 day ago
Here's a 30 day version. To change the size of the large text box just change the constants largeWidthCm and largeHeightCm.
Active 1 day ago
Last one. This one includes labels and month traversal.
Calendar.accdb
Calendar.accdb
Featured Post
Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
I have had my own IT business for a very long time. I started mostly with hardware and after about a year started to notice a common theme. I had shelves with software boxes -- Peachtree, Quicken, Sage, Ouickbooks -- and yet most of my clients were…
Microsoft Access has a limit of 255 columns in a single table; SQL Server allows tables with over 255 columns, but reading that data is not necessarily simple. The final solution for this task involved creating a custom text parser and then reading…
The Relationships Diagram is a good way to get an overall view of what a database is keeping track of. It is also where relationships are defined. A relationship specifies how two tables connect to each other.
As you build tables in Microsoft Ac…
Enter Foreign and Special Characters
Enter characters you can't find on a keyboard using its ASCII code ... and learn how to make a handy reference for yourself using Excel ~
Use these codes in any Windows application! ... whether it is a Micr…
Suggested Courses
Course of the Month9 days, 22 hours left to enroll
606 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.