hello,
I am on my module, in a public function. This function is called by the onactivate of some forms, which send their form.name to the function.
I would like this public function to find out if the form has a subform(s), and if so, the subform(s) name. So simple, so hard (for me)
thanks in advance
Can someone tell me how I migh find a record in a main form based a a selection in my subform?
I have a Main form called frm_ProductionSchedule.
It contains three subforms:
frm_ProductionSchedule_subform
frm_ProductionSchedule2_subform
frm_ProductionSchedule3_subform
I would like to be able to select a record within any of the subforms and have the main form display it. The main form is linked to a SQL server Table. The subform are based on queries. The unique PK field is a date field called record_date.
I should add that the Link Child/Master fields are blank for all Subforms. Each Subform is linked to a query and displays data for a particular machine (1,2 or 3) AND is updated based on a combo selection of the Production week. The queries for one subform would look something like this:
SELECT dbo_tbl_ProdSchedule.PartType, dbo_tbl_ProdSchedule.PartNumber, dbo_tbl_ProdSchedule.Work_order_no, dbo_tbl_ProdSchedule.FrameType, dbo_tbl_ProdSchedule.FrameNumber, dbo_tbl_ProdSchedule.Shift, dbo_tbl_ProdSchedule.Sch1_date, dbo_tbl_ProdSchedule.Sch1_spins, dbo_tbl_ProdSchedule.Sch1_sheets, dbo_tbl_ProdSchedule.Sch2_spins, dbo_tbl_ProdSchedule.Sch2_sheets, dbo_tbl_ProdSchedule.Sch3_spins, dbo_tbl_ProdSchedule.Sch3_sheets, dbo_tbl_ProdSchedule.Sch4_spins, dbo_tbl_ProdSchedule.Sch4_sheets, dbo_tbl_ProdSchedule.Sch5_spins, dbo_tbl_ProdSchedule.Sch5_sheets, dbo_tbl_ProdSchedule.Sch6_spins, dbo_tbl_ProdSchedule.Sch6_sheets, dbo_tbl_ProdSchedule.Sch7_spins, dbo_tbl_ProdSchedule.Sch7_sheets, dbo_tbl_ProdSchedule.Frames_due_date, dbo_tbl_ProdSchedule.Comments, dbo_tbl_ProdSchedule.Record_date
FROM dbo_tbl_ProdSchedule
WHERE (((dbo_tbl_ProdSchedule.Sch1_date)=[Forms]![frm_ProductionSchedule]![cmbSchDisDate]) AND ((dbo_tbl_ProdSchedule.SpinCoaterNo)=1));
AND WHERE ((dbo_tbl_ProdSchedule.SpinCoaterNo)=2)), etc. Respectively for each subform.
Thanks in Advance!!
John
I'm trying to find a subform record from a separate pop-up form based on its ContractID. When I click the button, I get the following error:
"A macro set to one of the current field's properties failed because of an error in a FindRecord action argument."
When I step through the code, it works just fine. Here is my code:
Code:
'Find contract
With Forms!frmContractForm.frmContractSub
.Form.ContractID.Enabled = True
.SetFocus
.Form.ContractID.SetFocus
DoCmd.FindRecord Me.ContractID
.Form.Business.SetFocus
.Form.ContractID.Enabled = False
End With
I'm trying to search a for string within a subform to find information stored on the mainform to which the particular subform belongs.
The problem is that the subform is generated from a query which uses a number from the main form to generate.
So the subform record is only generated when the correct mainform record associated with it is loaded.
Now to solve my problem I've made a new query that brings up ALL the results that could be generated by the main form and from that I can search to find my search term I'm after and read off the ID number to tie it back to the mainform.
But all of this is done manually, I want a way to do all this using VBA in a way that the user can't edit any records as they are doing it.
Hi,
In an HR application on MS Access 2003, I have a Job form that contains a subform for the child Incumbent record(s).
I would like to be able to find a job by searching for the incumbent's name, but cannot seem to do this in Access. The binoculars (Find) and filter do not succeed.
Is there a way to do this?
Thanks,
Elaine
When I use the built in 'Find and Replace' utility in a subform (datasheet view), it does the replace on multile rows but when I try and navigate to another record on the main form I keep getting an error mesage 'Operation Not Supported in Transactions' and have to close the form and all the previous 'find and Replace' I did have been undone and rolled back to their previous state :confused:
Any ideas how I can the 'Find and Replace' to work on teh subform?
Many Thanks
Hi all,
I have a form for accounts, which has a subform listing the customers within each account.
On the customers form I can use the wizard to add a combo to find a record, but if I want to add a similar combo within the subform, the option does not appear in the combo wizard.
Can anyone enlighten me on why/how to resolve?
Many thanks
Mark
(using Access 2003 on an Access 2000 format db, Win XP Pro SP1)
On a from ("Customers") with tabs I have on the second tab a subform ("Orders") as a single form with a field "Ordernumber". "Customers" and "Orders" are linked through "CustomerID".
On the mainform I have a "searchfield" in which a enter the Ordernumber, I want to find.I cannot manage it, that After_Update of the "searchfield" the ordernumber is found on the subform and the focus is on that subform.The focus only shows me the CustomerID on the first tab, but does not jump to the second tab exactly to thes searched ordernumber.
Code:
Private Sub searchfield_AfterUpdate()
Dim rs As Recordset
Me.CustomerID.SetFocus
Set rs = Me.Orders.Form.RecordsetClone
rs.FindFirst "ordernumber = " & Me.searchfield
If Not rs.EOF Then Me.Orders.Form.Bookmark = rs.Bookmark
End Sub
Is it possible to put a listbox on a subform where it will allow you to find a record on the subform? The wizzard dosen't sem to allow me to do it!
View 5 Replies View RelatedI have an unbound form: frm_ReceiptSearch with some fields that, when something is input, will search a datasheet viewed form on a subform on the main form (subform name is sf_frm_Receipts). Currently, on the txt_CheckNo field's after update event, I have the following code:
Private Sub txt_CheckNo_AfterUpdate()
Dim SrchVar As String
SrchVar = Me.txt_CheckNo
Me!sf_frm_Receipts!REFNO.SetFocus
DoCmd.FindRecord SrchVar, acEntire, , acSearchAll, , acCurrent, True
End Sub
but I'm getting a runtime error 438.
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.
I have a database which has a main form and subform built in linked by parent/child customerid, what i would like to do is search all the subform records from the whole DB and return its parent record on the main form?
Can this be done? because if i use find it will only search the filtered form i have onload of the form?
My onload event is based on fosusername()
The main form in my database is giving me an error message to say "The form name is misspelled or refers to a form that doesn't exist" when I try to open it, despite the fact that I can see it there. If I try to change its name it says "save operation failed". Does anyone have any idea what this could be before I recreate the form?
Thanks very much for any help.
I am trying to add a find button to the form. But I keep getting an error saying "Error accessing file. Network connection may have been lost" I have a feeling it has something to do with the Event Procedure. Any thoughts?
View 2 Replies View RelatedWhy is this telling me it can not find the form?
Private Sub booleanInScope_Click()
[booleanInScope] = Forms![subfrmCoordinatorApproval]![txtID]
End Sub
The form is in the forms and I can open it in form view
I am trying to locate a field in the form. The field is existing in the Tab Order list. But when I use the tab to locate the field in design or run mod, the tab never jump to that particular field.
Can anyone tell me how I can locate the field (in order to change the properties of this field)?
I have made two forms which I use to find particular records on another form and one works and the other doesn't. I can't figure out why one works and the other doesn't.
The working code is:
Private Sub Project_List_DblClick(Cancel As Integer)
On Error GoTo Err_Project_List_DblClick
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Project Details Form"
stLinkCriteria = "[Project No]=" & "'" & Me![Project List] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "Project List", acSaveNo
Exit_Project_List_DblClick:
Exit Sub
Err_Project_List_DblClick:
MsgBox Err.Description
Resume Exit_Project_List_DblClick
End Sub
[Project No] is the primary key in the Project Details. Also, it's the bound to column in the [Project List] list box.
The non-working code is:
Private Sub Assessment_List_DblClick(Cancel As Integer)
On Error GoTo Err_Assessment_List_DblClick
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Site Assessment Details"
stLinkCriteria = "[Assessment ID]=" & "'" & Me![Assessment List] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "Site Assessment List", acSaveNo
Exit_Assessment_List_DblClick:
Exit Sub
Err_Assessment_List_DblClick:
MsgBox Err.Description
Resume Exit_Assessment_List_DblClick
End Sub
[Assessment ID] is the primary key in the Site Assessment Details and the bound to column in the [Assessment List] list box. One difference between the two is that the Assessment ID is a column of 0" width in the list box of Assessment List and a hidden text box in Assessment Details. Assessment ID is a autonumber field. I've tried to make the column have a width and show the ID on the details form and it hasn't seemed to make any difference.
Any ideas about what the key difference is?
Thanks
I have a main form that has two subforms, subform1 and subform2, both connected to the main form. When I enter data into a field in subform1 I want subform2 to requery and update to show the calculated results from the new or changed data in subform1.
I found that if I do a refresh it works when changing the data but not when entering a new line of data in subform1. I tried some code in the after update field of on subform1, but cannot seem to get anything to work.
Me.[subform2].Form.Requery
Does not work. It errors and says it cannot recognize subform2 as a field. I have tried a field name on subform2 but I still got the same error.
Is it possible to create text box for search for records if I use SINGLE FORM?
i try but without effect :(
pls see my database (I want to use for record "Title")
Thanks
I have a continuous subform (BooksFullSubCC) that is located on a tab in the main form (BooksFull). In BooksFullSubCC, there is a text box in the footer that sums up all the amounts of credit card charges to make a total with =Sum([Amount]). For some reason, I cannot pass the value from the text box to VBA or another text box on the main form because Access "cannot find the form".Here's the code
Code:
Private Sub TabCtl93_Change()
Dim Amount As Currency
Amount = Nz(CCur(Forms!BooksFullSubCC!CCchargesTotal))
Me!CCFees = Amount * 0.015
End Sub
Its really simple - Access should take the amount from the text box (CCchargesTotal) on the subform and then put it the result of some simple math into a text box on the other form.When I try and change tabs to initiate the code, i get "Run-time error '2450':Microsoft Access cannot find the referenced form 'BooksFullSubCC'."
I've checked the spelling, rewritten the code, everything. I even tried to make a text box on the main form with control source =[Forms]![Books FullSub CC]![CCchargesTotal] but that didnt work either...
I often move sub forms up and down within a form using something like.
Code:
forms!MyMainForm!MySubform.form.top = 500
However, I am having trouble moving a subform within a subform of a form.
Code:
Forms!MyMainForm!!MySubform!MySubformSubForm.form.top = 500
Greetings - some help required please:
I have an intermittent error occurring on an Access 2k form giving the error
message "cant find the macro '.'" although there are no macros on the form.
After much trawling around I believe this may be due to a space being
mis-keyed into one of the event properties of one of the form’s controls but
I have looked at each to no avail.
My question is therefore two fold:
1. If this is due to a space being keyed how do I, in code, step through
each control and it's events looking for it?, or,
2. If it's not a space what else could it be.
The form opens and works Ok most of the time, the db compacts and repairs and compiles to an MDE and the error appears to not be linked to any one control or event but seems to be triggered more often than not if move from the tab order through use of the mouse.
Ideally I don’t want to redo the form or copy the database objects into a new db as there are too many.
Any help gratefully received.
NB This query was originally posted to the vba section without much success apart from a rebuild suggestion gratefully received from WayneRyan. I thought this was a vba error but may be a macro issue, a form error or could be a general problem so apologies if this is not the correct forum, if incorrectly placed Moderators please feel free to move it
Thanks
Kevin
Given the firmname and textbox name is it possible to programmically get the fieldname and table name where the data for that control is held.
I can use .controlsource and .recordsource
But is possible that .controlsouce is an alias of the actual fieldname.
Similarly the recordsource could be a query, from that I want to get the actual table, complicated say if two tables in the query had a field with the same name (even if only one was referenced)
Thanks.
i am trying to create an append query that gets 2 values from one table and a 3rd value from a form.
It gets the values from the table fine but always gives me a popup asking for the value from the form.
I have used the criteria build... and selected the loaded form and the field value that I am looking for. I have also made sure that there is a value in the field on the form.
is there a reason why the query will not grab the number in the forms field? or am I jsut not doing this right.
I have done this many times on a combo box and it works fine. It is jsut not working for a field that is typed in
Can anyone help me?
Hi People,
I am working on a database related application in which the user enters the data from the form and it is stored in 3 related tables in DB.
This is what I want to do,
If IsNull(Me.Q1_2005) = True Or Me.Q1_2005 = "" Then
rs!January2005 = Me.Jan_05
rs!February2005 = Me.Feb_05
rs!March2005 = Me.Mar_05
If parametername = "time" then
rs!Q12005 = DMax([Me.Jan_05], [Me.Feb_05], [Me.Mar-05])
else
rs!Q12005 = DMin([Me.Jan_05], [Me.Feb_05], [Me.Mar-05])
End If
If user enters monthly data of Jan'05, Feb'05 and Mar'05, but he is not entering quarterly data of 2005 Q1. So I need to update Q1 data in that record, that has a condition. If the parameter name is time then I want maximum of the three month data assigned to Q1 record in DB table else I want minimum of those three text box values assigned to Q1 record in DB table.
Please help me with this kind of conditional statement.
Rushit..
Ok here is the deal
You start to type with a smile on your face
Form_MyForm. <-- from that point (literaly) you usualy have a list of things you can do with that form.
All i wanted to do is a requery but i have no list...and even if i type myself Form_MyForm.requery .. this will not work cause it says that it cant find the dang form.
I have tried renaming the form, let someone else type the name for me, copy&paste ..nothing work, when i get to the point...it never gives me a list of things i can do with that form.
what is the deal here..anyone ?
Wow that felt good only to talk about it