Auto Date when checkbox ticked

[2410Davie]

Hi Guys/Girls

I am building a database and I have a checkbox called 'Issued' and I want this to insert the current date into the field 'Issued Date' when ticked and to remove it when not ticked, I have looked on here and online and tried everything I have found but none work......this is what I have just now.

Private Sub Issued_AfterUpdate()
If Me.Issued = -1 Then
Me.Issued_Date = Now()
Else
Me.Issued_Date = Null
Me.Issued_By = Null
Me.Issued_To = Null
End Sub

The reason I also have Else Me.Issued_By = Null and Me.Issued_To = Null is because I want these fields also to be black when its unticked.

Any help would be great thanks

Davie

[Bob Fitz]

You need an End If

[vicsaccess]

just think, you was almost there. change your if statement to

if(me.issued)=-1 then

[Bob Fitz]

just think, you was almost there. change your if statement to

if(me.issued)=-1 then

Works for me without the added parenthesis. Why do you think they are needed.

[2410Davie]

just think, you was almost there. change your if statement to

if(me.issued)=-1 then

I changed it to this but still nothing?

Private Sub Issued_AfterUpdate()
If (Me.Issued) = -1 Then
Me.Issued_Date = Now()
Else
Me.Issued_Date = Null
Me.Issued_By = Null
Me.Issued_To = Null
End Sub

[vicsaccess]

but you still don't have the end if that Bob suggested. Sorry Bob, i have always used parenthesis, seems like when i don't i get an error.

if me.issued=-1 then
me.issued_date=now()
else
me.issued_date=null
end if

[2410Davie]

but you still don't have the end if that Bob suggested. Sorry Bob, i have always used parenthesis, seems like when i don't i get an error.

if me.issued=-1 then
me.issued_date=now()
else
me.issued_date=null
end if

I have exactly that above like this

Private Sub Issued_AfterUpdate()
If Me.Issued = -1 Then
Me.Issued_Date = Now()
Else
Me.Issued_Date = Null
End If

still doesnt update the issued_date field with anything

[vicsaccess]

testdate.zip
see if this is any different from what you have. this one works for me.

[Bob Fitz]

but you still don't have the end if that Bob suggested. Sorry Bob, i have always used parenthesis, seems like when i don't i get an error.

if me.issued=-1 then
me.issued_date=now()
else
me.issued_date=null
end if

Does your code actually get fired and run

[2410Davie]

Does your code actually get fired and run

Im a newbie so how would i know this?

[2410Davie]

testdate.zip
see if this is any different from what you have. this one works for me.

It wont let me open this it says unrecognised file system or something

[2410Davie]

I fixed it, i noticed at the top with an option to turn it on.....it now works great...To think i have been at this for hours lol

Thanks for all the help guys.

[Bob Fitz]

Im a newbie so how would i know this?

See: http://www.techonthenet.com/access/t...ug/debug02.php