Folk,
I'm using the default command to add a new record in a table:
DoCmd.GoToRecord , , acNewRec
The question is: How I can cancel the new record inclusion on table? It's possible?
Thanx a lot,
Maikon
I have a form and a subform in it. I added New cancel button in the form so that the the user can cancel the record creation and no record will be inserted in the parent table.
But when details are entered in the subform (a datasheet) row records will be created in the subform table. what is the correct method or how to cancel these records if the user choose to click cancel button on the parent form.
I am trying to get my program to cancel a send e-mail command if certain things aren't filled out. Instead it is supposed to pop up with a message and then put the pointer in that field. The message box pops up, but the e-mail command is not cancelled. Can someone please tell me what I am doing wrong?
Private Sub SubmitAddCmd_Click()
On Error GoTo Err_SubmitAddCmd_Click
Dim stDocName As String
Dim strEmail As String
Dim strMailSubject As String
Dim strMsg As String
Dim strCopy As String
'Make sure MMS Job# is entered
If IsNull(MMSJob) Then
MsgBox "Please enter the MMS Job#"
[MMSJob].SetFocus
Cancel = True
'Make sure Client's name is entered
ElseIf IsNull(Client) Then
MsgBox "Please enter the Client's name"
[Client].SetFocus
Cancel = True
'Make sure job name is entered
ElseIf IsNull(Job) Then
MsgBox "Please enter the job name"
[Job].SetFocus
Cancel = True
'Make sure CSR name is entered for this job
ElseIf IsNull(CSR) Then
MsgBox "Please enter the name of the CSR for this job"
Cancel = True
'Make sure date job submitted button was clicked
ElseIf IsNull(Submitted) Then
MsgBox "Please click on the 'Date Job Submitted' button"
'[SubmittedCmd].SetFocus
Cancel = True
'Make sure mail date was entered
ElseIf IsNull(MailDate1) Then
MsgBox "Please enter a mail date for this job"
' [MailDate1].Value
Cancel = True
End If
'E-mail booking sheet to scheduling office in snapshot format
stDocName = "BookingRpt"
strEmail = "jhutton@merklenet.com;jsayers@merklenet.com"
strCopy = "rgarneriii@merklenet.com;"
strMailSubject = MMSJob & " " & Job
DoCmd.SendObject acSendReport, stDocName, acFormatSNP, strEmail, strCopy, , strMailSubject
Exit_SubmitAddCmd_Click:
Exit Sub
Err_SubmitAddCmd_Click:
MsgBox Err.Description
Resume Exit_SubmitAddCmd_Click
'Add new record
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
End Sub
learnasugo
I have a form with a control for the user to enter some data and then two command buttons 'OK' and 'Cancel'
For the OnExit event in the control I have a procedure that check the user input and if incorrect, opens a message box with an error message asking the user to correct the data. It then cancels the event so the focus remains in the current control.
However if the user presses the 'Cancel' command button on the form to cancel & close the form, the OnExit event for the current control still fires and asks the user to correct the data.
In my code in the control, how can I recognise that the Cancel command button has been pressed, so I can cancel the OnExit event and close the form?
I have a form (Pipeline) with an on load event that automatically directs the user to a new empty record.
Code:
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub
Now my problem is that I am trying to design a 'search form' that will allow the user to look up a specific record in the main form by pressing a command button. Creating the search form is easy enough. I cannot figure out how to override the on load event in the main form when pressing the command button.
As it is right now, the button opens the form and then go directly to a new record.
am using VB to check for an id if it is a new record. i have a message that pops up.
If IsNull(Form_myform![ID].Value) Then
response = MsgBox("You have not entered your ID. Do you intend for this to be a record?", vbYesNoCancel, "id check")
but how do i get it to not enter the record into the table if no or cancel is clicked?
When I launch my modal, I want the user to be able to 'cancel' without creating a new record. It's not doing that and creating extra 'junk' in my table. How do I prevent that?
Here's my code:
Private Sub Btn_Exception_SubModal_Click()
DoCmd.OpenForm "Frm_Exception_UpdateModal", acNormal, , acFormAdd
Forms! [Frm_Exception_UpdateModal]![clientnmbr].value = Me![clientnmbr].value
End Sub
Hi
I wrote code that should validate a field when entering a new record and then if a condition is true, that new record should be cancelled and not entered into the table.
I managed to partially achieve this by writing the code below, but the new record does not get cancelled because the table will still create a PK for that record and leave the rest of the fields empty. I am using an autonumber for the PK that's why the table creates it automatically What I want to achieve is to cancel the creation of a new record at once, I don't want even PK created for that new record.
I used the CancelUpdate because I thought it would cancel the record creation, but it did not! When I read about it it said that I need to use it with either Edit or AddNew, (which i don't understand why!) but it still does not work.
Private Sub PlotNum_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_msg
Dim db As DAO.Database, rs As DAO.Recordset
Dim n As Integer, i As Integer
Dim vPlotNum As Integer
Dim vPhaseID As Integer
vPhaseID = Forms![frmHouse].Form![PhaseID]
vPlotNum = Forms![frmHouse].[qryHouse2].Form![PlotNum]
Set db = CurrentDb
Set rs = db.OpenRecordset("tblHouse")
rs.MoveLast
n = rs.RecordCount
rs.MoveFirst
If n > 0 Then
For i = 1 To n
If rs![PhaseID] = vPhaseID Then
If rs![PlotNum] = vPlotNum Then
rs.Edit
rs.CancelUpdate
MsgBox "This plot number already exist in this particular phase." & vbCrLf & "Please choose a different Plot Number"
Forms![frmHouse].qryHouse2.Form![PlotNum].Text = ""
End If
End If
rs.MoveNext
Next i
End If
rs.Close
db.Close
Set db = Nothing
Set rs = Nothing
Exit_Err_msg:
Exit Sub
Err_msg:
MsgBox Err.Description
Resume Exit_Err_msg
End Sub
Any suggestions will be very much appreciated.
Thanks.
B
I have the following age calculation query:
Age: (Now()-[DOB])365
It works a treat! However, I do not want this to continue to calculate if the record has them as deceased - I want it to stop at their date of death.
I have a tick box that when selected indicates that this record has died, and a field where you can enter date of death.
Is there some way that via clicking this button, or by entering a date of death, I can stop the Age Query from calculating for just that relevant record, not all of them? If so, where to place the necessary VBA, etc?
I have a cancel button on an add new record form and its not working for some reason. When I press cancel it prompts if I really want to cancel and when I press yes it cancels the record creation BUT it adds a number to the recordID autonumber as if one has been created. Is there anyway to stop this? Here is my code
Option Compare Database
Private Sub Cancel_Click()
On Error GoTo Err_Cancel_Click
If Me.Dirty = True Then
[Code] .....
Hi all,
In access database project where my tables are linked from MSSQL server, how can I add record from the FORM itself using command button. Bcz it is not like mdb files in access that you can just drag a command button onto the form and take an action like add, delete, print or find rec. I just came to know it from immediate window using following SQL line;
Docmd.RunSql "Insert........
This is ok but how it could be done thru a command button on FORM.
Thanks in advance.
With kind regards,
Ashfaque
I have a form which i have added an ADD RECORD command button too. how I can change the code so it only looks at certain fields to add data too, fields, i.e field 1, field 3, field 5.
View 1 Replies View RelatedI know you can create a find record command button really simply, which when clicked will display the find and replace window.
What i want to do is create a command button that will search a specific field that i specify in a report for the criteria i enter.
i.e i have a customer information form, which contains
AccountNo
CompanyName
Address
Postcode
Tel etc
what i want is a button that when clicked brings up an input field that allows the user to type the name of the company into this field, then when either the enter key is pressed or another button on this pop up window the matching record will be displayed or a error window stating that there are no matching records. Can anyone help me with this.
Hi,
I have a form that contains 2 subforms:
Purchase Order (Supplier, Order Date, Tel etc)
Purchase Order Details (Item Description, Quantity, Price etc)
This way I can have several items in 1 purchase order.
I now need to create a 'New Purchase Order' button. I've tried doing this but it only creates a new record for the form where the button is placed i.e. if the button is in the 'Purchase Order' form a new record is created for Purchase Order but NOT purchase order details.
Is there a way I can get the button to add a new record to 2 forms at the same time?
Thanks
Hi all,
I have a database for customer enquiries, and there is one record per product that the customer shows interest in. I want to have a button on the enquiry details form that creates a new enquiry but automatically fills in the contact details from the previous record.
Please also note that I do not wish to "normalize" this so that there is a seperate table for contacts and another for enquiries; it's much easier from our point of view to have the whole enquiry in one record, especially as this is a stand-in database before a fully integrated CRM is implemented. In any case most of the other data (e.g. product, category etc) is already stored in separate tables.
What sort of method do I need to use to create a Command Button that:
-Creates a new record
-Copies and Pastes data from selected fields into the new record?
I tried using the command button wizard for sample code but I got paste errors which were pasted into a new table, and I don't really understand the process of how this works as the Commands are numbers from a list (apparently in the macro window), which I can't find.
I'm using Access 2003 but the database file is in A2000 format. The code is below.
Thank you!
Private Sub ContactAddEnq_Click()
On Error GoTo Err_ContactAddEnq_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_ContactAddEnq_Click:
Exit Sub
Err_ContactAddEnq_Click:
MsgBox Err.Description
Resume Exit_ContactAddEnq_Click
End Sub
Hello all:
Code:
Private Sub DeleteRecords_Click()
Dim db As Database
Set db = CurrentDb
db.Execute "Delete * FROM tblJune 2005 applicants;"
End Sub
I am trying to delete all records from a dabase created in access. When I click the command button, I get this message: "User-defined type not defined"
Any suggestion on how to fix this error?
Many thanks in advance,
Dion
I have two table tbl_Employees and tbl_Femp my users use a form daily and now with help of baxter i'm finishing up on a new one. On my old form it was bounded and with a two step process check box and command button my users would send former employees to the former employees table, well i'm now using an unbound form and with the same script it will select all records and try to move them to the former employees table. here is my code:
Code:DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70Exit_saverecordcommand_Click: DoCmd.RunSQL "INSERT INTO tbl_Femp(FempID, FempLast, FempFirst, FempAdd, FempCity, FempZip, FempHomePhone, FempSSN, FempDOB, FempRank, FempRetCategory, FempComments, FempHireDate, FempRetDate) Select EmpID, EmpLast, EmpFirst, EmpAdd, EmpCity, EmpZip, EmpHomePhone, EmpSSN, EmpDOB, Rank, RetCategory, EmpHireDate, RetDate, RetComments from tbl_Employees where Retiredarchive =Yes"DoCmd.RunSQL "DELETE * from tbl_Employees where RetiredArchive = Yes"
Can some1 please tell me where i'm going wrong? thanks in advance...
I have set up a work order database. On the Work Order Submission form I have
a command button that adds the record to the table. I also have a button to
email the Submission Report. When the user fills out the form and clicks the
Add button the record is added to the table. The user then has to scroll to
have the record reappear in the form and then click the Email command button.
This works fine but I want to make this a one click operation.
I have a filter on the report that will be emailed to limit the report to just the current
record. The filter is:
[ID] = Forms![WO Submission]![ID]
where ID is the Primary Key for that record. If the record has not yet been
added to the table and thus has no primary key, the report to be emailed
will contain no record info.
I'm thinking I may have to use a temporary table but I'm clueless about how
to make that work.
Any suggestions?
Hi All,
I have a form called "frmProducts" which is linking to table "tblproducts".
Easy Enough...
The form shows all the Products information (fields).
I have a "More Info" command button (cmdMoreInfo) next to every record in the form.
When the command button is clicked I would like it to open up another form "frmMoreInfo".
But On frmMoreInfo I would only like it to show that specific product.
I have tried the following code on the on click event on the command button but it was always asking me for the value of Form![frmMoreInfo]![txtInternalCode]
Code:Private Sub Command12_Click()On Error GoTo Err_Command12_ClickDim stDocName As StringDim stLinkCriteria As StringstDocName = "frmMoreInfo" stLinkCriteria = "Form![frmMoreInfo]![txtInternalCode]=" & Me![txtInternalCode]DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command12_Click:Exit SubErr_Command12_Click:MsgBox Err.DescriptionResume Exit_Command12_Click End Sub
Any Ideas?
I would like to develop a command button that archives the current record displayed in the form - my intent is to move that record from one table to another - a sort of automatic cut and paste from one table to another...can anyone help???
View 4 Replies View RelatedI 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
Code:
Forms.trialcatalogueF!TrialCompetitorsSF!competitorsSF.Form.Requery
with no result, however it does kinda work in the combo's after update event, just not until I select another value.
I have a form named CORRES_TYP with 3 text boxes and a list box. I also have a separate table with 3 field from where the information I put in the form was saved.
In my form whenever I put information on the textbox at hit add record button, these information are saved in my table and will reflect on the listbox on my form below the textboxes. Also if I select a record in the Listbox the record I selected will apprear on the corresponding textbox in the same form.
My problem is that I have been trying to create a command button that will save and change the existing record everytime I select an item in the list box and modify the information through the textbox. Here are some infromation about my table and form:
Table name = CORRES_TYP
Field 1 = CODE (Primary key, No Duplicates)
Field 2 = DESCRIPTION
Field 3 = FOLDER
Form name = CORRES_TYP
Textbox 1 = CODE
Textbox 2 = DESCRIPTION
Textbox 3 = FOLDER
Listbox name = LIST14
I have a problem with trying to execute a command for each record in a recordset. What I'm trying to build is a file distribution system. I have a form with the path where the source file is and a subform with a couple of records where the destination path is defined. I use the code you will find below, but it will only copy the file to the destination from the first record.So the code will do the filecopy command for every destination.
Code:
Dim Sourcepath, Destinationpath
Sourcepath = Forms![Item distribution]![Item source path]
Destinationpath = Me.Destination_path
Dim rs As DAO.Recordset
Set rs = Me.Form.Recordset
[code]....
I have created Command buttons on forms with VBA code. Records GoTo previous and GoTo Next Record so both of working is good. But Next Record command is force to a new record. If suppose when we clicking on last record. It is go to new record without any message. So No need to force a new record with Next Record Command. Only just move to next record if there is no records show a message. Below mentioned both VBA codes so there is any changes on GoTo Next Record Code?
VBA Code:
Go To Previous Record : DoCmd.GoToRecord , , acPrevious
Go To Next Record : DoCmd.GoToRecord , , acNext
I am designing a database to manage hospital patient data. I will have to enter info at various points, e.g. when a patient is referred, admitted, discharged...
So for example, I have a main form with the patient's name and two subforms, one with the referral details (e.g. date, name of referrer...), and one with the admission details (e.g. date, diagnosis). They are linked through Parent-child links to the main form by PatientID. So, when I enter a new PatientID in the main form, the ID in the subforms is automatically added/synchronized.
However, I would like it not to be...since not all patients that are referred are then admitted. Therefore I would like to have a command button in the main Form that allows me to control when a new patient record is added to the admission subform. In other words, I would like an "Add a new Record in the admissions subform" button, which then creates a new record, with matching PatientID in the admissions subform (and in the related table). Is this possible???
I have tried using the command button wizard but it either requires a record to be already present in the subform, or it takes me to the first record of the form, and not the matching PatientID one.
Is there a way to create a new record by clicking a command button but to show the same text boxes shown in the attachment in the next record.
View 1 Replies View Related