freightguy
Registered User.
- Local time
- Today, 00:37
- Joined
- Mar 1, 2016
- Messages
- 36
Hello All
I’ve been dabbling with MS Access since the 97 version and created several applications in 97, 2000 and 2002 version and then converted them to 2013 … without too many issues.
Back in March there was a huge MS Office update and since that date I’ve had issues with MS Access 2013. I also have a virtual office to be able to run MS Access 97 and that one is NOT affected in any way.
I’ve been scouring the internet for answers but not much luck. I’m hoping someone can show me the way to resolving this issue.
Problem: when I click on a command that makes reference to a recordset, it errors as follows: “ Expected user-defined type, not project.” I did not change anything and whenever I do, I am careful to create an experimental version before making any changes. I checked other postings on this site and couldn’t find anything similar to my problem.
Code:
Private Sub Command29_Click()
Dim SQLStmt
SQLStmt = "SELECT ID, Quote, Currency, Rate, RateType, Qty, HidWgt,Weight,WgtBrk FROM [Carrier Rates - Detail] WHERE QUOTE = '" & Me!
I’ve been dabbling with MS Access since the 97 version and created several applications in 97, 2000 and 2002 version and then converted them to 2013 … without too many issues.
Back in March there was a huge MS Office update and since that date I’ve had issues with MS Access 2013. I also have a virtual office to be able to run MS Access 97 and that one is NOT affected in any way.
I’ve been scouring the internet for answers but not much luck. I’m hoping someone can show me the way to resolving this issue.
Problem: when I click on a command that makes reference to a recordset, it errors as follows: “ Expected user-defined type, not project.” I did not change anything and whenever I do, I am careful to create an experimental version before making any changes. I checked other postings on this site and couldn’t find anything similar to my problem.
Code:
Private Sub Command29_Click()
Dim SQLStmt
SQLStmt = "SELECT ID, Quote, Currency, Rate, RateType, Qty, HidWgt,Weight,WgtBrk FROM [Carrier Rates - Detail] WHERE QUOTE = '" & Me!
& "' ORDER BY RATE desc"
Dim rs As Recordset
Dim i As Integer
Dim dbs As Database ‘ THIS IS WHERE IT ERRORS
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset(SQLStmt)
Dim WgtBrk As Double
… and much more
Any help or direction would be appreciated.
Thank you
Ray