I have a form that has a single bound text box that is set to currency. The table is also set as currency with decimal places set at 2. I have my own save button
Now I want to catch if the user types in text instead of numers and display a suitable error message.
When the user presses the save button I call this code:
DoCmd.RunCommand acCmdSaveRecord
heres the before update event
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo errHandle
If Not IsNumeric(hourlyRate) Then
MsgBox "Please enter a number for the hourly rate", vbInformation
hourlyRate.SetFocus
Cancel = True
Else
If (hourlyRate < 0) Then
MsgBox "Please enter a positive hourly rate", vbInformation
hourlyRate.SetFocus
Cancel = True
End If
End If
Exit Sub
errHandle:
MsgBox Err.Description & " " & Err.Number
Resume Next
End Sub
However the update event isnt called and I get an access message saying that the value you entered isnt correct for the field blah blah blah.
Q - How do I stop this access message from being shown???
btw - If I enter in a negative number my message box is shown, and then i get another access message saying that the run command was cancelled.
I am in a form that someone else created. It has 3 tabs to the form. It is almost like Excel, but the tabs are at the top, as opposed to the bottom. Are they called tabs, pages, or subforms or something else? I can't figure out how to add one to a different form I have created.
What I want to do, is have an unbound form, user enters data in to it, then clicks on a 'save' button which then writes the data to a new record within a table
I have got no idea what it is called so find it hard to do the search.
I not sure what I'm doing wrong here. I have searched several forums and "think" I'm doing this the same way.
I'm trying to validate some fields before allowing the record to be saved, which if the user doesn't fill in the appropiate fields then the msgbox does fire, and the record is not saved but my problem is that I don't want the form to close. I would like to force the user back to the form and fill in the required fields. Any idea's as to why the forms closes?
Here's my code.
Dim ctl As Control
For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then With ctl If ctl.Tag = "Required" Then If ctl.Value = "" Or IsNull(ctl.Value) Then Me.PartNumber.SetFocus MsgBox "Missing data" Cancel = True ctl.Undo End If End If End With End If
I've got a mental blank, I want one of those things that is a text box with little up and down arrows on the right so you can choose a number. What's it called?
I have the following code entered on a subform:Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.RegVerify = -1 And Me.RegStatus = 0 Then Dim strMsg As String strMsg = "This household has not been registered." & Chr(10) & Chr(10) & _ "Do you wish to register the household now?" If MsgBox(strMsg, vbQuestion + vbYesNo, "Register Household?") = vbYes Then Me.RegStatus = -1 Me.CurrentYearRegDate = Format(Now(), "mm/dd/yyyy") Else End If End If End SubThe code is placed on the subform 'Form_Main_Hshld' with the intention that if the 'RegVerify' checkbox is selected the data entry person will receive a reminder that they did not register the current household. The code seemed to work fine, but there are 4 subforms on the 'Form_Main_Hshld' form and if any of those are selected the code will run inadvertantly. Is there anyway to code so that the program only runs the verification process when moving between records on the 'Form_Main_Hshld' form?
I'm a total novice with VBA/Access so would desperately appreciate some help!
After making some amendments to an Access form I didn't set up, I came across a runtime error 2115 (about BeforeUpdate).
I think that the code I have causes a further set of data input boxes to appear, dependent on whether 2 separate checkboxes are ticked or not. Anyway, the only thing I changed to the database that I can think of was adding an autonumber to the main table. It all seemed to be working before I did that.
Any help on this is much appreciated. (and yes, I've learned my lesson and won't be touching somebody elses database again!!)
Thanks.
This is my code (I'm afraid I've posted it all as I don't know which bit is useful)
Option Compare Database
Private Sub Combo39_AfterUpdate() Refresh End Sub
Private Sub Coroner_PM_BeforeUpdate(Cancel As Integer) If (Forms![Death Certificate DB]![Coroner PM] = False) Then Forms![Death Certificate DB]!Label22.Visible = True Forms![Death Certificate DB]!Label23.Visible = True Forms![Death Certificate DB]![Cause of Death 1(a)].Visible = True Forms![Death Certificate DB]!Label24.Visible = True Forms![Death Certificate DB]![Cause of Death 1(b)].Visible = True Forms![Death Certificate DB]!Label25.Visible = True Forms![Death Certificate DB]![Cause of Death 1(c)].Visible = True Forms![Death Certificate DB]!Label26.Visible = True Forms![Death Certificate DB]![Cause of Death 2].Visible = True Forms![Death Certificate DB]![Box21].Visible = True End If
DoCmd.RunCommand acCmdRefresh
If (Forms![Death Certificate DB]![Coroner PM] = True) Then Forms![Death Certificate DB]!Label22.Visible = False Forms![Death Certificate DB]!Label23.Visible = False Forms![Death Certificate DB]![Cause of Death 1(a)].Visible = False Forms![Death Certificate DB]!Label24.Visible = False Forms![Death Certificate DB]![Cause of Death 1(b)].Visible = False Forms![Death Certificate DB]!Label25.Visible = False Forms![Death Certificate DB]![Cause of Death 1(c)].Visible = False Forms![Death Certificate DB]!Label26.Visible = False Forms![Death Certificate DB]![Cause of Death 2].Visible = False Forms![Death Certificate DB]![Box21].Visible = False End If
End Sub
Private Sub Form_Current() 'NEW If (Forms![Death Certificate DB]![Coroner PM] = False) Then Forms![Death Certificate DB]!Label22.Visible = True Forms![Death Certificate DB]!Label23.Visible = True Forms![Death Certificate DB]![Cause of Death 1(a)].Visible = True Forms![Death Certificate DB]!Label24.Visible = True Forms![Death Certificate DB]![Cause of Death 1(b)].Visible = True Forms![Death Certificate DB]!Label25.Visible = True Forms![Death Certificate DB]![Cause of Death 1(c)].Visible = True Forms![Death Certificate DB]!Label26.Visible = True Forms![Death Certificate DB]![Cause of Death 2].Visible = True Forms![Death Certificate DB]![Box21].Visible = True End If
If (Forms![Death Certificate DB]![Coroner PM] = True) Then Forms![Death Certificate DB]!Label22.Visible = False Forms![Death Certificate DB]!Label23.Visible = False Forms![Death Certificate DB]![Cause of Death 1(a)].Visible = False Forms![Death Certificate DB]!Label24.Visible = False Forms![Death Certificate DB]![Cause of Death 1(b)].Visible = False Forms![Death Certificate DB]!Label25.Visible = False Forms![Death Certificate DB]![Cause of Death 1(c)].Visible = False Forms![Death Certificate DB]!Label26.Visible = False Forms![Death Certificate DB]![Cause of Death 2].Visible = False Forms![Death Certificate DB]![Box21].Visible = False Else End If
End Sub
Private Sub Hospital_PM_AfterUpdate()
If (Forms![Death Certificate DB]![Coroner PM] = False) Then Forms![Death Certificate DB]!Label22.Visible = True Forms![Death Certificate DB]!Label23.Visible = True Forms![Death Certificate DB]![Cause of Death 1(a)].Visible = True Forms![Death Certificate DB]!Label24.Visible = True Forms![Death Certificate DB]![Cause of Death 1(b)].Visible = True Forms![Death Certificate DB]!Label25.Visible = True Forms![Death Certificate DB]![Cause of Death 1(c)].Visible = True Forms![Death Certificate DB]!Label26.Visible = True Forms![Death Certificate DB]![Cause of Death 2].Visible = True Forms![Death Certificate DB]![Box21].Visible = True End If
DoCmd.RunCommand acCmdRefresh
If (Forms![Death Certificate DB]![Coroner PM] = True) Then Forms![Death Certificate DB]!Label22.Visible = False Forms![Death Certificate DB]!Label23.Visible = False Forms![Death Certificate DB]![Cause of Death 1(a)].Visible = False Forms![Death Certificate DB]!Label24.Visible = False Forms![Death Certificate DB]![Cause of Death 1(b)].Visible = False Forms![Death Certificate DB]!Label25.Visible = False Forms![Death Certificate DB]![Cause of Death 1(c)].Visible = False Forms![Death Certificate DB]!Label26.Visible = False Forms![Death Certificate DB]![Cause of Death 2].Visible = False Forms![Death Certificate DB]![Box21].Visible = False End If
End Sub
Private Sub Hospital_PM_BeforeUpdate(Cancel As Integer) If (Forms![Death Certificate DB]![Coroner PM] = False) Then Forms![Death Certificate DB]!Label22.Visible = True Forms![Death Certificate DB]!Label23.Visible = True Forms![Death Certificate DB]![Cause of Death 1(a)].Visible = True Forms![Death Certificate DB]!Label24.Visible = True Forms![Death Certificate DB]![Cause of Death 1(b)].Visible = True Forms![Death Certificate DB]!Label25.Visible = True Forms![Death Certificate DB]![Cause of Death 1(c)].Visible = True Forms![Death Certificate DB]!Label26.Visible = True Forms![Death Certificate DB]![Cause of Death 2].Visible = True Forms![Death Certificate DB]![Box21].Visible = True End If
DoCmd.RunCommand acCmdRefresh
If (Forms![Death Certificate DB]![Coroner PM] = True) Then Forms![Death Certificate DB]!Label22.Visible = False Forms![Death Certificate DB]!Label23.Visible = False Forms![Death Certificate DB]![Cause of Death 1(a)].Visible = False Forms![Death Certificate DB]!Label24.Visible = False Forms![Death Certificate DB]![Cause of Death 1(b)].Visible = False Forms![Death Certificate DB]!Label25.Visible = False Forms![Death Certificate DB]![Cause of Death 1(c)].Visible = False Forms![Death Certificate DB]!Label26.Visible = False Forms![Death Certificate DB]![Cause of Death 2].Visible = False Forms![Death Certificate DB]![Box21].Visible = False End If End Sub
Private Sub Place_of_Death_AfterUpdate() Refresh End Sub
In Access 2000, I am using a form with fields for TimeStarted and TimeFinished. After the user has filled in the TimeStarted, the After_Update event sets TimeFinished to one hour after that. I would like to use what I think are called "Spinners" so that the user could simply click on increment or decrement buttons to change the FinishTime.
I'm not sure about the name of the feature, so it is hard to find help to get started. Would appreciate any guidance. Thanks, Andrew Thorpe
Hi, I have a strange issue. Every now and then, when i start up my database (still in development) it either asks me for a value thats used in a sql command, or faults with an error saying it cant reference a value. The stragne thing is that the values that get pinged are not set until im a few forms into my database, and shouldn't even be thought about by the database yet. Is there something im missing here?
An example, It asks for a change reference number on login form load, however that value isn't called until a button is pressed on the menu form which loads the change form. That same button sets the change number
Hi, To make a long and tedious story short: Does anyone know why Access (2003) creates an index called PrimaryKey and an index called User_ID when I'm in the table design view and ask it to make the User_ID field the primary key?
After years of database development I've only just noticed this. Not normally not a problem but for this: Use ADOX to find the field name of the primay key for a table. I took the code right out of a Access 2000 developers handbook. It creates a collection of the table indexes and steps through them one at a time checking if the PrimaryKey property is true. It hits the index called PrimaryKey and says 'yes it's true, this is the PK', I then go on to use the index.name property in an SQL Select to create an ADO recordset. The only thing is that the index called PrimaryKey is not a field name and the field name User_ID is not a PK :eek: I go into the indexes list in table design and delete and re-create the indexes and PKs as I want and the code works fine.
So, again, why does Access do this? I'm so confused! :confused:
I have pasted the code that SJ posted on another thread that any changes to a record will ask the user to save before closing the form, this located in the beforeupdate event.
Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Save changes?", vbQuestion + vbYesNo) = vbNo Then Cancel = True End Sub
The problem i am getting is that if the user selects no it pops up another message saying "You can't save the record at this time" followed by a description. How do i prevent this second message appearing i cannot find a thread with this in?
I have a form where I want to validate enties before moving off the record.
I put my validation in the BeforeUpdate event of the form. If validation fails, then I set Cancel=True. So far, so good.
But if the user closes the form (either with my close button, or the standard close button), or presses 'Page down' to move to the next record, then even if validation fails, the form will close (or move record). What I want is for the user to be left with the form open, on the current record.
Question - How do you do data validation during the BeforeUpdate event? How do you halt the event without getting an error message?
I have tried the following:
If (Me.Control.Value <> "") Then 'Do nothing. Else Msgbox "Please enter a value for Control." Cancel = True End If
When Cancel = True is executed, I get the following message: You can't save this record at this time. DatabaseName may have encountered an error while trying to save a record. If you close this object now, the data changes you made will be lost. Do you want to close the database object anyway?
I can't seem to halt or "cancel" the BeforeUpdate event without getting this error message. After hours of looking for this answer, any suggestions would be appreciated.
Is the calling Form name or the event handler's sub name available in called module? I need it in order to determine the form's name as in [Forms]!someformname!some control.
Is there an easy way to propogate a value from one form to another?
I have two forms: Form A and Form B
Form A is the main: it contains many field including a Supplier CB. Form B allows the user to add a new supplier if it is not on the list..
Form A allow user to pick a list from the table of suppliers. I allowed edit ietm list in the properties to add the list of suppliers to grow as new supplier are entered. I pointed the user to Form B ton enter the new supplier.
Things going well as I planed, however it is annoying when I enter the new supplier in Form A and respond "yes" to add new items I have to retype the new supplier in Form B again. I have about 11 fields in Form A that will follow this theme. This will not be user friendly if not fixed.
I have a mainform with a search function so the user can select a record to view and update. The selected record is displayed in Subform1 on Page1 of a tab control. The record source of this form is Query1. Page2 of the tab control contains Subform2; record source is the result of Query1 joined to Query2.
The forms correctly displays, updates and adds records my problem occurs when I add VBA code to the BeforeUpdate event of a control on Subform1. The code appears to execute once for each page in the tab control.
Has anyone any suggestions on how I can correct my problem.
I've got my form working, and all of the record updating is working fine, so now I am working on error trapping. I need to check if any of the two textboxes are empty, or nothing has been selected from the combobox. I am using the BeforeUpdate method. I am not getting any syntax errors. I am using an INSERT INTO SQL statement. Thanks.
related DB fields: SOPNumber (text) RevisionNumber (text) TrainingDate (date/time)
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.cboSOPNumber) Then Cancel = True MsgBox "The SOP number is required", vbOKOnly, "Notice" Me.cboSOPNumber.SetFocus End If
If IsNull(Me.txtRevisionNumber) Then Cancel = True MsgBox "The Revision Number is required", vbOKOnly, "Notice" Me.txtRevisionNumber.SetFocus End If
If IsNull(Me.txtTrainingDate) Then Cancel = True MsgBox "The training date is required", vbOKOnly, "Notice" Me.txtTrainingDate.SetFocus End If
I'm using Access 2K. I have created a Form BeforeUpdate event to check that certain fields in the form have been filled. However, I don't want to do the check until after a subform entry is also complete, but the BeforeUpdate event fires as soon as the subform is entered. Is there any way I can around this?
I've got a form with Text boxes StartDate (datatype = Date / Time) and Interval (datatype = Numeric). Both text boxes are bound controls.
I'd like to validate whether summing the StartDate with the Interval entered results in a calculated date, falling on either Saturday or Sunday. If so, the Interval needs to be reset so that the calculated day will fall on the first Monday falling after the StartDate.
The code I've got so far results in an error:
Run-time error '-2147352567 (80020009):
The macro or function set to the BeforeUpdate or ValidationRule property for this field is preventing Microsoft Access from saving the data in the field.
I can understand why this error is generated. What I can't figure out is how to adapt the code. The AfterUpdate event is no option as this is triggered too late...
BTW, I'm on Access2000
Here's the code I've got so far:
Private Sub Interval_BeforeUpdate(Cancel As Integer)
Dim Response Dim strInterval As Integer
If Weekday(Me.Startdatum + Me.Interval, vbMonday) = 6 Or Weekday(Me.Startdatum + Me.Interval, vbMonday) = 7 Then Response = MsgBox("Eerstvolgende klusdatum valt in het weekend, laten vallen op maandag?", vbYesNo) End If If Response = vbYes Then strInterval = 8 - Weekday(Me.Startdatum, vbMonday) Me.Interval = strInterval Else If Response = vbNo Then Me.Undo End If End If
I have On Load, Current, After Update events on a form, which all work fine. But, when I add a Before Update, I get the error: "Procedure declaration does not match description of event or procedure having the same name". Following is my code:
Code:
Private Sub Form_Load() If InStr(Me.Filter, "=") > 0 Then If IsNumeric(Mid$(Me.Filter, InStr(Me.Filter, "=") + 1, Len(Me.Filter) - InStr(Me.Filter, "="))) Then Me.Tag = (Mid$(Me.Filter, InStr(Me.Filter, "=") + 1, Len(Me.Filter) - InStr(Me.Filter, "="))) End If End If
I have an unbound textbox with certain value. I want the user to be able to change the value, but first, I want them to get a question about it. I have added the following code to the before update event for that textbox. If they answer "No" to the question i want the value to go back to what it was, but if they say "yes" then I want the value to stay and a table to be updated.
Code: Private Sub txtCustRepID_BeforeUpdate(Cancel As Integer) Dim CallIDVar As Long Dim sName As String Dim CustRepIDNew As String Dim CustRepIDOr As String CustRepIDOr = Me.txtCustRepID.Value
[CXode] ....
The code for "Yes" works well, but when the user selects "no", the value in the textbox does not reverse back to the original value.
What do I need to do?
Also, I would like to add a message box that says "The value has been changed from (original value) to (new value)" How do I do that?
I am trying to update a database table via a command button on the main form, that uses tabbed sub forms.
The database gets its data from paradox data tables copied our company's third-party software. These table files are copied from one location to another to stop the paradox database from locking up and giving me errors during the import process of this database. I then link to these files at a pre-determined location on a local computer hard drive.
When I try to run the code below I get the error about the table being locked by a user or process. As you can see I have tried adding a pause incase the files are still being copied but this does not seem to be the problem.
I have used a msg box to confirm that the copying process has completed before starting the make query, but the same error comes up after I click ok.
Can anyone suggest anything else.
As you can see from the simplicity of the code below I am a beginner so take it easy on me, by not taking knowledge for granted. :)
This module is giving me the "undefined function" error message when I try to run my query. I don't know why, but I have checked that there are no references with "missing" and there are not. I also added the word "Public" to the function becasue that was advised by another forum user. I thought it worked perfectly the first time I ran this query, but now it is not working and I do not recall making any changes. I have called the module basFunctions:
Option Compare Database '************************************************* ********* 'Declarations section of the module '************************************************* ********* Option Explicit '================================================= ========= ' The DateAddW() function provides a workday substitute ' for DateAdd("w", number, date). This function performs ' error checking and ignores fractional Interval values. '================================================= ========= Public Function DateAddW(ByVal TheDate, ByVal Interval) Dim Weeks As Long, OddDays As Long, Temp As String
I'm working on a bit of code that before a combobox is changed checks with the user to confirm that they want the change to go ahead, if yes a recorded is added to a table
This all work fine apart from if no is selected - I am trying to get the combobox to undo the change however when you select no the msgbox pops up fine but the combobox does not undo
Can't see where I'm going wrong I thought undo worked for comboboxes
Code: ' Displays a message box with the yes and no options. Response = MsgBox(prompt:="Do you wish to change the status of this Job? 'Yes' or 'No'.", Buttons:=vbYesNo) ' If Yes button selected If Response = vbYes Then
I'm using shellexecute in my form whenever a picture is clicked the respective program/ application will open to show the picture. Because I want to see the picture more clearly by zooming it in or out. But the problem is I don't know how to disable the delete button and prev./next button, because I want the user use the program only to zoom it in.
