Access Vba Runtime Error 3021 No Current Record
Contents |
No Current Record Found If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can access vba runtime error 2498 post: click the register link above to proceed. To start viewing messages, select
Access Vba Runtime Error 91
the forum that you want to visit from the selection below. Results 1 to 33 of 33 Thread: [RESOLVED] Run-Time access vba runtime error 3075 Error '3021' No Current Record Found Tweet Thread Tools Show Printable Version Subscribe to this Thread… Display Linear Mode Switch to Hybrid Mode Switch to Threaded Mode Oct 20th, 2014,12:59 PM #1 vb6coder14
Access Vba Runtime Error 3141
View Profile View Forum Posts Thread Starter Hyperactive Member Join Date Oct 2014 Posts 261 [RESOLVED] Run-Time Error '3021' No Current Record Found I've read through the other threads on this topic but they don't seem to apply to my problem. I have a 1 row table that I'm trying to read into a recordset using VB6, but when I try to access any of the fields run time error 3021 no current record in the record, I get a runtime error 3021 "No current record". I thought that when you use the Set Recordset command the recordset is populated with the contents of the target table. But that's not happening. Can someone tell me what I'm doing wrong? Any help is greatly appreciated. Here's my code: Database: MS Access Field: mpSalesRankTier1 Data type: Number Content: 10000 Number of rows in table: 1 Code: Option Explicit Public Sub modDeterminePrice() On Error GoTo ErrorRoutine Dim dbCtrlRec As Database Dim rsCtrlRec As Recordset Set dbCtrlRec = OpenDatabase(App.Path & "\" & "LLSYS.mdb") Set rsCtrlRec = dbCtrlRec.OpenRecordset("SYS_CONTROL_RECORD") MsgBox rsCtrlRec.Fields("mpSalesRankTier1") '<- Failure occurs here Exit Sub ErrorRoutine: If Err.Number > 0 Then Call gscErrRtn.gscErrRtn End If End Sub Last edited by vb6coder14; Oct 20th, 2014 at 01:03 PM. Reply With Quote Oct 20th, 2014,01:43 PM #2 jggtz View Profile View Forum Posts Frenzied Member Join Date May 2006 Location some place in the cloud Posts 1,885 Re: Run-Time Error '3021' No Current Record Found It looks like you are using DAO Then: 1 Reference the DAO library 2 Change the lines where you declare and where you open Recordset Code: Option Explicit Public Sub modDeterminePrice() O
be down. Please try the request again. Your cache administrator is webmaster. Generated Fri, 30 Sep 2016 01:27:18 GMT by s_hv720 (squid/3.5.20)
Technology and Trends Enterprise Architecture and EAI ERP Hardware IT Management and Strategy Java Knowledge Management Linux Networking Oracle PeopleSoft Project and Portfolio http://visualbasic.ittoolbox.com/groups/technical-functional/vb-access-l/run-time-error-3021-no-current-record-vba-4333968 Management SAP SCM Security Siebel Storage UNIX Visual Basic Web Design and Development Windows < Back CHOOSE A DISCUSSION GROUP Research Directory TOPICS Database Hardware Networking SAP Security Web Design https://www.experts-exchange.com/questions/28437051/No-Current-Record-Run-time-Error-3021.html MEMBERS Paul_Pedant MarkDeVries DACREE Inside-ERP MacProTX VoIP_News Inside-CRM I_am_the_dragon PCMag maxwellarnold Michael Meyers-Jouan TerryCurran Chris_Day JoeTorre Andrew.S.Baker Richard bracke Ramnath.Awate DukeGanote Locutus Nikki Klein Dennis Stevenson Craig Borysowich AbhaiTripathi Clinton time error Jones bluesguyAZ59 iudithm knowscognosdoi mircea_luca Iqbalyk COMPANIES ZOHO Corporation Imation RSA Conference Apperian View All Topics View All Members View All Companies Toolbox for IT Topics Visual Basic Groups Ask a New Question Visual Basic for Access For discussion on Visual Basic for Access , please visit the Visual Basic – General Discussions group. More Visual Basic Groups Your access vba runtime account is ready. You're now being signed in. Solve problems - It's Free Create your account in seconds E-mail address is taken If this is your account,sign in here Email address Username Between 5 and 30 characters. No spaces please The Profile Name is already in use Password Notify me of new activity in this group: Real Time Daily Never Keep me informed of the latest: White Papers Newsletter Jobs By clicking "Join Now", you agree to Toolbox for Technology terms of use, and have read and understand our privacy policy. Run Time Error 3021 , No current Record VBA Irfan Rana asked Jul 27, 2011 | Replies (6) I have two tables, One is a Data "LST_ SS" and other is the result "MML". I want to concatenate a field FAC of LST_ SS for each DN and update in Table "MML" , into field FAC. Here i am trying to get rid of it. Please assist how do control rsMML , there is error on rsMML update. Private Sub cmdMML_Click() DoCmd.OpenQuery "qryDISTINCT", acViewNormal Dim
Help Receive Real-Time Help Create a Freelance Project Hire for a Full Time Job Ways to Get Help Ask a Question Ask for Help Receive Real-Time Help Create a Freelance Project Hire for a Full Time Job Ways to Get Help Expand Search Submit Close Search Login Join Today Products BackProducts Gigs Live Careers Vendor Services Groups Website Testing Store Headlines Experts Exchange > Questions > No Current Record: Run-time Error: 3021 Want to Advertise Here? Solved No Current Record: Run-time Error: 3021 Posted on 2014-05-19 MS Access 3 Verified Solutions 12 Comments 2,755 Views Last Modified: 2014-05-20 After importing data into a table (in the back end database) from an excel file, w/ TransferSpreadsheet comand, (The import function is being called from within the front end db.) counting records in a recordset, based on the linked table in the front end, returns runtime Error #3021, although records DO appear in the table, if I open the table in the code break. 'Must be missing something here. Count function. ========================================= 'Count Records Set rs0 = db.OpenRecordset("tblAlignment") count = 0 rs0.MoveFirst Do Until rs0.EOF = True count = count + 1 rs0.MoveNext Loop ========================================= Would appreciate illumination ~ Jacob 0 Question by:Chi Is Current Facebook Twitter LinkedIn Google LVL 74 Active 6 days ago Best Solution byJeffrey Coachman Remember that in many cases you can also use Dcount to count records as well: Dim lngNumberOfRecords as long lngNumberOfRecords =Dcount("*","tblAlignment") msgbox lngNumberOfRecords JeffCoachman Go to Solution 12 Comments LVL 46 Overall: Level 46 MS Access 46 Message Active today Assisted Solution by:Dale Fye (Access MVP)2014-05-19 How about: 'Count Records Dim rs0 as DAO.Recordset Set rs0 = db.OpenRecordset("tblAlignment") if not rs0.EOF then rs0.movelast Count = rs0.RecordCount rs0.close set rs0 = nothing 0 LVL 119 Overall: Level 119 MS Access 119 Message Active today Assisted Solution b