I am trying to insert a new line below the active cell ive tried several attempts but i am getting error 1004. Some attempts are commented out.
Code:
wks6.Activate
With wks6
.Select
' .Rows.AutoFit
' .Columns.AutoFit
.Range("A:AO").Select
[Code] .....
I have a table which holds the status of peoples orders. It holds information on order_id, order_status, order_desc, letter.
A letter is printed for each of the different statuses. However for one status i need two different letters to be printed.
How can i insert two values into the same cell.
So far i have done
insert into order_status (order_id,order_status,
order_desc, letter) values('025', 'Dispatched', 'Black tailored coat ','DPT notification');
This prints the DPT notification fine but i need another letter to print along with this.
Good morning
I had yesterday off work and have come back to a nightmare.
The database we use doesnt work the way it should anymore.
There is a switchboard which gives us the option to show a booking form...Worked fine until someone did something to it yesterday.
When I click on the command button to load the form I get an error saying that there was a runtime error 2001 " You canceled the previous operation"
How do I fix this??? I so confused.
I have tried opening the form other ways but it appears to be locked and wont open.
Please if someone could share some light!!!!
TIA
I'm trying to have a cell display the information from which ever cell the cursors is on.
I am trying to use (Master Info / Child info) for a subform but would like the Master cell link to where ever the cursor is.
Is this even possible?
I'm using Access 2010 and I want to export a query to Excel by clicking a button. Every time I click on it Excel opens but doesn't open my worksheet, it's just gray like you just open the program without a table. After exiting it Access tells me I got a run time error 1004: the open-method of the workbook object couldn't be executed. After opening my Excel file it says that Excel found unreadable content and asks if I want to restore the content of the workbook.
Here is my code:
Code:
Private Sub Befehl62_Click()
Dim cdb As DAO.Database, qdf As DAO.QueryDef, SheetName As String, xlApp As Object
Set cdb = CurrentDb
Forms!Export_to_Excel!txtSheetName.SetFocus
SheetName = Me!txtSheetName.Text
[code]....
where my problem is?
I'm trying to run the following query
INSERT INTO Enrolled_Students (Last Name, First Name, Address, town/city, county, postcode, phone number, date of birth, age)
SELECT Last Name, First Name, Address, Town/City, County, Postcode, Phone Number, Date of Birth, Age
From Candidate Details
Where IsNumeric (Student ID);
and i'm receiving the error stated above
what im doing wrong?
PHP Code:
Dim strSQL As String 'Add Absence Data to tblHour.
strSQL = "INSERT INTO tblHour (WorkDate,EmployeeID,Hours) "
strSQL = strSQL & "VALUES (#" & Me.AbsenceDteTo & "#, '" & Me.EmployeeID & "', '" & Me.txtAbsHrs & "')"
CurrentDb.Execute strSQL, dbFailOnError
[Code] ......
I'm using Access to export the results of a query to Excel and within the same code I am opening up the spreadsheet to format it. Part of the formatting requires me to find the first empty cell in column A, and then insert the text 'Summary'.
Within Excel, the following code works:
Find empty cell:
Code:
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Add term 'Summary' to cell:
Code:
ActiveCell.FormulaR1C1 = "Summary"
I've tried a few different things based on some code I've found on the net from similar situations, but in just about all attempts I get an object defined error. I've tried dimming the piece of code as an object, but when it comes to VBA, I'm just fumbling through.
I have a simple form (frmAddPaper): txtPaper where user enters name of new newspaper, and cboCity, where user selects the newspapers town.
Also Close and Save buttons.I also have a table, tblCity. Columns as follow: CityID, City, Paper1, Paper2, Paper3, Paper4, Paper5, Paper 6.
Some cities have values (Newspaper names) in just Paper1 field. Others in Paper 1 & Paper 2, and some in Paper1, Paper2 and Paper3.I want to add the txtPaper value, to the first empty column, in the row where cboCity matches City column.
Hi all,
I have a form with two sub forms and when I enter data into one of my subforms I get this error?
A Problem occurred while Microsoft Access was communicating with the OLE server or ActiveX Control.
Close the OLE server and restart it outside of Microsoft Access. Then try the original operation again in Microsoft Access.
I've checked the relationship and linked child / master fields and it looks ok. Does anyone know what could be causing this?
I am getting this error on a couple of different PC's running WinNT4 and Win2000.
Shutting down doesn't help and I don't get this with other databases. When I open the form (subform2) on its own I can enter data, just not when it's part of the main form?
What's the best way of storing arrays of data within a cell? Or should I be creating fields to the size of the array.The size of the arrays are unknown at the moment.
View 7 Replies View RelatedHello All,
Can anyone tell me what I need to do to fix this piece of code? I am getting the following runtime error:
"Runtime Error 1004 - Method 'Add' of object 'Sheets' failed." I bolded the line of code that is giving me the problem.
'Loop through until all orders have a sheet built for them and the data is transfered to the appropriate sheet
If Not rst11.EOF Then
Do Until rst11.EOF
'Next line adds worksheet. The parameter of the Add method adds
'the new worksheet at the end of all existing worksheets
Set xlWks = xlWkb.Worksheets.Add(, Worksheets(Worksheets.Count))
xlWks.Name = "Order" & rst11!OrderNo
xlWks.Range("A1").Activate
'This For...Next loop iterates through the array of column names, puts the column name in a cell
'bolds it, and moves one cell to the right
For iCtr = LBound(aryCols) To UBound(aryCols)
xlApp.ActiveCell.Value = aryCols(iCtr)
xlApp.ActiveCell.Font.Bold = True
xlApp.ActiveCell.Offset(0, 1).Activate
Next iCtr
rst11.MoveNext
Loop
End If
Thank you!
I have a macro that Runs from a button that I attached to a form called " plans" the macro opens up a Dialog form from which I select a drawing number from, on selection of that drawing number a query is run and finds the information I want
The problem I am having is when I close the query the macro button goes active so if I want to run another query using the button it goes to the last record I selected. I have tried the refresh command but that does not work..I really need the button not to be active when the query is closed.
I have a main form (in a single form view) that show a record from a table. I am going to add a sub form (probably a continuous form view) which can show a list of fields (probably a name) from all records from a child table that match condition PrimaryKey = ForeignKey.
What is the best way to make the list of the fields sort of clickable so that I can click on any of them and e.g. open a form with information about a child record? Should I look for hyperlinks in reports, a list box, a continuous sub form with records?
My friend extracted some text from a PDF file, pasting it into Excel, and needs to find certain pieces of information. Problem is, the text came out as a long string instead of being broken into cells.
So, what we need to do is find, within the text, the 1st, 3rd, 5th, 7th, 9th, 11th and 13th times the word "Principal" appears, and then report back the name that follows. Within the text, it would read something like
(1234 Principal John Doe)
The number in front of it will change or be in a different format, there are other parentheses in the text (varying number of times within the text), and the name changes, of course. We want to extract the name following the word "Principal"... but only the odd-numbered times they appear. Some cells will have as few as six "Principal" entries, others as many as fourteen.
The Format Painter seems not to work in Access 2010.The Format Painter button is not in Home / Text Formatting, where you might expect to find it.I create a New Group and add the Format Painter icon. I cannot then use it. It stays greyed out.I add Format Painter to the Quick Access menu. It stays greyed out.If I view a form in Layout mode, I can sometimes get the Format Painter icon to highlight - but I cannot select just a single cell whose format I wish to copy.
Where use of the Format Painter is documented..How to do a very simple thing: copy a format from one cell in a subform to another.
By the way, my FO line manager wants an IT report, i am wandering if there is any possibility to search and export users. The report should show in the status column who are disabled, who are enabled, date created and date expired in date column in active directory windows server 2003 environment?
View 1 Replies View RelatedWe have a split ACC2010 database, with the back end on our server and 5 front ends on 5 client PCs. I hadn't run a compact/repair on the back end for months. When today I tried, I got the 'database is locked' error. The lock file showed 'Admin' logged on at all 5 clients. The front-ends had been closed on all 5 clients. We do not have a user called 'Admin'. Because my issue occurs for all clients, it might be caused by some sort of programming error in the front end.A VBA bug (implicit comparison to a control in an If .. Then construct) caused this type of behaviour but was resolved in Access 2007.
View 12 Replies View RelatedI have 2 gig of order data which has duplicates due to different invoice dates. How can I combine the dates into one cell so I only had one row of Order data.
i.e. order number, price, order date, invoice date
same order number, same price, same order date, different invoice date.
How do I combine the second line with the first so that I only have the data once.
I have subform (Datasheet) is there some code e.g. after update, which can adjust size cell to lenght of data?
View 11 Replies View RelatedI have imported an Excel table with a column which has several values in one cell separated by "". In my case names of institutions afiliated with a patent. Example of the format of a single cell: MASSACHUSETTS INSTITUTE OF TECHNOLOGY (US) RIVE TECHNOLOGY INC (US)
In order to normalize the Access database I would like to extract the institutions to a separate table (institutions) and that the patent is related to both institutions.
I am using Access 2007.
Hi Forum,
I am working on a little database and I have the code shown below. When I run it, I get the following error message:
Syntax error in query. Incomplete query clause.
Here is the code:
Dim cpyText As String
Dim sqlStatement As String
Dim newName As String
cpyText = List11.Column(0, List11.ListIndex)
fld_lname.SetFocus
newName = fld_lname.Text
sqlStatement = "INSERT INTO '" & newName & "' ([perm]) VALUES ('" & cpyText & "')"
DoCmd.RunSQL (sqlStatement)
The sql statement is on one line...it just wrapped in this window.
In the debug window, the values of the variables in the sqlStatement are what I expect them to be. So I cannot figure out why I am getting the error.
Any assistance is greatly appreciated.
Mike
Hello All,
I'm am writing an App in Java connecting to an MS Access database. I am now getting a syntax error on the following insert into statement:
Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");
source = "jdbc:odbc:DKOperations";
connection = DriverManager.getConnection(source);
Statement stmt = connection.createStatement();
String CustInfoTable = "CUSTOMER_INFORMATION";
stmt.executeUpdate("INSERT INTO " + CustInfoTable + " CUSTOMER_FIRST_NAME VALUES " + CustFirstName);
This is the error:
An SQLException occurred: [Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.
I cannot figure out what the syntax error is. Anyone have an insight on this for me? Most likely something easy that I am missing.
Thanks!
Hi
This may be a very silly question but I have the following code which is meant to take data from textboxes, checkboxes etc and insert it into a new record on a table using the INSERT INTO statment. However I am getting a Syntax error in my INSERT INTO statement which i cannot figure out.
Please Help!!?
Private Sub cmdSaveRecord_Click()
Dim SQL As String
Dim Today As String
Dim Ref As String
Dim HK As String
Dim Site As String
Dim Equip As String
Dim Serial As String
Dim Invoice As String
Dim Client As String
Dim HKRef As String
Dim Tested As String
Dim Completed As String
Dim chkHKr As String
Dim Repaired As String
Dim Spares As String
Dim CompDate As String
Dim Exp As String
Today = txtDate
Ref = txtRef
HK = txtHK
Site = txtSite
Equip = txtEquipment
Serial = txtSerial
Invoice = txtInvoice
If cboClient.Column(0) <> Null Then Client = cboClient.Column(0) Else Client = ""
HKRef = txtHKRef
Tested = chkTested.Value
Completed = chkCompleted.Value
chkHKr = chkHK.Value
Repaired = chkRepaired.Value
Spares = chkSpares.Value
CompDate = cldComp.Value
Exp = cldExp.Value
SQL = "INSERT INTO ServiceReport (Date, CallReferenceNo, HongKongFaultNo, Client, Site, Equipment, SerialNo, Tested, Repaired, Spares, HK, ExpectedDate, Completed, InvoiceNo, CompletedDate VALUES (Today, Ref, HK, Site, Equip, Serial, Invoice, Client, HKRef, Tested, Completed, chkHKr, Repaired, Spares, CompDate, Exp)"
DoCmd.RunSQL SQL
I`m trying to insert some rows of the table [Produse finite dbo_SC03XX00] into the table [Loturi dbo_SC33XX00].
So, I tryed to run the following queries:
A) INSERT INTO [Loturi dbo_SC33XX00] ( [Loturi dbo_SC33XX00].SC33001, [Loturi dbo_SC33XX00].SC33002, [Loturi dbo_SC33XX00].SC33003, [Loturi dbo_SC33XX00].SC33005)
VALUES (select [Produse finite dbo_SC03XX00].SC03001,'01','000000000999',5000 from [Produse finite dbo_SC03XX00]);
But, when I want to save the query I get the following error:
"Syntax error. in query expression 'select [Produse finite dbo_SC03XX00].SC03001'"
B) INSERT INTO [Loturi dbo_SC33XX00] ( [Loturi dbo_SC33XX00].SC33001, [Loturi dbo_SC33XX00].SC33002, [Loturi dbo_SC33XX00].SC33003, [Loturi dbo_SC33XX00].SC33005)
VALUES select [Produse finite dbo_SC03XX00].SC03001,'01','000000000999',5000 from [Produse finite dbo_SC03XX00];
and I get the error:
"Syntax error in INSERT INTO statement."
I thought that the select query might be wrong, so I tested it:
"select [Produse finite dbo_SC03XX00].SC03001,'01','000000000999',5000 from [Produse finite dbo_SC03XX00]"
and it runs correctly.
How can I solve the problem? How can I insert the specified rows from the table [Produse finite dbo_SC03XX00] into the table [Loturi dbo_SC33XX00]?
Thank you in advance.
Hi,
I was wondering if i could get some help here. I got error message saying "user defined - typed not defined" and it's highlighting the first line that is WorkBase as Database.
Here is my code.
Dim WorkBase As Database
Dim WorkRS1 As Recordset
Dim rsNew As New ADODB.Recordset
Set WorkBase = CurrentDb
strSQL = "INSERT INTO [Projects](Project_ID, [OLD J_ID]) "
strSQL = strSQL + "VALUES ('" & myProjectID & "', '" & myOldPID & "')"
WorkBase.Execute strSQL, dbFailOnError
WorkBase.Close
This is for Office 2003
Thank you in advance