Does anyone have a definitive list of reserved words in Access? I understand certan words are reserved because they cause a problem when using vba. Is this correct?
It would make sense because I used to have a field called "Name" and my controls never worked correctly. I have since changed this and all is ok.
I have searched Access help files and this forum, but am unable to find a complete list other than the odd one like name, date, group etc.
I am attempting to split out a descriptive field so that each words which may exist in that particular field will be split out into seperate fields ... for example, if the violation field is populated with a four worded description of 'Assualt on Police Officer' I would like to somehow strip out the words so that 'Assualt' and 'on' and 'Police' and 'Officer' are all in seperate fields. I am not sure if this can be done using a simple query in access ... if anyone can offer any suggestions, I would greatly appreciate it.
In the field names of my table, I have one field called Group. However, it is a reserved word in MS Accesss. My question is: Is there any way that we can use a reserved name in a field name?
I've got some code that loops through a record and copies the non-null fields to another record. This is the partial code:
For Each fld In tdf.Fields If Not IsNull(Forms!contact_lookup![Contact_sub subform1].Form(fld.NAME)) Then strSql = "UPDATE tbl1 SET tbl1.[" & fld.NAME & "] = '" & Forms!contact_lookup![Contact_sub subform1].Form(fld.NAME) & "' " & _ "WHERE tbl1.[FC_APN] = '" & Me.txtApn & "';" DoCmd.RunSQL strSql End If Next fld
This works fine until it encounters a field whose contents has a reserved character, like a single quote (" ' ") in it, for example, "What's the what." At that point the SQL thinks there's a " ' " missing in the statement, and I get an error 3075 (syntax error: missing operator).
i have a table on my database from which i generate a monthly report by running a query. when i run the query (date from to date to) i have no problem. it shows me all the relevant records. when i want to generate a report, i input the start date and the closing date for the report. it then gives me an error (reserved error (-1524); there is no message for this error.) i have gone into the table and basically isolated all the corrupted entries. there are 359
what i need to know is how to repair these entries without losing the information. im new to access and this is a simple(kinda) database which i set up to keep track of what the staff in my department are doing on a daily basis.
Does anybody know what this error message refers to?
"Reserved Error (-1517); there is no message for this error."
It just started happening today, and I haven't even made any changes to the database. It occurs when I hit a button I have to run a macro.
the macro does the following: 1) Shows all records 2) Requery 3) ApplyFilter. The Where Condition for the filter is: Right([tblContracts].[JobNum],4)=Right([Forms]![FrmContProc].[txtFindJobNum],4)
The weird thing is that it only occurs if the Form window is taller than 1/2 of my viewable area. If the Form window is 1/2 the viewable area or shorter, it works OK. This was running fine earlier today, but about 4:00 pm (03/31/06) this started happening.
If anybody knows what this error means, or how to get rid of it (I really need to use this window in full-screen) then please let me know.
I have a large text file, 800 megs, 354000 records. . .
and when i run the following query . . .
INSERT INTO ACEimport ( CustomerID, ContractID, ContractModifier, ContractLine, ServiceProgram, Invoice, InvoiceLine, InvoiceDate, TransactionType, EffDate, EndDate, Duration, UOM, AcctRule, BillCycle, BAMA, EOPBillFlag, Product, CValue, InvoiceTotal, RevenueTotal, GLDate, InvoiceLineTot, ContractLineTot ) SELECT Xrevenueoracle.CustomerID, Xrevenueoracle.ContractID, Xrevenueoracle.ContractModifier, Xrevenueoracle.ContractLine, Xrevenueoracle.ServiceProgram, Xrevenueoracle.Invoice, Xrevenueoracle.InvoiceLine, Xrevenueoracle.InvoiceDate, Xrevenueoracle.TransactionType, Xrevenueoracle.EffDate, Xrevenueoracle.EndDate, Xrevenueoracle.Duration, Xrevenueoracle.UOM, Xrevenueoracle.AcctRule, Xrevenueoracle.BillCycle, Xrevenueoracle.BAMA, Xrevenueoracle.EOPBillFlag, Xrevenueoracle.Product, IIf(IsNull([ContractValue]),0,[ContractValue]/100) AS CValue, IIf(IsNull([InvoiceAmt]),0,[InvoiceAmt]/100) AS InvoiceTotal, IIf(IsNull([RevenueAmt]),0,[RevenueAmt]/100) AS RevenueTotal, Xrevenueoracle.GLDate, IIf(IsNull([InvoiceLineAmt]),0,[InvoiceLineAmt]/100) AS InvoiceLineTot, IIf(IsNull([ContractLineAmt]),0,[ContractLineAmt]/100) AS ContractLineTot FROM Xrevenueoracle WHERE (((Xrevenueoracle.GLDate)>#1/28/2006# And (Xrevenueoracle.GLDate)<#3/5/2006#));
I get the reserved -1517 error, i have compacted and repaired the destination file, and i have scrolled through with a query and can't find it. . .
Before inserting the Null, i used to get another error of Numeric Overflow. . . and i was hoping that the null error handling would get rid of it. . . but no such luck. ..
Hi. I have a list of 120000 entries, of companies in the UK. I need a query that will grab all the ones which have relevent similar names to others, like a duplicate query, but a bit more specific. For instance, First Choice UK, and First choice PLC are the same company, but have two entries. but I dont want to just scroll it would take ages. Is there a way to get a query to grab anything with matching words to other entries. Not necessarily the first two words, as my subject suggests, because the company name may not be two words, but whether there is any similarity in the name at all.
Has anyone seen the message in the attached file? I got this when I was trying to update the row source on the field after I had a problem with data in a report coming up inaccurate. I've been developing in MS Access for about 7 years now and have never seen this. Any explination for this would be greatly appreciated.
I am using MS Access 2000 on a Windows 98SE machine. :eek:
I have a table and in there is the names of sandwiches, their prices and also extra info which includes whether the sandwich contains nuts etc. The actual text is "MAY CONTAIN NUTS" . When searching through the query i have made, there is the text - Extra info? for the query criteria or question and then i have to type in what i want to search or query for. Is it possible that i can just use the words 'nuts' when i search and then it will bring up sandwiches which contain the text "MAY CONTAIN NUTS" in the extra info field so that when querying it is much faster to find the sandwiches which contain nuts? If you can do this then please help. Thanks, jon.
1st time: Company Name: Automobile 2nd time: Company Name: AuID
If I type A, then it will show out the word, but the cursor is till After A, because if we type another character which will change another word 3rd time: Company Name: Automobile
4th time: Company Name: Au[I]ID[I]
What is the keyword to search about it in the forum? Anyway, does anybody know how to solve it? Please let me know, thanks.
I'm trying to pull fields from a table into a form - and have had other problems with this.....
What is textual information in one table. ie. the table I am trying to acces from a drop down will only appear as numbers instead of the text entry in the original - I have triend the bound colums but these are correct?
I've had this problem at a couple of points - it seems to be formatting the forms as numbers and pulling in the record numbers rather than the textual information. The bound colums are pointed at the textual entries but I can not change the formatting in the forms etc to text rather than number... In the drop down it shows the text entries but will not allow them to be saved when updated?
I have a script file of FoxPro 2.6 which is use to read amount field and write it in words. Can any body convert in VBA Script. I manualy write amount in words. Thankyou. Saira
I am creating a database which has an invoice printing form. In that I would like to have a column for the total amount in words. I have got a sample module from northwind database. According to that 100,000 is "one hundred thousand" but in my country that is pronounced as " 1 Lakh" and for one million it is 10 lakh, for 10 million it is 1 crore like that. Is that possible to change the code in that module to display the words according to our standards? I am attaching the code with this thread. If anybody can show how to do that...I will be thankful to them..
Thanks
Function ConvertCurrencyToEnglish(ByVal MyNumber) Dim Temp Dim Dollars, Cents Dim DecimalPlace, count
' If we find decimal place... If DecimalPlace > 0 Then ' Convert cents Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2) Cents = ConvertTens(Temp)
' Strip off cents from remainder to convert. MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If
count = 1 Do While MyNumber <> "" ' Convert last 3 digits of MyNumber to English dollars. Temp = ConvertHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(count) & Dollars If Len(MyNumber) > 3 Then ' Remove last 3 converted digits from MyNumber. MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If count = count + 1 Loop
' Clean up dollars. Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select
' Clean up cents. Select Case Cents Case "" Cents = " And No Cents" Case "One" Cents = " And One Cent" Case Else Cents = " And " & Cents & " Cents" End Select
ConvertCurrencyToEnglish = Dollars & Cents End Function
Private Function ConvertDigit(ByVal MyDigit) Select Case Val(MyDigit) Case 1: ConvertDigit = "One" Case 2: ConvertDigit = "Two" Case 3: ConvertDigit = "Three" Case 4: ConvertDigit = "Four" Case 5: ConvertDigit = "Five" Case 6: ConvertDigit = "Six" Case 7: ConvertDigit = "Seven" Case 8: ConvertDigit = "Eight" Case 9: ConvertDigit = "Nine" Case Else: ConvertDigit = "" End Select
End Function
Private Function ConvertHundreds(ByVal MyNumber) Dim result As String
' Exit if there is nothing to convert. If Val(MyNumber) = 0 Then Exit Function
' Append leading zeros to number. MyNumber = Right("000" & MyNumber, 3)
' Do we have a hundreds place digit to convert? If Left(MyNumber, 1) <> "0" Then result = ConvertDigit(Left(MyNumber, 1)) & " Hundred " End If
' Do we have a tens place digit to convert? If Mid(MyNumber, 2, 1) <> "0" Then result = result & ConvertTens(Mid(MyNumber, 2)) Else ' If not, then convert the ones place digit. result = result & ConvertDigit(Mid(MyNumber, 3)) End If
ConvertHundreds = Trim(result) End Function
Private Function ConvertTens(ByVal MyTens) Dim result As String
' Is value between 10 and 19? If Val(Left(MyTens, 1)) = 1 Then Select Case Val(MyTens) Case 10: result = "Ten" Case 11: result = "Eleven" Case 12: result = "Twelve" Case 13: result = "Thirteen" Case 14: result = "Fourteen" Case 15: result = "Fifteen" Case 16: result = "Sixteen" Case 17: result = "Seventeen" Case 18: result = "Eighteen" Case 19: result = "Nineteen" Case Else End Select Else ' .. otherwise it's between 20 and 99. Select Case Val(Left(MyTens, 1)) Case 2: result = "Twenty " Case 3: result = "Thirty " Case 4: result = "Forty " Case 5: result = "Fifty " Case 6: result = "Sixty " Case 7: result = "Seventy " Case 8: result = "Eighty " Case 9: result = "Ninety " Case Else End Select
' Convert ones place digit. result = result & ConvertDigit(Right(MyTens, 1)) End If
Hello I have a text box in my database that i would like to be about to search and group the text field if is had similar. for Example if I had a record like" called in puking" and "Up all night puking", I'd like the query to recognize "puking" (without me specifically telling it to look for "puking") and group them.
Hi, if i have to input a entry that have more than 255 words, but my table could only handle 255 words, so how do i go about it... pls advise, thanks...
