I have tried to put an Event Procedure on the AfterUpdate (or OnChange) of the Combo Box, and i wrote in it:
------------------------
Private Sub COFNumber_Change()
' Find the record that matches the control.
Dim rs As Object
If Me![BillNumber] <> Null And Me![BillNumber] <> " " Then:
Set rs = Me.Recordset.Clone:
rs.FindFirst "[Bill Table_CustomerName] = '" & Me![BillNumber] & "'":
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
-------------------------
I try the form, and i get the following message:
"Update or CancelUpdate without AddNew or Edit"
I dont know what this means, and i dont know how to get it working.
Anyone has an idea?
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.
I get an error "update or cancel update without add new or edit" which seems to point to this code.I am using MS Access 2010.
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer) 'Store when record was last modified and by who. 'Initially stores when the record was entered. If Me.NewRecord = True Then Exit Sub 'Exit if new record Me.DateLastModified.Value = Now() Me.LastModifiedBy.Value = getUser() End Sub
I have the following code which is supposed to insert a new record into TBLLetterHistory when a report is printed. The report is based on a Query which selects the records based on their postcode.
What actually happens is that only the first record in the query is inserted into the History Table. Any suggestions would be gratefully recieved as I have no idea, even after long searches in this forum!!
Private Sub Report_Activate() Flag = 0 End Sub
Private Sub Report_Deactivate() Flat = -1 End Sub
Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer) Dim dbs As DAO.Database, rst As DAO.Recordset Set dbs = CurrentDb() Set rst = dbs.OpenRecordset("TBLLetterHistory")
Flag = Flag + 1 ' If the current value of Flag = 1, then a hard copy of the ' report is printing, so add a new record to the history table. If Flag = 1 Then rst.AddNew rst!ReportName = "RPTLetterByPostcode" rst!Date = Now rst!LeadID = [QRYLetterByPostcode.LeadID] rst.Update rst.MoveNext ' Flag = 0
I search a record with values that I am taken from form1 . If i found the record i show it on the form2 else I add a new record to table with values that i am taken them form form. this is my code: Code: Dim stDocName As String Dim stLinkCriteria As String stDocName = "mainhazineh_m" DoCmd.OpenForm stDocName, , , stLinkCriteria Form_mainhazineh_m.mahp.Value = Form_mainform_m.Combo2.Value Form_mainhazineh_m.salp.Value = Form_mainform_m.Combo0.Value Form_mainhazineh_m.RecordsetClone.findfirst "[salp]= " & Form_mainform_m.Combo0.Value & " And [mahp]= " & Form_mainform_m.Combo2.Value & " And [shahrp]= '" & Form_mainform_m.Combo12.Value & "'" If Form_mainhazineh_m.RecordsetClone.RecordCount <> 0 And Form_mainhazineh_m.RecordsetClone.NoMatch = False Then Form_mainhazineh_m.RecordsetClone.edit Form_mainhazineh_m.RecordSelectors = True Form_mainhazineh_m.Bookmark = Form_mainhazineh_m.RecordsetClone.Bookmark Form_mainhazineh_m.RecordsetClone.Update Else Form_mainhazineh_m.RecordsetClone.AddNew Form_mainhazineh_m.mahp.Value = Form_mainform_m.Combo2.Value Form_mainhazineh_m.salp.Value = Form_mainform_m.Combo0.Value Form_mainhazineh_m.shahrp.Value = Form_mainform_m.Combo12.Value Form_mainhazineh_m.RecordsetClone.Update Form_mainhazineh_m.Bookmark = Form_mainhazineh_m.RecordsetClone.LastModified End If my problem is that when i must add new record to db, it only change the first record of table with values that i make them red then add a new record that all fields of it is empty. can anyone help me ?
I have a form that displays fields from two tables. I have set the properties of Allow Edit, Allow Additions, Allow Update, Data Entry to NO. However I want to allow users to be able to add new, edit/update and delete records from the form by clicking on respective command buttons.
the problem is that the code that I am using is giving me errors that says that I "You cannot go to the specified field" I need help on proper VB code to use that will allow me to enable input and update on the records in the table.
I'm accessing an iSeries database with MS Access and Client Access ODBC driver. This works fine for reports and such, but not for editing or updating.
Trying to use edit queries, I get error 3073 (..must use an updatable query). But if I just open a table in Access and don't use a query, you should be able to edit directly into the table. But for me, this isn't possible.:confused:
Hi all, I have a search form that pulls data from a query. The data is displayed in a subform. I would like the user to be able to edit the data from the subform. I have set all the allow properties to yes and it still doesn't work. Does this problem have anything to do with relationships.
Thanks to all, this forum has been a great help for me.
I have a form called contractors. It works exactly like I want it but it won't let me edit it. The form is based on a query. I have checked the query as stated to do on some areas of this forum and I am able to change it by typing something in a field and it also updates the form for me but I can't edit the form directly. I have allow edits, allow deletions, allow additions set to yes and I have no locks on it. Any ideas?
I have also checked help in access on this to no avail. I am attaching the database so somebody can hopefully help me.
A few years ago a consultant created a database for my company and trained one person on how to use it. Unfortunately, this person shortly left and the system was never used! I would like to get the system up and running, however I am a complete novice with Access and although I have figured out the basics I am having trouble with the one form that we use to enter data. Two of the drop-down or combo boxes must be completed by the person entering data in order for the record to be saved. How do we turn off this mandatory setting for each combo box? Or how do we add an option to the combo box that at least says N/A if the data enterer does not have the information on hand?
i have created a small application for my assignment using ms access. i apply several function to dis system. initially it works but then i dono why suddenly it came out wif an error sound which mean u cant even edit anything in the form..it sounds ridiculous but dis happened to dis system. i have checked all the properties settings for that form. i compared wif my previous system which i didnt apply the complex function which just pull some data from database. all seems ok wif the settings for the new one...
the below script in my query is to automatically increase the date by one year, this works fine but i would like to be able to back date the script if necassary.
i have checked the properties and the field is not locked. but it wont let me change the date.
i'm trying to work with this database. i want to know how to change a few things we have a command button that generates a letter i need to edit that letter as it contains names and numbers no longer in the office
is there a way i could find that letter
i tried to have sent to a .rtf file which i could modify, but that's tolerable for a dozen of recipient not 2 to 3 hundreds
I have just finished my first access database, well almost, one problem- I can't edit or type anything on my database when I am using a link to an xml workbook. If I just import the xml file to use on my database I can edit and save it but not when I used a linked xml worksheet. If I change the xml file entries in Excel, the changes appear on the linked database but it won't work the other way around - I can't even type anything in any of the fields. What have I done wrong and how can I remedy this problem? Any help would be much appreciated.
Is there a way to only let one user at a time edit or save to the table in the back end of my database? For example; I want it to pop up and say "you dummy there is another person with this file open"
Can I do this just incase two people try to edit the same table information???
Hi, I have a form called Edit Column, which contains two text boxes: ID and Description. The user types something in these two boxes and presses a button, and this button should take the value of ID and edit description for that particular ID in the table "Map". Here is the code I have written for it:
Dim d As Database Set d = CurrentDb Dim r As Recordset Set r = d.OpenRecordset("Map")
r.MoveFirst If r! = Me.Text1 Then [I]('Text1 is the text box where the user enters an ID) Do While Not r.EOF r.Edit r![Description] = Me.Text3 r.Update r.MoveNext Loop MsgBox "Successful", vbInformation Else MsgBox "This column does not exist in the Store", vbCritical End If
I have searched the forum and didnt find an answer to this. I have an Edit Form. When it is opened, it displays the first record. I have a Combo Box where I select the specified ID and the relevant record is displayed in the form. What I want is that the Edit Form should be appear blank. The record data should appear only when I select the relevant ID in the Combo Box. How do I achieve this? Please help.
I need to change the text of an object word, that many reports about 300, this change is repetitive once every two weeks and I want to do a funccion easier.
I get an Invalid or Unqualified Reference error with this code, highlighting !Comments. Comments is a Memo field in the tblSOftware table. The code is being run from a button on a form. Anyone got any ideas what's up??
Cheers,
Matt
Dim db As DAO.Database Dim rs As DAO.Recordset Dim strComments As String
'Setup Objects Set db = CurrentDb Set rs = db.OpenRecordset("tblSoftware", dbOpenTable)
'Set Index and Seek for record rs.Index = "Software Code" rs.Seek "=", Me.SoftwareCodeNew
'Get Text String strComments = Me.CommentsNew.Text
'Edit Record in Comments field rs.Edit !Comments = strComments
'Update and close recordset rs.Update rs.Close db.Close 'Do i need this line of code since I'm using the current DB? Set rs = Nothing Set db = Nothing
I've created an ADP project containingnumerous tables. One (and only one!) table in the set will not open in edit mode while in Access. Here are the particulars:
1) The table was created from scratch in SQL Enterprise Manager, 2) The table is editable in SQL Enterprise Manager, 3) The table permissions appear to be set correctly (and are the same as all the other tables which all allow editting in Access) 4) I open the Access project and double-click the table. The "add record" navigation button is disabled, and any attempt to edit a field elicits a "This recordset is not updatalbe" error. 5) However, I can open the table in Design mode in Access, make changes, and save them.
I have a query that gives me data from a table, and I then export it as text to Excel. In Excel I do some edits, insert columns with special characters as delimiters, then copy it into a JScript data set.
This all takes some time, and has a number of steps that need to be done in a certain order - prone to errors on my part...Is it possible to use VBA to make the changes in the query to reduce the manual steps perhaps even to remove Excell from the process entirely and just save the query to a text file?
The query has 5 fields: TxtProductCode Unique to each item curCurrentPrice The listed price txtHeading The Main description of the item txtDetails Additional details txtVender A name of who has the item
In Excel I change all instances of '"' to ' inch', then insert the delimiter fields, and the final line for the item looks like this:
