Get dates from table where month and year like txtbox

  • Thread starter Thread starter Gator
  • Start date Start date
G

Gator

I have a label control where I want to list all the dates that are like the
month and year that is displayed in a textbox (which gets it's date from a
calendar control), how would that be stated on form load?
something like....????


Dim text3 As Date
cal.Value = Date
text3 = cal.Value
Label8.Caption = DCount("DateDep", "Deposits", "Year([DateDep]) = " &
DatePart("y", Me![text3]) & " And Month([DateDep]) = " & DatePart("m",
Me![text3]) & "")
 
I realize that DCount is probably not right....but I'm not sure what to use ?
Do I need a loop ?
 
You're not going to be able to do that with a label. Use a list box, then
you won't need any code other than one line to requery the list box
when the value in the text box is updated.
--
_________

Sean Bailey


Gator said:
I realize that DCount is probably not right....but I'm not sure what to use ?
Do I need a loop ?

Gator said:
I have a label control where I want to list all the dates that are like the
month and year that is displayed in a textbox (which gets it's date from a
calendar control), how would that be stated on form load?
something like....????


Dim text3 As Date
cal.Value = Date
text3 = cal.Value
Label8.Caption = DCount("DateDep", "Deposits", "Year([DateDep]) = " &
DatePart("y", Me![text3]) & " And Month([DateDep]) = " & DatePart("m",
Me![text3]) & "")
Click to expand...
Click to expand...
 
I did this instead...on click event...But it is not pulling any dates..???
List9.RowSource = "SELECT DISTINCT DateDep FROM Deposits WHERE
Year([DateDep])=" & Year([Text3]) & " And month([DateDep])=" & Month([Text3])
& ";"


Beetle said:
You're not going to be able to do that with a label. Use a list box, then
you won't need any code other than one line to requery the list box
when the value in the text box is updated.
--
_________

Sean Bailey


Gator said:
I realize that DCount is probably not right....but I'm not sure what to use ?
Do I need a loop ?

Gator said:
I have a label control where I want to list all the dates that are like the
month and year that is displayed in a textbox (which gets it's date from a
calendar control), how would that be stated on form load?
something like....????


Dim text3 As Date
cal.Value = Date
text3 = cal.Value
Label8.Caption = DCount("DateDep", "Deposits", "Year([DateDep]) = " &
DatePart("y", Me![text3]) & " And Month([DateDep]) = " & DatePart("m",
Me![text3]) & "")
Click to expand...
Click to expand...
Click to expand...
 
it works...thx

Gator said:
I did this instead...on click event...But it is not pulling any dates..???
List9.RowSource = "SELECT DISTINCT DateDep FROM Deposits WHERE
Year([DateDep])=" & Year([Text3]) & " And month([DateDep])=" & Month([Text3])
& ";"


Beetle said:
You're not going to be able to do that with a label. Use a list box, then
you won't need any code other than one line to requery the list box
when the value in the text box is updated.
--
_________

Sean Bailey


Gator said:
I realize that DCount is probably not right....but I'm not sure what to use ?
Do I need a loop ?

:

I have a label control where I want to list all the dates that are like the
month and year that is displayed in a textbox (which gets it's date from a
calendar control), how would that be stated on form load?
something like....????


Dim text3 As Date
cal.Value = Date
text3 = cal.Value
Label8.Caption = DCount("DateDep", "Deposits", "Year([DateDep]) = " &
DatePart("y", Me![text3]) & " And Month([DateDep]) = " & DatePart("m",
Me![text3]) & "")
Click to expand...
Click to expand...
Click to expand...
 
If Text3 (which really should be renamed to something meaningful)
is an unbound control on your form, you might want to typecast it to
make sure it is interpreted as a date. Also, I wouldn't use the DISTINCT
predicate in this case;

"SELECT DateDep FROM Deposits WHERE Year([DateDep])="
& Year(CDate(Me![Text3])) & " And month([DateDep])=" &
Month(CDate(Me![Text3])) & ";"

--
_________

Sean Bailey


Gator said:
I did this instead...on click event...But it is not pulling any dates..???
List9.RowSource = "SELECT DISTINCT DateDep FROM Deposits WHERE
Year([DateDep])=" & Year([Text3]) & " And month([DateDep])=" & Month([Text3])
& ";"


Beetle said:
You're not going to be able to do that with a label. Use a list box, then
you won't need any code other than one line to requery the list box
when the value in the text box is updated.
--
_________

Sean Bailey


Gator said:
I realize that DCount is probably not right....but I'm not sure what to use ?
Do I need a loop ?

:

I have a label control where I want to list all the dates that are like the
month and year that is displayed in a textbox (which gets it's date from a
calendar control), how would that be stated on form load?
something like....????


Dim text3 As Date
cal.Value = Date
text3 = cal.Value
Label8.Caption = DCount("DateDep", "Deposits", "Year([DateDep]) = " &
DatePart("y", Me![text3]) & " And Month([DateDep]) = " & DatePart("m",
Me![text3]) & "")
Click to expand...
Click to expand...
Click to expand...
 
Back
Top