storing monthyear in the same field

[rekhasc]

how to store the month and year in the same field in the database using a query....i have a query which stores current month and year in the different fields.... but i want to store in the form october2007 or 10/2007

Private Sub cmdAdd_Click()
 
Dim m As String
Dim y As String
Dim d As Date
 
d = Now()
m = MonthName(Month(Now))
y = Year(Now)
 
With AConn
  .ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=E:\Graph\Graph\xpence.mdb"
  .Open
End With
sSQL = "INSERT INTO Table1(TodayDate,MonthName,YearValues,Amount,Description) " & _
" Values (# " & Format(d, "dd/mm/yyyy") & " #,' " & m & " ',' " & y & " ', ' " & Text3.Text & " ', ' " & Text2.Text & " ') "
 
AConn.BeginTrans
AConn.Execute sSQL
AConn.CommitTrans
AConn.Close
 
End Sub
 

this is the query ...what changes should made to obtain monthyear form......

using vb6.0 and backend is access

[debasisdas]

Just concatenate M and Y and store into a single character field.

For that you need to change your table also.

[rekhasc]

Just concatenate M and Y and store into a single character field.

For that you need to change your table also.

I am not getting ... how to concatenate m & y

[QVeen72]

Hi,

This query should work for Access:

"Select Format(DateField,'MMM-YYYY') As MonthYear, Sum(Amt) From
MyTable Group By Format(DateField,'MMM-YYYY') "

Regards
Veena

[GayathriP]

You have to just concatenate the month and year as m & "\" & y. But your database should be restructured to store the value.

[debasisdas]

I am not getting ... how to concatenate m & y

Dim m As String
Dim y As String
Dim d As Date
Dim my As String
 
d = Now()
m = MonthName(Month(Now))
y = Year(Now)
 
my = m & y