Jump to content

Novice, I need help creating a running date list


GreenPilgrim
 Share

This topic is 6520 days old. Please don't post here. Open a new topic instead.

Recommended Posts

I need to create a list that keeps a list of dates and intitials in a vertical column. I need to be able to create a button and a script I guess, that will cause todays date to be automatically entered at the top of the list , moving the rest of the list down one row automatically. I want to keep all of the dates at least 50 or 60 rows down. When the rows are completely filled with dates, I want the bottom date to disappear as new dates at the top are added. I want the button designed for each individual staff member so when they click their button, it will not only add the date at the top of the list, but their respective initials as well. I am a filemaker novice so I do not know if this is possible, but if it is I would love some help creating it. I want to be able to sort the list according to the date at the top of the list, which would be the most recent date. Please any help is appreciated. I will be away from my computer until Monday, 3-22-04 so if you reply and have any questions about what I need, I cannot get back with you until then. The list below is how the list would appear, with dates in reverse order, the most recent being first.

Thank You

Sister Mitzi

Version: v4.x

Platform: Mac OS 9 [color:"red"]

  • 3-15-2004 MI
  • 3-07-04 TN

  • 3-2-2004 CL
  • 2-25-2004 PG

Link to comment
Share on other sites

This should be doable. Assume a field Initial that has the user initials, a field This_Date that is date to be used, and a field List which is the result you want.

A script would look something like this:

# Check for initials

If[ IsEmpty (Initials)]

Show message [Enter your initials, OK]

Else

If[ IsEmpty (List)]

Set Field[ List, DateToText(Status(CurrentDate)) & " " & Initials

Else

Set Field[ ThisDate, Status(CurrentDate)

If[ DateToText(ThisDate) = Left(List, Length(DateToText(ThisDate))

Show message [This date has been entered, OK]

Else

Set Field[ List, DateToText(ThisDate)) & " " & Initials & "

Link to comment
Share on other sites

This topic is 6520 days old. Please don't post here. Open a new topic instead.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.