[RESOLVED] EASY quick question

[vonoventwin]

I have a txtbox called txtDate and I want to populate it with the current date. Something like this but it's not working

Me.txtDate.Text = Format(Now, "dddd, mmm d yyyy, hh:mm AMPM")

[vonoventwin]

this works for my label but how do I get it to work for the txtbox

Me!lblClock.Caption = Format(Now, "dddd, mmm d yyyy, hh:mm AMPM")

[yrwyddfa]

What error do you get (or what is the result of calling the code) ?

[Hack]

I have a txtbox called txtDate and I want to populate it with the current date. Something like this but it's not working

Me.txtDate.Text = Format(Now, "dddd, mmm d yyyy, hh:mm AMPM")

This code works just fine for me. The result that I get is: Friday, Sep 9 2005, 07:19 AM

[yrwyddfa]

I suspect it's a scope thing going on with the 'Me' bit

[Hack]

I suspect it's a scope thing going on with the 'Me' bit

Ahhhh...me thinks you may have hit on something as I didn't use the Me keyword.

vonoventwin: Why are you using Me and how is it not working.

[RobDog888]

"Me!lblClock.Caption" is a Access Forms format. Are you using an Access form or VB 6.

[vonoventwin]

"Me!lblClock.Caption" is a Access Forms format. Are you using an Access form or VB 6.

As far as I know I don't even have VB on my computer, just whatever is in with Access. Is that VB?

[RobDog888]

Oh, ok. Then your using Access VBA (Visual Basic for Applications).

[Jacob Roman]

VBA is also located in Word, Excel, FrontPage, Outlook, and PowerPoint.

[Mark Gambo]

I have a txtbox called txtDate and I want to populate it with the current date. Something like this but it's not working

Me.txtDate.Text = Format(Now, "dddd, mmm d yyyy, hh:mm AMPM")

I have also found that using the ".Text" Property when assigning data to a text box causes problem. This should work for you:

Me.txtDate = Format(Now, "dddd, mmm d yyyy, hh:mm AMPM")

Also if you have multiple text boxes and you want to refer to them in a kind of control array you can do this:

Option Compare Database
 
Private Sub Command1_Click()
Dim a As Long
 
    For a = 0 To 6
        Me("Text" & a) = "Text Box # " & a
    Next a
End Sub

This code assumes that you have seven (7) text boxes Named Text0 through Text6.

[Hack]

Turns out to be a VBA question. Moved to Office Development.

[vonoventwin]

Doesnt work for me Mark...

[Hack]

Doesnt work for me Mark...

What, exactly, happens when you run that code? Do you get anything? Do you get an error? If so, what is the error?

[vonoventwin]

forms txtDate box show #Error. Now what I have even tried is to create the label (Me!lblClock.Caption = Format(Now, "dddd, mmm d yyyy, hh:mm AMPM") which works fine and then give the txtDate box the =[lblClock].[Caption] . This used to work but I'm not sure why it doesn't anymore.

[vonoventwin]

Well I just figured it out, I have the txtDate format as a date/time, when I change it to Text it works fine. Good enough for me!

[RobDog888]

The .Text and .Value properties are usually interchangeable but can sometimes contain different values. Is this a bound textbox?

[Ecniv]

If you are getting #error it is because there is an error in the data tab of the properties form (probably a wrong formula).

Marks code would work, but it is VBA code and has to be called in the On_Load event of the form or via a click of a button.

Your error would either be in the data source or you need to put ' now() ' (without single quotes) into the properties>data tab>default value.

Post up what you have?

[vonoventwin]

I had to make it Me.txtDate = Now, the Value for the the feild in the table is Date/Time that's why!