Improve company productivity with a Business Account.Sign Up

x
?
Solved

Monthly Scheduler

Posted on 2012-12-22
10
Medium Priority
?
316 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
  • 5
  • 3
  • 2
10 Comments
 
LVL 41

Assisted Solution

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

Assisted Solution

by:IrogSinta
IrogSinta earned 664 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
Easily Design & Build Your Next Website

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'.

 
LVL 41

Accepted Solution

by:
als315 earned 1336 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

Free Tool: Port Scanner

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

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…

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.

Join & Ask a Question