Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.In Excel 2007 and Access 2007, from Excel I deleted every RecordSet, rs.
Code:
rs.MoveFirst
Do Until rs.EOF
rs.Delete
rs.Update
rs.MoveNext
Loop
I then am trying to reenter the new data contained in Excel but it will not let me due to the above error. How do I write over the deleted RecordSet (#Deleted)?Here is my code(my connection string works fine):
Code:
rs.MoveFirst
For k = 1 To Sheets("2013").Cells(Rows.Count, "A").End(xlUp).Row - 4
rs!Index = Sheets("2013").Cells(k + 4, 1).Value
rs!DatePaid = Sheets("2013").Cells(k + 4, 2).Value
there is two tables in my access file. I have deleted one of them (right click on the table and selected delete and didn't delete the records inside the table) but the memory remains same. how to free memory?
Special situation: The SQL Server Linked Server across the country is linked to a Read Only Oracle DB. This data pull works perfectly and populates the Subform.
The problem is that Oracle can take 3 to 6 seconds to retrieve the single record depending on the network traffic through a small pipe.
The code below shows the RecordSource for the SubForm. clicking on a list box supplies the value. Then 3 to 6 seconds later, the subform populates.
The actual Recordset for this Recordsource is needed to conduct Validation on each field. Normally this would be on SQL Server, I might just create a Recordset Oject and run this SQL statement again in 1 milisecond. In this case, it will probably take an additional 3 to 6 seconds. Avoiding another lengthy round-trip to Oracle would be prefered.
Goal: How does one grab, clone, or other wise reference the existing recordset for the SubForm?
Note: Immediate Window - One single field can be returned quickly
There are 48 fields that need validation - is there a way to reference the entire recordset?
Immediate Window during Break Mode: ? me.fsubsrNavSHLBHL("NavSH_QQ") NESE ' this is the correct value for the current recordsource
Set a breakpoint right after the line: fsubsrNavSHLBHL.Form.RecordSource = "Select * from vsrNavigatorSHLBHL where Well_ID =" & txtNavWellID.Value
Immediate Window: ? me.fsubsrNavSHLBHL.Form.RecordSource Select * from vsrNavigatorSHLBHL where Well_ID =91229
I'm trying to find the intersection of recordsets that result from two SELECT queries, but (to the best of my meager knowledge) Access doesn't support the INTERSECT clause.
Are there alternative ways to perform this operation in a single query? I read a few posts that suggested LEFT JOIN, but I am not sure about how to combine a left join w/ the inner joins I am using to retrieve my data.
My SQL statement would read as follows if Access supported INTERSECT:
~~~~ SELECT * FROM (Table1 INNER JOIN Table2 On Table1.A = Table2.B) INNER JOIN Table3 ON Table2.C = Table3.D WHERE (Table1.X = True) AND (Table3.Y = True)
INTERSECT
SELECT * FROM (Table1 INNER JOIN Table2 On Table1.A = Table2.B) INNER JOIN Table3 ON Table2.E = Table3.D WHERE (Table1.X = True) AND (Table3.Y = True) ~~~~
I have developed a Microsoft Access 2010 database for my client and the database is split with Front-end/Back-end, the Back-end and the database is shared on Network, The client operating system and applications for all users are hosted and consistent and the service is delivered over Citrix.
The database some times corrupt the tables record and give a permanent #Delete Error, I have attached one of the database table and the screenshot of the error,
I am a newbie at Access. I have uploaded an Access 2013 file and an Excel 2013 file to show what I am trying to do.
(I also incorrectly uploaded this question under QUERIES - since marked there as 'Solved")
The Access tables that I have created are meant to mirror the individual fields on the Excel spreadsheet.
On the Excel spreadsheet, I would enter data in the rows as the data becomes available.
The Access file contains the excel fields as tables. Some of the table fields consist of only one field and others have many fields.
I have created Primary Keys in all the tables. But I don't understand the process well at this point in time.
I need to know how to create proper relationships, and then, to create a query or a form to enter new data as it becomes available so that I can keep adding rows of data (query to enter and update data) and subsequently run queries to analyze the data
Need to create the correct relationships and a query that lets me update all the data for new cases, as an individual row (like on an excel spreadsheet) .
Hi, as you can see I'm up early trying to sort this one. I created a database on my PC (Access 2003) on one network, then converted it on my PC and transferred it via CD to another (PC and network, Access 2000). Due to problems I wanted to create a new database on the new machine and take all the tables, forms etc from the old database.
However, having done this when running the code it stops when it reaches the recordset. The current references I have are VBA, DAO 3.6, ADO 2.7, Ole Automation, and Access 9.0 library.
I'm experimenting in MS Access VBA reading from one MS Access application to another as visible in the code below. My problem is that I'm reading a recordset from an Access file and want to take that recordset (rec) to create a table in the current databank. If I run an cmd.commandtext "make table query" it runs the query across the connection and places the table in the remote database (as expected). Can I take the recordset and create a local table using ADODB command or is there a better approach. (I should note that the remote MS Access file does not have an .mdb suffix) Thanks in advance.
Sub get_indbyind()
Dim strInputfile As String Dim dlgOpen As FileDialog Dim bob As String bob = Application.CurrentDb.Name
' select connection Set dlgOpen = Application.FileDialog(msoFileDialogOpen) With dlgOpen .AllowMultiSelect = False .Show End With strInputfile = dlgOpen.SelectedItems.Item(1)
' make connection Dim cnn As ADODB.Connection Set cnn = New ADODB.Connection Dim strcnn As String strcnn = "Provider=Microsoft.jet.OLEDB.4.0; Data Source=" & strInputfile cnn.Open strcnn ' MsgBox "connection made"
' create recordset Dim rec As ADODB.Recordset Set rec = New ADODB.Recordset rec.Open "SELECT * FROM SATransfers;", cnn
Dim n As Long Dim i As Long
Do While Not rec.EOF Debug.Print rec.Fields(0).Value; rec.Fields(1).Value; rec.Fields(2).Value; rec.Fields(3).Value rec.MoveNext Loop
' create table from connection cnn Dim cmd As ADODB.Command Set cmd = New ADODB.Command Dim rs As New ADODB.Recordset cmd.ActiveConnection = cnn cmd.CommandText = "SELECT SATransfers * INTO tmp1 FROM SATransfers;" Set rs = cmd.Execute
cnn.Close Set cnn = Nothing Set cmd = Nothing End Sub
I am trying to create a process which selects a customer's site identifier and uses that to query an Oracle database through an ADODB connection. Which is all well and good until that customer has more than one site.
Here is a simplified version of what I have created:
Code:
'Get site details from current database on basis of company selected on form
Dim cnn As ADODB.Connection Set cnn = CurrentProject.Connection Dim RsSites As New ADODB.Recordset RsSites.ActiveConnection = cnn
[code]....
As I said, this works perfectly when the customer only has one site, but I have failed to find a way to turn a recordset with multiple values into a SQL variable that can be used in the IN clause.
I have attempted to convert the recordset to a string using GetString, but could not find a way to correctly seperate out the records.
I want to force the users to plan their work at least one day in advance. I need to know how to enter a plan date that is one day in advance. If you do planning today you can only enter a date from tomorrow onwards. Access must not allow you to enter a date earlier than tomorrow.
I have a normal Access table. The first column is ID and is the primary key. The second column is a text. The table consists of two records and is sorted in ascending order. First comes the data set with the ID 1.
Sub test() Set rs_access = CurrentDb.OpenRecordset("tab1") rs_access.MoveFirst MsgBox (rs_access.Fields("id").Value) End Sub
The message box shows 1. So everything is fine. Now I sort the table descending. But I get the same message. Why? Appearently the recordset doesn't know that the table was modified. The recordset should register that the table is modified.
I have a database with a table and 2 forms.One form (frmList) is a list of all records in the database, and the other form (frmInput) displays fields for a single record.There is a button in frmList which runs the following script. The user clicks a record in frmList, clicks the button, and the selected record opens in frmInput. ID is a text field containing digits and an alpha that is in both frmList and frmInput.
Code: Private Sub Command9_Click() Dim ID As String strCriteria = "ID = '" & Me.ID.Value & "'" DoCmd.OpenForm "frmInput", acNormal Form_frmInput.Recordset.FindFirst strCriteria End Sub
This script works as expected in Access 2010. However we recently upgraded to Access 2013 and since then, this script causes Access to crash ("Access has stopped working..." dialog appears).I have stepped through the script and the line causing the crash is
I can't find any problems with syntax or anything about Recordset.Findfirst being deprecated in 2013 so I suspected some kind of file corruption. To resolve this I have tried: Compacting and repairing the databaseDecompiling and recompiling the VBA modulesCreating a fresh database and copying all the objects into it
could this be due to a missing library or something? Are there other methods of resolving a corrupt database if that is the problem? Or as a last resort is there an alternative method to Recordset.FindFirst that I can use to open a form to a particular record while retaining the ability to navigate through other records?
what I have is a password entry popup, it's very simple and there is only one password, so it's coded into the form.There is an unbound text box for the password, set with the password input mask.An OK button and an Exit button.The OK button has this code on the 'On Click'
Code: Private Sub cmdOK_Click() If IsNull(passwordentry) Then passwordentry = "*" End If
[code]...
Now what I want it to do is automatically move to the OK button when the correct password is entered, so that you can just hit Enter.Currently you either have to press the OK button with your mouse, or hit Enter to move to the OK button and then press Enter again to activate it.
I have a table with 715K records. Each record is an inventory product, and the sixth field of each record is a short description. The tenth field is a single-letter category designation, and is currently blank. What I want to do is search through the description field of every line, and where the word "Paint" is contained, enter a letter "P" in the category field.
I opened a 2007 Access db in Access 2010. This DB worked perfectly in Access 2007, but when I opened it in 2010 my recordset.recordcount no longer works.
This is what I have:
rsGetInst was previously defined Dim intInstCount as integer Dim rsGetInst As New ADODB.Recordset rsGetInst.CursorLocation = adUseClient rsGetInst.CursorType = adOpenDynamic rsGetInst.LockType = adLockOptimistic
rsGetInst.open "Select * from tblInstruction where CustID = " & intCustomerID intInstCount = rsGetInst.recordcount
At this point a get a "type Mismatch" error, and it is happening in all my recordsets recordcount.
Is there a command or reference that needs to be change when using Access 2010. When I compared the references the only difference is that in 2007 we reference Microsoft Access 12.0 Object Library and in 2010 is Microsoft Access 14.0 Object Library.
I do not have a split db. I am prompted to enter my password when the db opens which is fine. However, when I close the db it prompts me to enter a password (not normal) and when I enter it it says invalid password. Also, when I try to change my password it says invalid password and when I try to compact and repair my db it say invalid password.
Hi guys, I'm a bit confused: I know that opening a bound form will bring down the whole recordset. But if I create a parametered query as the recordsource, will it still bring down the whole recordset first and only afterwards cut down to the records matching the parameters?
Example: I have a clients table with 5000 clients on a backend mdb, and my client lookup form in my frontend mdb. If I open the form looking for just client "Jim Jones" (via the parameter query), will Access bring down all 5000 clients from the backend to my frontend first, and only then seek out "Jim Jones" before discarding the rest of the recordset?
For if this is true then this whole Access business is rather unsuited for networks, even a small one. I hope you guys prove me wrong.
I want to write a email where there are 2 or 3 different ordernumbers for same email, i want to include the email in the mail part as single column table. how to do it? also can i use result of one recordset for other recordset?
from a table with fields userID and Date (in which any userID has multiple records with different Date values, and other fields) i have built a select query based on Date = one specific value. can anyone give an explanation (for beginners), through a sample code, that expands the query recordset so that the new recordset includes all records per userID that qualified in the prior recordset? below is an example. thank you!
Table with records: userID / Date u1 / d1 u1 / d2 u2 / d1 u2 / d2 u3 / d2 ... 1st Select Query (where Date = d1): u1 / d1 u2 / d1
Desired 2nd Query based off 1st Query (where ?): u1 / d1 u1 / d2 u2 / d1 u2 / d2
I have two tables that have the exact same fields. In table1 I have records that need to be UPDATED into table2. I tried an Update query and out of 600 records only half of those got updated. In my update query I joined tbl1 and tbl2 by Location (LOC) I checked for Nulls, Blanks, spaces, you name it. I can't figure why they all didn't get updated. I created a SQL query and go the exact same results. Ideally, I would like to create something in VBA to do this. I do not have any forms linked to these tables. In all I have about 600 records and 15 different fields that need to be updated. My example is only for one field.
sql example below. Which is the Access Sql in the Query
I am trying to set up some data access pages as data entry into a table with access 2000. I can see the records in both the data access forms and the HTML forms, but cannot create new records into the table. I have tried to change the property to DataEntry etc... but nothing seems to work.
The BE of my db is located at my PC. FE are then accessed by 3 of my staff on a shared folder. To check how high the security of my dbase is, i opened the folder where the BE lies on one of the user's workstation and tried to delete it. Can't believe IT WAS DELETED!!! Why??? It should have been addressed by "User-Level Security Wizard", right??? I'm using Windows XP, Office 2003.
