Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
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
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
5
3
2
10 Comments
Active 1 day ago
Look at sample
DBFieldsize.mdb
DBFieldsize.mdb
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 1 day 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.
Here's a 30 day version. To change the size of the large text box just change the constants largeWidthCm and largeHeightCm.
Last one. This one includes labels and month traversal.
Calendar.accdb
Calendar.accdb
Featured Post
Back up all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
This article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
If you need a simple but flexible process for maintaining an audit trail of who created, edited, or deleted data from a table, or multiple tables, and you can do all of your work from within a form, this simple Audit Log will work for you.
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship.
Add the tables:
Create the relationship:
Decide if you’re going to set referential integrity:
Decide if you want cascade upda…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month6 days, 3 hours left to enroll
Earn Certification
Administering Microsoft SQL Server 2012 Databases (Exam 70-462)
$79.00$71.10
626 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.