The code I am modifying looping through Me.controls collection to identify appropriate control types. Is there a way to influence the order (sequence) of that traversing? Or in different words, is there a way to assign by design certain item number to a given control?
View RepliesI'm using Access 2010
What I want to be able to do is to assign a back colour to a control from VBA. There are many colours and what I thought would be an easy process was to choose a suitable colour to be assigned using the colour picker for a control, note the hex number then in my vba code would be
if... then me.mycontrol.backcolor=&HF0AD34
This compiles OK, but produces a completely different colour - I'm expecting an orange colour but getting blue and in another example a pale blue is coming out a brown.
Research indicates adding an ampersand to the end changes the value from integer to long but if I type
if... then me.mycontrol.backcolor=&HF0AD34&
The second ampersand disappears. In the immediate window
?&HF0AD34
?&HF0AD34&
?Val("&HF0AD34")
?clng("&HF0AD34")
?Val("&HF0AD34&")
?clng("&HF0AD34&")
All produce the same value of 15772980, which if I copy back to the control backcolour property produces the blue colour and not the required orange - which if i debug.print me.mycontrol.backcolor give me 3452400 - the correct number for orange.
The problem seems to be converting the hex number to a long.
Also how to modify the properties window to show the decimal value rather than the hex value, but can't see anywhere to do this.
I am working with textbox [DispCD] (a date field) on form [Contract]. There is a dropdown on combobox [Searchbox] for selecting the desired record. I am writing VBA in the [Searchbox] OnChange event. The control source for [DispCD] would normally be "=Searchbox.column(11)". If "column(11)" has a date, I want [DispCD] to show that date and then be locked. If "column(11)" does NOT have a date, I want [DispCD] to allow entry of a date with the date picker showing. I've tried to assign the control source to [DispCD] with this:
CSVal = Format(Forms![Contract]!SearchBox.Column(11), "ddd m/d/yyyy") (this works)
If CSVal = "" Then _
Forms![Contract]!DispCD.countrolsource = "=SearchBox.Column(11)"
I get "Object doesn't support this property or method" error.
I have a linked table in ms access and it has a column as details. in ms access when i click on this button i will go to another form. i want to assign a picture (for opening a form) to this column but i don't know how i have to do this. my form opens as a datasheet view.
View 3 Replies View RelatedAuto number will not work for what I want to do. I am creating a simple database that will assign the user with the next incremental number in a field. The intent of the database is for the user to enter three text fields and then obtain the number. I believe that Dmax would work but do not know how to make populate the table.
View 10 Replies View RelatedI have a list of inventory (SR #s) in a excel under column A. And also there are 20 users using ms-access accessing by their user names. If a user completes one item, the next item from the excel should automatically goes to the next available user. After the item allocated to the particular user, under column B the user name should come and in column C there should be a comment saying "Done" Can i have a code for this in SQL or VBA.
View 2 Replies View RelatedI have a query that formats data into a list of personnel who are coming due for refresher training. The query is formatted to provide me all the details that I need to create an outlook task, and assign it to the person. I tried creating a button on my form to create a record set of that query, and then create / assign a task to each person based on the values from the recordset.
Code:
Private Sub SendTasks_Button_Click()
'Create the recordset and set it to the appropriate query
Dim rst As DAO.Database
Dim rstData As DAO.Recordset
Set rst = CurrentDb
Set rstData = rst.OpenRecordset("SendTasks_qry")
[Code] .....
Basically, the compiler stops at "Dim myOlApp As New Outlook.Application" with the error: "Compile error: User-defined type not defined"
I have been pulling my hair out (OK, I would be if I had enough to do so) over trying to assign a value to a control on a form. Basically, when a change is made to the form, I'm using the AfterUpdate event to trigger the code. The code in the event is
Me.txtWho = Environ("UserName")
Simple, straightforward or so I thought. Problem is, it gives me an error stating I cant' assign a value to that object. txtWho is bound to a field in the query underlying the form and the control is enabled and not locked. Can anyone shed some light on this for me please????
I want to retrieve and assign values of a control's properties by naming the properties. So for example:
Dim myHeight As Long
Dim myPropertName As String
myPropertyName="Height"
myHeight = 315
Forms!Myform.MyTextBox.Height = myHeight
I can retrieve the value using Eval:
Debug.Print Eval("Forms!MyForm.MyTextBox." & myPropertyName ) gives 315
How can I do the inverse operation, ie.assign the value of a property whose name I have in a string MyPropertyName? I mean other than a brute-force approach with a huge Case.
Hello! I'm trying to assign a number to a set of rows so I can, essentially, create a dual primary key on a table. Below is an example of what I have...
654321 | Course 1
654321 | Course 2
123456 | Course 1
123456 | Course 2
123456 | Course 3
123456 | Course 4
123456 | Course 5
The numbers are just "student numbers" if you will. Something that identifies them. The second column is basically the name of a course. What I would like to do is number each row, but only within the group of that individual.
Example:
1 | 654321 | Course 1
2 | 654321 | Course 2
1 | 123456 | Course 1
2 | 123456 | Course 2
3 | 123456 | Course 3
4 | 123456 | Course 4
5 | 123456 | Course 5
Can I accomplish this?
Visual Studio IDE environment and I have been working with Access VBA for almost a year now.
I am very used to generating my form controls in runtime and being able to create some cool user interface interactions by being able to say btnExample.OnClick += MyDynamicClickFunction
MyDynamicClickFunction(Object sender, EventArgs e).... code
Any way to assign functions to the events of already made controls on a form. Probably during the load event?
Now I have found that there are many ways to replicate Visual Studio's features by accessing User32 and replicating them
I need the auto number to be in specified format as ASI-23-0001. So I added the format "ASI-23-"0000 in the formats and I got it succesfully.The fueld name is "Part Number"
I have added the Part Number field to a form as combo and I was able to list the values in the drop down combo.
I wanted to use Dlookup command in the program to auto fill the next field in the form say "Description".
I am using the following code
Me.Text30 = DLookup("[Description]", "item_master", "[Part Number] = Form![Combo36]")
But now the data in the combo is treated as text because of the prefix "ASI-23" and I get data type mismatch error.
Is it possible to limit a subform to 3 records?
View 12 Replies View RelatedIs there a way to create a text default value for a control box that is bound to a number field?
I have a combo box that is bound to an auto number ID but displays text. Bound column = 1, Number of column = 2, Column width = 0; 4cm
I want to use sample text in all my controls (and I know an alternative would be to use the control tip text). In a text box it is easy, I just set the default value to that value and then a before_update event considers the text box empty if the field value is the default value (e.g. Name text box has: Name... as default value). This doesn't work with my combo box since the bound column is a number. I could create a value in the table but then it would appear in the drop box and it is messy.
[URL] .....
My access database is used to process vehicle trips. Each shift, a vehicle is assigned a docket number (paper based), and on this docket the driver fills out each trip he/she makes. In a shift (thus on a docket) there may be 5 - 15 trips. I want to create an incrementing number for each trip in a new field - can be created as they are processed or after the fact by looping through the resultant data - whatever is easier.
So in simple terms, return all trips for each docket number then number each trip.
In a form, I have a listview control bound to a TreeView control.
By default LV considers "selected" the first item on the list even if it is not highlighted.
In Form is a command button that performs an operation on the item selected, but to prevent accidental activation requires two tests:
1) the list is not empty
Code:
If LV.ListItems.Count = 0 Then Exit Sub
2) an item is actually highlighted.
How can I make the second test?
I have written a check writer program for the company I work at. I have a table for Venders, and a separate table Invoices set with a 1-many relationship. When checks are printed it consolidates all the unpaid invoices for each vender to print a single check and mark it as paid with the date.
The checks already have a check number printed on them so what I need is an option that will allow me to enter the first check number when the print starts and Access will put that number in a field on the invoices page for each invoice associated with the first vender printed, then would increase the number by one and put that number in the invoices associated with the next vender printed.
I want to use the record number to automatically number items entered into a subform. Anybody know how to do this or if it can be done?
View 2 Replies View RelatedHow do you update a table by reducing a number by 10?
My assignment question is:
10 students have left GY101. Write an SQL UPDATE statement to reduce the class size by 10 for all modules taken by GY101 students.
I can display the students who take GY101 with the following code
SELECT moduleCode, classSize
FROM ROOM_BOOKING1
WHERE moduleCode IN (SELECT modCode
FROM STUDENT_REG1
WHERE sID IN (SELECT id
FROM STUDENT
WHERE courseCode = "GY101"));
But how to reduce the number by 10.
I want to have line item numbers on report look like this:
Number....Order Number
1............9533-1425-20
2............5866-3411-14
3............2332-2355-14
3............2332-2355-14 ->repeating item
4............4399-5208-12
5............7392-2305-62
5............7392-2305-62 ->repeating item
6............2332-2355-14
Each new row of record needs to have their own line item number starting from 1 with criteria if order number is the same then carryover line item number on that record. I know how to get line item starting from 1 to last by assigning unbound control field with entry "=1".
I need to count the days that an item of equipment is used for the last week?
The problem comes if an item is deployed within the week i.e not used for the full week?
I have two fields - MobDate and DeMobDate
I have to create a third called NOD (number of days) which will display the number of days in the previous week that the item was hired out.
I'm currently working on fixing an older 97 database that I've updated to 2010. I have just populated the Drop down box with about three fields. Ideally what I want to do is after having selected the item number from the drop down box I then hit the button that creates a report with the information about that item number.
At the moment...If the box is blank it reports all the item numbers, however if i fill the box(select an item) it returns nothing i.e the report is blank.
I've looked at the query that builds the report, there are only three fields that populate the. location, part number and description. from a tbl called MainDetails
the only other thing:
If([Forms]![frmReports]![FLoc] Is Null,[FUNCTIONAL LOCATION] Is Not Null,[FUNCTIONAL LOCATION] Like [Forms]![frmReports]![FLoc])
it has a criteria of <>False
*FLoc is the drop down box *functional location is the location field.
I believe all the above does is populate the report if Floc is empty.
What can I put to make the report generate what ever I pick in the drop down box 'FLoc' source the three fields from the 'MainDetails table'.
I have a report that i can order through buttons on report or openargs. Is it possible to get a field that would count the number of time an item appears i.e., if I sort it by employee, it would count how many times each employee is on the report, if i sort it by TypeOfMalfunction, it would count how many times each appears.
View 4 Replies View RelatedI'm creating s simple database to track my printer toner supplies, what i want is that..every time I select a date (using date picker) it will automatically deduct 1 from the total number of toners on stock. Right now, i have to input 1 in a field and it will update the remaining toners.
View 1 Replies View RelatedHi,
Can anyone advise why I am getting these two error messages in attached image.
I am running Access 97.
The first message refering to fDesign appears each time I have something open & click on the Design View icon.
The only way I can go into design view for a form or table etc is when I am in the tab windows for the table or form highlight it and click on Design.
The second error message refering to the refresh appears whenever I try to run a refresh command button created via the wizard.
I have the same refresh command buttons on other forms I created earlier on & have no problems with them when run. If I create a new refresh command button on same form it works. But any new forms I create I get this error.
Can anyone please advise what I am doing wrong or which settings I should look at as I have tried most settings.
http://users.tpg.com.au/roccob/fdesign.jpg
Tks
Is there a way to allow edits to the properties of objects/controls only in Design view and not in the Form View?
View 2 Replies View Related