DoCmd.OpenForm Troubles
Mar 18, 2005
I have a form(frmGetRecord) with a subform(frmSubGetRecord). frmGetRecord has a combobox cmbCNO to choose the patient. The subform displays the admit date and discharge date(if there is one). There can be multiple admit/Discharge dates for a patient. Based on the values from fields on the form and subform, I would like to open a data entry form(frmEvents) for the particular record. I have a command button to run the code to open frmEvents. I am having trouble with the criteria in the where condition.
stLinkCriteria = "[CNo]=" & "'" & Me![cmbCNO] & "'" _
And "[AdmitDate]=" & "#" & Forms![frmGetRecord]![frmSubGetRecord].Form![AdmitDate] & "#" _
And "[DischDate]=" & "#" & Forms![frmGetRecord]![frmSubGetRecord].Form![DischDate] & "#"
DoCmd.OpenForm stDocName, , stQryName, stLinkCriteria, acFormEdit
When I click on the command button I get a type mismatch error. If I test the StLinkCriteria separately, the DoCmd.OpenForm will work for just the CNO field or just the AdmitDate field. If I test those two strings together, I get the type mismatch. Also, DischDate could be blank and I'm not sure how to add an IIf statement to the string to test for that in the where statement. I'm also not sure how to make sure it picks the correct record if there is more than one admit date. I would like to select the desired date record, then have the command button open the appropriate record.
Hope this makes sense. Thanks for any help.
View Replies
ADVERTISEMENT
Jan 24, 2005
Hi,
I have got an unbound access form, and in this form I gather 2 dates (i.e. through txt fields). Once I have these fields, I want to open a form that has one list box on it. This list box should populate based on the dates that I gather on the previous form. How do I specify this through the DoCmd.OpenForm arguments? Currently I have the following code, but it is not working:
Form 1:
Dim whereClause As String
whereClause = "SELECT * FROM qryInvoice WHERE tblInv.InvDate Between #" & txtStartDate & "# And #" & txtEndDate & "#" & ";"
DoCmd.OpenForm "frmInvoiceFax", acNormal, , , , , whereClause
Form 2:
public Sub Form_Load(args As String)
MsgBox args
lstInvoice.Rowsource = whereClause
End Sub
I know I am not doing it the right way (because it is not working), but I can't actually find how to do it. Help!
View 2 Replies
View Related
Jun 13, 2006
I have an Access 2000 application which, on startup, always launches a 'switchboard' form and sometimes gets information from the user during the startup. Both forms are opened with VBA using DoCmd.OpenForm; the switchboard opens as acNormal and the input form (when used) as acDialog.
Under normal circumstances this works fine.
If, however, the Access window ceases to be the active window in Windows (e.g. the user selects another application's window in the taskbar) the forms do not open (all other VBA code runs correctly).
Any ideas?
Simon
View 2 Replies
View Related
Jan 17, 2007
First off, thanks to all who have helped me with my other posts :)
I have yet another question that y'all might be able to assist me with... I'm looking to create a report and am having trouble figuring out how exactly to format the stupid thing... And, like my other posts, this could be a little confusing... I'll do my best ;)
I've modified this a bit to figure one thing out at a time. If you have a solution to my original post (below) feel free to help out, but for now I am just trying to figure out how to get the variables in the report to go across the page instead of down. I would like my quantity field to be listed across the page with the price for the part below it:
1-9 10-24 ... 50K+
$$ $$ $$
instead of:
1-9
$$
10-24
$$
...
50000+
$$
Thanks!
------ Here's my original post------
Ok, I've already got a query with all the data and computations needed. Basically I'm just trying to create a price sheet for our products here, but it's not quite that simple... I have 72 different part sizes, 12 for each of 6 voltages (3KV, 5KV...20KV), and a price for 13 different qty ranges (1-9, 10-24...50000+). I would like it to look something like this:
Qty1-9 Qty10-24 ... 50K+
Part 1 $$ $$ $$ $$
Part 2 $$ $$ $$ $$
Part 3 $$ $$ $$ $$
Part 4 $$ $$ $$ $$
Part 5 $$ $$ $$ $$
Part 6 $$ $$ $$ $$
Part 7 $$ $$ $$ $$
Part 8 $$ $$ $$ $$
Part 9 $$ $$ $$ $$
Part 10 $$ $$ $$ $$
Part 11 $$ $$ $$ $$
Part 12 $$ $$ $$ $$
...
Part 72 $$ $$ $$ $$
Parts 1-12 will be grouped by Voltage 1, Parts 13-24 by Voltage 2, and so on... Have I lost you yet? :confused: :confused: :confused:
Grouping by voltage can be left out for now if it add too much confusion...
View 2 Replies
View Related
Aug 19, 2007
Hi, this is my first message on this forum ;)!
I have a little problem with my Access 2000 (with 2003 too on another compuer), in fact when I put an icon on a page of my Tab Control, the background of that icon is white and not transparent (the file I use is an "ico" file and so it HAS a transparent background, anyway I treid all the possible file types); the strange thing is that when I put an icon on a button, the icon is shown properly. Here is an image of my problem:
http://img529.imageshack.us/img529/9922/testuu9.jpg
Thank you,
StockBreak
View 10 Replies
View Related
Feb 29, 2008
here is what i have:
tables - tblAssets, tblSites, tblManufacturers, tblModels
i have 1-to-many relationships set up as follows; tblManufacturers --> tblAssets, tblManufacturers --> tblModels, tblModels --> tblAssets, tblSites --> tblAssets.
what i would like to happen is if i add a new site in tblAssets it will add the site in tblSites as well. if i have "enforce referential integrity" checked then it will only let me insert sites that are on the tblSites table, and if i uncheck the box then it will allow me to put in a site that's not on the table, but it doesn't add it to the table.
i only have 1 form and it's just linked to the tblAssets table. please forgive my noobness, i've been having a rough time trying to understand relationships even though i've read about everything i could find on them, so could someone please point me in the right direction?
thanks
View 8 Replies
View Related
Dec 1, 2005
I created a form from a table (maintbl) with a combo box. The combo box retreives information from another table (model#tbl)and autofills it in the fields below. the information that is autofilled does not automatically get entered into maintbl. Theres probably a good reason for this but i cant figure it out. Anyone?? Im not very good with code but if thats what it takes thats what it takes.
View 2 Replies
View Related
Apr 4, 2005
Hi,
I have hit a brick wall with my A-Level Access Project. Basically, I have a form for ordering where a user can select items from a combo box linked to a table that contains products. They then select the quantity and a subtotal is calculated for that particular item(s). By that I mean the subtotal generated is only for one selection from the combo box. Any subsequent selections have their own subtotals generated afterwards (I hope I'm not being too vague).
This is the form I am talking about:
http://img.photobucket.com/albums/v318/GOAT2G/FrmMakeOrder1.jpg
The thing I am having trouble with is the final box; "Order Total". I have no idea how to set it to sum all of the above Subtotals to equal an overall total. I will send anyone willing to help a copy of the database via email or something if they need it.
I would be immensely grateful for any help you can give.
Thanks,
Adam
View 5 Replies
View Related
Feb 19, 2006
Hi
I have just started using access to design Data entry screens for our SAS databases.
One of our major fields in our databases is an update date field which is set up in this format 20062002. year day month.
Now I am trying to make a text box on our form that displays the date like this.
I know i can do =year(date()) to show the year but I cant work out how i can get it to display year, day month in that format.
Any help would be much appreciated.
View 1 Replies
View Related
Oct 26, 2006
Hi,
Im currently making my first database for a company i work for. As expected im having some troubles hehe im not sure im going about everything the right way. At the moment im trying to create a form which will get product information from one table, display the details in a few combo boxes and based on a selection will store the selections in a separate table. Ive done everything up till that last bit, i cant seem to be able to record the selections in a separate table.
i would appreciate some help as my bosses have to be kept up to speed on my progress and as you can imagine it doesnt look so good when you tell them you havent made any progress hehe.
Cheers
Marc.
View 4 Replies
View Related
Jun 16, 2007
I have a form that I'm trying to make a sub-form for. I create the sub-form and link the two forms by a text field, but for some reason instead of being the contents of the field that links them being the same, it's the name of the Form, and thus any time I refresh the page the subform data gets lost in the table and is unassociated with any records I have on the main form...
I've done subforms before without a problem, so why are they messing up for me now?
View 7 Replies
View Related
Jul 7, 2005
Hi everybody,
I have to calculate somme totals for decimal numbers, and... I can't make it to work.
I have a report:
Quantity Unit_price Price_without_Taxes Taxes Price
2 1,62 3,24 0,62 3,86
2 2,13 4,26 0,81 5,07
TI: 8,91
TI it's the sum of Price, and here is the problem, because the value of TI should be 8,93 Euro (3,86+5,07) not 8,91. In this case it's a loss of 3 cent , but in other cases, if i have more value to calculate the sum for I can loss a few euro!
The values are placed in the detail section, TI on the footer section of the report. To calculate TI I used a Text box wich format is currency, Decimal places 2, Control source =Sum([Price]).
I make this same calculations on forms also, there the situation it's worst, the value it's rounding down or up in each case, in this particular case insted of 8,93 I got 8,00.
What's wrong with it? I'm making mistakes somwhere?
Any help is apreciated. I need it soooooo bedly! :)
Thanx,
Attila
View 14 Replies
View Related
Nov 21, 2005
Hi all,
I am a fairly new User to Access and have been charged at work with making some spreadsheets useful. I have 5 workbooks, with approx. 5-9 wkshts per wkbk, each with anywhere from 200-1200 rows. (CT Scanner Protocol information).
My Idea was to link all of the sheets to a reference excel spreadsheet and then to import that as a linked file to access. The problem is that I cannot change a linked fields property, among other things, and have trouble with some blank fields. i have been working on this for a while, searching the net and am still clueless.
Anybody have any Ideas on what I can do? I can email copies of the "sample" sheet I am using (a condensed version that way I don't goof up the main one, plus it is smaller and easier to work with) to anyone who might be able to help. Or any inout here would be appreciated.
Thanks!
Tony Blatnica
View 1 Replies
View Related
Jan 4, 2006
Hi all,
I have a query that returned multiple duplicates of a record (3 or more) between a specified start date and end date (entered by the operator) and displays them into a report. I created the query using the duplicate wizard and changed >1 to >=3 and added "AND ((Guardcalloutsarchive.Date) Between [Start Date] And [End Date]))" to promoted operator to enter date range.
The problem is I only want the query to give me multiple duplicates from within the specified date range only. The query is returning multiple duplicates form the entire table.
Any input would be appreciated.
View 2 Replies
View Related
Sep 1, 2005
I have a number of list boxes that dont show up in the VBEditor under the form name.
To be more specific, these controls do not show up in the drop-down list on top of the code window. If I try to assign an event procedure through 'code builder' to these controls, they refer back to a pre-existing module instead of the form under "Access Class Objects".
I have tried repairing and compacting the database to no avail. Can someone guide me? Please ask for more info if you would like some.
Thanks in advance.
View 2 Replies
View Related
May 8, 2007
Hi all - It's been years since I did anything in access. I'm trying to develop a membership database, and among other things, I want the app to launch with a search screen. I have 3 fields on the screen:
1. surname
2. firstname
3. childname
I want the user to enter anything (even partial info) in any of these fields, and when they hit the search button, a listbox - (best choice?) will display all records that match on any inputted info. If nothing is entered, and the search button is hit, I want all records in the members table to be displayed. I expect the query to be something like this:
if not isnull (surname field and firstname field and childname field) then
select surname, firstname, childname
from members
where surname like [txt_surname] or firstname like [txt_first_name] or childname like [txt_child_name]
else select surname, firstname, childname
from members
endif
What I do not know is HOW to implement this through MS ACCESS 2003.
Any help would be greatly appreciated.
Thanks.
View 3 Replies
View Related
Feb 14, 2008
Hi All,
I'm relatively new to Access and having some difficulty using conditional statements - if anyone could help I'd really appreciate it.
Basically I want to take an order summary table (OrderData) that shows total orders over different date ranges and expand them to show the average order per day for each product.
I'm using two queries to do this, the first finds the average per day for each record (Demand) using this formula: Expr: Sum(([OrderData]![orderamount])/([OrderData]![EndDate]-[OrderData]![StartDate]+1)) That part works fine.
The second query then needs to lookup each individual date of the year against the date range on the original data table, and if the date falls within the range, places the daily average from the prior query in a column.
I had been trying to use this - Expr: iif([Output]![Date] Between [OrderData]![Start] And [OrderData]![End], [Demand]![OptimalAverage],"0") but it's not working.
Any ideas?
View 12 Replies
View Related
Oct 19, 2005
I am trying to open a second form that is linked to the first form but i cant get it to work it keeps coming up with a syntex error
DoCmd.OpenForm "frmstudentperformancepoorprevious", , , popUPID = '" & Me.StudentPerformanceID & "'"
Any ideas?? trying everything to get this form to link and everything is failing even the wizard which works if you just enter the record... but if you go back to it later and use the button it brings up a blank record
View 13 Replies
View Related
Jan 22, 2006
Hello,
Im very new with access, and require a little help
what im trying to do is the following
I require a open form button, i can do this with no problems...
When the form opens, i need it to lookup a REP_ID value in a table to see if any records exist for the REP, if there is, i need it to display the form, with details.
If there are no details for REP_ID in the table, i require the form to open just blank, so input can be added!
How do i do this? Do i do it via code, macro?
Any help would be greatly appreciated
View 1 Replies
View Related
Nov 8, 2005
I open a form with a criteria set but when the form opens it has every record, rather than restricting the records to those matching the criteria. I wonder if anyone has had this problem before? I use a query in the called to get the underlying recordset.
This is my code:
Dim CritText As String
CritText = "[ID1] = '" & Me.ID1 & "'"
DoCmd.OpenForm "frmTestAll", acFormDS, , stCritText
View 5 Replies
View Related
Nov 25, 2005
Hi All,
I have a problem and I can't figure out what I am doing wrong, I have a code:
Private Sub Button4_Click()
Dim compl As String
compl = name1
DoCmd.OpenForm "form1", , , "Field1=" & name1
DoCmd.Close acForm, "form2"
End Sub
Now everytime I click on this button and I enter a value in textbox(name1) it askes for a parameter! This is the only field in the form (form1) where I have this problem by the way. With the other fields it doesn't ask for a parameter. Does anyone know what might be the problem?
View 2 Replies
View Related
May 21, 2006
Access 2003
I'm sure this is incredibly simple, but I can't make it work, and can't find an answer in the forums.
:confused: I want to use OPENFORM to open a form showing only the records where a CHECKBOX is checked. I've tried using a query, using WHERE, using the OpenArgs, etc., but I'm clearly not formatting it right.
so... elements are:
btnActiveJobs (command button)
frmJob (form with job records)
chkActive (check box on frmJob that shows whether job is active)
The underlying Jobs table sets the Active field to yes/no
I'd like to do all this in the event code for the button, but I do also have a query (Query1) that produces the right jobs. Including this as the FilterName criterion has no effect.
View 4 Replies
View Related
May 10, 2007
Hello all,
Does anyone know (and would be willing to share) how one can order the results of a Union query in Access by something other than the returned values?
I have a simple Union query that would work perfectly - if I could get the thing to order the results in a particular order everytime:mad:. The query returns counts (all from one table) of separate select statements that each meet certain conditions (e.g. having state=Nevada, having state=California, etc.) as records - but since Union queries in Access order results in ascending or descending order by returned value, it puts my records in a different order every time the record values change. I need to have them ordered the same way (in the same order as they appear in the Union query, if possible) everytime so that I can return those values to specific cells in MS Excel. Any suggestions would be much appreciated!
View 3 Replies
View Related
Aug 23, 2005
I am trying to open a form with a specified record using double clicked event (list box) but access is throwin "The OpenForm action was cancelled". My code is:
Private Sub lstSchool_DblClick(Cancel As Integer)
Dim test As String
Dim thisForm As String
thisForm = "frmRegister"
test = "ID = " & "'" & lstSchool & "'"
DoCmd.OpenForm thisForm, , , test
End Sub
ID is a AutoNumber field. I have used this code in my other dbz and it works fine ....
View 12 Replies
View Related
May 9, 2006
Sorry about this. I know there is loads on here about this but I just can't get it to work.
I have a basic table of dates.
One form based on the dates via a query
When the form opens, I want it to show today's date but allowing access to all the other date records (so no filter).
Any help please
Oscar
View 14 Replies
View Related
Jun 26, 2007
I'm having a problem with queries, and I can't seem to find a solution in books - I looked through about ten of them and none of them addressed the problem. This may be because it has a painfully obvious solution...
A little background:
I am designing a database for a debt-collection law firm. One of the functions it must have is to keep track of various different sorts of financial transactions which can pertain to a given debtor (ie, a received payment, a cost expended, and a few other things).
The problem is that, in generating reports, I need to use queries to find several sums of only those transactions which fall into specific categories (for instance, to calculate the amount a debtor has paid against his balance, it needs to sum only those entries which are both linked to that debtor's ID number and whose type field reads "payment", and then subtract from that those entries whose type field reads "cost"). The problem is this: not all debtors may have "costs" entries, and when there are none, the report comes up blank with a single "#Error" written in the name field and nothing else present.
I believe the problem is that the Sum aggregate is returning a null value when the query finds nothing that meets the criteria. I have been unable to find a way around this; the Nz() and IIf() with IsNull() functions don't seem to be helping.
The query runs as intended when there are entries for every relevant type; however, it is undesired to have to enter a "payment" of $0, "cost" of $0 etc for every entry just so that this function works.
Is there anything I can do about this? Any input would be appreciated, as I'm fairly inexperienced with the use of Office Access. (If it matters, I am using Office 2003).
View 2 Replies
View Related