I'm relatively new to access. I probably use about one tenth of one percent of what it has to offer because I have trouble understanding it at this time. I need to know how to update a yes/no object.
View RepliesI have 2 tables and from them I do a query called "Query_Dates". There, I created 4 calculated fields which compares fields of the two tables previously mentioned.
What I am trying to do is everytime the calculated fields are equal to "Diff", gets the value from the second table (ADHOC) and and puts it in the 1st table (Master_Table). In total there are 4 fields I would change depending on other 4 fields called (CheckRR, CheckQual, CheckProd, CheckCap).
The problem is that it gives me an error 3027, object is read-only.
Below, you can find the code.
Private Sub Comando27_Click()
Dim rst As DAO.Recordset
Dim rsd As DAO.Recordset
Dim supplierName As String
Set rsd = Application.CurrentDb.OpenRecordset("Query_Dates", dbOpenDynaset)
Set rst = Application.CurrentDb.OpenRecordset("Master_Table" , dbOpenDynaset)
[Code] .....
I am trying to create an update query. I am trying to update a field in a table with the current date as a request.
I have a table named tblTest and a field named Date2 that I am trying to update with the current date, the button that the VBA is applied to is in a form name frmTest. This is my code:
Private Sub Command39_Click()
Dim t1 As Date
t1 = Date
db.Execute("update tblTest set tblTest.Date2") = t1
End Sub
But when I press the button I get:
Run time error '424'
Object Required
It highlights the 4th of code....
Hi together.
I have a problem getting this error message "Cannot update. Database or object is read-only" in my Access form application.
The funny thing is, when i run this program under a Administrator account, it's working...but its not working with the User account.
Of course the User hast permission to this folder, it's just a folder on the "C:" drive.
Is there a special right i have to modify that the user can work on it?
thanks
thomas
Hi
I'm having trouble with my database (Access 2000). I'm trying to export a file into a text file by clicking on a button. Below is the code. Where the code is in bold that is when the runtime error happens.
If i export the code manually by right click on the query > Export then this works, but for some reason by clicking on the button will not work.
Private Sub cmdExport_Click()
Dim sExportFilePath As String
sExportFilePath = DLookup("[DateExportLocation]", "tblSettings", "[ID]=1") ' Path if file to be exported
DoCmd.OpenQuery "qryUpDateTransmissionDateAndTime", acViewNormal, acEdit ' Update dates time
DoCmd.TransferText acExportDelim, "ExportFile", "qryExportFile", sExportFilePath
End Sub
I appreciate your help
I create a front end and back end that resides on the lan. Front has everything besides the table which resides on the back end. Front ends table are linked to the backend. I have two computer that i am testing it on. Both of them runs Access 2003 runtime and windows has been update to the latest version, both xp machine aswell.Both has user right to read and write to that directory on the lan. Ldr exist when either of them uses access file. The strange thing is when i run a command to copy some data from one table to another one. one of the machine give me the following error "3027 Cannot Update. database or object is read only". While on the other machine it runs flawless. Another weird thing is if i modified some values in table by using forms it works great on both so i am a bit clueless where the problems is. its seems my problem is copying from one table to another. i dont have problem modyfing one table. Here is the code i use to that halt my ms access database.
Dim dbs As Database, rsProposal As Recordset, TES As String, stdocname As String, stLinkCriteria As String
TES = Me![TESID]
If TES = DLookup("TESID", "Proposals", "TESID =" & "'" & TES & "'") Then
MsgBox "Proposal Already Exists for TES ID: " & vbCrLf & _
" " & TES, vbOKOnly, "Proposal Already Exists"
GoTo Image264_Click_Exit
Else
If MsgBox("Do You Really Want to Create" & vbCrLf & "a New Proposal for TES ID " & vbCrLf & " " & TES & " ?", 289, "Create New Proposal?") = vbOK Then
Set dbs = CurrentDb
Set rsProposal = dbs.OpenRecordset("Proposals")
With rsProposal
.AddNew
![Long_Desc] = Me![Description]
![Short_Desc] = Me![Opportunity]
![Dest_Site] = Me![Install Site]
![TESID] = Me![TESID]
![End_User] = Me![Contractor/Purchaser Name]
![Date_Due] = Me![Proposal Due Date]
![Date_Completed] = Me![Close Date]
![Status] = Me![Status]
.Update
.Close
Set rsProposal = Nothing
dbs.Close
Set dbs = Nothing
End With
stLinkCriteria = "[TESID] = " & "'" & TES & "'"
stdocname = "Form Prop - Detail"
DoCmd.OpenForm stdocname, , , stLinkCriteria
DoCmd.Close acForm, "Form TES - Detail"
End If
End If
Been using XP all this time, just got a new computer with Windows 7. Still using old Access 2000, not my call to update as this is the decision of the guy who owns the database.
Anyways, I opened Access for the first time, just a blank database so I can set up the user account. When I go to Tools > Security > User and Group Accounts and try to assign a password to Admin, I get the error message that it cannot update because the database is read only.
Where did this come from? I have never seen this message before, and the person who owns the database has a couple computers with Windows 7 that I have set this up on and did not run into this issue.
I realize that there can be some compatibility issues with Windows 7 and Access 2000 but it has worked on other Windows 7 computers, and not using the virtual XP mode.
I am using a command button to email an invoice to a customer using the sendobject function, whilst this almost works correctly it is adding an additional mailto:address along with the correct email address.
Example: CorrectEmailAddress and then#mailto:CorrectEmailAddress
The code I am using is:
On Error Resume Next
Dim Cusemail As String
Cusemail = Nz(DLookup("Email", "invoiceemailQ", "orderID=" & OrderID), "")
If Cusemail = "" Then
MsgBox "No email Address"
Exit Sub
[code]....
I have adopted someone elses database. It is a front end with about 100 linked tables/forms/reports/modules. The problem is that the database is really large. I would think by looking at the objects that it should be around 5mb tops, however after compacting it is still 63mb.
Is there a way (vba or otherwise) to look at each object and get its size in KB?
Once I can figure out which object is taking up too much space I can work on making them smaller.
Is it possible to declare a reference as an object, this way we could avoid our issues with broken references? I would just try it, but it seems like there is a quite a lot of testing it would require.
View 11 Replies View RelatedI am cleaning up a database that has been around for some time and I wish to be able to check for references within REPORTS/VBA Module code/ Form Designs etc. anywhere there is likely to be a reference to either an Access TABLE or QUERY.... I know there is the 'Object Dependencies' function within Access that will go some way to telling you what relies on what, but this is simply not comprehensive enough in that it doesn't go down to Form design level where further references can hide...
Countless times I have checked and subsequently deleted tables that I considered redundant... only to find later on there was some SQL Source reference to a table or query buried in the design of a form that I had overlooked....
Any way to definitively check and to ensure that all traces of a specific table or query are accounted for...?
How could I save a PDF report into a table (OLE object).
I want to click on a button, then that button should save the file into a table which formatted as OLE object ??
I have Access 2007 database.
I and trying to link to Outlook 2007 using the "External Data/More/Outlook Folder option and keep getting the "Object Class does not Support the Set of Events" error message.
I can link to a DBF and Paradox file without any problems.
I am running Office 2007 Professional and Access 2007 and Windows 10.
I have also done the following:
1. Removed Office 365
2. Decompiled the Access VBA code and corrected any issues
3. Compacted/Repaired the database
I have attached a screen shot of the references that I have selected.
This is a new setup as I recently purchased a new PC and Windows environment. I still have the old PC running Windows XP with the same configuration and it also experiences exactly the same error message.
My form respectively subform has a couple of problems related to the recordset as it is available in VBA.
The mainform contains material data, the subform contains the components of that material and a quantity, while the components are materials themselves. The subform's control source is an SQL statement created by the query builder.
Everything worked fine before i replaced the material-selecting combobox in the continuous subform by a textbox and a button. That button leads to another (dialog) form with some filtering options, which in turn returns the number of the selected material. This material gets inserted into the textbox. To this point it works fine.
But when i enter a quantity before i selected a Material, i get an error message after selecting the Material: This Action was Cancelled by an Associated Object. This happens while executing the following VBA Code on click of the material selection button (exact position commented in code):
Code:
Private Sub cbuSelectComponent_Click()
' Select component
Dim SQL As String
Dim rs As Recordset
DoCmd.OpenForm "Material Selector Dialog", , , , , acDialog, "Dialog"
If GLB_selected_mat = -1 Then 'cancel
[Code] ....
I've found the following Microsoft KB Article: [URL] ..... In their example code they use:
' Restore text box value to the original record contents
' in this case, that is NULL
datDataCtl.UpdateControls
I assume this is the relevant part, but i have no DataControl (what's that?) and neither found an UpdateControls method in the subform object.
The second error, "no current recordset", occures when i edit an existing component line in the subform that has been added right before (also using the same event and code as mentioned above). If i close the form after adding the component and open it again, it's no problem.
I have in my DB a lot of tables, queries and macro and every time I spent too much time by choose the right object.
Would be really useful give a color or change the character on each object. Is it possible?
I'm working on a query that lists all the queries in an Access database, and I would like the query to show the object description which is displayed when you right-click an object and display the object's properties. For queries, this is a text box just below the query name in the properties window.
So far, all I have is:
Code:
SELECT ID, Name FROM mSysObjects;
I would like to have something like:
Code:
SELECT ID, Name, Description FROM mSysObjects;
I have distributed my front end on the shared drive for users to copy to their desktops.
In one form I have a formula in the query that show's the word 'Gap' if any of the 15 questions on the form is equal to 'fail'. It runs on current when the user is in a record it shows the word 'Gap' at the top header part of the form.
When the user opens the form they get an error message pop up that says "The expression On Current you entered as the event property setting produced the following error: Object or class does not support the set of events."
Once they click 'ok' they are able to work in the form until they attempt to filter records by their name it pops up again.
I've tested on my end and no errors or issues come up.
I want to be able to click a field and it copies the field value. Just as if I were using Ctrl+C. THen I can go to excel or internet an paste it. i have the code:
Code:
ClipBoard.SetData = Me.GBL & vbCrLf
Me.GBL.SetFocus
Me.GBL.SelStart = 0
Me.GBL.SelLength = Len(Me.GBL)
I keep getting an error 424 Object required. How do I fix this or is this even on the right path?
I have a 2003 .mdb file and the associated Workgroup Information File which normally resides on a network in a folder V:V-Base-DatabaseDATA. I have the Workgroup Information File.
The database is unsupported and we need to migrate the data to a new web based database.
When I try to open the database with the shift key down I get the following message :
You do not have the necessary permission to use the V:V-Base-DatabaseDATAV-Basebe.mdb object.
What is the best way to access the data and do I need to do this on the server instead of a local drive off site?
I have a large database. I want to identify which objects take up the most space. Any way of identifying a list of each object with their relative size?
I can do this in sql server, but no in Access?
I have a problem in the copyfile function. It says "CompileError - Expected =" and I am not sure if I am even setting this correctly. This is my code:
Dim fso As Object
Set fso = VBA.CreateObject(filesystemobject)
fso.copyfile(me.txtPath,me.txtarchivepath & me.txtnewfile)
I think the problem is the "filesystemobject bit in the code ....
Couple days ago our database was not opening, Access would open but show a blank workspace. Anyhow, we restored the database from Server and it worked on all 5 shared systems on company's network but this one computer. It is giving the error, "Object or class does not support the set of events."
I tried to copy new local folder but nothing. I checked the links and target folder it looks fine.
I tried to import the everything into new database but it said I don't have permission for that.
what's causing this issue and what can I do to fix it?
I am now working on this new database. I would like to make a calculation so that I could derive a value called eGFR from a patient's serum creatinine. This is a test of kidney function.I am having the following problems.
a. Modules are not appearing in the Navigation Pane of the Access 2007. When I press 'Object Types' in the Navigation Pane I get all object types such as tables, queries, forms, reports, macros but not modules. I know there are modules as I have written lots of vba code.
b. I have written the following code within this Function. The following is the code.
Public Function eGFR(creatinine, Gender, Age) As Single
If IsNull(Age) Or IsNull(creatinine) Then
eGFR = 0
Else
[code]....
This code is working fine in another database, however when I try to upload a query in the current database that has this function in one of the fields, I get an error saying the the function eGFR does not exit.
I have inserted the function into one of the modules that I have managed to enter.
Do I need to deposit the code elsewhere? How do I access Modules from the Navigation Pane?
I have a db that is having some strange speed issues on some very basic queries. Objects that have a rowsource/recordsource with a SQL statment in particular are really slow to populate. Likewise on deactivate/activate the report query seems to reload. I've put breakpoints in every object event with no stops out of the ordinary, and nothing seems unusual.
While I know MSysObjects is a user read-only table, I came across some records that reference objects that no longer exist in the front-end. Is this table cumulative? Is there any way to purge the deprecated records? I tried to turn on then turn off autocorrect features hoping that would trigger it to repopulate, but no luck.
I'm thinking this may be the source of the issue. Perhaps if it is looking for an object that it can not find (especially the ~sq_ unsaved queries) then it's looking to the wrong place on a lostfocus/activate/deactivate or similar event.
Some history on this file, it has been through many versions of Access starting with 2003, which I think is part of the issue as well. Shy of looping every object and replicating the read-write properties, I'm not sure where else to go with this.
My membership database has worked fine until recently. Now I cannot save inserted data. On attempted saving "Update or CancelUpdate without AddNew or Edit" appears.
The problem. relates to 2 tables Member and Addresses. PK in the parent table Member is ID. In the Addresses Table the FK is ID. There is a One to One relation between the tables and Referential Integrity is set. I know 1 to 1 is not good but it worked fine in this small database.
Browsing the all of the existing records is fine.
Hello
I am using Access 2003(11.6355.6360) SPI
When I attempt to create a new DB - by performing Blank Database I immediately get a message 'Object Library not registered'.
If I 'OK' that box and try to create a table, I can do so - create Table in design view.
When I then try to Import external data - an excel file I get the message 'ActiveX component Can't create object'.
I have looked ob various sites for help and forum information regarding these errors but have found nothing conclusive, with specidfic regard to Access 2003.
The version has been loaded on my machine about 1 year as part pf Office Professional but this is the first time I have attempted to run Access itself.
Does any forum member have any ideas as to how this problem could be resolved.
Thank You
Rgds
Paul Langham