My Visual Database — Put today's date in DateAdded column

Re: Put today's date in DateAdded column

null@example.com (asawyer13) — Thu, 10 Dec 2020 14:29:04 +0000

Derek,
Thanks
Alan

Re: Put today's date in DateAdded column

null@example.com (derek) — Thu, 10 Dec 2020 12:29:38 +0000

Hi Brian, Alan,
Another option would be as per the attached (it's a simple modification of something I use to check for duplicate records).
It allows you to test as many fields as you want for any changes to one or any number of them.
If there are no changes and even if 'save' is clicked, the 'modified date' is not altered.
If there are changes and 'save' is clicked, then the 'modified date' of the record is updated with the current date.
New records are simply added with a 'creation date' of the current date and the 'modified date' is left blank.
Can't think of any other way (but there probably are).
Derek.

Re: Put today's date in DateAdded column

null@example.com (brian.zaballa) — Thu, 10 Dec 2020 04:04:13 +0000

asawyer13 wrote:

If I do this on the OnClick event, I believe I get the right info.
Will test some more

My Bad. I wasn't on my mind when I suggest that. LMAO, I updated my first reply. Stick to OnAfterClick event for it must be saved first. Anyway, I think derek's solutions is an awesome solution. Having many fields to check will require you to add additional components but I think it is the best solution. Anyway, if you really want to have it on after click even the user didn't change any record, here I modified derek's solution.

Re: Put today's date in DateAdded column

null@example.com (asawyer13) — Thu, 10 Dec 2020 02:00:39 +0000

If I do this on the OnClick event, I believe I get the right info.

Will test some more

Re: Put today's date in DateAdded column

null@example.com (brian.zaballa) — Thu, 10 Dec 2020 01:59:41 +0000

asawyer13 wrote:

Derek,
If I don't want to go to the work of adding extra fields to tell if the actual values have changed, and just want to update modified date if they click save, but only if it's not a new record, how could I do this?
procedure frmMedications_Button5_OnAfterClick (Sender: TObject);
begin
        If Action <> 'NewRecord'  then
        Begin
            SQLExecute('Update Medications set ModifiedDate = CurDate() Where ID = ' + frmPerson.tablegrid1.sqlvalue );
        End;
end;
I tried this but either have a typo or something in it.

I can think of 2 solutions:
1. Have a global boolean variable e.g. IsANewRecord and set its value on the OnShow of frmMedications

IsANewRecord = (Action = 'NewRecord');

2. Set frmMedications.Tag in the OnShow of the form

if Action = 'NewRecord' then
    frmMedications.Tag = 0
else
    frmMedications.Tag = 1;

Then, change

If Action <> 'NewRecord'  then

to
case 1:

if Not IsANewRecord then

case 2:

if frmMedications.Tag=1 then

Re: Put today's date in DateAdded column

null@example.com (asawyer13) — Thu, 10 Dec 2020 01:55:58 +0000

I tried this also but that didn't work either..

It seems to update the modified date on adds.

begin
        If frmMedications.dbAction <> 'NewRecord'   then
        Begin
            SQLExecute('Update Medications set ModifiedDate = CurDate() Where ID = ' + frmPerson.tablegrid1.sqlvalue );
        End;
end;

Looks like the value of dbAction is 'SaveRecord'
But it's SaveRecord on the add of new and also the save of the modify.

Obviously I'm confused.

Re: Put today's date in DateAdded column

null@example.com (asawyer13) — Thu, 10 Dec 2020 01:43:53 +0000

Derek,
If I don't want to go to the work of adding extra fields to tell if the actual values have changed, and just want to update modified date if they click save, but only if it's not a new record, how could I do this?

procedure frmMedications_Button5_OnAfterClick (Sender: TObject);
begin
        If Action <> 'NewRecord'  then
        Begin
            SQLExecute('Update Medications set ModifiedDate = CurDate() Where ID = ' + frmPerson.tablegrid1.sqlvalue );
        End;
end;

I tried this but either have a typo or something in it.

Re: Put today's date in DateAdded column

null@example.com (derek) — Thu, 10 Dec 2020 00:52:59 +0000

Try it like this (see attached), but there are other ways as well.
The 'date added 'takes care of itself - set 'default checked' and 'checked' to be true in the 'date added' properties of the datetimepicker object so that it always uses the current date.
The 'date modified' stays blank if the record has only been created.
The 'date modified' is updated with the current date if the record is changed.
The 'date modified' is not updated if the record is viewed but not changed.
The 'save' button is made visible only when a new record is created or when a change has been made.
Derek.

Re: Put today's date in DateAdded column

null@example.com (asawyer13) — Wed, 09 Dec 2020 21:59:14 +0000

This is what I have so far.

I was trying to load today's date to test, but trying to get it to be automatic.

   frmmPerson.dtDateAdded.sqlDate := '2020-12-09'; //strftime('%Y-%M-%D',DATE('now'));

Put today's date in DateAdded column

null@example.com (asawyer13) — Wed, 09 Dec 2020 21:10:22 +0000

I have a field called DateAdded in my Person table.

When I'm adding a new record what's the best way to load todays date into the field so it's there when I save the record?

Also if I want to do the same thing with a DataModified field when the user modifies the record.

I've tried searching but just not quite seeing how to do it.

Alan