Modules & VBA :: Make Table - Assign Custom Formatting To Numbers
Oct 6, 2014
I am using VBA to execute a 'Make Table' (named 'DT'). One of the fields in DT (named 'Dollars') contains numbers that have 6 to 8 digits; some are positive and some are negative.
These large numbers with no commas (or parentheses when they're negative) are incredibly hard to read.
Any VBA coding that will change both the "Format" and the "Decimal Place" Field Properties on the table I make (i.e. "DT"). I want to the Format property to read (#,##0.00;(#,##0.00)) and the Decimal Place property to read "2"). This will allow me to display a number like -10326786.41 as (10,326,786.41) which is incredibly more readable.
Is it possible to do this programmatically; I've search the internet high and low and could find anything remotely useful.
I am very new to database building.I need to create a registeration database for a shooting sport competiton event that can either automatically assign each new registerant a target number when they are entered into the database, or allow me to enter different number if I wish.
I have a table (tblPrinterSelection) with three fields: Autonumber, DocType, PrinterSel
There are three types of values for "DocType"; "Document", "LargeLabel", "SmallLabel"
I want to assign a "PrinterSel" to each type of "Doctype", which basically means that the user selects the type of document and then the printer in a form that has the code below and then I need the code to automatically update the table.
Code: Dim PrintSel As String Dim DocType As String 'Assign a value to the printer selected variable PrintSel = Me.lblPrinterSelected.Caption If IsNull(Me.frmDocType) Then MsgBox "No document type selected."
[code]....
What i am looking for is code that would pick the value for "DocType" and "PrintSel" assigned here and add them to the table so that I can use that info later.
I am only looking to have three rows in that table so if the "DocType" does not exist then a new row is created but if it does, only the value of "PrintSel" is updated.
I should end up with something like this:
1 Document Epson 2 LargeLabel HP 3 SmallLabel Canon
I am trying to return a single value from a table and assign it to a string to be used later but Dlookup isnt working at all. below is the code im using and the error message im recieving is "wrong number of arguements or invalid property assignment"
Code: Sub boo() Dim result As Integer result = dlookup("Definition", "Config", "Parameter = 'Mail Folder'") End Sub
I have created a hyperlink field with the website urls in them.
What I am trying to achieve is to create another field to automatically convert the hyperlink field into a hyperlink that displays "Website" automatically for every record. I do not want users to type in the URL and then have to fill in another field to display it as 'Website'. Having both fields is important for reporting purposes and form use.
How may I achieve this? I have tried to use calculated field like: =Website# & [WebsiteURL], but to no avail.
Is it possible to set a custom background color for conditional formatting? Don't particuarly want to do it via code, but I suspect it might be the only way. If coding is required, can someone advise how and where to put it?
You see, I have a form with a custom background colour. In the conditional formatting criteria, all I want to change is the font color for the control, but when the critiera is set it automatically changes the background to white.
I have a continuous subform with a checkbox and a textbox. If the checkbox is checked, I would like the textbox to enable. Since using code will enable the textbox for ALL the records, I'm assuming I need to use conditional formatting.
The problem is that I'd like to set the Locked property of the textbox as well. Just disabling the textbox makes the text hard to read -- it's currently white forecolor, blue backcolor and disabling would make the forecolor grey. The conditional formatting dialog looks like it doesn't use the Locked property, so is there another way I can do it?
Along the same lines, I'd like to use a custom color for my formatting (my blue isn't a standard blue color). Is there a way to enter the numerical value for the color, rather than just pick one from the palette?
I'm using access 2003. I've got a textbox placed ontop of an image that I want to make it seem to disappear on a conditional format.
The back color property of the textbox I want to set is "13160660". How do I choose this colour when applying conditional formatting as I only seem to be able to choose from the swatch of 40 default colours and no option to define custom colours.
Hi all, I am trying to format three fields to write to a table. For reasons unknow they are created as text so I tried using Cint, Clng and cdbl to export thee fields as numbers so when they are exported to an excel spreadsheet they are as number fields. This actually works for exactly that but the end result knocks off the leading zero if the value is 0910 it ends up as 910. The source table it pulls this from actually has the leading zero if the length is less then 2. How do I get to format the fields to numbers but keep the exact value ?
My database is a maintenance record of our building complex. The unit/building number is the key field. The problem I am having is having access recognizing the unit numbers and building numbers, not as whole numbers. Example: I-380, 10-380, 2-390, 13-370, and so on. When sorted, access treats them as whole numbers. I have tried two separate fields but it would be nice to have only one field and be sorted by building numbers. I am not a coder so be gentle. Can you help?
I try to modify an access 2010 template from the MS website.The problem is that the template as is programmed does not accept as input negative prices. I need to use negative prices for offering discounts on my invoices. In my country the discounts are only displayed as products with negative prices/values. We do not use % discounts.
i try to create an products with negative price and to use it as an discount on the invoice. Both the products input form and the invoice input form give me the same error : "please specify an price list that is not negative" or "please specify non zero positive prices" ( sometimes it allow me to enter but when the software try to validate the form/invoice i just entered it give me those error/messages)
I changed all the field from currency in general numbers Where do I have to change in order to remove those formatting/condition..? The template has a lot of macros.. I an not able to change those macros if there are some formatting conditions in them. If it is allowed I will post the link to the free template i use to be more conclusive..Or I can give/ upload the template I use. the link to my data base ( dropbox)
If I wanted to build a database in Access can I make my own file bar. Let's say that I wanted to build a gun inventory but wanted the tool bar at the top to have the specific files I want people to click on. How is this done? Is it done with another program used as a developer with Access database? Hope this makes sense.
INSERT INTO table1 (column1, column2, column3, column4, column5) SELECT (field1, field2, field3, field4, field1 & "" && field2) FROM mastertable
According to the format desired by a client, column5 from table1 needs to have field1 and field2 concatenated and represented as two-digit numbers if they're a one digit (has a leading zero).
Code: SELECT tblData2.Prefix, tblData2.LineNum, tblData2.Year, tblComments.comment, tblComments.Address FROM tblData2 LEFT JOIN tblComments ON tblData2.LineNum = (NumbersOnly([tblComments].[Address]) WHERE (((tblData2.MyYear)<1990)) ORDER BY tblData2.LineNum;
The NumbersOnly function returns a set of numbers from a custom formatted string. The above fails on the join (I think) but maybe there's another way of doing it?
I have a query in my database, and I have recently added new possible entries for area. My report tells me how many male chickens vs. how many female chickens I have. Now with the new entries for area, I want my breakdown to EXCLUDE any chickens that live in a specific area.
For instance:
Pen A has 15 males & 15 females. Pen B has 12 Males & 13 Females. Pen C has 50 males & 50 females.
Pen C is the recent addition...
Right now my report shows: 77 Males & 78 Females...
I WANT it to EXCLUDE Pen C, so it would report: 27 Males & 28 Females.
Can anyone tell me how best to do this? I figured I would add a custom field to the query that the criteria for is "Pen = C" and then on my report I would change the data source from: =Count([Chicken Query]![Male] --- and make it =Count([Chicken Query]![Male] - Count([Pen="C"]) --- or something like that.
Can anyone help me? And if so could you help with the proper code for the second part that I am adding new? I know the Count([Pen="C"]) isn't right, but until I know exactly how to add a custom field to the current query, with the critieria of Pen="C", I don't know how to write the -Count([NewField]) code, if that would even work.
I want to print the results of a query where some values are whole numbers, some have 1 decimal place, some have 0.3333333 recurring etc. Problem is that in order to fit all the columns on a page the column width does not allow all the 0.33333... to display. So what I see is like this (there are lots of columns, I am just giving an example from one column)
891 833.5 ######
I don't want to fix decimal places to 1 because then I would see 891.0 instead of 891. How can I format the number field so that whole numbers are shown without decimal place, numbers with 1 decimal place stay like that i.e. 833.5 is fine as it is. But display something like 313.666666666667 as 313.67 rather than ##### getting put in as not enough room for all the decimal numbers.
i have a database. the database have a table called CardDetails in this table there is like 1000 rows.The table have a field named MedicalId. and i have a folder . it's destination (D:CardPic) . this folder contains 1000 pic has the same names as the medical ids....i need to make a report and show on it these pic's the database doesn't have a afield that contains the path.i need to auto display the images on the report depending on the medical id.
I'm trying to copy the structure of a table to make a temp table. I'm using CopyObject (which also copies the data). So when I delete the data from the temp table, it also deletes data from the source table. Is the data linked? It should just be deleted from the temp table. Below is the beginning of the code. I've stepped through, and at the last step shown, the data in the source table deletes.
Code: Dim strFile As String Dim temp As String Dim tbl As String Dim db As DAO.Database
I have 2 fields that I would like to automate if possible
One field is called "p/o number" and another field called "line no"
These fields are part of an ordering database
Let say I have 200 items to purchase form 10 suppliers
And form example 20 items from each supplier
What I do at present is put the order number on each line item and the line number
example
p/o number line no
1 1 1 2 1 3
2 1 2 2 2 3 2 4
What I want to do is just put the first po number in the required line . Put the first line number in i.e. "1" and the macro will complete all the p/o numbers and line numbers for me as per the ones marked in red.
I have a table with 3 fields. The fields are down1, down2 and down3. . I would like to use this table to create a new table (downtime). What I need too do is loop through each record in the table and place the three fields independently in my new table. For example, I would like to go to the first record in my original table, than place down1 as my first record in my new table, down2 as my second record and down3 as my third. Than I will go to the second record in my original table and place down1 as my fourth record, down2 as my fifth record, down3 and my sixth record and so on. I want to make a toggle button that will do this.
I am making a query and I need to be able to determine if two number fields are with in 2.5% of each other. How would be the best way to go about doing this. I have two distances and I need to display them if there is a differenece of greater than 2.5% in them.
i have a table with 7 columns. Assume THE columns are a,b,c,d,e,f,g. In this table there is only one row and each column is given a number value. For example, a is 1, b is 5 and so forth. Can i make a pie graph in access with these 7 labels, and show there totals in the graphs?
I am using a function to calculate the quartiles from an existing query and enter the corresponding EqNum and EDescription into a table.When I run the code below it asks me for a value for SysAssetCritRankQ from the rstPercentileRST parameters. I have tried adding "" and [] but they aren't working.(The issue with self taught SQL/VBA)
SysAssetCritQ = Query Name Total = Calculated field in query
Code: strSQL = "SELECT SysAssetCritRankQ.EqNum, SysAssetCritRankQ.EDescription INTO [EOQComboT]FROM SysAssetCritRankQ " & _ "WHERE Total >= PercentileRst([SysAssetCritRankQ], Total, 0.75); "
Access 2010 vba - I'm trying to pass a start date and end date to a date field in a make table query, and use the 'between' operator on that date field.
So I have a criteria on the date field like this "Between [dtStart] and [dtEnd]" and if I run the query manually it asks for 2 values and then works fine.
Here's the code I'm trying to run:-
Set qdef = db.QueryDefs("qryTest") qdef.Parameters("dtStart") = StartDate1 qdef.Parameters("dtEnd") = EndDate1 Set rs1 = qdef.OpenRecordset(dbOpenDynaset, dbSeeChanges)
and I get the error "3219 Invalid Operation" on the last line.
I need to remove html text from a make table in access 2007. My table name is "Bad Actors Comments Column" and the column where the html text resides is "FirstOfADD_TEXT. VBA code to remove the html text?
