open form show Month in the computer

[azhar2006]

Hello guys
I do not know my question true or false
I have a form based on a table, I have this month field.
What I want is when you open the form show me the data month. Month in the computer.
I used this code

Private Sub Form_Load()
Me.Month = Format(Date, "mmmm")
End Sub

But show me all months of the year.

[JoeM]

Is this Month field bound to a table field, or unbound?

By the way, you should NOT used reserved words like "Month" for field or variable names. It can cause confusion since there is also a Month function. Choose field/variable names that are not the names of existing Access function, properties, or methods.

[Missinglinq]

JoeM is dead on about not using Reserved Words as names for Fields, Variables, etc! It confuses the Access Gnomes no end! It used to be difficult keeping track of the Reserved Words, as there are so many, but starting with v2007, if you attempt to use one when naming a Field in a Table, the aforementioned Gnomes send you an error message, explaining this to you! You really need to pay attention to these kind of warnings! Of course, if the Boys of Redmond had thought about it, they should have simply made it impossible to do it, instead of just warning you!

I can't replicate your problem, whether the Control is Bound or Unbound, using your posted code. When things that should work don't, in Access, you have to think about corruption.

Although we usually think of Forms, and even entire Databases, when we speak of corruption, Controls, such as Command Buttons and Comboboxes, can and do become corrupted, and seem particularly susceptible to this during app development. The test/cure for this is short and simple...delete the Control and then re-create it.
Linq ;0)>

[azhar2006]

Thank you very much to you guys sound guidance.
Yes field is bound, in a table.
I've changed the label to cdMonth

[ssanfu]

If you have this code

Me.Month = Format(Date, "mmmm")

you could be changing a the data in a field in a record to the month of the current date.

But show me all months of the year.

If you want to only display the months that match the current month, you need to set a form filter.

Something like:

Private Sub Form_Load()
  Me.Filter = "cdMonth = '" & Format(Date, "mmmm") & "'"  ' this is text, so it needs delimiters
  Me.FilterOn = TRUE
End Sub

You should also add a button to the form to remove the filter.
If the button name is "cmdClearFilter",

Private Sub cmdClearFilter_Click()
    Me.FilterOn = FALSE
End Sub

THIS CODE IS UNTESTED!

[azhar2006]

Yes, thank you very much, my friend Steve