Hey guys, i have an access project for my computer class, and considering i dont know much about access, i think i did ok, but i want to make sure everything is the way it is suppose to and do it myself than paying someone else to do it for me.(its some pretty interesting stuff actually) so can you gurus, let me know if what the email from my teacher said is what i have done? i think its just the relationships that might not be done right if anything. i attached the pdf file that says what i must do, and the access file that i made. thanks for all your help in advance guys,
Quote: Originally Posted by Kush's Prof there is nothing to make the relationships work.
you are simply confusing the operational aspect of the database adn the design aspect of it.
When you program an interface to use it then you worry about usade of the relationships.
Setting them up at the design level where you are now, will simply ensure that the relationship is not violated when it is programmed. That is it.
I am trying to get a blank ribbon to be in place when a user opens my application. I have an Adp linked to SQL Server. If I create a table in SQL Server named ribbons and have the app read the data in that table in the AutoExec macro (this runs the code that reads the data) then assign the new ribbon to Application.LoadCustomUI RS("RibbonName").Value, RS("RibbonXml").Value it works and the blank ribbon is displayed. The problem is that this is no use because if the adp is not connected to the database on startup it causes an error as no connection has been established.
Instead I have put exactly the same xml file into a module but this does not have the same affect even though I call the same Application.LoadCustomUI method. I havent really done anything different except change how the xml is found. The problem with this method is it just pops the new ribbon into the list of available ribbons so then the user would have to choose the ribbon, shut down and restart, that is no use.
Has anybody got any idea what can be done about this? I will post the code below.
Thank you for any advice on what can be done.
Paul
First method (which works but is no good for distributing the app)
Autoexec calls the following Public Function LoadRibbons() Dim RS As Recordset Set RS = CurrentProject.Connection.Execute("SELECT Ribbons.RibbonName, Ribbons.RibbonXML FROM RIBBONS") If Not RS.BOF Then Application.LoadCustomUI RS("RibbonName").Value, RS("RibbonXml").Value End If RS.Close Set RS = Nothing End Function
but using the following and calling it in autoexec just puts the ribbon in the list and doesnt use it
Function CreateRibbon() Dim xml As String xml = _ "<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">" & vbCrLf & _ " <ribbon startFromScratch=""true"">" & vbCrLf & _ " <officeMenu>" & vbCrLf & _ " <button idMso=""FileCompactAndRepairDatabase"" visible=""false""/>" & vbCrLf & _ " <button idMso=""FileOpenDatabase"" visible=""false""/>" & vbCrLf & _ " <button idMso=""FileNewDatabase"" visible=""false""/>" & vbCrLf & _ " <splitButton idMso=""FileSaveAsMenuAccess"" visible=""false""/>" & vbCrLf & _ " </officeMenu>" & vbCrLf & _ " </ribbon>" & vbCrLf & _ "</customUI>" Application.LoadCustomUI "BlankRibbon", xml End Function
I am rather new to Access and looking for some help with my table. I have a report that I do, that I used to do in Excel and was wondering if it was setup right or if there was a better way of doing it.
From looking around I noticed that people usually have mulitple tables and such, while mine is all in one. I see there is a table analyzer but am not sure if I should use that, or what the importance of having it split up.
I have attached my table in XML if anyone wants to share opinions on how they would set it up or what they would do.
Is there a bad thing to having it all in one table?
I'm trying to create a simlpe database that is use to store time worked for clients (see attached).
If you run the form frmClientEntry i have two issues.
1 - you will see that the title is automatically selected from the combo box. However is i try and enter the form I'm told 'You cannot add or change a record because a related record is required in table 'tblTitle'. If I select one of the entries I get rid of this. I would like the default to be selected...
2 - There is no entry in the hourly rate column field even though there is an entry in the table. How do I get my hourly rate to show? Ideally this will only be a single text box and not a comboBox as the hourly rate will be the same for every client.
If this is a table design issue please let me know and I'll post there.
I have a query based continuous form that looks up a serial number entered by the user and allows them to view the matching data. When a user enters a serial number that is not in the database I want a message box to pop up to warn them there is no match.
The code I am using makes the msgbox pop up on every entry. I have tried to put this code in a variety of form and control events with no luck. Can someone tell me what I am doing wrong?
Private Sub Form_AfterUpdate() Dim intRespone As Integer
If DCount("[packing station scan].[serial_number]", "match with last test results", _ "[drive test results].[serial_number] = ' & Forms![match with last test results].[Serial_Number] & '") < 1 _ Then intresponse = MsgBox("Stop! Serial Number has no test data!", vbYesNo, "No data found") Select Case intresponse
I hope someone else has had this problem and can help with this.
I recently gave a user an update to the DB I developed for them. It is a split DB. He has been testing the New Interface DB against a copy of the Orginal Data DB (like our standard process entails). In the process of his testing when he tried running a process that had an Update SQl statement the following error was generated
"Function is not available in expression in table - level validations expression"
The error message only affect this ONE linked table (all other tables are fine) and I have no problem running the statement against the Actual table in the Data DB. It only booms out when ran in the Interface. I checked the rights and nothing is out a place. I can't change any data in this linked table, but can change anything I want in the actual table.
In the process of trying to troubleshoot this problem I stumbled across a equally baffling problem. None of the queries that use the built in functions work. They all error out, as if a library was missing. I checked the libraries and the are all present (none are missing).
The Orginal program, which uses the same libaries is stilling working fine, so I don't believe the actual dlls got corrupted. The program works fines for at my location, and appears to work fine everywhere else they have tested. They are going to test it on a few more workstations, but I anticipate the same results, it will work.
I have a query that I have an expression in that is returning a text value instead of a number value. The field in my table is a number value but when I use the expression it returns it as text. I have done several searched but can't seem to find anything that matches formatting an expression as a number. Here is the expression I am using, the reason I am using it is because I need to return a zero if no records matched the criteria.
hi... firstly, i created some report based on query. then in my form i create list and combox to list down all primary key that had in query.. what i want to do is open report, based on criteria that i selected from combobox or list box... i create both cbo and list box to compare which 1 is better... but both not working. i mean it works but not show the data as i want to. it open / list all data at report..
Hello all. Hope I describe my problem correctly. :D
I have a near complete database with forms linking to tables. Tables have relationships with keys set to ref. integrity/cascade records.
Here is the problem -
My forms are meant for people to input data into these tables. However, I do not want them to change those keys.
Problem 1) If I set primary/foreign keys to "autonumber" I cannot get the relationships to recognize ref. integrity and the records will not cascade, and will not update.
Problem 2) If I set primary/foreign keys to "double integer" then if someone enters a new record into the forms, it is recorded as "zero" when it should be updating in numerical order (I have 479 records in the database, so the next new record should be 480).
Problem 3) If I change it any other way - from double integer or auto number, the tables do not update at all, or do not update correctly.
What is going on here? I thought creating forms was a fairly simple task - create the form, it is related to the table, update the form, it updates the table. I mean, duh. :confused:
Thanks anyone for your help, because Microsoft's site sux.
I have a field in my DB called "Category". Users are allowed to imput any text in that field. I have a particular problem in which the LIKE command isn't working as I think it should with the limited help files of Access explanation of use. The category field has multiple entries, for example - HEQ, PBH5, PBH4, SWA, SWA2, ALL - etc. I'm trying to pull the records from that field with specifics.... in other words I may need to get All the records that have "PBH5" in them. However, if if PBH5 isn't the FIRST entry in that field the LIKE criteria doesn't work. I have tried Like "PBH5*" LIke "PBH4* etc to no avail. Any ideas? It can't be that difficult, but I cannot find anything in any book I've purchased on it, or any of the knowledge base information at Microsoft.com.
Made some tables with data, then wanted to filter it by form with comboboxes approx 10 of them, so started to write a simple query but it doesn't really work. Then I found this forum and when started to review some threads, noticed that some (most) of you write a query in vba under a button with on_click function.
The question is, what is the correct way of writing a query? Is is a vba code under a button, or is it a code in the actual query?
Why is it when I click on the TblCarerdetails and try to open a record with the plus sign I am present with the following error message Enter Parameter value CarerID///The frmCarerRota seems to be working ok, the relationships seem to be ok i.e TblCarers can have many rotas i.e. a different TblRota each week (1 - M)
TblClients can have different TblRotas each week (1 - M).why the tables are not linking correctly, if I click on the TblCarer plus sign.I should see the Rota details and a plus sign. If click on the plus sign, I should see the clients details.Therefore I am assuming that my relationships are not correct, I think I need to add an association table, but where and what fields do I need to add/create.
Which comes to £45.74, but the actually price should be £45.72. Its some how rounding up. I think. My current unit price is £7.62 however Access seems to think it is £7.6241.
I have a table that gets updated by a query(For Invoices).When I query that Invoice table for the last record, I do not get the last one written. It stops at number 12. I am using the Totals option with Invoice number field and setting to "Last".is there another way I can get the last record to query correctly. I am trying to populate an invoice report.
I currently have a form that asks for 2 fields to be filled with data to be passed to 3 separate macros that will then run a set of about 10-15 queries based on the values entered in the form. This used to be sufficient as the manually entered data was only a small set. Now the number of values that need to be run through the macros is starting to become too large to constantly be changing the values and running the macros. I can set up a table that will contain all the value combinations that would need to be entered into the form to then be passed to the queries, but how can I set this up to be done automatically. I know it can be set up using a loop, but I'm not familiar with VBA code (most of my access work is done using the design tools) so I'm not sure how to correctly set the fields that would be passed to my macros. I can also deal with the values being passed to my form one at a time, then have the macro run on that set of values, then have the next value sent to the form, etc . . .
I have a table set up with data for all stores that I'm querying. I need to select the REPORT_BRAND and store_no from this table and run about 10-15 queries that will sort the data properly for a dedupe that will be performed at the end. The form that is set up asks for the REPORT_BRAND and store_no, then it gets passed to the macros which will create the tables for store #1. The values in the Form then get replaced with the next report_brand and store_no and the macros get run again for store #2. At the end of all the stores, I have 2 tables setup with all the final results for each store. These 2 tables then provide the results that I then manipulate to fill in the reports that are required. I need to run each store separately because the results as based on total record percentages by store.
I want to remove the manual intervention from the procedure and just have a table feed the form (or eliminate the form all together) and have the macros run for all stores on my table.
I've searched around and have seen a lot of examples of using a loop, but not being familiar with VBA makes understanding exactly what I need to enter for my specific data a bit difficult.
I am working on a very simple DB. The two fields in question are Country and City, both as text. The idea is that the user can choose one country from a single-selection ListBox and after selecting one country the Cities multi-selection ListBox gets populated through the following SQL search. The Table Country_City contains two rows with countries and cities, nothing complicated.
Code: Private Sub BU_AfterUpdate() 'I deselect all the selected items '*** WHY THE IS THIS NOT WORKING ???!!! *** For i = 0 To AppliesTo.ListCount - 1 AppliesTo.Selected(i) = False Next i City.RowSource = "SELECT Country_City.City " & _ "FROM Country_City " & _ "WHERE Country_City.Country = '" & ListBoxCountry.Value & "';"
After I click/select a country on the first ListBox, the second does get populated correctly. The problem I am having is if the user changes the country, then the previously selected city/cities still stay selected. I tried to reverse that by deselecting all the cities each time I change the country, but the for-next loop does not seem to be doing the job. The funny thing is that if I paste those three lines on a buttom and click it right before selecting another country, it does work.
Example: 1) I select "France" on the first ListBox. 2) I select "Paris" and "Lyon" on the second ListBox. 3) Now I select "Germany" in the first ListBox. 4) The second ListBox gets filled by all the cities in Germany, but the ones I selected before (Lyon and Paris) appear on it too, selected.
I want to reset the selection on the second ListBox in case the user selects another country on the first ListBox.
Some information on the fields: Country: Display Control=ListBox, Row Source Type=Value List, Row Source="France", "Germany" City: Display Control=ListBox, Row Source=Table/Query, Row Source=(empty, updates with AfterUpdate event on Country ListBox)
What I want is for the "Time In" column in the listbox to show the time as hh:mm, just like the other two. The listbox is pointing to the table correctly, as evidenced by all the data showing up, but what floors me is despite the "sign_in" table showing time in all three columns in the desired format of hh:mm, the listbox seems to have its own thoughts about how to display the called data.
I have created a variety of mail merged documents that are opened by a visual basic procedure using VBA from within my database system. e.g. the document is selected in Access from a drop down box in a dialogue box. The 'OK' button is clicked and visual basic loads up the document selected, my code is below:
Option Compare Database Dim objWord As Word.Application
Private Sub cmdGOletter_Click() Forms!frmLetter.cmbLetter.SetFocus Set objWord = CreateObject("word.Application") objWord.Visible = True Select Case cmbLetter.Text Case "Clients" objWord.Documents.Open "d:computing projectLettersClients.doc", , , False Case "Funders" objWord.Documents.Open "d:computing projectLettersFunders.doc", , , False Case "Volunteers and Staff" objWord.Documents.Open "d:computing projectLettersWorkers.doc", , , False Case "Everybody" objWord.Documents.Open "d:computing projectLettersEverybody.doc", , , False End Select
End Sub
**This code loads the correct document fine, but however disables the mail merge top toolbar on load - something that does not happen when the document that is being opened is opened directly from file.
It is important that my user can navigate between the records of the mail merged document otherwise they will only ever be able to do a personalised letter for the first person in the list!
Read only is not an issue as I have tried it with and without. at the moment I have set them to edit protection, so that the user can open in read only to print off, and a technical analyst can use the password to alter it.
I'm trying to get a public function to work within the design view of a query. The function is defined as:
Public Function Percentile_(fldName As String, _ tblName As String, p As Double, _ Optional strWHERE As String = "") _ As Double... ( I can put the whole code if u need it)
Any thoughts about how I can make the Percentile function calculate values according to a GroupBy statement and not for whole data set?
The system is about a shop which gives credit facilities to its customers and so has to keep track of payments effected by them.
I have 3 tables: Customer, Payment, Balance. The main table is Customer, with primary key CustCode which is an autonumber. It keeps personal details of the customers. The Payment table keeps details of payments effected by the customers and the Balance table keeps the overall balance for each customer. The relationships are as follows:
Customer to Payment, 1-to-many Customer to Balance, 1-to-1
Fields in Payment table: CustCode, PaymentDate, AmtPaid Fields in Balance table: CustCode, Balance
Problem 1 I have a data entry form for Customer. When I create a new customer record, I want a new record automatically created as well for the customer in the Balance table. How can I do that?
Problem 2 I need to produce a report on customers who have not made any payments during the previous month. I’d like to know how to do that as well.
I hope I’ve made myself clear enough. Thank you for all help.
I am working on developing a database that develops requests to send to another department. There are a lot of forms, macros, reports and queries. A user inputs information into a form, and then selects a command button that is attached to a macro that builds the request. Midway through the build, another form comes up to complete missing information. I was going along just fine - at the testing stage for this part of the process - when the database stopped working like it should. Some of the issues I am seeing:
1) If you open a new query and try to close it without saving it, it just keeps asking you if you want to save over and over even though you select No.
2) If you open an existing query and make a change, it closes it and saves the changes without any prompting at all.
3) Macros and forms do not work right. I have a macro that deletes the records from one table. The form for that table now shows #Deleted in all the fields instead of blanks.
If you compact/repair the database is good for one run through but then it doesn't work correctly again. I have had this issue in the past but have no clue how I break my databases! I have a general knowledge of Access, I am not really a VBA coder if I can avoid it at all costs. There must be something in the relationship between all my tables, queries, forms, etc but I have no clue even where to start to troubleshoot. HELP!!
Now, my asp script gives me a drop-down box where i choose my 'week commencing'.
If i chose weeks commencing '18/, 25/, 16/, 23/' the tables all appear fine.
However when i select '11/, 02/, 09/' no data is taken from the database and i get my message 'No Booking data found!'
But the data IS there in the database. What am i doing wrong? Could it be the Language settings i.e UK/US settings (date format etc) Is there something wrong with my code???
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 table with data that is similar to this: HCP1 DATE (Fields) -.1 7/19/2007 -.2 6/14/2007 0 9/9/2007 1.2 4/23/2006 -.3 4/4/2007 2.4 3/7/2007 0 2/5/2006 1.1 2/6/2007
Etc. There are 0's, negative numbers and postive numbers. Some with at least one decimal point. I am trying to sort the data by the highest number in HCP1 field. When I run the query in Access it looks great. But when run through ASP on the server it is only giving me the negative numbers, no 0's no positve numbers. It would return -.1 in this sample data as the first record.
Anyone know what might be going wrong on the server side of things. The query statement looks the same on both sides. (server and access)
I am working with two forms frmManager and frmMMeasures where based on selection from the combo box of frmManager of the department, position and staff member frmMMeasures is loaded where MUserLoginID and MPositionName is populated based on selection from frmManager. This is what I use to populate the MUserLoginID field for the control source " =[Forms]![frmManagers]![cboStaff] ".
My problem is when I go to the next record on the form those two fields do not change from what was picked up from the form frmManager.
I don't know how to ensure that the correct data is displayed.
Simple division, I thought! I'm dividing a Sum of hours by Pay Periods to determine the average of missing hours for year-to-date. Most of the division works perfectly, and some doesn't and appears to be related to values of 1 or less than one.The formula: [Sum]/[Pay Periods].Sum relates to total missing hours and pay periods are total pay periods for the year so far.What comes out wrong:
1 (hr) / 12 (pay periods) = 8.33, when it should be .0833 0.5 / 12 = 4.166 when it should be .0416
What is right is everything else, starting with 1.5 hrs
1.5 / 12 = 0.125
What do I need to do to make all of the values divide correctly?
