Accessing Sub-form From Main Form
Mar 30, 2005
Hi
I apologise for the newbie type question. However, I am a VB not an Access programmer and the syntax for sub-forms always confuses me! (The FAQ by "SJ McAbney" did not help.)
I have an ADP project (pointing to SQL Server, if it makes any difference) and have implemented a security model based around Active Directory. I use this to set a public variable called "lngSecLevel", the higher it's value the more security the user has.
To impose the security, each form has code similar to the following in the form's open event:
If lngSecLevel = 1 Then
Me.AllowEdits = False
Me.AllowAdditions = False
Me.AllowDeletions = False
ElseIf lngSecLevel = 2 Then
Me.AllowEdits = True
Me.AllowAdditions = True
Me.AllowDeletions = False
ElseIf lngSecLevel = 3 Then
Me.AllowEdits = True
Me.AllowAdditions = True
Me.AllowDeletions = False
ElseIf lngSecLevel >= 4 Then
Me.AllowEdits = True
Me.AllowAdditions = True
Me.AllowDeletions = True
End If
(so "me" obviously is the form)
I have a sub-form "frmFile Damages sub" which is available on multiple forms (i.e. several different and distinct forms, which display the information on the "frmFile Damages sub" sub-form).
The issue is that it is possible for the same user to have different levels of security depending upon which "master" form is displayed (this is a business requirement).
As the sub-form's open event is called before the master form's open event, I cannot just place similar to the following in the sub-form's open event:
Me.AllowEdits = Me.Parent.AllowEdits
Me.AllowAdditions = Me.Parent.AllowAdditions
Me.AllowDeletions = Me.Parent.AllowDeletions
The alternative is to modify the main form's open event with the following code (but after my first snippet):
Me.[frmFile Damages sub].Form.AllowEdits = Me.AllowEdits
Me.[frmFile Damages sub].Form.AllowAdditions = Me.AllowAdditions
Me.[frmFile Damages sub].Form.AllowDeletions = Me.AllowDeletions
However, I cannot get the above to work, irrespective of the use of "!" and ".form".
Any help would be appreciated.
Marcus.
View Replies
ADVERTISEMENT
Jul 25, 2006
I have two subforms. They are in nice neat grids as access setup for me. Both of these forms should have similar data, based on a upc. What I need to do is turn the text of an entire row to red when there is no matching upc in the other subform. The two problems I cannot figure out is as follows.
1. How can I access the forecolor property of a text box in a subform from the main form?
2. How do I access only one row of data, in the default grid?
Any help would be greatly appriciated.
View 1 Replies
View Related
Jun 24, 2015
I have a database with a Main Menu Form, containing a Button that loads my main data entry form. When the Button is Clicked portions of the data entry form that is loading shows through the Main Form Background (e.g. portions of the navigation bars, and portions of the boarder on the form that is loading.)
View 5 Replies
View Related
Dec 1, 2005
I have a subform which makes a change to a field on the main form. When focus is returned to the main form, the BeforeUpdate and AfterUpdate events fire. Why? I thought from the form's perspective, the subform is just another control.
BTW, I get the same behavior if I modify the field from within the Exit event of the subform control.
In either case, the main form's Dirty event is NOT triggered.
View 2 Replies
View Related
Aug 11, 2015
I have my application split, BE and FE. This is a form with a subform.For both I have the properties set to
Data Entry NO
Allow additions NO
Allow Deletions NO
Allow Edits NO
anyone person can open the form, but when a second person tries to open the same form we get the standard, locked by user or user does not have permission.If user 1 logs out then user 2 can get in. So it seems not a permission issue but some setting I have wrong. maybe at the query or table level?
View 6 Replies
View Related
Aug 27, 2014
On the form: User enters first name, then last name. Upon updating the last name field, I would like another form to pop-up and display all the people with that same first name and last name that the user just entered.
On the pop-up form: All of the matching first names/last names are listed with a button control beside each record that says 'Select'. The user clicks the select button beside the record he/she wants. This pop-up form closes and all of the data from this selected record is now showing on the original form.
So far, I have a query/form that pops up only showing the matching first/last names. I'm having a hard time getting my original form to auto-populate with that record that the user selects on the pop-up.
(Also my main form is actually a sub-sub form - so in my trials I could've been massacring my syntax trying to point to it.)
View 5 Replies
View Related
Dec 1, 2005
I currently am trying to do this:
dim a as form
a = me.form
I get the following error: "Invalid use of property"
Is there a function that lets you select a form using its name.
eg: makeactiveform("NameOftheForm")
Or alternatively if there is a function that gets the activeform. (it's for use in a module)
I you can help me Thank you!
View 2 Replies
View Related
Feb 17, 2005
Hi,
I have developed a small database with 3 or 4 forms which works ok on most PC's. But when I put it on a certain PC, it almost works properly except for one form which is very slow accessing the table!
Eg. It could take 2 minutes to use a combobox.
All PC's have Access 2000.
Would there be a reason for this?
Is this an access problem or a PC problem? Are there special settings that I'm unaware of?
Thanks in advance
View 1 Replies
View Related
Dec 6, 2012
I'm working with a form (MainF) ... which has a subform (MainSubF). The subform has buttons that link you to other forms. When you click on one of those buttons, I have a control number that links the two forms by putting a CTR field into the linked form with a ctr defaul that = forms!mainf!ctr.
My problem is that I'd like to use this subform on other forms. However, if I put the subform onto another form such as "MainTwo", none of the buttons on the subform will work because the path is now wrong. Is there a generic way to connect the buttons to whatever form the subform is attached to??
View 6 Replies
View Related
Jun 6, 2013
I have one table containing name of restaurant with its address etc. Then i created another table to list out the restaurant workers names and details. Just as an example,
Table:Restaurant
Restaurant name
Address line 1
Address line 2
Restaurant #
Website
Table:StaffContact
Staff Role
Name
speciality
email
phone
I have the main form that has all the restaurant details only. And i have another form containing the Staff information. Please note the two table have a relation and it works well.
Now to make it user friendly(basically easier for the lazy ones), I dragged the staff contact form on to my main form and displayed it as a datasheet(basically a sub form).
Now, my boss does not want users to add/delete on this sub form(datasheet). So,he wants me to create buttons to open new record of staff for each restaurant(new form)
My issue is with opening a new record to enter a new person to the staff list and give them a role as well in form view.The new form has
So i ran a Macro, with open form with Where condition
Code:
[Staffcontact]![Rest Name]=[Forms]![MainForm]![RestaurantName]
But, it does not work .
View 2 Replies
View Related
Jan 11, 2008
I am having a problem restricting a user from a certain form.
I have a module that detects if a user or admin based on the roles entered in the employees table.
If their windows login is not listed in the employees table, they will not be able to view any of the forms.
Here's my problem, I want the users to access the switchboard, but they should not be able to get into the reporting button.
here's my code:
If LOAStatusbtn.Caption = "View Report" _
And Not admin _
Then
'useraccess denied because not an admin
error_text = "You do not have privileges to access this screen." & vbCr & "Please contact an administrator"
MsgBox error_text, , "No Privileges"
End If
If they click on LOAStatusbtn and their role is not admin, then a message should pop up.
I searched the forum and could not find anything similar to this.
Thank you,
View 4 Replies
View Related
Jun 13, 2005
I have a form containing a subform.
Inside the form, i set up a button. Inside the OnClick code of this button, i need to access the information inside the subform.
To access the info inside the form, i know:
Me.Fieldname
But inside the subform, i have tried:
Me.SubformName.FieldName
or
SubformName.FieldName
And both did not work.
How can i?
View 2 Replies
View Related
Mar 25, 2014
I Created a database that allows the user to create a jobsheet (Sign off Sheet) with inputting minimal information.I am having some problems accessing the data from my form to a report. I managed to get the full name of my AssignedTo and OpenedBy come up with this
=Trim(IIf([tblJobSheet] & " " & [tblJobSheet.AssignedTo] & " " & [Title] & " " & [FirstName] & " " & [LastName],[Title] & " " & [FirstName] & " " & [LastName]))
But this is only bringing up the information in my tblContacts and not actually assigning itself to the jobsheet. I have tried to just put in the "assigned to" but then this comes up as the ID number rather then the full name. And I have also tried to do this via the join table tblJobSheetContact but this only brings up Mr.
View 9 Replies
View Related
May 22, 2014
I want to put some form functions into a module.here is what I currently have in the module:
Public Sub Fun_Test()
Forms!Form_Output!Sequence.ColumnWidth = 250
End Sub
my form name is "Form_Output" but it still cant find it..
View 1 Replies
View Related
Jul 24, 2013
I have a form, which is comprised of a sub form, and some of the text box controls sided with a button, and the event had been written to the button.
Now, to give a note on how had the sub form had been created is firstly taking a clone of the "Payments" table and using it as a datasheet, and then create a sub form in the form, it works fine
View 2 Replies
View Related
Nov 28, 2013
I have a main form (tsTimeSheetMain) which contains a sub form (tsTimeSheetDataNewSub) in data sheet view. When I click off one row onto another row in the sub form, it triggers this code:
Forms!tsTimeSheetMain!ProjectMonSum.Requery
i.e. it tries to requery the ProjectMonSum field (on the main form) which is a dsum calculated field. This works fine and updates the ProjectMonSum field (which dsums values from the same datasource as the subform.
However, this seems to put the cursor back to the top left field in the subform (datasheet view), rather than leave it in the field I click on (in the subform).
Why is this happening and what is a decent workaround this issue? I just want to update the calculated dsum field each time you update values in the subform.
View 8 Replies
View Related
Apr 11, 2005
I have one main form with 3 tabulated sub forms.
My main form consists of two fields.
When the user clicks tab 2 (subform 2) or tab 3 (subform 3) the main fields should hide
I tried to achieve this by using the on click event at the tabbed forms. I referenced the two main fields and used the visible property followed by a form requery. It didn't work.
thanks in advance
View 1 Replies
View Related
Aug 25, 2005
Hi all,
I've added a message box to what is basically a standard simple to use access control, "closeForm", I'm a newbie working on learning access vb. I'm guessing my code if fudged. Any help is greatly appreciated.
Private Sub Close_Click()
On Error GoTo Err_Close_Click
Dim Answer As Integer
Answer = MsgBox("Press Ok to Close, Cancel to Continue.", vbOKCancel + vbQuestion, "Exit Data Entry?")
If vbOK Then DoCmd.Close
Exit_Close_Click:
Exit Sub
Err_Close_Click:
MsgBox Err.Description
Resume Exit_Close_Click
End Sub
Thanks to all in advance
View 5 Replies
View Related
Sep 2, 2006
I'm not sure how to search on this, even in the advanced search. If this has been answered, could you point me in the right direction?
I have a main form AddNewCompany (the infamous tab control that now works - thanks to your combined efforts). On it I have a command button that pops up a form of continuous forms with all the companies in the table (the query calls the CompanyID and CompanyName fields only). I have attached an image of the interface.
This means the user can see if the company already exists and doesn't enter it again. (I'm sure there are more effecient ways of doing this, but this is simple and it works. I also know key fields should be autonumbers instead of text, but I have reasons for doing it this way).
What I would like to be able to do is click on the CompanyID field and have the companies information show up in the main form.
View 14 Replies
View Related
Sep 4, 2006
Can anyone see what I am doing wrong?
I have a main form that has a tab control on it. The main form is called frm_AddNewCompanyContacts. It is opened in edit mode. To see if a company exists I use a command button to call a popup form with a list of all companies' IDs and names. I then want the user to be able to click on a commad button on the popup form to take the main form to that record. After an intial post, and subsequent search, I found the appropriate code. This is what I am using for the onclick event of the command button on the popup form:
Private Sub cmdGoToCompany_Click()
Dim rst As Recordset
Set rst = Forms![frm_AddNewCompanyContacts].RecordsetClone
rst.FindFirst "[CompanyID]='" & Me![CompanyID] & "'"
If rst.NoMatch = False Then
Forms![frm_AddNewCompanyContacts].Bookmark = rst.Bookmark
End If
End Sub
When I click on the command button I get an error message:
"The expression On Click you entered as the even property setting produced the following error: A problem occurred while Microsoft Office Access was communication with OLE server or ActiveX Control (I don't have an ActiveX Control).
*The expression may not result in the name of a macro, the name of a user-defined function, or [Even Procedure].
*There may have ben an error evaluating the function, event or macro."
View 10 Replies
View Related
Nov 13, 2004
I'm trying to sum up the hours of a sub-form on the main form. I've followed the instructions in Access Help so far. I've created a text box in the footer of the sub form with the following control source:
=Sum([Mon])
which should sum up all the hours in HoursMon fileds.
Then I've created a text box on the main form with the following code in the Control Source
=[frmTshtProj Subform]!SumMon
But it doesn't work. I get a #Name? appear in the box instead of a total. Any ideas?
Thanks in advance
S
View 6 Replies
View Related
Jun 11, 2007
Hi
I need code to open TeacherDetailFrm form Main form.
I have TeacherStudentSubFr*m on the Mainform, FirstNameTxt on the TeacherStudentSubFr*m, and TeacherDetailFrm.
I need code to open the TeacherDetailFrm By double click on the FirstNameTxt.
I use this code but no data come and query dialog box come.
Private Sub FirstNameTxt_DblCli*ck(Cancel As Integer)
Dim DocSubForm As String
Dim DocText As String
DocSubForm = "TeacherDetailFrm"
'DocText = "[Result]=" & "'" & Me![result] & "'"
DoCmd.OpenForm DocSubForm, , , "[ FirstNameFld ]=forms![TeacherStudentSubFrm]![ FirstNameTxt]"
End Sub
I like to upload the file but no way in this forum
View 2 Replies
View Related
Jan 23, 2015
I have a 'main' table with a Project_Number that links all the data in my db together. I have another table that uses that Project_Number as a lookup field to connect that tables data to the main data. I created a 'main' form that has the ability to enter data for the 'main' table. I want to be able to press a button and have the second tables form pop up and add that that specific Project_Number. I added the button and went through the wizard process. I then added the linking info through the builder. It works fine if there is already data entered for the project_number in that specific field. but if the field is empty, the popup window doesn't recognize a project_number and doesn't add it to that record. below is what I am using. The project_number in the 'main' table is text and the Project_Number in the 2nd table in a number since it is a lookup field.
Private Sub CongressionalDistrictCmd_Click()
On Error GoTo Err_CongressionalDistrictCmd_Click
Dim stDocName As String
[Code]....
View 9 Replies
View Related
Nov 23, 2013
So I have made all the necessary forms to start working with my Access, and now I need a main form, a home where I should put all the buttons to enter each form.I have used the Navigation Control on a New form URL...
A row with buttons appeared, and I complete the property: Navigation Target Name with the target form, but it is giving me some trouble with a searchForm and a Query. Every time I enter this form (using nav control), Query asks for an Input.
View 2 Replies
View Related
Mar 22, 2013
I have converted an old Access 97 database to Access 2010. Mostly it works fine but I have a major issue with the invoicing forms. It was working in the old database but I cannot get it to work in this version.
I have the usual invoicing option where the lines of the invoice are displayed in a sub form for that customer and line totals calculated. This works fine. I have a sub form total text box in the footer of the sub form which I want to pick up from the main form so that I can add the delivery charge and VAT.
View 6 Replies
View Related
Dec 20, 2011
I'm working on a project that has two tables. "Calls" and "Customers". The Customers form has a subform, "Calls Subform" in it. When you click on the (New) Hyperlink a new form opens, "Call Details". I would like to pull information off of the "Customers" Form and insert it into the newly opened "Call Details" form.
Problem #1) Home Phone (named "Phone" and Text223 (named "CID"): are both bound controls so I have to do this in an OpenArgs type process.
Further details:
On "Customers" the following is true:
"25" is the "ID" for that customer on the "customers" table
"Home Phone" is the home phone number on the "Customers" table
On Call Details the following is true:
Home Phone is Bound to a table "Calls" and needs to pull it's data from Customers Form..Text223 is CID and bound to the table "Calls" and needs to pull it's data from "Customers" form.
View 14 Replies
View Related