Modules & VBA :: Continuous Form - Display Alternating Colors
Jul 23, 2013
Access 2007: I have a continuous form which, when it opens, uses code to display alternating colors... I need to set a default 'alternate' colour, and I want to find the code to use for Light Grey - on the design of a form, the color to use on a control would be #903C39 but when I try to set that as my default colour in the code it doesn't like it! I can use vbRed, vbBlue, vbYellow, etc, and that works perfectly but I can't find a vbLightGrey
Can we set different colors on specific rows in a continuous form? Suppose the following data entry form (continuous) is to fill in spouse name, while name and marital status is already prepared in a different table. If the marital status is Married, then the spouse name textbox's background color will be Yellow. The standard background color is white.
Name Marital Status Spouse Name ------------------------------------- xxxx Married (Yellow) xxxx Unknown (White) xxxx Not married (White) xxxx Married (Yellow)
I have some images stored in a SQL Table which is linked into Access. These images have to be stored in the database as I also reference them on other platforms (Android, Web etc).
In my Access programme I need to display a continuous form / report showing each image. Now, good old Access cannot display multiple images stored in the database on a continuous form. It can only do this if it is referencing the path to the image.
When the user views the form they will only see about 12 images at a time. I thought of a workaround which is to write the database images back to file to a local temp directory when the user loads the form. The user would be happy to wait for say 10 to 15 seconds whilst the form loads.
However, I cannot find an efficient algorithm to write the images back to a file. The one I am using is a BinarytoString algorithm by motobit which is fine for very small images, but anything over 100kb (which is still pretty small) it goes sooooo slow.
How to quickly write an image stored as a long binary in an Access DB back to a file? Or do I need to crack open my Visual Studio and write some C# DLL to use instead...?
Hi everyone, I've tried several different things to get around this problem and have found out a lot about what won't work!
Basically I am building a HR database. The main table is M_CandidateDetails and the primary key is CandidateID. This is a foreign key in all of the other tables: MCandidateEducation, MCandidateEquipExp, MCandidateSector. (I've attached a screenshot of the relationships.)
Goal: What I want to do is create a continuous form with one record for each candidate. A record will show all of the info pertaining to a candidate. The form is to be used to for searching and filtering candidates.
Attempts.. First I tried creating a query to combine all of the information. (I've attached a screenshot of the query). The only problem with that was if joe bloggs had worked in 3 different industry sectors there would be 3 records for him. (I did have problems with the query not being updatable - solved that though by using the Dynaset property of the form)
Next I tried basing the form only on the M_Candidates table and using listboxes to display the information from the many-side of the various tables. But that didn't work as you cannot use an unbound control on a continuous form.
Then I tried putting in subforms instead of listboxes but you can't use subforms on a continuous form.
I have continuous form in Access 2010. I highlight selected record. Now I would like when user will select record, that record will display button to give ability user delete it. For not selected records button not visible and disable. How to display button only in selected record in continuous form?
I have one color scheme I want to use all through the database I am developing. The next examples have just one color defined, to make it simpler (a dark blue, that I would call B1)
Code: private sub setlabel() Dim B1 B1 = RGB (0,52,105) me.label1.forecolor = B1 end sub
... however this means I have to repeat the color definition every sub, so I thought would be neater to define a function to set my color codes (I have 20 colors).
Code:
Function SetColor() Dim B1 B1 = RGB (0,52,105) End function
My objective, is when I'm working in forms, Iwould (ideally) call this function "setcolor" and just write my code for the blue. I tried the examples below:
Code: Private sub setlabel() SetColor() me.label1.forecolor = B1 end sub
[code]...
Again, this is probably some definition of arguments or dimensions that I am not aware oh. How to predefine the colors in a function to give them a "short" code which I can call in any sub in the database?
I am attempting to make a macro to pull information based on a clicked button to provide information to another form. While my example below will be rudimentary, I am attempting to create so that it can be applied to 450 buttons, hence the need for it to be a macro and not simply code per button.
For example if I have 3 buttons, captioned: red, green and blue. If I click on the blue button, it will open another form with a text-box that will say 'blue'. Likewise, if I click the red button the text-box will be changed to 'red'.
In the code below the section that I need to change is: Command1.Caption. Using this data I can pull from the one button to create the value, but I need it to be based on an OnClick or something in order to pull the value from the right button.
Question 2: I am trying to use a query to change button colour on the basis of values stored in a table.What I want to do is change the button background after comparing the button name to the same variable in a table, and determining another variable.
IE: Button1, Button2. In table: Button1, Val = Y, and Button 2, Val = Z
Pseudo Code: Array: From Button1 to Button2 Query for Button1 against table If Val = Y, Button1.background = red Else if Val = Z, Button1.background = blue Else Button1.background = black End if
I have a log of items I currently inventory. When you click on an item, it opens another form with a sub-form that lists the history of changes for said item in a continuous form display.
What I want to be able to do is when that form is opened, the sub-form will highlight the last entry (either bold it, or change the background).
I have a form that is being used for sample submission. Ideally, the user will be able to put in some information (3 or 4 fields) and the number of samples that they're taking, click the arrow and it will insert that number of samples into a temporary table that is then displayed on a continuous form. From there, they can edit samples, add more samples, and generate a report to submit to the genotyping group. Once their sample list is final, I will append it to the master list and clear the temporary table.
I've got the basics working. A looped "INSERT INTO" using a counter inserts the relevant information. I cannot, however, seem to get the numbering field to work.
Ultimately, the numbers need to look something like MySample-001, where MySample would be one of the other fields. Incrementing the 001 is the problem. In another situation in the database, I can successfully use DMax+1 to assign a single number on a single form, but I can't get it to increment the sample numbers.
Ideally, I'd like it to happen when the form is generated. However, I'm also open to having them assigned when the sample list is finalized, before inserting into master table.
In my database, I have a continuous form with a Name, a Date and a Yes/No field.
When the form opens, I want to look at the date of every record on the form and show a message box if it is before the current day.
The code I have is this;
Private Sub Form_Load() With Me.RecordsetClone While Not .EOF If Me.Date1 < Date Then MsgBox "" & Me.Person & "" End If If Not .EOF Then .MoveNext Wend End With End Sub
However, it loops just the first record the amount of times there is of records (i.e., it will only show the first person's name in the message box, and will show 3 times if there are 3 records).
I am using the following by Allen Browne to sort one field. But now I need to sort on two fields.
Code: Function SortForm(frm As Form, ByVal sOrderBy As String) As Boolean On Error GoTo Err_SortForm 'Provided by Allen Browne 'Purpose: Set a form's OrderBy to the string. Reverse if already set. 'Return: True if success. 'Usage: Command button above a column in a continuous form: ' Call SortForm(Me, "MyField")
I have a mainform. When I click on a command button, it opens up another form. That form is designed to be as a continuous form, yet it does not display the header. The header is present in the form view. I have attached the screenprints to show the header in my form and the corresponding properties window.
What i want is to have a combo box on a continuous form that as you type it filters the Query it is based on using a Like *. and drops downs so the user can see the updated list after each key press? Is this possible?
I have a form (Form4) which has a a list box (list11) that allows multi select. When I select on the records I need I hit a button that opens a form up with the selected records. This form is a continuous form. I have an unbound combo box (Combo55). Its values come from a specific table. I want to hit a button and change the field "Assigned" on all the records showing to the value that I selected in Combo55.
The problem is it only changes the value of the currently selected record. How Do I get it to change the value of all records that are showing?
I am only testing this idea with default field names. Before I implement the database I have to get a working model and present it. So I am building this and naming at the moment isnt important.
Basically I have a continuous form with each record having a textbox and a checkbox. There can only be one checkbox ticked per record but what I want to do is to stop the other checkboxes from being ticked if one is already ticked.
Public Sub cmdRequery_Click() Dim vFlag As String vFlag = Me![EncounterNbr] Me.Requery
With Me.Recordset .FindFirst "[EncounterNbr] = '" & vFlag & "'" Me.Bookmark = .Bookmark End With
The user starts on a continous form and opens a record, makes some changes, and then when that form closes it triggers this public sub.
The code does what I want it to do in that it returns to the last encounter number that was selected (now on the continous form again) and it requeries and shows anything that was changed about the record on the form that was closed before requery.......
But it always resorts and moves it and I want it to stay in the same spot unless the user sorts. Is there any way to make that happen?
I'm trying to sort and filter a continuous form. Sort ascending and filters works perfectly fine. But my descending button doesn't work. I basically have a combo box which contains a field list. Then two buttons (asc. and desc.), then a text box for filter, a button to filter, and another button to reset filter. Here's my code:
Code: Private Sub cmdAscending_Click() If IsNull(Me.cboField) Then MsgBox "Please choose a field.", vbOKOnly, "No field to sort." Else Me.OrderBy = Me.cboField Me.OrderByOn = True
I have a form that I have exported certain fields into a word doc (it is up and running just fine). I created bookmarks in word and put some VBA into my access form, so when I click on 'Create word report' it pops up and automatically populates the record I am on. Here is the tough question,
How to make this work with a continuous form? My main form has several subforms, one being a continuous form. The main form shows one bridge at a time. The sub continuous form shows information for all of the bridges spans (could be anywhere from 1 to 9).
I built a really good database and now I want to dress it up a bit. Does anyone know how to change the color of a command button ? (access 2003) Thanks:rolleyes:
A couple of days ago I was looking to change a form button color in a new database I was working on, I could not. I changed the Back Color to #22B14C but it stayed the same grey color. I could not make the change in that form in that database.
Then I went into a different database that I built and I noticed that the Command Buttons within the form was blue, I changed it to #22B14C and it turned green. What the difference is. I copied the button to the first stated database and in that form and the color stayed to grey even though the Back Color was set at #22B14C. I noticed that the database that the form that I could change the color had Hover and Press color options whereas the first database does not. I copied the form that I could change the button colors to the first database and I could change the colors but they had changed from the second database to the first, I could change the colors but the Hover and Press options were gone.
how I get the first form to change colors and what is the difference between the two databases?
I have a continuous form with a text field that says "Select". There are two other fields, one of which is Brand. When the Brand Combo box has nothing in it I want the text box to appear (instructing the user to select a Brand) But once the user selects a Brand and goes to the next records, I would like the "Select" in only that record to become not visible. I tried conditional formatting but can't apply that to an unbound control ( or at least it is grayed out when I select the text box) and any other possible solutions I have found changes all of the selects - not only the one in the changed record.
I'm trying to populate a listbox from a recordset. I will explain what I'm trying to achieve.
I have a (continuous) form with some data from a table. On the form header I have a listbox, showing all (distinct) customers from that form.
The user is able to do some filtering. That all works great. But I want to populate the listbox with ONLY the customers on the form AFTER filtering.
One way I thought might me the solution was using RecordClone. But I'm stuck there. It must be something simple for an expert. I'm not entirely a newbie, at least not to VBA. Is there an easy way to refer the listbox' recordset to the actual recordset on the form?
Please see attached pic. When I put the focus in some fields, the dividing line is chopped. In other fields, it's not. All controls are identical in format. If I copy a control which doesn't do this, and paste & replace one which does, the two controls simply swap their behavior.
Does anyone know why this happens and how I might prevent it?
