Replies

I tryed: Me.strYearFrom = Format(DateSerial(2004 – 1, 3 – 1, 1 – 1), “yy”)

It returned 03, but I’m not sure of the gotchas with this. Those more in the know will have to comment.

You could also try: Me.strYearFrom = Right(DatePart(“yyyy”, Now()) – 1, 2)

Anyone?

Try the Report wizard – AutoReport: Tabular based on a Crosstab query.

Try the Report wizard – AutoReport: Tabular based on a Crosstab query.

Thanks Hans and Charlotte for the info.

I am familiar with Access 97 security. In VB6, if by including a Jet mdb file as a data store, will security work in the VB app much as it does in Access? If not what options are available to secure a VB app?

Thanks

Thanks Hans and Charlotte for the info.

I am familiar with Access 97 security. In VB6, if by including a Jet mdb file as a data store, will security work in the VB app much as it does in Access? If not what options are available to secure a VB app?

Thanks

Create the query in the query grid. If it works without any errors copy the SQL from the View menu and paste it after SQL1 =

Create the query in the query grid. If it works without any errors copy the SQL from the View menu and paste it after SQL1 =

Get rid of:

‘Dim db As DAO.Database
‘Dim rst As DAO.Recordset

‘Set db = CurrentDb

Get rid of:

‘Dim db As DAO.Database
‘Dim rst As DAO.Recordset

‘Set db = CurrentDb

Have you set a reference to a DAO library?

Open any module. On the menu bar select Tools then References…

Have you set a reference to a DAO library?

Open any module. On the menu bar select Tools then References…

Correction:

Try the below in the Form_Open event of your subform. Don’t forget to change MyTableName to the table name where your records are stored and the name of your form and the name of your text boxes.

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim dtBeginningDate As Date
Dim dtEndingDate As Date

Set db = CurrentDb

dtBeginningDate = CDate(Forms!MyFormName!MyTextBoxName.Value)
dtEndingDate = CDate(Forms! MyFormName!MyTextBoxName.Value)

strSQL = “SELECT MyTableName.*”
strSQL = strSQL & ” FROM MyTableName”
strSQL = strSQL & ” WHERE (((MyTableName.DATE) Between #” & dtBeginningDate & “# And #” & dtEndingDate & “#));”

Me.RecordSource = strSQL

Correction:

Try the below in the Form_Open event of your subform. Don’t forget to change MyTableName to the table name where your records are stored and the name of your form and the name of your text boxes.

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim dtBeginningDate As Date
Dim dtEndingDate As Date

Set db = CurrentDb

dtBeginningDate = CDate(Forms!MyFormName!MyTextBoxName.Value)
dtEndingDate = CDate(Forms! MyFormName!MyTextBoxName.Value)

strSQL = “SELECT MyTableName.*”
strSQL = strSQL & ” FROM MyTableName”
strSQL = strSQL & ” WHERE (((MyTableName.DATE) Between #” & dtBeginningDate & “# And #” & dtEndingDate & “#));”

Me.RecordSource = strSQL

Try the below in the Form_Open event of your subform. Don’t forget to change MyTableName to the table name where your records are stored.

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim dtBeginningDate As Date
Dim dtEndingDate As Date

Set db = CurrentDb

dtBeginningDate = CDate(Forms!DateEntryForm!Text0.Value)
dtEndingDate = CDate(Forms!DateEntryForm!Text2.Value)

strSQL = “SELECT MyTableName.*”
strSQL = strSQL & ” FROM MyTableName”
strSQL = strSQL & ” WHERE (((MyTableName.DATE) Between #” & dtBeginningDate & “# And #” & dtEndingDate & “#));”

Me.RecordSource = strSQL

Try the below in the Form_Open event of your subform. Don’t forget to change MyTableName to the table name where your records are stored.

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim dtBeginningDate As Date
Dim dtEndingDate As Date

Set db = CurrentDb

dtBeginningDate = CDate(Forms!DateEntryForm!Text0.Value)
dtEndingDate = CDate(Forms!DateEntryForm!Text2.Value)

strSQL = “SELECT MyTableName.*”
strSQL = strSQL & ” FROM MyTableName”
strSQL = strSQL & ” WHERE (((MyTableName.DATE) Between #” & dtBeginningDate & “# And #” & dtEndingDate & “#));”

Me.RecordSource = strSQL