General :: Bound Form - Error No Current Record On Save
May 10, 2014
I have been working on a bound form that I can't seem to get working.
It records deliveries and what I am trying to achieve is after the form has been filled in the user will click a save button where the record will be added to the table and a record automatically printed via a report and emailed to the shop manager, but i keep getting the error "No Current record" no matter what way I try to do it, I have tried using to run the report. Is the best way for me to accomplish this o change it to an unbound for and run an insert query on click?
I have attached a copy of what I have been working on : DatabaseDelivery.accdb
I'm using: DoCmd.OutputTo acOutputForm, "Frm_EL_PL_Bulk_Send", acFormatPDF, outputFileName1...To save a form as a PDF. The issue is, it saves all the records in that set in continuous form, and I'm trying to get it to only save the record its on.
The following code is used in calculating the due date for actions. The due date for each action is calculated from a preceding action date, by adding a defined number of days. The relationship between the actions is defined by assigning the predecessor/preceding action.I am trying to use a nested loop to firstly assign the criteria data agaisnt which the rest of the record set must be checked in order to determine if the criteria data is a predecessor and than to use the predecessor's information to calculate the due date for the record being checked. I keep on getting a no current record error at the .edit inside the nested loop.
'**Calculate action Dates
Public Sub CalculateDates() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim NumOfRec As Long Dim CritCounter As Long Dim EvalCounter As Long
I have a bound form which is from tblEmployee, I'd like to have a dataset below (like a splitform but not a split as they have limits) so when i search in the box it gives me say all the smiths - i select for example david smith and it displays his information in the form objects above so they can be edited?
I have a Contacts form which has a Calls sub-form which itself has a Subjects sub-form. From the Contacts form the user can click a button which writes a pro-forma letter from a selection. The application then updates the Call & allows the user to select the Subject(s) from the Subjects available (drop-down menu). If the user wants to write a second letter immediately, I get the above message. If they do anything else first, they are OK. I have tried refreshing the Contacts form & each of the others at various points in the process, explictly saving the record (caused another error) etc. without success. Can you help?
I am working on a web database with a form which is bound to an underlying web table where the submissions occur.My challenge is that the fields on the form get submitted to the table even before the submit button is clicked regardless of whether the form was completely filled.
My request is that I want the form to only submit to the submission table only when the submit button is clicked.When I searched on the net, the only solutions I got are VBA written code but my web database cannot use VBA code.
VBA code:
Option Compare Database Option Explicit Private blnGood As Boolean Private Sub cmdSave_Click() blnGood = True Call DoCmd.RunCommand(acCmdSaveRecord) blnGood = False End Sub
I'm looking to add a button to my Customers form which will mailmerge the current record to a Word template and then save the Word doc as a new file (Ideally the customer's name).
I've looked at the Super Easy Mailmerge but I can't work out how to implement it without all of the variables (selecting documents etc.).
The files will all be saved to one location (C:CustomersExports) and this won't change.
This is also the location of the mailmerge template (C:CustomersExportsTemplate.docx)
How do i save a record as soon as text is entered into the textbox in a form?I need it to save without moving on to the next form without having to click a button
I have 2 form, form1 and form 2 (picture attached)
In Form 1 (main form) there are "reference" field with key pressed event then call form 2 (list of reference that user can choose)
In form 2 the problem is, when "enter" key pressed (keypress event), selection will move to next record so the data that transferred to form 1 is wrong (next record)
The question is : how to save current record in form 2 before enter and send the data to form 1
But what I need is that before printing, open the preview to set the margins and page size ... or at least to pre-configure so that when you press the button, and comes preformatted.
So I have this relatively simple problem: I need to create a button that once clicked will open the Save As dialog box and allow the user to save a copy of the current database where he wishes. The filename should contain todays date in DDMM format along with some pre-set text e.g. DDMM PresetText.
We have a database stored on a network drive used by a number of people across the organization over a Windows XP Network. I have an strange issue where some users get the error attached when trying to amend a record. However other users are able to amend the very same records. All the relevant user/windows permissions are identical. There is no security/permissions settings on the database for it to behave in this manner. The record seems to lock itself the moment you try to edit it.
I am working on a database and i have notice after making a form that when i enter a record using a form if i enter incomplete data on the form access automatically save that record and generate a id for that record.
For example I have a table that contain
StudentID,StdName,FatherName,DOB,Adress,Phone
And I have created a form for that table that also containing these fields.
Here I want to do that on the form I want a "Save" button , and the purpose of this button that when I click on this button then MS Access Save the record and then generate the ID for that record and if i close my form without pressing "SAVE" button access do not save that incomplete record.
I'm setting up a college database. On my enrollment form i have the following fields
Enrolment_ID Student_ID Course_ID
I'm receiving the error in my Student_ID field. It's telling me a related record is required in my Student Table.
The drop down shows the student name/date of birth/Education number
But if i set it to just show the ID it works fine, is there a work around for this as it will make life a lot easier for the dropdown to display the student names rather than the ID?
The dropdown is based on a query i have of accepted students....
I have a access program and recently I began getting this Error out of the blue . I really need to fix this error because it shuts down my entire program . When I go to save a pic like i always do and it will not recognize the "quote Main ".
I am looking for a complete working example of a fabricated ADO recordset bound to a form. The purpose of this is to provide a selection tool for records of a table in a multiuser database.
I could do this using a table to store the selections in the db, but I want to get a tool I can reuse in the future, obviating the need for extra tables and keeping track of users and multiple copies of the application ran by the same user.
So far I can display MEMO text, all the other values of my recordset (yes they are present) generate #ERROR in the form controls.Yes I did google. Apparently I am not the only one with this problem, but the solutions range from bizarre to weird.
My database was working fine. Now, if I have to save or edit a record, I get a message Run time error 2107. The value you entered does not meet the validation rule defined for the field or control. I am able to enter and edit new records in the table. I did not change any validation in form. Then it goes to debug mode and highlighted this code (me.recordsource=Listsql - is highlighted)
Private Sub ListSearch_Click() Dim dBS As Database Dim Rst As Recordset Dim Listsql As String Set dBS = CurrentDb() Listsql = "Select * from MasterData where employeeid ='" & [Forms]![MASTERFORM]![ListSearch] & "'"
I have a small bug here which I can't seem to find a way round.
I have a subform setup to show Engineers assigned to a call. In the subform header I have a Command to add new Engineers. When this is pressed the form is changed to a Data Entry form to allow additions. This all works perfectly where there is an existing engineer on the Database.
The problem is with calls where there is no current engineer assigned.
With these calls I get an error popup saying "No Current Record" before the Data Entry screen comes up. Once the Data Entry screen comes up then an ID is assigned correctly and you can input fine so I am really just looking to see if there is a way to suppress the No Current Record popup.
I get this error when I delete more than one record consecutively.
Here is my delete code;
Private Sub Komut98_Click() Dim blnLast As Boolean 'MsgBox call must return the value in order to be checked. 'If user says no then cancelling is not required. It is only required ' that the deletion command is not invoked.
I have a report that shows weekly schedules (each week start with Sunday date for the row) for multiple teams (columns). It prints 1 year at a time.I have to add the Sunday dates by hand into the table for each year. I have added 2016 but when I generate the report I get a "no current record" error.By the way, I am not a "programmer" but I can usually figure out whats going on when we have a problem by looking at other code in the system and by finding answers for similar problems on the forum!!
I have a vba code export a error message if the current date of a file is not correct.. I have tested the code it worked to send a error message to a error.txt file but he it doesn't look to the modified date
So instead of:
file1.txt (13-02-14) Then Send error message ("file not updated") to: Error.txt
IF NOT no action requeried
This code does the following :
file1.txt (Modified date: 13-02-14) Then Send error message ("file not updated") to: Error.txt
file2.txt (Modified date: 14-02-14) Then Send error message ("file not updated") to: Error.txt
Code: Sub CheckD() Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject") Dim objFile As Object: Set objFile = FSO.GetFile("C:Users ameDocumentsShow5621.txt") If objFile.DateLastModified <> Date - 1 Then
[Code] .....
So also if it is the current date he send the error message to the error.txt file, it could be possible that i did something wrong.
I have have a form with 4 subforms in it, one of the subforms is based on a filtered query . For a reason I can not work out I cannot get it to requery when I add a new record.
To add a new record I select from a combo box and use a command button to save the record
I have tried using this in the buttons on click event
After I enter data into one field in a record I would like the form to save the record when I move to another field in the same record. It seems that the record is only saved when I exit it entirely. Is there a way to save a record when moving between fields in that record? Can this be done without using an Event Procedure for each field?
I have synchronized a form with a subform with the following code:
Private Sub YourField_DoubleClick() 'this code is behind the subform Dim rs As Object Dim strLinkValue As String 'value in link field of the subform strLinkValue = Me![NameOfLinkFieldOnSubform].Value Set rs = Forms!YourMainForm.Recordset.Clone rs.FindFirst "[NameOfLinkFieldOnMainForm] = '" & strLinkValue & "'" Forms!YourMainForm.Bookmark = rs.Bookmark End Sub
Every thing works fine but now I would like that the row in subform remains selected in the subform when the user doubkeclicks the record in the subform.Now after doublecliking the subform highlight the first row.