How to make a Calendar

I need to write a program.
the basic format is a calendar. 1 month.
They click on the day and enter text.
The Calendar needs to be the size of the screen.

I found lots of ActiveX controls. That is not what I want.
Maybe a custom form with each day being a button?

Can anyone point me in the right dircection?
I will try all ideals.

Thank you for your time.
Scott Burke

Hi,

I'm not sure what you're trying to do. But if you need to enter text on a
calendar, I would advise to look at existing programs before writing new
ones. the Outlook calendar can do perfectly what you describe, and a lot
more than that.
--
Kind regards
Noëlla


"Scott Burke" wrote:

I need to write a program.
the basic format is a calendar. 1 month.
They click on the day and enter text.
The Calendar needs to be the size of the screen.

I found lots of ActiveX controls. That is not what I want.
Maybe a custom form with each day being a button?

Can anyone point me in the right dircection?
I will try all ideals.

Thank you for your time.
Scott Burke

Scott,

I developed a calendar form and calendar report that does what you want. I
can implement it in your database for a reasonable fee. Contact me if you
want my help. I provide help with Access, Excel and Word applications for a
reasonable fee.

Steve



"Scott Burke" wrote in message
...
I need to write a program.
the basic format is a calendar. 1 month.
They click on the day and enter text.
The Calendar needs to be the size of the screen.

I found lots of ActiveX controls. That is not what I want.
Maybe a custom form with each day being a button?

Can anyone point me in the right dircection?
I will try all ideals.

Thank you for your time.
Scott Burke

"Steve" wrote in message
m...

I developed a calendar form and calendar report that does what you want. I
can implement it in your database for a reasonable fee. Contact me if you
want my help. I provide help with Access, Excel and Word applications for
a reasonable fee.

Steve

So are you going to be honest and say who really developed the calendat
form?


These newsgroups are provided by Microsoft for FREE peer to peer support.
There are many highly qualified individuals who gladly help for free. Stevie
is not one of them, but he is the only one who just does not get the idea of
"FREE" support. He offers questionable results at unreasonable prices. If he
was any good, the "thousands" of people he claims to have helped would be
flooding him with work, but there appears to be a continuous drought and he
needs to constantly grovel for work.

A few gems gleaned from the Word New User newsgroup over the Christmas
holidays to show Stevie's "expertise" in Word.


Dec 17, 2008 7:47 pm

Word 2007 ..........
In older versions of Word you could highlght some text then go to Format -
Change Case and change the case of the hoghloghted text. Is this still
available in Word 2007? Where?
Thanks! Steve


Dec 22, 2008 8:22 pm

I am designing a series of paystubs for a client. I start in landscape and
draw a table then add columns and rows to setup labels and their
corresponding value. This all works fine. After a landscape version is
completed, I next need to design a portrait version. Rather than strating
from scratch, I'd like to be able to cut and paste from the landscape
version and design the portrait version.
Steve


Dec 24, 2008, 1:12 PM

How do you protect the document for filling in forms?
Steve


One of my favourites:
Dec 30, 2008 8:07 PM - a reply to stevie
(The original poster asked how to sort a list and stevie offered to create
the OP an Access database)

Steve wrote:
Yes, you are right but a database is the correct tool to use not a
spreadsheet.


Not at all. If it's just a simple list then a spreadsheet is perfectly
adequate...




John... Visio MVP

Scott,

So sorry you were propositioned in a forum where help is FREE! Belowe are
just a few links which should get you closer to what you need. All the
samples available at these sites are FREE. And if these don't work, post
back, there are plenty more FREE ones where they came from!

http://www.viescas.com/Info/links.htm#Downloads

http://www.datastrat.com/Download2.html

http://www.access.hookom.net/Samples.htm

--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm

"Scott Burke" wrote in message
...
I need to write a program.
the basic format is a calendar. 1 month.
They click on the day and enter text.
The Calendar needs to be the size of the screen.

I found lots of ActiveX controls. That is not what I want.
Maybe a custom form with each day being a button?

Can anyone point me in the right dircection?
I will try all ideals.

Thank you for your time.
Scott Burke

HI Noëlla Gabriël,
Sorry. I should have given more/better details on
the what/when/why side. What I am trying to make is a log book. When we
receive receipts we have to log them in. There are about six people who
regularly use it.
Currently they use Outlook to print a calendar. One month per page. They
like the format but the book tends to get lost a lot.

The ideal:
Create a program that looks like a calendar.
the form is a month.
They want to click on a day then enter the information.
They want it displayed like a calendar.

I have never made a calendar before so I was hoping someone out there has a
Calendar for beginners....... make that Calendar for Scott.
Something simple. So I can learn from it.

That is the ideal.
Thank you for your time.
Scott Burke






"Noëlla Gabriël" wrote:

Hi,

I'm not sure what you're trying to do. But if you need to enter text on a
calendar, I would advise to look at existing programs before writing new
ones. the Outlook calendar can do perfectly what you describe, and a lot
more than that.
--
Kind regards
Noëlla


"Scott Burke" wrote:

I need to write a program.
the basic format is a calendar. 1 month.
They click on the day and enter text.
The Calendar needs to be the size of the screen.

I found lots of ActiveX controls. That is not what I want.
Maybe a custom form with each day being a button?

Can anyone point me in the right dircection?
I will try all ideals.

Thank you for your time.
Scott Burke

Thanks Gina,
I am going to give them a look thru. Have a good week end.

Scott Burke.
"Sometimes I have the need to shoot the H*** out of something!" - JAG





"Gina Whipp" wrote:

Scott,

So sorry you were propositioned in a forum where help is FREE! Belowe are
just a few links which should get you closer to what you need. All the
samples available at these sites are FREE. And if these don't work, post
back, there are plenty more FREE ones where they came from!

http://www.viescas.com/Info/links.htm#Downloads

http://www.datastrat.com/Download2.html

http://www.access.hookom.net/Samples.htm

--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm

"Scott Burke" wrote in message
...
I need to write a program.
the basic format is a calendar. 1 month.
They click on the day and enter text.
The Calendar needs to be the size of the screen.

I found lots of ActiveX controls. That is not what I want.
Maybe a custom form with each day being a button?

Can anyone point me in the right dircection?
I will try all ideals.

Thank you for your time.
Scott Burke

"John... Visio MVP" wrote in message
...

A few gems gleaned from the Word New User newsgroup over the Christmas
holidays to show Stevie's "expertise" in Word.


Not to mention the equally hilarious "qualifications" listed on his web
site:

Qualifications

a.. Creative
b.. Analytical
c.. Detail Oriented
d.. Persistent in finding a way to make it work
e.. Frequent contributor to Access newsgroups

Scott Burke wrote:
I need to write a program.
the basic format is a calendar. 1 month.
They click on the day and enter text.
The Calendar needs to be the size of the screen.

Scott, we developed one that works with a grid control. If you know how ot
use a Grid control then the following code may help you with the step we took.
The thing that we like about the grid contorl was that you can select
multiple days that dont have to be in a row or column ( you can actually
select complete random days)

Hope this helps

Module declaration
Private WithEvents AX As axExplorerBar
Public WithEvents iCal As iGrid
Public WithEvents iDay As iGrid
Private WithEvents DatePick As DTPicker
Private CalDateRow As Long
Private CalDateCol As Long
Private SelectedCalDateRow As Long
Private SelectedCalDateCol As Long
Private BeginDate As Date
Private EndDate As Date
Private TodayDate As Date
Private ScaleSetting As Long
Private SetDates As Collection
Private OldSetDates As Collection
Private SetTimes As Collection
Private SelectedDays As Collection
Private firstday As Date
Private FirstDayWeekday As Long
Private LastDay As Date
Private BeginCal As Date
Private whodunnit As Long
Private Em_ID As Long
Private cmb As CommandBar
Private ID As Long
Private StartDate As Date
Private EndTime As Date

Private Sub SetMonthCalGrid(sDay As Date, Optional CalReset As Boolean = True)

Dim x As Long
Dim y As Long
Dim weekcount As Long
Dim sRow As Long
Dim sWeek As Long
Dim CurCol As Long
Dim Appnts As Long
Dim CellValue As String
Dim BckClr As Long
Dim FntClr As Long

On Error GoTo HandleErr

If CalReset Then
For x = OldSetDates.Count To 1 Step -1
OldSetDates.Remove (x)
Next x
For x = 1 To SetDates.Count
Debug.Print "SetDate Value " & x & " - " & SetDates.Item(x)
OldSetDates.Add SetDates.Item(x)
Next x
End If

Me.iCal.Clear True
With Me.iCal
.DefaultRowHeight = 25
.Header.BackColor = 13292476
.Header.ForeColor = 0
.Header.Flat = True
'.Header.HotTrackForeColor =
.BackColor = 15988207
.BackColorEvenRows = 13887458
.BackColorOddRows = 13558751 '14147020
.FocusRectColor1 = vbRed
.FocusRectColor2 = vbRed
.HighlightForeColor = 0
.HighlightBackColor = 14540287 '13292476
.HighlightForeColorNoFocus = 0
.HighlightBackColorNoFocus = 13292476
.GridlineColor = 13292476
.GridLines = igGridLinesBoth
.Enabled = True
.Editable = False
.MultiSelect = True
End With

For x = 1 To 7
With Me.iCal
.AddCol x, Format(x, "ddd")
.ColMinWidth(x) = 37
.ColMaxWidth(x) = 37 * frmResize.ScaleFactorX
End With
Next x

firstday = FirstDayOfMonthGiven(sDay) 'custom function
FirstDayWeekday = WeekDay(firstday)
LastDay = LastDayOfLastMonthGiven(sDay)'custom function
BeginCal = DateAdd("d", 1 - WeekDay(LastDay), LastDay)

For x = 1 To 6
With Me.iCal
.AddRow x
End With
Next x

x = 0
For sWeek = 1 To 6
For CurCol = 1 To 7
sRow = 1 + ((sWeek - 1))
With Me.iCal
Appnts = SetAppointmentsPerDay(DateAdd("d", x, BeginCal), Em_ID)
'this is a call to a function that returns the number of appointments on that
day.
If Appnts = 0 Then
CellValue = Format(DateAdd("d", x, BeginCal), "d")
FntClr = 0
Else
CellValue = Format(DateAdd("d", x, BeginCal), "d") & " / " &
Appnts
FntClr = RGB(255, 0, 0)
End If
SetCellValue Me.iCal, CellValue, sRow, CurCol, False, False,
False, 25, , , FntClr
If DateValue(DateAdd("d", x, BeginCal)) = DateValue(TodayDate)
Then
.CellBackColor(sRow, CurCol) = vbBlack
.CellForeColor(sRow, CurCol) = vbWhite
CalDateRow = sRow
CalDateCol = CurCol
End If
If DateValue(DateAdd("d", x, BeginCal)) = DateValue(sDay) Then
SelectedCalDateRow = sRow
SelectedCalDateCol = CurCol
End If
If CalReset Then
For y = 1 To OldSetDates.Count
If DateValue(CDate(OldSetDates.Item(y))) = DateValue
(DateAdd("d", x, BeginCal)) Then
Me.iCal.CellSelected(sRow, CurCol) = True
End If
Next y
End If
End With
sRow = sRow + 1
x = x + 1
Next CurCol
Next sWeek

If CalReset Then
For x = SetDates.Count To 1 Step -1
SetDates.Remove (x)
Next x
For x = 1 To OldSetDates.Count
SetDates.Add OldSetDates.Item(x)
Next x
End If

exithe
Exit Sub

HandleErr:
GoTo exithere 'we have a custom error handler
End Sub

Some of the stuff is turner things color based on data and stuff, but did not
want to erase so you could just read through the code and get an idea what we
did.

--
DS

Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...esign/200904/1