Displaying Date in a txt box after Check Box is selected.

[Malkavian]

Ok... i discovered one of the 5 boxes was labeled incorrectly which prevented the final box from checking.

After correcting that, the final box now checks if in any sequence all 5 boxes are checked. However, it does not populate the date when all 5 boxes are checked and the final box is checked.

LOL

- Malk

 

[Malkavian]

Ok, I figure out why the date wasn't populating aswell.... Again i missed the name. All is well except it doesn't like "" as a result of a false reponse. It needs something. So I've "__/__/____" for now.

Thank you sooo much Selena! If you figure out how to leave a blank entry for the date let me know.

- Malk

 

[selenau837]

Ok... i discovered one of the 5 boxes was labeled incorrectly which prevented the final box from checking.

After correcting that, the final box now checks if in any sequence all 5 boxes are checked. However, it does not populate the date when all 5 boxes are checked and the final box is checked.

LOL

- Malk

Try this--

Function TrueFalse ()

If notecompck = true and mortcompck = true and asscompck = true and tpcompck = true and inscompck = true Then
	filecompck = true
            	
      else 
	filecompck = false

end if


      If filecompck = true Then
          filecompdate = date()
     else
         filecompdate = ""


end IF


end function

Try this then. I unnested the IF statements and made the seperate.

 

[selenau837]

Ok... i discovered one of the 5 boxes was labeled incorrectly which prevented the final box from checking.

After correcting that, the final box now checks if in any sequence all 5 boxes are checked. However, it does not populate the date when all 5 boxes are checked and the final box is checked.

LOL

- Malk

Try this--

Function TrueFalse ()

If notecompck = true and mortcompck = true and asscompck = true and tpcompck = true and inscompck = true Then
	filecompck = true
            	
      else 
	filecompck = false

end if


      If filecompck = true Then
          filecompdate = date()
     else
         filecompdate = ""


end IF


end function

Try this then. I unnested the IF statements and made the seperate.

 

[Malkavian]

Actually it's weird but it accepted your original forumla for the date now...

Thanks again.

- Malk

 

[selenau837]

Actually it's weird but it accepted your original forumla for the date now...

Thanks again.

- Malk

You are very welcome doll!

Muhahahah, I have done it again. *toss head back and laughs wickedly*

.....so for payment I wish to have a bowl of chocolate pudding sent to my work address. *giggles*

 

[TheFerrisFile]

Thank you for posting this, except I keep getting VB errors...

Here is my code:

Private Sub Check100_Click()
If (ClmInfo_FicheOrdered) = 1 Then
(ClmInfo_DateFiche) = Date()
Else
End If
End Sub

But when I run it I get a compile error -

Expected: line number or label or statement or end of statement

I have been absent from Access for awhile and I am a little rusty. I am sure that I am just overlooking some minute detail.

Thanks in advance.

 

[ChronicFear]

***Nevermind. Somehow 5 posts were posted while I was typing.***


This isnt the most elegant of solutions, but I think this should work for you:

If Me.notecompck = True And Me.mortcompck = True And Me.asscompck = True And Me.tpcompck = True And Me.inscompck = True Then
    Me.filecompck = True
    Me.filecompdate = Date
Else
    Me.filecompck = False
    Me.filecompdate = ""
End If