What Is The Code Statement I Can Use To Show The Colors Selection Window
Jun 2, 2007
I want the write a code that can be when run shows the Color Selection Window. For example I want the user to select the color of one object in the form by clicking on a button. Then I can store the selected color into variable.
Hi, I have been using Access 2000 for quite a while now. I have been using the Immediate Window to call my code, but for some reason, this window won't display now, no matter what I do - I have repaired the installation and reinstalled it but to no avail
Good Afternoon, Could some kind person please point me in the right direction as to how to stop the 'VB code' window appearing and remaining on my task bar when I initially open up my DB. When I look at whats in the window there seems nothing untoward, but I would simply like to get rid of it as it is annoying?? Other sample db's that I open up on a regular basis are fine, so I was just wondering what could be causing it and how I could avoid it re-appearing..
When the user open the database, the database window will be hided. But, when the user close the database with one form opening, it will show the database window for a while, and then close it.
How to prevent the database window to show at the moment?
Hi All. I created form with unbound listboxs based on query which included Credit field that I want to calculate total and show result in caption of window. If is it possible how to do it? Thanks.
I am used to access 2000 but at the moment I am using access 2003. When I first started using it, I had the usual database window showing - by this I mean the one that has the table, forrms etc listed on the left and when clicking on one of them the created tables, forms etc are listed as will as the option to create.
Somehow, this has disappeared. I have made sure that in the startup "Show Database window" is ticked, but after searching the net, have not been able to find any other suggestions as to how to fix this.
Hope some kind person can point me in the right direction so I can see the tables, queries that I have created.
I woul like to programatically (with VBA code) hide and unhide the database window.
In Access 97, this can be done with Tools > Startup > Display database window box (check/uncheck).
But I would like my program does that himself : when the user launches the application, the database window should be hidden and when he leaves, the database window should be shown again.
I have a combo box set up to select a product and put the price into a text box. I am getting the cost showing up in the text box Therapy_Cost just fine, but the combo box itself does not display anything after I select something. If I remove the AfterUpdate, I do get the item displaying in the combo box, but, of course, don't get the price in the text box. Here are the details. Can anyone help?
Combo Box Name: Therapy_Type Control Source: Therapy_Cost Row Source: SELECT Purchase_Items.ItemID, Purchase_Items.Item_Name, Purchase_Items.Item_Cost FROM Purchase_Items WHERE (((Purchase_Items.Item_Type)="2")); Number of Columns: 4 (In this order - ID, Type, Name, Cost) Bound Column: 1 Column Widths: 0";0";1";0" AfterUpdate: Private Sub Therapy_Type_AfterUpdate() Me!Therapy_Cost = Me!Therapy_Type.Column(3) End Sub
My form has a combo box which is bound to a query that selects a list of member numbers. The value selected the goes onto filter a list driven by an SQL statement.
Code: Private Function PopulateADO(qpMemberNo As Long) Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Set cnn = CurrentProject.Connection Set rst = New ADODB.Recordset
[Code] .....
This works fine when a single member is selected from the combo. But obviously i want a "select all" or * wildcard option.
Question is 2 parts. 1. How do i add the all or wildcard option to the bound combo? 2. How do i code the all or wildcard option into the SQL statement? Is it something like is not null ?
I have a combobox [CBreason] that reads from a table to show me why someone is gaining access to the building.
One of the options is "Incident".
When incident is selected I want a textbox [TBIncidentNo] and a button[BIncidentDup] control I made to appear.
I thought that the code:
If Me.CBReason.Value = "Incident" Then Me.CBIncidentNo.Visible = True Me.BIncidentDup.Visible = True Else Me.CBIncidentNo.Visible = False Me.BIncidentDup.Visible = False End If
Placed in the after update action of the CBReason box would sufice but it doesnt work
I'm guessing the value is not recognised fro some reason but i cant work out why. There is no error message or issus, it makes the box dissapear when there is no entry but no change for selecting incident.
I have an unbound combo box with three columns, which get the values from a query. The first column is hidden. When I close the combo box after my selection, only the second column value is shown on the box. Is there any way that both the second and third column being shown on the box after selection?
I'm working on a published sharepoint web access database, writing a criteria expression in data source of a combo box.The field I'm setting criteria is called SharePointAuthor.
I wrote this critea: IIf(CurrentWebUser(1)="John Doe","*",CurrentWebUser(1))
Trying to show all records when currentwebuser is John Doe, otherwise, show only records created by currentwebuser.Funny thing is that it turns out "John Doe" couldn't see any records, while other users can see their own records as expected.
After hours of playing around i finally have my IIF statement working the proplem is now is that when the Value is null it gives a blank value on my Report. How do i get it to show the value of 0 when it is Null. can i use an isNull withen my IIf statement maybe nested what is best practice?
I have a Form with multiple comboboxes and listboxes whose selections are assembled into a query. The combo-box selection goes into an IF-ELSE statement for a selection check (IsNull) and if there is no selection made, it is supposed give me all values (Blanks & Non Blanks)
Here is a sample of my code:
Code: If IsNull(Me.cbReg.Value) Then RegStrng = " Like '*'" Else RegStrng = Me.cbReg.Value RegStrng = "= " & RegStrng End If
I have several If-Else statements here and a final query assembly at the bottom of the code page which is as follows
Code: MasterSql = "SELECT DISTINCT blah-blah-blah" & _ " INTO some more blah-blah" & _ " FROM even more blah-blah-blah" & _ " WHERE dbo_mytable.[Reg#]" & RegStrng & _ " AND the results from other If-Else statements similar to above"
Here is where the problem comes in:
I see the mistake in my If-Else statement
Code: If IsNull(Me.cbReg.Value) Then RegStrng = " Like '*'"
Like * means it will show me all rows where there are NON-Blanks. However, it skips all Blank Data.
What should the If IsNull() statement look like if I want to show all the values?
If there was only one combo-box and there was no selection made, then the resultant query should show me all results rather than only the results where there is some sort of data within the column filtered by the combobox.
I have a form based on a query in datasheet view. What i would like is to show only those records that fulfill the truepart of iif statment, and do not show the ones that fulfill the false part.
I have the following fileds in the query
month currency 1 checkbox currency 2 checkbox sum
In the form, the control named month contains the following code:
control source: =IIf([checkbox1]=no;[month];0)
So this gives the appropriate months, but also shows the all other records with a 0 in the month field. I would like to get only the records shown that are correct with the truepart of the statement.
So I have a form which is showing the current record and you can scroll through these and make modifications to them from the form as opposed to using a table.
The form has the following fields populated from the main table
Customer name (Can appear more than once) Status Date Servers Positions
In addition it has several buttons for next record, previous record, first & last record, new record, delete record and update record.On this form i have a text box that i want to be able to use to search for a record using the customer name when you press the search button associated with it. I've got some code and it is mostly working but it seems to be moving the text entry cursor to the date box of the record for some reason.
What I want it to do is take the text from the search box and find it and move the form to that record.
Code: Private Sub btn_cstmr_srch_DblClick(Cancel As Integer) On Error GoTo HandleError Dim strFindWhat As String strFindWhat = Me.txt_cust_search.Value
In the initial Form_Open code there is a string that fails before the form is open, preventing me from opening the form and accessing the VBA code to correct the problem.How can I access the VBA code to correct the problem if it otherwise prevents me from opening the form so I can access the VBA code?
I have a form that has numerous fields, there is one field that is called the "Relationship Code" it gives any customers who have a certain relationship a 3 digit number. I would like a command button that you can press that will take the current record shown and filter their relationship code, to only show those records who have the same code. I know this can be done by going to the field>right clicking>and saying Equals " ". But I want a button with code that will do this automatically.
'WHERE ((OperationalRiskEventTable.DateReported)>=Forms!U pdateForm!UDateBegin And (OperationalRiskEventTable.DateReported)<=Forms!Up dateForm!UDateEnd)'
in a query by form.
The problem is that you have to enter a date in the between values for results to show. If I don't enter information into a different field such as Full Name but I enter in 40 into Age then everyone that is 40 years old will show. On the other hand if I enter 40 into the Age field but I leave the Date Reported fields empty then no results will show.
How can I change it so that I don't have to enter dates into the date reported fields for results to show?
I have a parent window which upon clicking on a button will pop-up a child window containing a listbox. The listbox recordsource is a subset of the parent window. I want the user to select a record from the listbox which will load the selected record onto the parent window.
How does one pass argument back from child window to parent window?
From parent window to child window, I used docmd.openform ,,,,,,[argument] and me.openargs in the child window
The picture i have attached shows how i want a form to show, WITHIN its own window basically.
At the moment on my new database i am making, it will only show in tabs along the top, no matter what i try i cannot seem to get it into its own window if that makes sense.
No matter what i do when i view the form it just fills the screen regardless of the size in the design view, i am about to throw my computer out the window over something so simple!?!?
The picture attached i think i created that database is Access 2010, this new one is in 2013, and i dont know how to do this simple thing!
I have a subform that returns a bunch of records. Each of the records returned has a LANE_ID, so in this example, there are 10 records returned, 5 with LANE_ID = 11111and 5 with LANE_ID = 22222. Is it possible to alternate the backgrond color for each of these groupings?
I have found examples of how to change the color of alternate rows, but I can't find anything that would tell me if what I want to do is possible.