Solved

Monthly Scheduler

Posted on 2012-12-22
10
307 Views
Last Modified: 2012-12-23
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
0
Comment
Question by: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
 
LVL 40

Assisted Solution

by:als315
als315 earned 334 total points
ID: 38716536
Look at sample
DBFieldsize.mdb
0
 
LVL 29

Assisted Solution

by:IrogSinta
IrogSinta earned 166 total points
ID: 38716543
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

Open in new window

0
 

Author Comment

by:chestera
ID: 38716858
als315

Thank you for that just what I am looking for do you mind if I split the paints.

chestera
0
SharePoint Admin?

Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.

 
LVL 40

Accepted Solution

by:
als315 earned 334 total points
ID: 38717022
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.
0
 

Author Closing Comment

by:chestera
ID: 38717402
irogsinta

Many thanks for your input. I have split the points

chestera
0
 

Author Comment

by:chestera
ID: 38717405
als315

Again thank you for that sample dB

chestera
0
 
LVL 29

Expert Comment

by:IrogSinta
ID: 38717420
Here's a 30 day version.  To change the size of the large text box just change the constants largeWidthCm and largeHeightCm.
0
 

Author Comment

by:chestera
ID: 38717539
Irog/sinta

Thank you again

All the best
Alan
0
 
LVL 29

Expert Comment

by:IrogSinta
ID: 38717680
Last one.  This one includes labels and month traversal.
Calendar.accdb
0
 

Author Comment

by:chestera
ID: 38717772
IrongSinta

Excellent and thank you

Alan
0

Featured Post

Back Up Your Microsoft Windows Server®

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…

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.

Join & Ask a Question