Hope someone can help. My code behind my command button is not working. It is opening Report1 but not the criteria in the query.
I have a form (form1) with 2 unbound text boxes on, called "txtDatefrm" and "txtDateto" in which dates can be entered. There is also a command button on the form which searches for these dates and then opens a report(Report1). The report's control source is a query. (query1). On the ExpiryDate field in the query I have the criteria:
Between ([forms]![form1]![txtDateFrm]) and ([forms]![form1]![txtDateTo])
Behind the command button I have the code:
Dim stdocname as string
Dim ExpiryDate as Date
txtDateFrm.setfocus
ExpiryDate = txtDateFrm.text
If Trim(ExpiryDate) <>"" Then
stdocname = "Report1"
Docmd.Openreport stdocname,acViewPreview
End if
Hi, I'm trying to build a mdb which holds customer details, which insurance they have, who sold them this and which Insurance company provided this. The relations I have to make are driving me nuts ! When I try to enter a new customer in a Form, there is a advisor added, the package the customer wants is added. But this shouldn't happen for the advisor and the package allready exists !
Who can help me with the proper relations ? Attached is screendump of the current relations.
Hehe... and since me and my girlfriend just broke up, that seems applicaple both in the dbase and the real world ;)
I have one Access Database. For now containing three Tables:
KlantNAW (customer adress data) with one primary key, Klantnummer (clientnumber) which is an Autonumber Data Type, Long Int, Increment, Indexed: Yes (No dupes).
CaseDateTimeInfoTable with one primary key, Casenumber which is an Autonumber type, Long Int, Incremental, Indexed: Yes (No dupes). Within this table I have included the Klantnummer field from KlantNAW as a Number, Indexed: Yes (dupes OK).
CaseTechInfoTable with no primary keys but with both the KlantNummer field and the CaseNumber field included. Both have a direct relationship to the tables in which those two values are created. Both values are now of type Number, both are Indexed, but Klantnummer is set to Duplicates OK and Casenumber is set to No Duplicates. I don't know if it might be wiser to just not index those values in this table, since they are already indexed in the tables in which they are created, if someone could tell me which is better in this case, please do.
I have created a one-to-many relationship (well actually, access seems to decide whether it becomes a one-to-many or one-to-one relationship) between KlantNAW.Klantnummer and CaseDateTimeInfoTable.Klantnummer with Join Type 1 and I've created a Join Type 1, one-to-many relationship between KlantNAW.Klantnummer and CaseTechInfoTable.Klantnummer. There is only one extra relationship left, which is a one-to-one, Join Type 1 CaseDateTimeInfoTable.CaseNumber with CaseTechInfoTable.CaseNumber.
So ehrm.... a recap: KlantNAW.Klantnummer (P-key) with CaseDateTimeInfoTable.Klantnummer KlantNAW.Klantnummer (P-key) with CaseTechInfoTable.Klantnummer CaseDateTimeInfoTable.CaseNumber (P-key) with CaseTechInfoTable.Casenumber
If I leave it like that the dbase works perfectly except for the fact that when I delete a customer the related case date/time info and the case tech info don't delete with the client account accordingly.
So, I thought I'd "Enforce Referential Integrity" and "Cascade Delete Related Records". I do not know if it would be wise to also enable "Cascade Update Related Fields". Could someone please tell me if that would be wise to do or not? And maybe even why... I have some beginner and more advanced books but can't be sure, probably because of lack of experience (or maybe lack of brains ;) ).
Anyway, back to the problem: when I make all the relationships to Enforce Rererential Integrity and I add a customer through a form (KlantNAW_InvoerForm) and click the "Create new case for this customer" button, the form I use for entering the case date info pops up nicely, but when I try to close that form I get an Error stating: "You cannot add or change a record because a related record is required in table "KlantNAW"". So, I click ok, then get a messagebox stating I can't save the record at this time. Do I want to close anyway? .... well, ok. Let's do that. And now the strange thing is that after that, when I do absolutely nothing other than pressing the create new case button again, enter the date/time info into the form and close it again, no errors or messages come up. Wel... that should happen the first time around right? What's wrong?
Now... I'm really lost. I'm new at this. I made some tables, queries and forms, set all options for all values, that which I didn't understand mostly tried solving or finding out on my own but now I'm hitting a brick wall.
If you guys and gals could help me out I would really be very grateful for that.
EDIT: I even tried making it more simple by removing all relationships and creating just one new one between KlantNAW.KlantNummer and CaseDateTimeInfoTable.Klantnummer (type 1, enforce referential integrity and cascade deleted records) but still, the same problem arises.
EDIT2: made sure it was not a form thing by just putting in data in the table data views directly. Same thing occurs.
I just started learning Access and I have created a database with 53 records, 3 tables and 1 Split form. I creared a new yes/no field and I am attempting to display "Completed" in green for yes and "Not Completed" in red for no. I used the correct code in the format field:
"Not Completed "[Red];" Completed "[Green]
This worked for different field before I created the split form but now I cannot get the new field to display anything but check boxes regardless of what code I use. It won't even let me use the default yes/no, true/false or on/off options.
I've been studying this for about 2 weeks and I've figured out quite a bit but this one thing is really iritating me....:eek:
I am trying to create a chart on a Form. In Excel I have no problems arranging my data. This is my first try for charts in Access. I have a table. I created a query summing two fields of this table:
Total Workers Total Workers: DCount("[WorkerNameLast]","1-StationVerifyTbl","[ClockNbr]<>'*'") Total Workers = 120
Total Verified Verified Workers: DCount("[WorkerNameLast]","1-StationVerifyTbl","[StaPrimary]=True") Total Verified = 43
So far so good. That is the correct information. What I want in a Chart is two bars side by side. One bar at 120 and the other bar at 43. I have tried everything and cannot get this to work. I am getting confused on the Axis, Data, & Series. I think I need another Field somehow. The totals I would call Monthly Totals
Could someone please help me get this thing started. I have wasted a week and feel like I have learned nothing except how to count in the Query.
After this I would like to be able to show a percentage of those verified. I have 120 workers and 43 are verified. That would be approx 35%. Anyway I am assuming that there is a solution and that I am just floundering for nothing. Thanks in advance.
How Can I make this work Right? If anyone knows how to do this please Help. If it must be done in code please provide an example. I need to get this worked out this weekend.
Run-time error '438'. Object doesn't support this property or method
The command:
If Not IsNull(DLookup("[JSANo]", "JSA", "[JSANo] = '" & Me.JSANo & "'")) Then
I think the rest of the code is uncessary. I have searched Google over and over. From what I can gather this error can mean more than one thing.
I have moved the data into another new exact same field, deleted the old field, renamed the new field to have the old field name. Still keep getting this message. At one time, I had messed with the index settings on the field. Thought I saw something about that can cause problems.
I have this exact same command on another field name and it works perfectly, but on this one I get the above error. Ideas?
I have created a database for a hyperthetical car hire company. I have a booking table, a customer table and a car table. If a customer books a car starting on one date and ending on another I want the database to generate a list of cars that are not being used at these times. I have worked out that:
old finish date (of all other cars) < new start date (of new booking)
How do I impliment this? I have limited knowladge of MS Access.
I have a form where you type in the start and end dates and when you click the search button it runs a query to display all record that have dates between those typed.
The problem i have, is if i were to search for:
Start Date = 02/03/05 End Date = 07/03/05
It would not display the record in bold above, even though it has dates within those in the search criteria. In the query i have the following:
Start Date >=([Forms]![FrmSearch]![TxtStart])
End Date <=([Forms]![FrmSearch]![TxtEnd])
So how do i get the search to recognise these as dates and look for the days between the dates in the table.
What I need to do sounds simple but I am losing my what hair I have left to do it. I have a single table where staff rotate a responsibility every 3 months or so. What I have in one field is the surname of the person currently performing the duty and another with the surname of the person who is next to take on the duty. What I need to query is those posts where a replacement has not been identified for the next say 12 weeks.
e.g. I need to have a query that finds extracts all posts where the field (surname) of the person taking on the role is blank between (date) and (date).
creating a query using vba. I have a form with FROM and TO textboxes(Formatted as Short Date)....What I'm hoping is:
1. When I put a date in FROM textbox...the query should show records from the date selected onward. 2. When I put a date in TO textbox...the query should show records from the date selected backwards. 3. When I put a date in FROM textbox and TO textbox the query should show data between this two dates?
I am stuck trying to query a table for entries in a date field that are 21 days earlier than the current date. I thought I could use the built in 'Now()' but am struggling.
Can someone please help me because this is driving me insane!!
All I want to do is open a form which automatically copies the ExampleID from another form which is open.
For example on an Orders Form there will be an OrderID (Primary Key) so when I click to open the OrderItems form, which will open so that I can add an item to the Order, I need the same OrderID (Foreign Key) to automatically match the OrderID from the Orders form.
I've tried making the default value for the OrderID (Foreign Key) = the OrderID on the Orders form but the database doesn't like this method and produces errors!
Does that make sense? I hope so as I am in need of a very kind persons help!!!
I am trying to add up a list of dates that match a criteria... a search box result.
I have tried DCount, and now I'm doing it through SQL, and no matter what combinations I try I still get an error - usually 3075 - Syntax error (missing operator)
But I can't find anything missing - I copy the SQL into a query view and it works perfectly... but it won't work on its own. And I've tried using DCount with the query as a query object, and I get the same error.
Code: Dim ResultCount As Long Dim DateSearch As Date Dim MyDate As String Dim MyDateAdd As Date Dim varReturnValue As Variant
[Code] .....
I've used the >= And < option as it solves an issue with Date Time. What operator is missing!?
My query looks like this...The problem is that when I have one Radio with two records where [Defect fixed?] is false it counts that as two separate radios instead of one. Somehow I need to make it sum records with the same Radio/Serial_number as one...Anyone have any suggestions?
SELECT DISTINCT Defect_Log.[Defect Fixed?], Defect_Log.Station, Part_Number_Log.Type FROM Part_Number_Log INNER JOIN (Serial_Number_Log INNER JOIN Defect_Log ON Serial_Number_Log.Serial_Number = Defect_Log.Serial_Number) ON Part_Number_Log.[Part Number] = Serial_Number_Log.Part_Number GROUP BY Defect_Log.[Defect Fixed?], Defect_Log.Station, Part_Number_Log.Type HAVING (((Defect_Log.[Defect Fixed?])=False) AND ((Defect_Log.Station)="station 1") AND ((Part_Number_Log.Type)="vhf"));
I have attached a very small table with one query. I need help having the query perform a calculation. NOTE: I do not want to achieve the calculation in a form or a report.
Hi, i have several tables in my database, wanted to know if the tables between:
Client -----> Theory
Client -----> Practical
are 1 to 1 relationship, right? Client can do one Theory, Practical.. but what if Client failed Theory, is that saying they can do more? I'm confused with the whole logic on this. Any help would be appreciated.
I am redesigning an old database. There is a form that has an unbound combo box field that gets its values from a query. Basically, someone will choose a value from the combobox and a subform will display all records for that value.
Here is my dilemma...
In the old database, if I typed an N in that combo box, it would immediately go to the "N"s in the combo. However, in the new database...nothing happens when you start to type in the combo box. You either have to type the whole thing in or actually use the dropdown button. I have checked every setting imagineable...and I can't find how to get it to autofill based on the letters entered. It is driving me nuts!!!
Hi I am having a real hard time with access weared errors. I am using following code:
Me.HistorySymptoms.Form.Refresh 'Just to make sure. It was a try because of error If Me.HistorySymptomTab.Visible = True Then 'It is a subform in a tab page For counter = 0 To 29 'Number of fields in the recordset If IsNull(rs.Fields(1 + counter).value) = False Then ' Just to check Null values MsgBox rs.Fields(counter).Name 'For debugging Old_History(counter) = rs.Fields(1 + counter).value 'This line has problem End If MsgBox rs.Fields(counter).Name & " Done.||" & counter Next counter End If
The error comes in the maked line on accessing the field value. Previously I had another error but after going through the process of "Corrupt Access file correction", I am getting this one. My form has subforms in tabpages. I want to save all the field values to the array on pressing a button. Button is part of the main form and code copies values from a subform. I don't think my file is corrupt as I went through the process twice :-( Looking for help RMA
im having trouble with an update query wher i need to update one field [class] of a table [txStudents] from an existing query Newfacility_Students where the StudentId in [txStudents] matches the StudentId in Newfacility_Students
thought it would be simple enough
UPDATE txStudents SET Class = Newfacility_Students.class WHERE ((StudentId = Newfacility_Students.StudentId));
it's not working it says it prompts me for this Newfacility_Students.class but when i add that table to the design view it messes up the syntax in the sql view
UPDATE txStudents Newfacility_Students SET Class = Newfacility_Students.class WHERE ((StudentId = Newfacility_Students.StudentId));
When the query is run, it returns 0 results. However, if I put in Like '5???????' as the criteria in the query itself, it runs properly.
I tried closing the form and running the query so that it asks me for a value since it can't find that textbox since the form is closed. I pasted in Like '5???????' and it returns 0 results.
I have used this method for entering start and end dates for reports before and it has worked just fine. I can't figure out why it isn't working here. Any thoughts?
I just started learning Access and I have created a database with 53 records, 3 tables and 1 Split form. I creared a new yes/no field and I am attempting to display "Completed" in green for yes and "Not Completed" in red for no. I used the correct code in the format field:
"Not Completed "[Red];" Completed "[Green]
This worked for different field before I created the split form but now I cannot get the new field to display anything but check boxes regardless of what code I use. It won't even let me use the default yes/no, true/false or on/off options.
I've been studying this for about 2 weeks and I've figured out quite a bit but this one thing is really iritating me....
I am biulding a database with quite a few subforms but now I have a wierd problem.
I am building a form that displays upcoming IT courses. so I have sumbforms for word, excel, outlook... you get the picture.
All the subforms work well except the outlook subform. When I create the subform with a wizard. When I go into form view mode to check, the form displays Outlook courses. When I save the form, the outlook subform then changes itself to Excel!
When I open the excel form and the outlook forms independently (not as subforms) the work fine and the data sources (queries are correct)
I've tried deleting the subform over and over again but everytime I hit the save button, The outlook form reverts to Excel.
I've gone as far as checking if there is any code behind the main form that makes this happen, but nothing.
Can anyone heelp>? this is driving me crazy! :confused:
I am pretty sure that this is crazy! I have attatched a word document (the quickest way for me to show and explain at the same time) that shows in a print screen picture what I want done with this form. There is colored text explaining. Any questions feel free to ask. I am pretty sure that this is ridiculously tough and am not sure that it is even possible with access. Please help, and may the gods give tons of wealth to whomever can solve my problems.
i made an attendance db for work and got it to work. i then copied it and made two more for years 2 and 3. Years 1 and 3 work perefectly but for some reason the year 2 db won't allow me to write the data.
this is driving me nuts as i have already spent a few hours putting the students in and their course selections. i've tried making the forms again and as soon as i use a joint sub form to get the students first name the problem occurs. i've looked at the properties of the forms and they allow edits etc..
if anyone is feeling kind and has a spare moment, could you let me know why it doesn't work.
