Calendar and time sheet

I will try, thanks.

"PC Datasheet" wrote:

Use a table with ____ fields.
1 - SampleResultID
2 - SampleID
3 - Year
4 - Month
5 - 36 Day1 to Day31
Store sample results in fields 5 to 36.

In your form use some Date math in the OnCurrentEvent to determine whether
to display fields Day29 to Day31.

Sorry for the previous post! Thought you might just like to see your sample
results in a calendar format.


--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications

www.pcdatasheet.com

Over 1050 users have come from the newsgroups trusting me and requesting
help.
My fees are very reasonable.



"Fehn" wrote in message
...
Sorry PC Datasheet! But the reason I posted in this newsgroup is because I
know that this is a "friendly" exchange of ideas and knowledge! Not for
advertising!

I am not getting paid to do this database, I am doing this for my own
knowlege gain. So if no one in this group doesn't know or wasn't able to
help, then so be it! i will just have to do it in my own.

Thank you for reading my post, but also understand that Arno R. is just
protecting the users of this newsgroup and if what you say in you
advertising
is true "Over 1000 Access users have come to me for help", then you
woudn't
need to reply to anybody's questions with your advertising.

Thanks again.

"PC Datasheet" wrote:

Fehn,

Consider what another responder said about this obnoxious character and
then
decide if you want my help. I can put your sample results in a calendar
form
and calendar report for you for a reasonable fee. Over 1000 users have
come
from the newsgroups requesting help and trusting me.

"If you have anything to contribute to the group, contribute. Your war
with Datasheet is simply ****ing and moaning in the wind for the sake of
nothing. Grow up and get a life."

Salad

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications

www.pcdatasheet.com

Over 1000 Access users have come to me for help. My fees are very
reasonable.




"StopThisAdvertising" StopThisAdvertising@Data**** wrote in message
. ..

"PC Datasheet" schreef in bericht
link.net...
I can put your sample results in a calendar form and calendar report for
you
for a reasonable fee. If you are interested, contact me at my email
address
below,


--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications

www.pcdatasheet.com

Over 1000 Access users have come to me for help. My fees are very
reasonable.


--
To the OP:

Most people here have a common belief that the newsgroups are for *free
exchange of information*.
But Steve is a notorious job hunter in these groups, always trying to
sell
his services.

Before you intend to do business with him look at:
http://home.tiscali.nl/arracom/whoissteve.html (updated)

Arno R

Thanks, I will try this next week and give you an update! Thanks so much!

"Duane Hookom" wrote:

I would keep all the data in normalized tables (and ignore or verbally abuse
PC Datasheet).

tblSamples
================
SampleID Autonumber primary key
SampleTypeID link to table containing descriptions
SampleDate
SampleValue

If you really need a form like this, consider
-writing code that loads your data into a "flat" table for editing
more code would be needed to normalize after editing
-create an unbound form like a grid of text boxes.
use code to fill the grid with data and then to
save the data to your normalized table

I wrote some code for another poster a while back the filled a bunch of text
boxes with customer names and order dates from Northwind. One of the keys
was to use a scheme for naming the text boxes as below:

txtCust1 txtOrdDate1_1 txtOrdDate1_2 ...etc...
txtCust2 txtOrdDate2_1 txtOrdDate2_2 ...etc...
txtCust3 txtOrdDate3_1 txtOrdDate3_2 ...etc...
...etc... ...etc... ...etc... ...etc...

The code to fill the text boxes with customers and order dates:
Private Sub cmdPullOrderDates_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim intCustomer As Integer
Dim strCustomer As String
Dim intOrder As Integer
strSQL = "SELECT CompanyName, OrderDate " & _
"FROM Customers INNER JOIN " & _
"Orders ON Customers.CustomerID = Orders.CustomerID " & _
"ORDER BY CompanyName, OrderDate"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
rs.MoveFirst
With rs
intCustomer = 0
Do Until .EOF Or intCustomer 2
strCustomer = .Fields("CompanyName")
intCustomer = intCustomer + 1
Me("txtCust" & intCustomer) = strCustomer
intOrder = 0
Do Until strCustomer .Fields("CompanyName") Or intOrder 4
intOrder = intOrder + 1
Me("txtOrdDate" & intCustomer & "_" & intOrder) =
..Fields("OrderDate")
.MoveNext
Loop
Loop
.Close
End With
Set rs = Nothing
Set db = Nothing
End Sub

--
Duane Hookom
MS Access MVP


"Fehn" wrote in message
...
Does anyone know how to make this possible ad updatable in MS Access?

Description - 12/1 - 12/2 - 12/3...... 12/31
Sample1 - 2 - - 5 .....etc
Sample2 - 6 - 8 - 3 .....etc
:
:
etc.


Thanks.

Ed,

You have a point! I will look into that! thanks!.


"Ed Warren" wrote:

Your example looks a lot like a pivot table; some grouping at the top and
left with some data in the center of the table.
You just might be able to get to where you want to be using a clever query
and then displaying it in a pivot table.

Ed Warren.

"Fehn" wrote in message
...
Does anyone know how to make this possible ad updatable in MS Access?

Description - 12/1 - 12/2 - 12/3...... 12/31
Sample1 - 2 - - 5 .....etc
Sample2 - 6 - 8 - 3 .....etc
:
:
etc.


Thanks.

Duane,

You continue to demonstrate that you are not even in the league with class
acts like Allen Browne, Ken Snell, Pieter Linden, Albert Kallal, Fred G,
Graham Mandello, Chuck Grimsby, MG Foster, and others.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications

www.pcdatasheet.com

Over 1050 users have come from the newsgroups trusting me and requesting
help.
My fees are very reasonable.



"Duane Hookom" wrote in message
...
I would keep all the data in normalized tables (and ignore or verbally
abuse PC Datasheet).

tblSamples
================
SampleID Autonumber primary key
SampleTypeID link to table containing descriptions
SampleDate
SampleValue

If you really need a form like this, consider
-writing code that loads your data into a "flat" table for editing
more code would be needed to normalize after editing
-create an unbound form like a grid of text boxes.
use code to fill the grid with data and then to
save the data to your normalized table

I wrote some code for another poster a while back the filled a bunch of
text boxes with customer names and order dates from Northwind. One of the
keys was to use a scheme for naming the text boxes as below:

txtCust1 txtOrdDate1_1 txtOrdDate1_2 ...etc...
txtCust2 txtOrdDate2_1 txtOrdDate2_2 ...etc...
txtCust3 txtOrdDate3_1 txtOrdDate3_2 ...etc...
...etc... ...etc... ...etc... ...etc...

The code to fill the text boxes with customers and order dates:
Private Sub cmdPullOrderDates_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim intCustomer As Integer
Dim strCustomer As String
Dim intOrder As Integer
strSQL = "SELECT CompanyName, OrderDate " & _
"FROM Customers INNER JOIN " & _
"Orders ON Customers.CustomerID = Orders.CustomerID " & _
"ORDER BY CompanyName, OrderDate"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
rs.MoveFirst
With rs
intCustomer = 0
Do Until .EOF Or intCustomer 2
strCustomer = .Fields("CompanyName")
intCustomer = intCustomer + 1
Me("txtCust" & intCustomer) = strCustomer
intOrder = 0
Do Until strCustomer .Fields("CompanyName") Or intOrder 4
intOrder = intOrder + 1
Me("txtOrdDate" & intCustomer & "_" & intOrder) =
.Fields("OrderDate")
.MoveNext
Loop
Loop
.Close
End With
Set rs = Nothing
Set db = Nothing
End Sub

--
Duane Hookom
MS Access MVP


"Fehn" wrote in message
...
Does anyone know how to make this possible ad updatable in MS Access?

Description - 12/1 - 12/2 - 12/3...... 12/31
Sample1 - 2 - - 5 .....etc
Sample2 - 6 - 8 - 3 .....etc
:
:
etc.


Thanks.

"PC Datasheet" wrote in message
ink.net...
Duane,

You continue to demonstrate that you are not even in the league with class
acts like Allen Browne, Ken Snell, Pieter Linden, Albert Kallal, Fred G,
Graham Mandello, Chuck Grimsby, MG Foster, and others.

--
PC Datasheet

The way that Steve figures it, anyone that doesn't object to his Datasheet
spam is a class act.

A pivot or crosstab was my first thought also. However, Fehn possibly wants
a solution that is "updatable". The pivot and crosstab work great for
presenting the data from a normalized table but unfortunately they are not
updateable.

--
Duane Hookom
MS Access MVP
--

"Ed Warren" wrote in message
...
Your example looks a lot like a pivot table; some grouping at the top and
left with some data in the center of the table.
You just might be able to get to where you want to be using a clever query
and then displaying it in a pivot table.

Ed Warren.

"Fehn" wrote in message
...
Does anyone know how to make this possible ad updatable in MS Access?

Description - 12/1 - 12/2 - 12/3...... 12/31
Sample1 - 2 - - 5 .....etc
Sample2 - 6 - 8 - 3 .....etc
:
:
etc.


Thanks.

Steve,
Just start behaving like everyone else. It's that simple. It's not
complicated. It's not difficult.

Everyone else understands this. Everyone else is very good at complying.
Everyone else sticks fairly close to common netiquette rules.

--
Duane Hookom
MS Access MVP
--

"PC Datasheet" wrote in message
ink.net...
Duane,

You continue to demonstrate that you are not even in the league with class
acts like Allen Browne, Ken Snell, Pieter Linden, Albert Kallal, Fred G,
Graham Mandello, Chuck Grimsby, MG Foster, and others.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications

www.pcdatasheet.com

Over 1050 users have come from the newsgroups trusting me and requesting
help.
My fees are very reasonable.



"Duane Hookom" wrote in message
...
I would keep all the data in normalized tables (and ignore or verbally
abuse PC Datasheet).

tblSamples
================
SampleID Autonumber primary key
SampleTypeID link to table containing descriptions
SampleDate
SampleValue

If you really need a form like this, consider
-writing code that loads your data into a "flat" table for editing
more code would be needed to normalize after editing
-create an unbound form like a grid of text boxes.
use code to fill the grid with data and then to
save the data to your normalized table

I wrote some code for another poster a while back the filled a bunch of
text boxes with customer names and order dates from Northwind. One of the
keys was to use a scheme for naming the text boxes as below:

txtCust1 txtOrdDate1_1 txtOrdDate1_2 ...etc...
txtCust2 txtOrdDate2_1 txtOrdDate2_2 ...etc...
txtCust3 txtOrdDate3_1 txtOrdDate3_2 ...etc...
...etc... ...etc... ...etc... ...etc...

The code to fill the text boxes with customers and order dates:
Private Sub cmdPullOrderDates_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim intCustomer As Integer
Dim strCustomer As String
Dim intOrder As Integer
strSQL = "SELECT CompanyName, OrderDate " & _
"FROM Customers INNER JOIN " & _
"Orders ON Customers.CustomerID = Orders.CustomerID " & _
"ORDER BY CompanyName, OrderDate"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
rs.MoveFirst
With rs
intCustomer = 0
Do Until .EOF Or intCustomer 2
strCustomer = .Fields("CompanyName")
intCustomer = intCustomer + 1
Me("txtCust" & intCustomer) = strCustomer
intOrder = 0
Do Until strCustomer .Fields("CompanyName") Or intOrder 4
intOrder = intOrder + 1
Me("txtOrdDate" & intCustomer & "_" & intOrder) =
.Fields("OrderDate")
.MoveNext
Loop
Loop
.Close
End With
Set rs = Nothing
Set db = Nothing
End Sub

--
Duane Hookom
MS Access MVP


"Fehn" wrote in message
...
Does anyone know how to make this possible ad updatable in MS Access?

Description - 12/1 - 12/2 - 12/3...... 12/31
Sample1 - 2 - - 5 .....etc
Sample2 - 6 - 8 - 3 .....etc
:
:
etc.


Thanks.

This is totally untrue!!

These people are class acts because they spend their time helping posters in
the newsgroups and not polluting the newsgroups with garbage and taking up
volumes of bandwidth in the newsgroup servers. It has nothing with their
feelings about me. For anyone reading this, just take a look at how many
real contributions the following dimwits have made to the newsgroups: Arno
R, John Marshall, Randy Harris and Keith Wilby. Arno R would rather spend
his time sending emails to my office. John Marshall would rather spend his
time showing how dimwitted he is. Randy Harris would rather spend his time
being a puppet of Arno R and Keith Wilby would rather spend his time showing
how two-faced he is.


--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications

www.pcdatasheet.com

Over 1050 users have come from the newsgroups trusting me and requesting
help.
My fees are very reasonable.


"Randy Harris" wrote in message
...

"PC Datasheet" wrote in message
ink.net...
Duane,

You continue to demonstrate that you are not even in the league with
class
acts like Allen Browne, Ken Snell, Pieter Linden, Albert Kallal, Fred G,
Graham Mandello, Chuck Grimsby, MG Foster, and others.

--
PC Datasheet

The way that Steve figures it, anyone that doesn't object to his Datasheet
spam is a class act.

Duane,

Just take a cue from the people who are class acts and quit supporting and
promoting Arno R and his band of dimwits. It's that simple. It's not
complicated. It's not difficult.

You are not impressing anyone siding with Arno R and his band of dimwits.
You don't see these class act people siding with Arno R. They adhere to
common netiquette rules. Whatever their feelings are, they stick to helping
people in the newsgroups.

There's an old saying, "birds of a feather flock together". Everyone is
seeing that you are just like Arno R and his band of dimwits.


--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications

www.pcdatasheet.com

Over 1050 users have come from the newsgroups trusting me and requesting
help.
My fees are very reasonable.


"Duane Hookom" wrote in message
...
Steve,
Just start behaving like everyone else. It's that simple. It's not
complicated. It's not difficult.

Everyone else understands this. Everyone else is very good at complying.
Everyone else sticks fairly close to common netiquette rules.

--
Duane Hookom
MS Access MVP
--

"PC Datasheet" wrote in message
ink.net...
Duane,

You continue to demonstrate that you are not even in the league with
class acts like Allen Browne, Ken Snell, Pieter Linden, Albert Kallal,
Fred G, Graham Mandello, Chuck Grimsby, MG Foster, and others.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications

www.pcdatasheet.com

Over 1050 users have come from the newsgroups trusting me and requesting
help.
My fees are very reasonable.



"Duane Hookom" wrote in message
...
I would keep all the data in normalized tables (and ignore or verbally
abuse PC Datasheet).

tblSamples
================
SampleID Autonumber primary key
SampleTypeID link to table containing descriptions
SampleDate
SampleValue

If you really need a form like this, consider
-writing code that loads your data into a "flat" table for editing
more code would be needed to normalize after editing
-create an unbound form like a grid of text boxes.
use code to fill the grid with data and then to
save the data to your normalized table

I wrote some code for another poster a while back the filled a bunch of
text boxes with customer names and order dates from Northwind. One of
the keys was to use a scheme for naming the text boxes as below:

txtCust1 txtOrdDate1_1 txtOrdDate1_2 ...etc...
txtCust2 txtOrdDate2_1 txtOrdDate2_2 ...etc...
txtCust3 txtOrdDate3_1 txtOrdDate3_2 ...etc...
...etc... ...etc... ...etc... ...etc...

The code to fill the text boxes with customers and order dates:
Private Sub cmdPullOrderDates_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim intCustomer As Integer
Dim strCustomer As String
Dim intOrder As Integer
strSQL = "SELECT CompanyName, OrderDate " & _
"FROM Customers INNER JOIN " & _
"Orders ON Customers.CustomerID = Orders.CustomerID " & _
"ORDER BY CompanyName, OrderDate"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
rs.MoveFirst
With rs
intCustomer = 0
Do Until .EOF Or intCustomer 2
strCustomer = .Fields("CompanyName")
intCustomer = intCustomer + 1
Me("txtCust" & intCustomer) = strCustomer
intOrder = 0
Do Until strCustomer .Fields("CompanyName") Or intOrder
4
intOrder = intOrder + 1
Me("txtOrdDate" & intCustomer & "_" & intOrder) =
.Fields("OrderDate")
.MoveNext
Loop
Loop
.Close
End With
Set rs = Nothing
Set db = Nothing
End Sub

--
Duane Hookom
MS Access MVP


"Fehn" wrote in message
...
Does anyone know how to make this possible ad updatable in MS Access?

Description - 12/1 - 12/2 - 12/3...... 12/31
Sample1 - 2 - - 5 .....etc
Sample2 - 6 - 8 - 3 .....etc
:
:
etc.


Thanks.

On Sat, 03 Dec 2005 23:50:50 GMT, "PC Datasheet"
wrote:

These people are class acts because they spend their time helping posters in
the newsgroups and not polluting the newsgroups with garbage and taking up
volumes of bandwidth in the newsgroup servers.

Pot.

Kettle.

Black.

John W. Vinson[MVP]