Modules & VBA :: Subform DS Click Field To Open Tab On Another Form
Apr 19, 2015
How do I reference a subform DS field to open up a tabbed form on another subform.
Here's what I have.
field one on the Sub DS opens up tab one on another form, as does field two on DS open tab two on another form.
but..
how can I click on "any" field on the DS, run an IF statement, and it checks if that record on the Datasheet, contains information in regards to, IF field one OR field two contains any data, and opens the tabbed form respectively on the other form?
View Replies
ADVERTISEMENT
Aug 16, 2006
I all I have looked in the forum but can't find anything that matches I have a form containing a subform called eventswich shows some events in date order, as I have too many information on the table events I could not put them all in the subform if not only the essential information, what I need is if I double click on the field "DATE" it would open the "EVENT" form and show me all the information contained in the record.At the present time I have the filed SELECT RECORD set to NO on the form properties!
Hope I have given a good explanation!!!!
Thanks
Marco
View 9 Replies
View Related
Apr 7, 2008
I have the following code attached to a form:
Private Sub Go_To_Project_Click()
On Error GoTo Err_Go_To_Project_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Project Main"
stLinkCriteria = "[R&D ID#]=" & Me![lstsearch]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Go_To_Project_Click:
Exit Sub
Err_Go_To_Project_Click:
MsgBox Err.Description
Resume Exit_Go_To_Project_Click
End Sub
Private Sub txtsearch_AfterUpdate()
Me.lstsearch.RowSource = "Select [R&D ID#], [SKU#], [Project Name], [Construction level], [Manufacturer], [Hobbico Status], [R&D Work By], [Product Manager], [Desktopper]" & _
"From [Project Main]" & _
"Where [Project Name] like '*" & Me.txtsearch & "*'" & _
"OR [SKU#] like '*" & Me.txtsearch & "*'" & _
"OR [R&D Work By] like '*" & Me.txtsearch & "*'" & _
"OR [Product Manager] like '*" & Me.txtsearch & "*'" & _
"OR [Desktopper] like '*" & Me.txtsearch & "*'" & _
"OR [R&D ID#] like '*" & Me.txtsearch & "*'"
Me.lstsearch.Requery
End Sub
Private Sub Exit_Search_Click()
On Error GoTo Err_Exit_Search_Click
DoCmd.Close
Exit_Exit_Search_Click:
Exit Sub
Err_Exit_Search_Click:
MsgBox Err.Description
Resume Exit_Exit_Search_Click
End Sub
Basically a text string is entered in the txtbox and a list of matching records shows up in lstsearch box. One selects the desired record in the lstsearch and clicks on the "Go to project" button and the appropriate form (aka "Project main") and subform (aka Project History) open up with the desired record and record history.
What would I need to add to lstsearch so the users can double-click on the record to open it instead of selecting it and clicking on the "Go to project" button?
Thanks
mafhobb
View 10 Replies
View Related
Apr 3, 2014
I have a Project form, which holds StockArtProduction_Subform in datasheet view. I need for them to be able to click on the ID in the StockArtProduction_Subform datasheet and it open a single view form (StockArtProduction) with the correlating ID.
Ideally, it would also work for new entries in the StockArtProduction_Subform, but the StockArtProduction form would have to "auto populate" (did I use it right?) with the ID of the currently open Project form.
View 14 Replies
View Related
Jun 16, 2015
I have a subform 2SiteList (Datasheet View) with the field SiteName... i also have another form SiteDetails.
if possible i would like to be able to double click on a SiteName on the subform and have the SiteDetails form to open to show the full details.
View 1 Replies
View Related
Oct 29, 2013
I have some code for a button on click event to open a form and select the record which corresponds to a value in an unbound text box. The code is:
Private Sub Command25_Click()
On Error GoTo Err_Command25_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmOpenPatientRecord"
[Code] ....
This works fine when I put in a 10 digit NHS number but opens a blank record when I enter a four digit or six character/digit PatientNumber. Both patient number and NHS number are text fields in the underlying table.
View 14 Replies
View Related
Nov 26, 2007
Hi,
I have a form build up with a subform in access 2003. Then I have an Insert button on this form which when clicked opens another form which is build up with a combo box. Now, when I select a field for example (Student_ID) from the combo box I would like to be in a position to click it once (the respective student_ID) so that the student_ID in that field is transferred to the subform of the initial form, which has a Student_ID field to store the respective student_ID in the table with the Subform.
How can I do that?
Any help will indeed be highly appreciated.
Regards
View 2 Replies
View Related
Sep 5, 2013
I have a form called GetdataFrm. Within it i have a combo box that filter a query. When the combo filters, it populates a continuous subform called GetDataQrysubform. GetDataQrysubform look like a table that contains this Jobcode information:
EmployeeID Jobcode CardAccess Folders Software
When I filter the GetDataFrm form, I want to be able to click on a Employee's EmployeeID number from a single record in GetDataQrysubform and then a form called SingleRefrm would pop up taking me to that record.So far I have a event procedure coded to open up SingleRefrm, when the EmployeeID field is clicked but its not working. The code looks like this:
Code:
DoCmd.OpenForm "SingleRefrm", acNormal, , "EmployeeID = '" & Me.EmployeeID & "'"
View 9 Replies
View Related
Jun 21, 2013
I want to Double-Click on a row of a subform to open a related table/form that are connected with a common ID. So far, I tried the following code, but it does not work.
Private Sub PackingSlipT_subform_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ProductT"
stLinkCriteria = "[PackingSlip_ID]=" & Me.PackingSlipT_subform.Column(1)
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
View 14 Replies
View Related
Mar 7, 2014
I have a form (frmSearch), based on (I think) John Big Bootys code. On it, a search box, which filters results as you type. Works great.
Instead of presenting the search results in a listbox, I wanted it in a subform (sfmSearchresults). Also works great.
Problem was this: I wanted a button on this form, to open another form based on [CustID]. For a listbox, I could use columns(0), but not for a subform. After much trying I got this to work:
Code:
Private Sub cmdVisaPren_Click()
Dim strWhere As String
strWhere = "[CustID] = " & Me.sfmSearchResults.Form.Controls.Item(5)
DoCmd.OpenForm "frmAddCust", acNormal, , strWhere, acFormEdit, acWindowNormal
End Sub
The part that I don't understand is the Item(5). The subform is based on a query (qrySearch), from tblCustomers. tblCustomers fields is as follows:
CustID, FirstName,LastName,Adress1,Newspaper1,Newspaper2.
Item(0) in strWhere would return Adress1 as [CustID].
Item (1) = Newspaper1, Item(2) = Newspaper2, Item(3) = FirstName, Item(4)=LastName, and (finally) Item(5)=CustID.
I don't get the logic. With listboxes, I could just count columns for columns().
Have attached my database. It's just a test database, with 4 people. The final database will have about 1200 people, and many more fields. Its .accdb (Access 2013). I tried converting to Access 2002-2003, but couldn't get it to work.
View 4 Replies
View Related
Apr 3, 2014
I have a form with two subforms. One subform is a datasheet that pulls data from a temp table. During the other subforms Form_Current, the temp table is emptied (DoCmd.RunSQL "Delete from tblAddRefs"), reloaded with data relevent to the current record, and requeried (Forms("frmEDFP").Controls("tblAddRefs subform").Requery). This works like I want it to...
With the exception of the initial load of the main form. The subform based on a table shows (#Deleted) instead of data. if I step through the code, I can see that the temp table is emptied and repopulated by the time I try to requery the subform. This is still happening during the Form_Current of the other subform, which is successfully running on main form load.
If I requery (Forms("frmEDFP").Controls("tblAddRefs subform").Requery) using a button on the main form once it is loaded, the #deleted data is correctly is replaced by regular data, so it's like the requery in the Form_Current event isn't doing anything during load.
View 2 Replies
View Related
Sep 22, 2013
I have a Table table_clients and a connected table (1-->many) table_invoices.
I have two forms:
form1(table_clients): all clients with subform1(table_invoices): all invoices for every client
the form2 and subform2 are the same, just objects are placed differently on page.
I want when I have opened a record on form1/subform1, to be able to click a button and open form2/subform2 filtered by the invoice_id and the client_id.
View 13 Replies
View Related
Aug 30, 2013
When you click on your database icon to open up your database, is there a way I could set a form to automatically open ....
View 2 Replies
View Related
Aug 13, 2014
I have a form that contains a subform. I want to make a button that on click updates all the records listed in the subform. This is the best I came up with.
Dim rs As DAO.Recordset
Set rs = Me.SubList_for_Billing_Center_Form.Form.RecordsetC lone
With rs
.MoveFirst
Do While Not .EOF
.Edit
UPDATE Billing SET Billing.Billing_Declined = True, Billing.Billing_Declined_Date = Date()
[Code] ....
View 1 Replies
View Related
Jul 11, 2006
I have a few search forms that, when search parameters are entered, a continuous subform displays the results (summarised...not all fields show).
I want to be able to double click a field in any given record, and have it open in a form allowing editing of the record.
I know I need something in the OnDoubleClick event of the text box I want to double click, which would then open the form, but I don't know what code to use.
For the sake of argument, I want to double click on the txtSerialNumber text box to do it, as this is a unique field.
Thanks.
View 7 Replies
View Related
Dec 14, 2006
Hello..
I have the following code that I have been trying to get to work:
Private Sub txtSocNumber_DblClick(Cancel As Integer)
On Error GoTo Err_txtSocNumber_DblClick
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FrmApplicantFullDetails"
If IsNull(Me.txtSocNumber) Or Me.txtSocNumber = "" Then
MsgBox "This record is empty", vbInformation, "No Data"
Me.txtSocNumber.SetFocus
Else
stLinkCriteria = "[ApplicantID]=" & Me![InvestigatorID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_txtSocNumber_DblClick:
Exit Sub
Err_txtSocNumber_DblClick:
MsgBox Err.Description
Resume Exit_txtSocNumber_DblClick
End Sub
I have the following two tables:
Applicant and Investigator
Applicant:
ApplicantID
InvestigatorID
etc
Investigator:
InvestigatorID
etc
The relationship is setup as 1 investigator to many applicants.
What I am trying do is this. I have form with a subform in it. In the subform there is applicant info IE SS# LName, FName and that is it. What I want to do is be able to double click on the SS# have the form "FrmApplicantFullDetails" open so you can view the work up on the applicant or edit info on the applicant.
Am I going about this the right way with the above code? Or is there something else I am missing in the code or is there code out that will do what I am looking for that is easier?
Thanks
R~
View 5 Replies
View Related
Jan 27, 2014
I am trying to create a proposal log for my company to make things easier to track. I have made a multiple items form to list the proposals. I want to be able to double click the record to open up another form (that i have already created) that shows the information from the proposal table and the proposal details table. So.....
I want to double click the field named "Proposal Name" and have it open up to form i have called "proposals details form".
View 3 Replies
View Related
Dec 11, 2012
i want to ask is there any way to open another access database using when click button at form.. for example i have tracking.accb then at my switchboard form, i would like to have a button that can go to another access which is borrow.accb. can these possible for me to do it..?
View 3 Replies
View Related
Dec 11, 2012
I want to ask is there any way to open another access database using when click button at form.. For example i have tracking.accb then at my switchboard form, i would like to have a button that can go to another access which is borrow.accb. Can these possible for me to do it..?
View 4 Replies
View Related
May 4, 2014
I have a mainform with a combobox and a button. What i want is when i click on the combobox and then on the button I want that the textbox in the subform automatically fill in.
The mainform name is FrmTakenInvoerenEnToewijzenAanEenMonteur,
The combobox name is Keuzelijst1,
The subform name is SubTakenInvoeren,
And the textbox name is txtOpdrachtnr.
I tried this code in on button click:
Me.SubTakenInvoeren.txtOpdrachtnr = Me.Keuzelijst1
But that doesn't work.
View 7 Replies
View Related
Sep 4, 2014
I have a form called frm002_PAF_MonitoringMAIN and on this form I have a subform called frm002_PAF_Monitoring. The subform has a button to another form for contact details called Contact_Details. The Contact_Details form opens with the details of the person who I have selected on frm002_PAF_Monitoring. There are some fields on frm002_PAF_Monitoring that I would like to be populated on Contact_Details when opened, like FirstName and LastName. How can I do it?I have tried on afterupdate event on Contact_Details below but those don't work:
Me!FirstName=[Forms]![frm002_PAF_Monitoring]![FirstName]
Me!FirstName=[Forms]![frm002_PAF_MonitoringMAIN]![frm002_PAF_Monitoring]![FirstName]
Me![FirstName].Value=[Forms]![frm002_PAF_Monitoring]![FirstName]
Me![FirstName].Value=[Forms]![frm002_PAF_MonitoringMAIN]![frm002_PAF_Monitoring]![FirstName]
View 11 Replies
View Related
May 12, 2014
I am trying to make an on-click event that would open a form showing the last inspection done on a site.
Unfortunately, I cannot even first create a dlookup function to use, so I haven't even attempted the rest!
The data needed to reference is in one table, and I just...can't... quite get it.
Here is my last attempt (which at this point probably isn't my best )
Code:
=DLookUp("InspectionID","tblInspections","SITEID = '" & [Forms]![frmFMHome]![txtSITEID] & "' AND InspectionDate = #" & DMax("InspectionDate","tblInspections","SITEID = '" & [Forms]![frmFMHome]![txtSITEID] & "'") & "#")
After breaking it apart I'm pretty sure the DMax function (and using date?) is the culprit, but I can't figure out why.
View 3 Replies
View Related
Apr 10, 2013
I have created a Datasheet Form which when opens shows lots of records. I was looking to see if there was a way that if i clicked on a specific field name within a record it would open a new form with all the information of that record only.
View 5 Replies
View Related
Jul 17, 2013
How to open a search form with a mouse click on Button_Search
My idea is to pop up a form where user can enter the search text and select the required name and get back to the old form with all details about the entry. This form alone is workign fine. I want to call it in a mouse click. and pass the data back to old form.
View 7 Replies
View Related
Jul 16, 2012
I have two forms. One is a datasheet. One is a form with a default view of Single Form (which contains combo boxes).I want to have the user select (click) on a record in the datasheet and have the second form open to that record. The datasheet form acts as an advanced search on two title fields.I tried the open form macro but I dont know how to have to second form open to a specific record.
View 9 Replies
View Related
Oct 24, 2004
This may be a really simple problem but it has me stumped. Working in Access 2002, I have a form with a subform (continuous). When the user clicks on a textbox in the subform, I need to capture the value and pass it to the main form so that it can be used to create a filter for yet another subform (not nested) on the main form. How could I accomplish this? Thank you in advance!
View 3 Replies
View Related