I would like to show a Message box to an operator when a certain number of records have been reached in a subform e.g when 36 records have been entered I want a message to appear telling the operator that a certain report can then be raised. Whether this is possible
View RepliesAnyone know how to suppress the folowing warning:
(I don't have admin rights so my solution will have to be done within Access :rolleyes: )
ok, i'm probably gonna confuse a few ppl here, lol :rolleyes:
i keep getting a warning message when i try to open winamp from within access, is there any way i can stop this warning message from appearing?
any help would be most appreciated
can someone please modify the following code to add a warning message to an add button.................this add button allows to add details filled in a form...
Private Sub addrec_Click()
Dim strSQL As String
DoCmd.SetWarnings False
strSQL = "INSERT INTO tab_main ([username], [cost_centre], [number], [phone_model], [imei], [puk_code], [sim_no], [date_issued], [notes], [tariff], [call_int], [roam]) VALUES ('" & Me.username & "','" & Me.cost_centre & "','" & Me.number & "','" & Me.phone_model & "','" & Me.imei & "','" & Me.puk_code & "','" & Me.sim_no & "',#" & Me.date_issued & "#,'" & Me.notes & "','" & Me.tariff & "'," & Me.call_int & "," & Me.roam & ")"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub
warning message such as Are you sure you would like to add USERNAME(whateva is inserted in the USERNAME FIELD)
thanks
I use a close button to close a form. There is list box in this Form. If the list box is empty, then simly close the form. However, if there are projects in the list box, I want to give a warning. If the user say YES, then everything in the listbox will be deleted and the form will be closed. If user say NO, tehn the form will not be closed. They then can use anotehr button to save teh projects.
I wrote the follwing code. The delete portion itself works. But it seesm comfused with msgbox. Could you pelase help me correct this code? Thank you very much for your help.
lbDestination -- list box name
Private Sub Close_Click()
On Error GoTo Err_Close_Click
If IsNull(Me.lbDestination) Then
DoCmd.Close
Exit Sub
End If
If MsgBox("You have unsaved initiatives. Are you sure you want to close?", vbQuestion + vbYesNo + vbDefaultButton2, _
"Delete?") = vbYes Then
Dim rsDestination As DAO.Recordset
Set rsDestination = CurrentDb.OpenRecordset("tbInit", dbOpenDynaset)
rsDestination.MoveFirst
Do While Not rsDestination.EOF
rsDestination.Edit
rsDestination.Delete
rsDestination.MoveNext
Loop
Me.lbDestination.Requery
End If
Exit_Close_Click:
Exit Sub
Err_Close_Click:
Resume Exit_Close_Click
End Sub
I have struggled with this for so long now I hope someone can help.
I have a form called frm_Collections which is run from the query (qry_Collections). When I type into the Reg field in the Form I would
like the user to know if the Reg details have already been used in a
previous record. The database can have duplicates in this field, however a
"Warning Message" would promt some investigation.
I have tried loads of DLookup on Before Update, but really need setting of
in the right direction.
Thanks
Hi there,
I apologise if this has been answered, I couldn't find anywhere else on the forum.
On the data access page it gives an annoying warning that says 'This website is using your identity to access a data source. If you trust this website, click OK to continue, otherwise click cancel'.
Is there a way I can suppress this message? It looked cool at the start, but now it's just annoying....
Thanks!
Hi all,
I am building a simple db from scratch using the limited knowledge i have, and a lot of the information gained from searching these forums as a guest. I've now reached a point where I can't seem to find what I'm looking for, so any help would be gratefully received!!
I have a single table, single form and single report (told you it was simple;)). The table has nearly 2000 records and 2000 pictures (linked). On the form I can print every record with a single click of a command button. This is great, but I would like a message box to popup and confirm the print action, as this is gonna be expensive if its clicked on every record!!
If anybody can help, I would be chuffed!! I searched the forums and can't seem to find anything on this!!
j
I have an Access 2010 db on a shared network drive. All users accessing the db are running Windows 7 OS and have a licensed corporate version of Access 2010. The advanced options "Shared", "Edited record" and "Open dabases by using record-level locking" are turned on. Additionally, the locking time limits are set to their default levels. If a user selects the save icon after making additions or updates, the following waring message appears:
Costar Job Database can't save design changes or save to a new database object because another user has the file open. To save you design changes or to save to a new object, you must have exclusive access to the file.Since I developed the db, I am the only one that makes design or object changes. I know that users don't need to select the save icon to update the db, but I don't want them to "freak out" if they select save and see the message.
Is there any way to prevent the message from being displayed?
I have a temporary table within my access database. I have a macro button that makes the table (thus deleting the old one in the process) and then appends information from three other queries to it.I want to stop the standard warning message from coming up. The message I get is below. I have already cleared the action queries check box so the warnings for the making table (if no previous table exists) query and appending data query have disappeared. However the below message still pops up when the make table query begins to try and delete the old table. How I can make it go away?
"The query you are about to run is a make-table query. Unlike most queries that displays data in Datasheet view, a make-table query creates a table and copies specific records from one or more tables and queries. If the table already exists, the query will replace the structure and contents of the table.If your intention is to create or replace a table, click Yes. To avoid being prompted when you run such queries, click the File tab, then click Options. In the Access Options dialog box, click Client Settings. Under Editing, clear the Action queries check box.
I have a questions database. When user is filling out the form, the following fields are required: Questions, Author, Type of Question and Answer selected. Answer is selected by clicking on the button next to the Answers. If these fields are not filled out, a user gets a prompt saying that so and so field is blank. If have a problem, it works for all required fields except for Answer. Below is my code. I have attached a screenshot with Author and Answers blank. I only get a warning about the Author and not the Answers.
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
nullerr = 0
strnull = ""
If IsNull(Me.txtQuestion) Then
nullerr = 1
[code]..
I do have a DB that takes some data from Stripes and imports them into access. Since this will be a multi user DB I want to make a warning form.
Basically a user will do the download, I want a form or a pop up message that will show to the next user that will open the DB while the download process is ongoing, to see that the download data process is still ongoing, That he needs to wait until the data download has finished.
I have a combobox with several options for a device's parts. When one part is selected, it gets added to a device table.
ComponentCmb
Generator A
Generator B
Gearbox A
Gearbox B
Blades A
Blades B
Blades C
Tower A
Tower B
I want to display an error message if an option is being selected more than once.
For example, if a gearbox has been chosen, then another gearbox cant be chosen too.
How do i display this warning message.
I have a table (ComponentT) of different device components a user can select from ( generators, gearboxes, etc.)
The table has 3 fields - ComponentName, ComponentType, ComponenentDetails
I have a query returning all the ComponentDetails values.
I then have a combobox that uses this query as a row source.
The user can select different components they want from the combobox. Once something is selected, it is added to a new table - UserSelectedComponentsT
As a device can have only one gearbox or one generator etc. I want a warning messagebox to be displayed if the user tries to select a generator from the combobox when one has been previously selected.
I have a parent form containing a subform (Datasheet view). The parent form also has a button that I only want enabled when there are records showing in the subform.
Were the records contained in a listbox (as opposed to a subform) - I could simply check the recordcount property but short of running SQL to count the number of records in the underlying table - how can I do this?
Any ideas please?
I have a form that contains a number of tabs, each tab then contains a subform. The basic gist is that there are clients and each client chart needs to be audited to make sure that the every clients chart has all of the correct information in it. So if for example, each client needs an initial treatment plan, there would be a tab called Initial Treatment Plan that would contain a subform (continuous form) displaying all of the clients that are missing this information.
I would like to display the number of records that are being displayed in each subform in the tab next to the name to make it easier for the auditor to know how many which tabs have content to be updated. For example, if there are 10 clients that are missing their initial treatment plan, the tab would read "Initial Treatment Plan (10)".
I was able to get a total number of rows in datasheet view, but I don't know if there is a way to have that field as a hidden field in continuous form view that can have its value displayed in the tab.
I need to check the recordcount in a subform of a navigation frame form in VBA. What is the proper syntax. I have tried multiple things but cant seem to get it. I would rather not use dcount.
View 1 Replies View RelatedI have a "Search" form that I am using to search through a query in a list box of all of my Customers. Once the record that I am wanting to view comes up I highlight it and click a "View" button to bring up another form with the customers full record. When this form is open I am able to update the customer information and add User's to it if necessary.
My problem comes after I click on my save and close button that takes me back to me search form. I want to close the search form and the error I get is "The record cannot be deleted or changed because table "tblUserProfile" includes related records." I click OK and get a SECOND error stating "You can't save this record at this time. MS Access 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 have already made my changes and saved them in the form with the customer record so am not sure why I am getting an error when trying to close the Search form.
I have a table that has 5M+ accounting line entries. Below is an example of one accounting journal in the table.
BUSN_UNIT_IJRNL_DJRNL_ICNCY_CMONY_A
CB0014/07/20140002888269323AUD16797
CB0014/07/20140002888269323AUD-16797
CB0017/07/20140002888269323AUD16797
CB0017/07/20140002888269323AUD-16797
The journal ID above was an accounting entry, debit $16,797 and credit $-16,797. because it was entered as a reversing journal in the system, the table has captured the Journal ID with 2 dates. For my purpose i only want the one date (MIN) date, the total amount of the journal (either the debit or credit amount 16,797) and the total number of lines the journal ID has so in this instance I want the count to be 2 and not 4.
Right now this is what i get
BUSN_UNIT_I JRNL_I CNCY_C SumOfMONY_A CountOfJRNL_I MinOfJRNL_D
CB001 0002888269 AUD 0 4 4/07/2014
This is the output i would like
BUSN_UNIT_I JRNL_I CNCY_C SumofMONY_A CountofJRNL_I MinOfJRNL_D
CB0010002888269323 AUD16797 2 4/07/2014
Im thinking with the total sum because theres debits and credits is there a way to do the absolute value of the journal MONY_A then divide by 2?
current SQL
SELECT [One Year Data Lines].JRNL_I, [One Year Data Lines].CNCY_C, Count([One Year Data Lines].JRNL_I) AS CountOfJRNL_I, Min([One Year Data Lines].JRNL_D) AS MinOfJRNL_D, [One Year Data Lines].BUSN_UNIT_I, Sum([One Year Data Lines].MONY_A) AS SumOfMONY_A
FROM [One Year Data Lines]
GROUP BY [One Year Data Lines].JRNL_I, [One Year Data Lines].CNCY_C, [One Year Data Lines].BUSN_UNIT_I
HAVING ((([One Year Data Lines].JRNL_I)="0002888269") AND (([One Year Data Lines].CNCY_C)="aud"));
I have two unbound unlinked subforms residing on a 3rd unbound main form. When I enter the current record on Subform1 I would like the matching record(s) on Subform2 to be highlighted or otherwise formatted. I can get this to work for only the first record on subform2 due to the way I have my code setup on Subform1:
Code:
Private Sub Accounting_Unit_Enter()
'find where AUs match. only works for first Subform2 record
If Me.[Accounting Unit] = Forms!MainForm.[Subform2]!AccountingUnit Then
msgbox "Match"
End If
End Sub
My thought was that I needed to reference the Recordset of Subform2 and search for all AccountingUnits that match the current AccountingUnit of Subform1,
Hi
I have a simple database. an articles table, authors table, categories table, not much else.
So one article can have many categories. To manage this, I have my 'articles' table (pk autonumber ID, plus other fields), a 'categories' table (pk autonumber ID, txt description), and I created a linking table 'article categories' autonumber ID, number articles (related to article ID in article table) and number categories (related to category ID in categories table)
Then I made a form for articles, with a subform for categories (taking the category field from the categories table).
1st problem - the category field in the subform appears as a text box, not a drop down list of category descriptions. I deleted it and added manually a combo box with the category field from the categories table as control source, telling it to store the value in the field 'category' in the 'article categories' linking table. This gives me the drop down list.
2nd problem - I select one category in the subform, when I try to select a second, it tells me "The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again."
I checked the fields in the 'article categories' table and they are not set to 'no duplicates'.
The strange thing seems that I can enter this ok in the table, just not the subform.
I know this problem has already been discussed here, but I could not find an answer to my case in the previous posts, so I apologise if this is repetitive.
I think this is simple but I am a novice...
I tried to attach the database to this - both normal and then zipped but it says 'invalid file' (it is only 1mb).
I would be extremely grateful for anyone's help
thank you
Eleanor
Continuous forms error.
Hi,
I have a database which displays one form as a subform of another form. Originally the subform was displayed in datasheet view, but now due to changes I am trying to make to the system I want to display this subform as continuous forms. Unfortunately in datasheet view, when a record of the main form has several records (ie enough to require scrolling down the list) in the subform I get errors when scrolling through these subform records.
The error message that access is displaying is "The Value you entered isn't valid for this field. eg you have entered text in a numeric field or a number that is larger than the FieldSize setting permits."
I thought ok, maybe the subform design was duff (I am taking over a system designed by someone else) and so created a new subform, but the error still occurs with a totally fresh subform. The error occurs even when viewing the subform on its own. With a lot of records displayed on screen in the continous forms view I get numerous occurances of the abopve mentioned error message box and access eventually crashes. Yet in datasheet view everything is fine.
It's incredibly annoying as I can't fathom out what is causing the problem and how to fix it and to go about what I am doing in another way (ie without using continous forms) will mean scrapping a whole days work. I also don't like to do things a different way just because I can't get it to work the way I'd like to.
If anyone has some solutions to this problem I would be eternally grateful!
Thanks in advance!
John
I built a form—frmDataEntry—whose Record Source is a query called qryEvent, which contains various fields from tblEvent. The primary key field is called EventID.
I also build a subform—sfmDataEntry—whose Record Source is a query called qryEventImages, which contains various fields from tblItem. One of those fields is ItemEventLink, which links records from tblItem to the EventID field in tblEvent. There is also an image box in this subform: filling in the field ImageFile with an image name (example: Logo.jpg) causes that image to display in the image box.
I’ve inserted the subform into the form using the Subform Wizard. Now I’m getting an error message that says "2450: Microsoft Access cannot find the reference form ‘sfmDataEntry’." Why this is popping up. The Link Master Fields and Link Child Fields sections of the property sheet are filled in correctly. Moreover, the subform records are still appearing, but the images linked to each record aren’t loading.
Friends, as I have not received a response to a previous question, I am again posting my problem trying to bee more clear.
I have developed a search form with a txtbox and a cmdbutton to open a form based on a query.
The cmdbutton opens a form if the record is found. Can anyone help me with VBA to display a No Record Found message?
THis is what I have on the OnClick Event of the button:
If IsNull(Me.txtsearch) Then
DoCmd.CancelEvent
Else
DoCmd.OpenForm "myform", acNormal, "myquery", "", , acNormal
DoCmd.Echo True, ""
End If
Note that the query behind the form has following in the criteria in the LName field:
like [forms]![welcome]![txtsearch]
Thank you.
Hello...
I have a txtbox on my subform located in the form footer that counts the total number of testers displayed. The name of the text box is txtAN.
I then have txtbox on my main form called txtcountname. When I put the following code in the control source: =frmLinks_Subform.form.txtAN, when I click out of the control source access does this: =[frmLinks_Subform].[form].[txtAN]. So when I view the form I am getting the #Name? error.
I just want to pull the total count off the subform. I have this in another form I have done and it works but access doesn't put the [] around the script.
Thanks
R~
I can use the following to return the last record count of the subform records, but I want the last record count of the VISIBLE records only.
So if records 1-15 are visible then it returns 15
If records 34-49 are visible then it returns 49
Code:
RecordsetClone.recordcount