Microsoft VBScript Compilation (0x800A03EA) - Syntax Error
Aug 20, 2004
Hi i am trying to select records from a database using the following syntax, before i put in the order by part it works no problem, can anyone see my problem? thanks
SQL = "Select * FROM MainTable WHERE Company LIKE '" & ("%") & request("Company") & ("%") &"' AND Device LIKE '" & ("%") & request("Part") & ("%") &"' AND Division LIKE '" & ("%") & request("Strategy") & ("%") &"' ORDER BY '" & ("%") & request("orderby") & ("%") &'" ASC"
set RS = dbconn.execute(SQL)
View Replies
ADVERTISEMENT
Mar 27, 2007
My main experience is with MySQL and PHP so I'm kindof stumbling around in the dark here. Heres my story:
We recieved a new server and migrating from (Windows Server 2000, IIS 5.0, Access 2000) to (Windows Server 2003, IIS 6.0, Access 2003) has been nothing but problems.
I have setup IIS to work with ASP, I've also setup a system DSN. The access file was copied over from the previous server. We're running Access 2003 and now I can't seem to get this ASP script to work.
When I try to upload a file to the script I get this error:
Line: 42
Char: 7
Error: HELP!!! Error: [Microsoft][ODBC Microsoft Access Driver] Invalid SQL statement expected 'DELETE','INSERT','PROCEDURE','SELECT', OR 'UPDATE'.
Code: 0
Url: (URL address blocked: See forum rules)
Here is the part of Connect.asp that errors:
Code:<script LANGUAGE="javascript"><!--var DSNString, TheDF, TheRS;//DSNString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C: hedata estdisbo.mdb;User Id=admin;Password=;";//DSNString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C: hedata estdisbo.mdb;Uid=Admin;Pw d=;"DSNString = "DSN=testweb; UID=; PWD=";function public_ConToDB(){ TheDF = DP.CreateObject("RDSServer.DataFactory",this.text1.value);DC.DataSpace=DP;DC.Server = this.text1.value;DC.Connect = DSNString;//DC.Connect="d: hedatadisboweb.udl";}function public_GetRS(SQLCommand){ TheRS = TheDF.Query(DSNString,SQLCommand);DC.SourceRecordset=TheRS;return (TheRS);}function public_GetDC(){ return (DC);}//--></script>
Its included in a file called FileRead.htm here is the part that refers to the error lines:
Code: var TheFile, FileStrm;// Retrieved field namesvar M_ssn, M_inits, M_Lname, M_Fname, M_DSSN, M_ruc, M_paycode;var M_normamt, M_payamt, M_pgrp, M_poe, M_pltcd, Payrollnum, Payrolldate;// var Trash, FieldData, FieldNames;var TrashLineNum = 1;// Create the file Stream Object (ReadOnly)TheFile = new ActiveXObject("Scripting.FileSystemObject");FileStrm = TheFile.OpenTextFile(FName,1,false);// Setup the Database Connectionvar SQLCommand, TheRS, TheConnection, DSNString, Commands, MyDC;FieldNames = new Array("ssn","inits","lname","fname","dssn","ruc","cco", "payamt","normamt","notsureone","pgrp","poe", "pltcode","recstatus","paychgflg","paystatuscode", "payrollnum","payrolldate");// Connect the the DatabaseDataLib.ConToDB();MyDC = DataLib.GetDC();// Get Payroll NumberPString = prompt("Enter Payroll Number","025");Payrollnum = parseInt(PString,10);// Get Payroll DateDString = prompt("Enter Payroll Date","20000101");Payrolldate = DateLib.FromMil(DString);// Setup the Database Connectionvar NumRecs = 0;//MyTest = DataLib.GetRS("PaydayUpdate1");alert("About to cross into the CurExtract!!!");MyRS = DataLib.GetRS("SELECT * FROM CurExtract");
I set an alert after this line but it doesn't pop up.
ANY HELP WOULD BE VERY GREATLY APPRECIATED. I'll be checking this very frequently.
Sincerly,
Joseph Russell
View 14 Replies
View Related
Jan 28, 2004
Hi,
Im new to asp and access and have been having this problem for serveral weeks.
Every couple of days, all the asp pages on my site that communicate with the database start having 500 internal errors. i turned off the "Show friendly error messages" and one page gave me this specific error:
Microsoft JET Database Engine error '80004005'
Unspecified error
/admin/submitlogin.asp, line 8
I have tried a million things and have no idea why this is happening. Im not sure what other information i should post in order to see the problem. Any help would be greatly appreciated. Thank you,
Patrick
View 3 Replies
View Related
Aug 19, 2005
Hi everyone,
I try to implement a function that looks for broken references in my Access project, so that I won't need to modify the needed references for every workstation. Here's my problem: Where could I put the call of this function so that this code will run before trying to compile the forms and, as a result, avoiding the compile error that access pops-up when a reference is broken or missing.
Thanks in advance! :D
View 1 Replies
View Related
Jul 27, 2005
I had a fully working database that I decided to clean up by standardising naming formats etc. I have changed the tables names and changed all VBA links etc to the new table names.
This all appears to work fine. The database is still doing exactly what it should be doing. The only problem is whenever a record is updated I get the following error,
"The Microsoft Jet Database Engine cannot find the input table or query, "***". Make sure it exists and that its names is spelled correctly".
Where the missing table is the previously renamed table. All the updates etc work correct to the renamed table but I get this error whenever it is updated. I tried renaming the tables to their original names but then I got the same error for the new names.
Anyone got any ideas or will I have to rebuild the database.
View 1 Replies
View Related
Jun 20, 2005
Okay - well, I have figured out how to edit the schema file but now I am getting a different error message when I try to do the export:
The Microsoft Jet Database engine could not find the object "Form888.txt". Make sure the object exists and that you spell its name and path name correctly.
I believe that it is spelled correctly and I have changed the path a few times to see if it was that and it's still not working. Can anyone help me with this please?
My 641 export works fine the other 2 do not. I get the above error messge.
Someone else set this up for me and I know very little about VB. I kinda just do like trial and error, you know?
Heres the code:
Private Sub cmdUpload_Click()
On Error GoTo Err_Upload_Click
DoCmd.TransferText acExportDelim, ExportSpec, EDMISfile, txtUpload
MsgBox txtUpload & " written."
DoCmd.Close (acForm), "frmedmisupload"
Exit Sub
Err_Upload_Click:
MsgBox Err.Description
End Sub
Private Sub comEDMIS_AfterUpdate()
On Error GoTo Err_EDMIS
EDMISfile = "qryForm641"
Select Case comEDMIS.Value
Case "Form 641"
ExportSpec = "Form641_Export_Specification"
EDMISfile = "qryForm641"
txtUpload = "\Server01dataEDMISForm641.txt"
txtBegClient.Enabled = True
txtEndClient.Enabled = True
EDMISfile = "qryForm641A"
Case "Form 641A"
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "qryMakeTcounsel"
DoCmd.OpenQuery "qrycombine"
ExportSpec = "Form641A_Export_Specification"
EDMISfile = "qryForm641A"
txtUpload = "\Server01dataEDMISForm641A.txt"
txtBegClient.Enabled = True
txtEndClient.Enabled = True
DoCmd.SetWarnings (True)
EDMISfile = "qryForm888"
Case "Form 888"
txtUpload = "\Server01dataEDMISForm888.txt"
EDMISfile = "qryForm888"
ExportSpec = "Form888_Export_Specification"
txtBegClient.Enabled = True
txtEndClient.Enabled = True
End Select
txtUpload.Enabled = False
Exit Sub
Err_EDMIS:
MsgBox Err.Description
End Sub
Private Sub comEDMIS_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub comEDMIS_Undo(Cancel As Integer)
End Sub
Private Sub Command6_Click()
End Sub
Private Sub Command9_Click()
MsgBox "Help Messages go here..."
End Sub
Private Sub Detail_Click()
End Sub
Private Sub Form_Load()
On Error GoTo Err_formopen
Dim begclient, endclient
begclient = DMin("[client Id]", "tblclientcontactinfo")
endclient = DMax("[client Id]", "tblclientcontactinfo")
txtBegClient = begclient
txtEndClient = endclient
BegClientID = txtBegClient.Value
EndClientID = txtEndClient.Value
txtUpload.Enabled = False
txtBegClient.Enabled = False
txtEndClient.Enabled = False
Exit Sub
Err_formopen:
MsgBox Err.Description
End Sub
Private Sub txtBegClient_AfterUpdate()
BegClientID = txtBegClient.Value
End Sub
Private Sub txtEndClient_AfterUpdate()
EndClientID = txtEndClient.Value
End Sub
Private Sub txtUpload_BeforeUpdate(Cancel As Integer)
End Sub
View 14 Replies
View Related
Feb 6, 2006
:mad:
I have created an Access 2000 database sometime ago now that is split and has mutiple users. Which has worked perfectly fine.
I have since made some design changes.
I now have *most* of my staff saying that (mainly on reports) when they try to perform an action the standard Microsoft warning box appears saying Microsoft has encountered a problem and needs to close do you wish to send a report to Microsoft.
I am at a loss to why this is happening.
My PC is OK, and one *faultly* PC I checked had the same driver and service pack of access??. We have just moved over to Access 2003. Is this the cause.
I might as well go home !!!!
Thanks for any input.
View 1 Replies
View Related
Jul 7, 2006
Hi,
We have been having intermittent problems with an MS Access 2000 front-end application linked to a SQL Server 2000 database recently.
From the switchboard a user was sometimes getting "There was an error executing the previous command". When she shut the application and opened it again it works fine for a little while - then the error occurs again.
I removed the generic error handling code from the code for the Switchboard form and I got the error message: "The Microsoft Jet database engine cannot find the input table or query 'Switchboard items'. Make sure it exists and that its name is spelled correctly."
I have been searching this forum and the web to find out what the cause of this error message is but I cannot find anything to go on or to try that might help get rid of this problem.
Does anyone know why this error occurs? Any idea how to stop it of happening?
Any ideas or suggestions would be greatly appreciated.
View 1 Replies
View Related
Jan 15, 2007
Does anyone have any suggestions on how to address the following error occurring on my Microsoft Access ’97 database?
Error message: “Out of Memory”
Any thoughts on why this error occurs or what can be done to prevent it.
Many thanks
View 4 Replies
View Related
Oct 13, 2004
i get this error the time i enter info into a registration page from where i am getting all the customers info
Microsoft JET Database Engine error '80004005'
The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.
in line 74
and my corresponding query is
Set Commrs2 = Server.CreateObject("ADODB.Command")
Commrs2.ActiveConnection=strconnect
line 74: Commrs2.CommandText = "INSERT into registration(username,fname, mname, lname, sex, address, city, state, country, pincode, phone, mobile ,email)VALUES('"&logid&"','"&fname&"','"&mname&"','"&lname&"','"&sex&"','"&add&"','"&city&"','"&state&"','"&country&"','"&pin&"','"&phone&"','"&mobile&"','"&email&"' )"
Commrs2.Execute
Set Commrs3 = Server.CreateObject("ADODB.Command")
Commrs3.ActiveConnection=strconnect
line 79 : Commrs3.CommandText = "INSERT into userpass(username,password) VALUES('"&logid&"','"&pass&"'"
Commrs3.Execute
also sometimes i get this on line 79
Microsoft JET Database Engine error '80040e14'
Syntax error in INSERT INTO statement.
i did a google search and i found this article
http://www.kbalertz.com/kb_884185.aspx
but i was not able to find the security warning dialogue box anywhere
i am using an access 2000 format database
any more info req plz let me know
thanks
View 5 Replies
View Related
Oct 19, 2006
I am trying to make changes to a particular field in Access but whenever I try to do this, I get an error messsage saying that Microsoft Jet Database Engine Stopped the process because you and another user are attempting to change the same data at the same time.
There is no once accessing the database at this time and this error message appears only when I go to that specific field. I've also tried to delete the whole row but it wouldn't allow me to do that saying the program has been locked.
Any solutions? Thanks,
Rajiv
View 4 Replies
View Related
Nov 28, 2005
please help I am working with access database I have limited experience with access. I am unable to figure this particular problem. Microsoft access can't append all the records in the append Query microsoft access set 0 field to null set to convertion failure and didn't add 2 to records to the table due key violation 0 record due to key lock violation
View 4 Replies
View Related
Nov 28, 2005
please help I am working with access database I have limited experience with access. I am unable to figure this particular problem. Microsoft access can't append all the records in the append Query microsoft access set 0 field to null set to convertion failure and didn't add 2 to records to the table due key violation 0 record due to key lock violation
View 1 Replies
View Related
Oct 7, 2004
I have a recursive script that seems to timeout after a few dozen requests, the database is returning the typical "Microsoft JET Database Engineerror '80004005' " error ("Unspecified error").
The code is pretty straight forward, it is a function that calls itself to generate a tree structure for a site map. It works great the first few dozen times but seems to 'time out' and return the above error after a few dozen records (building the tree).
The code looks like this :
Function BuildContent(id,depth)
' open the children
Set GetKids = Server.CreateObject("ADODB.Recordset")
GetKids.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:usersXXXXhtmldb1.mdb"
GetKids.Source = "SELECT ID,Name FROM category WHERE parent = " & id & ""
GetKids.CursorType = 0
GetKids.CursorLocation = 2
GetKids.LockType = 1
GetKids.Open()
GetKids_numRows = 0
if GetKids.EOF <> true then
MyLinks = countlinks(id)
MyCats = countkids(id)
response.write "Number of Listings (" & GetKids("Name") & "): " & Mylinks & "<br>"
maxdepth = 1
BuildContent = "<ol>"
while GetKids.EOF <> true
KidsCats = countkids(id)
KidsLinks = countlinks(GetKids("id"))
if MyCats > 0 then show = true
if KidsCats > 0 then show = true
if depth < maxdepth then show = false
if KidsLinks > 0 then show = true
if MyLinks > 0 then show = true
if show = true then
BuildContent = BuildContent & "<li><a href='" & GetKids("id") & "_e.asp'>" & GetKids("name") & "</a></li>"
else
BuildContent = BuildContent & "<li>" & GetKids("name") & "</li>"
end if
if depth < maxdepth then BuildContent = BuildContent & BuildContent(GetKids("id"),depth+1)
GetKids.MoveNext
wend
GetKids.Close()
Set GetKids = Nothing
BuildContent = BuildContent & "<br></ol>"
end if
End Function
there are a couple of support fuctions :
Function countkids(id)
Set GetListing = Server.CreateObject("ADODB.Recordset")
GetListing.ActiveConnection = MM_Connection_STRING
GetListing.Source = "select * FROM category WHERE parent = " & id & ""
GetListing.CursorType = 1
GetListing.CursorLocation = 2
GetListing.LockType = 1
GetListing.Open()
GetListing_numRows = 0
countkids = GetListing.RecordCount
GetListing.Close
Set GetListing = Nothing
End Function
Function countlinks(id)
Set GetListing = Server.CreateObject("ADODB.Recordset")
GetListing.ActiveConnection = MM_Connection_STRING
GetListing.Source = "select * FROM records WHERE parent = " & id & ""
GetListing.CursorType = 1
GetListing.CursorLocation = 2
GetListing.LockType = 1
GetListing.Open()
GetListing_numRows = 0
countlinks = GetListing.RecordCount
GetListing.Close
Set GetListing = Nothing
End Function
I think the DB is being called too often, too quickly but I have no way of slowing the script down. If that's the case, is there a way to slow the code execution to give the DB time to catch up?
Otherwise, is it a driver problem (Microsoft JET Database Engineerror '80004005' ) and would switching to a OBDC connection give me better results or should I be using a different db driver?
Any help would be greatly appreciated.
View 4 Replies
View Related
Mar 16, 2005
I'm getting this error
Microsoft JET Database Engine error '80040e14'
Syntax error (missing operator) in query _expression '123 street'.
The field in DB is type text. But the data to be written in the field is; number followed by characters. In other words it is an address field on the form, trying to insert new record into DB.
here is 3 different data I entered into field:
1. 'just some text' - works fine
2. 'text and number 123 ' - works fine
3. '123 number and text' - does not work. and gives the above error.
Anybody has any idea?
View 2 Replies
View Related
Oct 19, 2004
I have an annoying error that i cant get round... the error i receive is:
Insert into TSContacts (CompanyId,FirstName,LastName,ThereMessage,JobTitl e,UserName,[Password]) Values(0,'','','','','','')
Microsoft JET Database Engineerror '80004005'
Field 'TSContacts.FirstName' cannot be a zero-length string. /vip_admin/AddContact.asp, line 55
dont really know whats going on here....
this is the addcontact.asp code:
'execute insert command
Dim strUpdate
Dim strFirstName,StrLastName,strLoginName,strPassword, strMessage,strJobTitle
strFirstName ="'"&Request.Form("strFirstName")&"'"
strLastName ="'"&Request.Form("strLastName")&"'"
strLoginName ="'"&Request.Form("strUserName")&"'"
strPassword ="'"&Request.Form("strPassword")&"'"
strMessage ="'"&Request.Form("strMessage")&"'"
strJobTitle ="'"&Request.Form("strJobTitle")&"'"
nCompanyId =CDbl(Request.Form("strCompanyID"))
strUpdate="Insert into TSContacts (CompanyId,FirstName,LastName,ThereMessage,JobTitl e,UserName,[Password]) Values("
strUpdate=StrUpdate & nCompanyID
strUpdate=strUpdate & ","&strFirstName
strUpdate=strUpdate & ","&strLastName
strUpdate=strUpdate & ","& strMessage
strUpdate=strUpdate & ","& strJobTitle
strUpdate=strUpdate & ","& strLoginName
strUpdate=strUpdate & ","& strPassword &")"
Response.Write(strUpdate)
dbServer.Execute(strUpdate)
if err then
'if error stop
response.write err
else
Response.redirect "customercontacts.asp?CUSTID="&nCompanyID
end if
'dbServer.close
'dbserver=nothing
%>
<body>
<p> </p>
</body>
</html>
can anyone help - its been driving me up the wall!
thanks,
butain
View 5 Replies
View Related
May 10, 2007
I need help with Microsoft Access 2003. I am receiving messages when I am saving in windows or closing in windows. the message is, "Microsoft Jet data base engine stopped the process because you and another user are attempting to change the same data at the same time.
email at:
(E-Mail address blocked: See forum rules)
View 1 Replies
View Related
May 21, 2007
Hi All
My department has customer database using microsoft access with the main table being a linked table to SQL-Server database down in IT department.
I've only been recently made aware that the staffs have been having problem when trying to change or delete old data. It keeps on bringing up the error message
The Microsoft Jet database engine stopped the process because you and another user are attempting to change the same data at the same time.
which is hardly the case since each staff are assigned only one customer to work on.
While it is technically possible to have many people working on the same data, business wise, it is impossible to do that.
I still come up with the same error even when the IT department confirms that no one accessing the SQL-Server table and I was the only one logged in.
This leads me to believe that there is something in the code that somehow preventing the table being edited or deleted. The problem is the database is so huge and was designed by my predecessor so I do not have any knowledge of the complete working of the codes behind it.
If it's the problem with the code, can anyone tell me what sort of codes caused this? If not, can anyone tell me what happened?
Any help would be most appreciated.
Thank you
View 4 Replies
View Related
Jul 22, 2005
I was using this form tutorial to password protect my administrative tools. When I went to run it I received this:
"User defined type not defined" and the line Dim rs As DAO.Recordset was highlighted.
I have little experience with VB and I was wondering if someone here had any idea if it was their code that was wrong, or if it was something I did...
View 7 Replies
View Related
Sep 28, 2004
Hi all,
I got Win2000 and I just developed an intranet solution installed on my web server (IIS). The application worked nicely and there were not any problems. Few days ago I re - installed my OS and I installed the IIS and my intranet solution but there is an error and the application doens't operate correctly with the Access database.
When it tries to retrieve data from the database the following error appears:
Microsoft JET Database Engine (0x80004005)
Unspecified error
The line of the code which is indicated by the error is the following:
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&loc&"; Jet OLEDBatabase Password="&passwd)
I updated Microsoft JET and MDAC. I really don't know how to resolve this problem.
Any help will be appreciated,
ddz
View 6 Replies
View Related
Oct 9, 2005
In Script Editors of DAPs, I try to call a form for use :
<SCRIPT language=vbscript event=onafterupdate for=Style_Name>
<!--
Dim objAccess
Dim objForm
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase "andre.mdb"
objAccess.DoCmd.OpenForm "Showlists"
-->
</SCRIPT>
When I run it, it shows the warning "ActiveX can't craete object "Access.Application"
What's wrong with the code, and how should I get it done ?
thanks
View 2 Replies
View Related
Mar 2, 2007
On my form I have 2 radio buttons rdoAll and rdoSpecific. If rdoAll is true then it prints a report. THis part works fine. However if rdoSpecific is true then I make visable combo box to look up an ID. Then when I click the button I want the same form to open but with just the info pertaining to the ID selected. Here is my code:
Private Sub cmdLotHistory_Click()
Dim stDocName As String, stSelection As String
stDocName = "rptLotHistory"
If Me.rdoAll = True Then
DoCmd.OpenReport "rptLotHistory", acViewPreview
End If
If Me.cboLotLU.Value > 0 Then
stSelection = "[LotID] =" & Me![cboLotLU]
End If
DoCmd.OpenReport stDocName, acViewPreview, , stSelection
End Sub
When I choose the ID and click the button I get the message
Run-Time error '3075':
Syntax error (missing operator) in query expression '(LotID
=020806B1585)'.
the 020806B1585 is my ID number.
Debug hightlights the
DoCmd.OpenReport stDocName, acViewPreview, , stSelection
but I'm guessing my real problem lies in the
stSelection = "[LotID] =" & Me![cboLotLU]
Can anyone point me in the right direction?
Thanks,
Rick
View 2 Replies
View Related
Sep 12, 2005
I have a function that builds a filter and it get a syntex error. It has three components and I must be missing something in combining them into the filter. SpecID and ReviewID are numbers. Selected is a checkbox and 'Yes' is a string. Can anyone see the source of the Syntax Error?
Private Function PlanFilter()
Dim strFilter1 As String, strFilter2 As String, strFilter3 As String
strFilter1 = "[SpecID] = " & [Forms]![frmMainEntry]![SpecID]
strFilter2 = "[ReviewID] = " & [Forms]![frmMainEntry].Form!fctlReviewRequests!ReviewID
strFilter3 = "[Selected] = 'Yes'"
gstrFilter = strFilter1 & " And " & strFilter2 & " And " & strFilter3 & ";"
Debug.Print gstrFilter
End Function
Thanks,
PC
View 3 Replies
View Related
Jun 20, 2007
I'm running a VBA query in excel trying to import the field from a table, simple so I thought, any idea on why i'm getting syntax error codes on this part?
Application.StatusBar = "Retrieving Depot Names"
sSQL = "SELECT tbldepot.DepotName 'Depot' " & vbCr & _
"FROM tbldepot, " & vbCr & _
"GROUP BY tbldepot.DepotName "
getSQLintoRange sSQL, Cells(1, iCol), True, True
iCol = iCol + 2
same thing on
'-= DFE =-
'Some manual DFEs have auth code but left at created
'AAP children have the DFE, not parent
Application.StatusBar = "Retrieving DFE Values"
sSQL = "SELECT tbldepot.DepotName 'Depot', " & vbCr & _
" SUM (di.Qty * di.Rate) 'DFEVal' " & vbCr & _
"FROM tblA537 a, tblA537DFE d, tblA537DFEItem di, tblDepot " & vbCr & _
"WHERE tblDepot.DepotID = a.DepotID " & vbCr & _
"AND a.OrderNumber = d.OrderNumber AND d.DFEID = di.DFEID " & vbCr & _
"AND NOT d.Authorisation IS NULL AND d.DFEStatus<>4 " & vbCr & _
"GROUP BY tblDepot.DepotName " & vbCr & _
"ORDER tblDepot.DepotName "
getSQLintoRange sSQL, Cells(1, iCol), True, True
iCol = iCol + 2
View 5 Replies
View Related
Jun 26, 2007
Hi All,
As I am really 'Green' in this line, can anyone tell me what wrong with my syntax?
Thanks in advance.
INSERT INTO Depreciation (AssetID,DepreciationAmount,DepreciationDate)
SELECT Assets.AssetID,
CASE WHEN Assets.AssetID FROM Assets not in (SELECT Depreciation.AssetID FROM Depreciation) THEN Month(Assets.DateAcquired)*SLN(Assets.BookValue,As sets.SalvageValue,Assets.DepreciableLife)/12
ELSE SLN(Assets.BookValue,Assets.SalvageValue,Assets.De preciableLife)/12
END,
Format(Me!DepnRunDT, "0")
FROM Status INNER JOIN Assets ON Status.StatusID=Assets.StatusID
WHERE ((Assets.StatusID)=1);
View 1 Replies
View Related
Sep 20, 2007
I am trying to create a query using the SQL view, i get a missing operator error while running this sql
SELECT tblPDInv_Temp.CustId, tblPDInv_Temp.CustName, tblPDInv_Temp.OnHold, tblPDInv_Temp.InvID, tblPDInv_Temp.InvAmt, " & _
"tblPDInv_Temp.AmtPaid, tblPDInv_Temp.DueDate, [InvAmt]-[AmtPaid] AS AmtDue, tblPDInv_Temp.InvStat " & _
"FROM tblPDInv_Temp " & _
"WHERE ((([InvAmt] - [AmtPaid]) <> 0) And ((Date() - [DueDate]) > 0)) " & _
"ORDER BY tblPDInv_Temp.CustName, tblPDInv_Temp.CustID, tblPDInv_Temp.InvID;"
Thanks
View 2 Replies
View Related