How do I load a form from another form? I would prefer to use VB (in fact, its probably the only way you can do it!). I have tried varius commands that would have worked in VB - but dont work in Access, like...
The above code does not work AT ALL. It gets an error at the Unload Me line, an error at the Load Form_tblClients line, and the action 'Show' does not even exist under Form_tblClients, so that wont work either!
I am aware of Switchborads, but i want to know how to load a form, and make it pop up in a new window from within another form.
hi i have a form with 12 checkbox and 1 combobox i use the following code
Option Compare Database Private Sub Form_Current() If Me.Image1 = -1 Then Me.Parent.Image1.Visible = True Me.Image1_text.FontBold = True Else Me.Parent.Image1.Visible = False Me.Image1_text.FontBold = False End If
If Me.Image2 = -1 Then Me.Parent.Image2.Visible = True Me.Image2_text.FontBold = True Else Me.Parent.Image2.Visible = False Me.Image2_text.FontBold = False End If If Me.Image3 = -1 Then Me.Parent.Image3.Visible = True Me.Image3_text.FontBold = True Else Me.Parent.Image3.Visible = False Me.Image3_text.FontBold = False End If If Me.Image4 = -1 Then Me.Parent.Image4.Visible = True Me.Image4_text.FontBold = True Else Me.Parent.Image4.Visible = False Me.Image4_text.FontBold = False End If If Me.Image5 = -1 Then Me.Parent.Image5.Visible = True Me.Image5_text.FontBold = True Else Me.Parent.Image5.Visible = False Me.Image5_text.FontBold = False End If
If Me.Image6 = -1 Then Me.Parent.Image6.Visible = True Me.Image6_text.FontBold = True Else Me.Parent.Image6.Visible = False Me.Image6_text.FontBold = False End If
If Me.Image7 = -1 Then Me.Parent.Image7.Visible = True Me.Image7_text.FontBold = True Else Me.Parent.Image7.Visible = False Me.Image7_text.FontBold = False End If
If Me.Image8 = -1 Then Me.Parent.Image8.Visible = True Me.Image8_text.FontBold = True Else Me.Parent.Image8.Visible = False Me.Image8_text.FontBold = False End If
If Me.Image9 = -1 Then Me.Parent.Image9.Visible = True Me.Image9_text.FontBold = True Else Me.Parent.Image9.Visible = False Me.Image9_text.FontBold = False End If
If Me.Image10 = -1 Then Me.Parent.Image10.Visible = True Me.Image10_text.FontBold = True Else Me.Parent.Image10.Visible = False Me.Image10_text.FontBold = False End If
If Me.Image11 = -1 Then Me.Parent.Image11.Visible = True Me.Image11_text.FontBold = True Else Me.Parent.Image11.Visible = False Me.Image11_text.FontBold = False End If
If Me.ComboBox1 = "No" Then Me.Parent.ComboBox1.Visible = False Me.ComboBox1_text.FontBold = False Else Me.Parent.ComboBox1.Visible = True Me.ComboBox1_text.FontBold = True End If
If Me.Image12 = -1 Then Me.Parent.Image12.Visible = True Me.Image12_text.FontBold = True Else Me.Parent.Image12.Visible = False Me.Image12_text.FontBold = False End If End Sub Private Sub Image1_AfterUpdate() If Me.Image1 = -1 Then Me.Parent.Image1.Visible = True Me.Image1_text.FontBold = True Else Me.Parent.Image1.Visible = False Me.Image1_text.FontBold = False End If End Sub Private Sub Image2_AfterUpdate() If Me.Image2 = -1 Then Me.Parent.Image2.Visible = True Me.Image2_text.FontBold = True Else Me.Parent.Image2.Visible = False Me.Image2_text.FontBold = False End If End Sub Private Sub Image3_AfterUpdate() If Me.Image3 = -1 Then Me.Parent.Image3.Visible = True Me.Image3_text.FontBold = True Else Me.Parent.Image3.Visible = False Me.Image3_text.FontBold = False End If End Sub Private Sub Image4_AfterUpdate() If Me.Image4 = -1 Then Me.Parent.Image4.Visible = True Me.Image4_text.FontBold = True Else Me.Parent.Image4.Visible = False Me.Image4_text.FontBold = False End If End Sub Private Sub Image5_AfterUpdate() If Me.Image5 = -1 Then Me.Parent.Image5.Visible = True Me.Image5_text.FontBold = True Else Me.Parent.Image5.Visible = False Me.Image5_text.FontBold = False End If End Sub Private Sub Image12_AfterUpdate() If Me.Image12 = -1 Then Me.Parent.Image12.Visible = True Me.Image12_text.FontBold = True Else Me.Parent.Image12.Visible = False Me.Image12_text.FontBold = False End If End Sub Private Sub Image6_AfterUpdate() If Me.Image6 = -1 Then Me.Parent.Image6.Visible = True Me.Image6_text.FontBold = True Else Me.Parent.Image6.Visible = False Me.Image6_text.FontBold = False End If End Sub Private Sub Image7_AfterUpdate() If Me.Image7 = -1 Then Me.Parent.Image7.Visible = True Me.Image7_text.FontBold = True Else Me.Parent.Image7.Visible = False Me.Image7_text.FontBold = False End If End Sub Private Sub ComboBox1_AfterUpdate() If Me.ComboBox1 = "No" Then Me.Parent.ComboBox1.Visible = False Me.ComboBox1_text.FontBold = False Else Me.Parent.ComboBox1.Visible = True Me.ComboBox1_text.FontBold = True End If End Sub Private Sub Image8_AfterUpdate() If Me.Image8 = -1 Then Me.Parent.Image8.Visible = True Me.Image8_text.FontBold = True Else Me.Parent.Image8.Visible = False Me.Image8_text.FontBold = False End If End Sub Private Sub Image9_AfterUpdate() If Me.Image9 = -1 Then Me.Parent.Image9.Visible = True Me.Image9_text.FontBold = True Else Me.Parent.Image9.Visible = False Me.Image9_text.FontBold = False End If End Sub Private Sub Image10_AfterUpdate() If Me.Image10 = -1 Then Me.Parent.Image10.Visible = True Me.Image10_text.FontBold = True Else Me.Parent.Image10.Visible = False Me.Image10_text.FontBold = False End If End Sub Private Sub Image11_AfterUpdate() If Me.Image11 = -1 Then Me.Parent.Image11.Visible = True Me.Image11_text.FontBold = True Else Me.Parent.Image11.Visible = False Me.Image11_text.FontBold = False End If End Sub
how to optimize my code to run faster???
the images are 1 KB size , 16x16 pixels and .bmp All of them are insert inside db.
i think images are too small to slow down my code. Can i write the code in a different way?
Access 2007, Sql Server 2008 R2. Problem with refresh.
Form 1, (Single Form) Parent Form, contains Property Year Detail data. PK = PropYrDetID. This is a SINGLE FORM
Form 2, (Single Form) Child form, contains land square footage data from multiple records. PK = SPYDID FK = PropYrDetID. This is a SINGLE FORM.
The code below executes every time Form 1 opens, activates or whatever. The reason is that data in Form 2 changes frequently. Thus every time Form 1 opens the end user will see the latest data.
"Form 1" receives a series of values that it obtains from VBA code that runs when it opens or activates.
"Form 2" has the data being summarized in Form 1.
All of the code and queries below run fine and return the correct values from Form 2 to Form 1. My problem is Refresh on Form 1.
I've tried the code in the On Current, On Activate, On Load of Form 1. Mostly the data shows up in Form 1. Other times parts of the data are left out. I have to hit F5 or close and reopen the form, and then the data appears. When I don't see data on Form 1, I check the underlying table and the correct data exists. I don't know how to achieve a 100% refresh success. I have tried me.refresh and different Events all over the place.
All of the code below runs when Form 1 opens. Queries are fine, Equations are fine, Tests run fine. It's the results showing up that I am having the problem with.
I don't think the issue is with the code but with the Refresh. Here it is for your review.
The term "Equations" is the customers. There are 5 equations. Some have a series of tests after the Equation to determine the result.
Code:
Private Sub Form_Activate() Dim rs As Variant Dim varAOProp As Variant Dim varAOIni As Variant Dim varAOCert As Variant Dim varBORIni As Variant Dim varBORFinal As Variant
Im using ms access 2010 and this program compatible with previously ms access.the error show is type mismatch (error 13) on
Code:
Set rbs = CurrentDb.OpenRecordset("SELECT MSysObjects.Name" _ & " FROM MSysObjects WHERE MSysObjects.Type= 1 And MSysObjects.Flags=0" _ & " and MSysObjects.Name='" & n_tb & "'")
I have an Access application for which I would like to provide potential customers with a fully functional application but with a limit to the number of records that can be stored in the main file.
I would like to have a message displayed to say "The maximum number of records have been reached for this application."
Could you help with the VB code required to do this? The module will become active at the "On Open" property when the main Form is opened.
I have 1 form lets call it Form1 which has a text box called say textBox1(along with many other form components), the will find record they want and then click a button, which i want to open a new different form (Form2) and set a text box on that form (textBox2) to the value of the textBox in Form1.
Dim tmp As String tmp = VolunteerID.Value
DoCmd.OpenForm "Comment", acNormal, , , acFormAdd, acWindowNormal DoCmd.GoToRecord , , acNewRec 'To obtain that varibale was read. MsgBox (tmp) 'Not sure if this is needed 'VolunteerID2.SetFocus VolunteerID2.Text = tmp
I have some trouble getting a form to open maximized. This form is opening from a switchboard that is centered and not sizable. After clicking on a command button in the switchboard the form I am having trouble with opens in its own window, but I cannot get it to maximize automatically. I have been to every setting I know on the form properties but for some reason nothing seems to be able to get that form to open maximized.:confused:
I have a OLE Object field in my Access table. It has a blob (long binary data) already in it. It is a very small .bmp image. How do I get this image from the table loaded in a form to it displays the image? I tried setting this value to a image box, bound object field on form load but nothing is working. Any help would be great. Thanks
I have 3 forms. The only form a user will ever see is F_Main
F_MAIN (Just loads the 2 forms below within itself) F_Data_Short (Grid View.. Rows and Columns.. All Records.. Shows some fields) F_Data_Long (Single Record View.. Showing all fields)
F_MAIN -> On the left is F_DATA_SHORT -> On the Right is F_DATA_LONG
How can I set it.. When a record on the left included form is clicked.. it loads that same record on the right included form. No pop ups...
I know I can use the On Click option for the form on the Left... and set code or a macro to the load the data on the right. I tried everything and can't seem to get the data to load on the right when a record is clicked on the left...
I have a form, that when I create a new record it puts a a =Now() time stamp in the Date Field, but I would like for that time to be updated if anything on the record is changed, later on. How do I update that time?
I have created a small form that hold a cube of 9 boxes on it. The idea is that it will act as a small icon that indicates the system is loading. (Purely cosmetic)
I have triggered the boxes to change colour on a loop when the form loads but the problem is that the loop function is being carried out before the form actually loads. How do I get the form to display first and then carry out the loops to change the colour of the shapes?
How do you open an invisible form when the database opens. In the database's startup options I have the database open a form, however, for some reason I can't set it to an invisible state.
My users run macros in their programs (not forms) the sole purpose of the form is to track which users are logged in the database or not. Therefore, when the form opens/closes, a user-table updated.
I don't want the users to be able to see this form, but I have no way to keep it hidden. More importantly because no other forms are being used or opened on load... I can't open the form hidden. Does anyone know anyway around this?
Could someone tell me what Event I need to put this code in to calculate my fields when the form first opens?
I have this code on both the After Update and On Change events which is working fine, but, when I first open the form, those calculated fields are blank and I have to perform a change or update before the calculations will appear each time.
If Not IsNull(Me.fcstloc) Then Me.prodvolume = DSum("[volume]", "qryMonthlyEngineVolumes", "[product] = '" & Forms!Projects!product & "'" & " And [MonthID] Between " & Forms!Projects.MonthID.Column(0) & " And 12") ElseIf Not IsNull(Me.prodvolume) Then Me.prodvolume = DLookup("[2004volume]", "tblProjectDetails", "[projectid] = " & Forms!Projects!projectid & "") End If
How can I Load a Form into Memory without showing it?
I have a DB with some Forms. None of them are open. I want to check some properties of each form without actually opening them. How can I do this. Probably by loading it. Can anybody tell me how to use the LOAD command to load the Form?:o
Hi, Friend I am bigner in ms acess I have datbase . I want when I load main page sound/music . when i open another page I want another soundplay that music .
Hiya people, was wondering i know that its probably in search and i did have a look but as its the Weekend i won't be able to work on it and want a quick fix if possible, when i open the database i want a menu form to load automatically? Any Ideas?
I have built a database which has a number of forms with a frm_PartNo subform in.When ever I click a button to load one of these forms I get the following error message: ECN Database v1.31 cannot find the referenced form 'frm_PartNo'. But when the form loads the sub form is there with all the related data !
I have a form which load data from variables in record set where i can make insert update and delete i need to load sub form when the form load the problem is that all text boxes in main box load from variable which are in rerecord set and how can navigate using navigation buttons in main form.
I'm a newbie using Access 2007.I am trying to make things as easy as possible for the user of a database that I have been working on. The users maximum screen resolution is 1600 x 900 and I want to have specific forms automatically "maximise" to fit the screen.I have set the Form property "Fit to Screen=Yes" but it does not do what I am expecting and want.I also have "Auto Resize=Yes"
I am having a problem filtering a form on load.What I am trying to say is if the role = Agent then filter on todays completed records and records that have a completed date of Null for the particular agent.
Here is the code:
If Me.txtRole = "Agent" Then AgentFilter = "(CASEOWNER ='" & Me.txtName & "')" DateCompletedFilter = "((DATECOMPLETED = #" & Date & "#)OR (DATECOMPLETED Is Null))" DoCmd.ApplyFilter , AgentFilter & " And " & DateCompletedFilter Exit Sub End If
The filter on the agents works and the filter on the completed date of null apeears to work however when a record is completed it diappears on refreshing of the form even though the record has been completed on todays date.I have investigated the code an the issue appears to be with the DATECOMPLETED = #" & Date & "# part of the code.
I'm trying to open a specific set of records when the form is first opened (namely the most recent date that was added). I'm trying something along these lines and am simply unable to get it to work:
Private Sub Form_Load() Dim strQry As String strQry = DMax("TranDte", "Transaction") DoCmd.OpenForm "FrmSalesInp", acNormal, "", "[Transaction]![TranDte]=" & strQry, , acNormal End Sub
I know how to filter my form so I get the records from a certain query by clicking Advanced>Filter by Form>Load From Query>Selecting the query I want> Toggle filter. What I want is a button that will do this just by clicking it. By default I have set my form to load a blank record. I also have a button to filter by an exact ID number. What I can't figure out is how to write the expression/macro to acheive this on my "Unprocessed button". The red button is the one I need to apply my query to.