Modules & VBA :: Add A Format To Sql Select For Currency
Jul 25, 2014
add a format to the Sql select for currency.This is just a section of the full code before
Code:
Function RunLWSCA()
Dim cnn As ADODB.Connection
Dim rstUplo As New ADODB.Recordset
Dim rstDiag As New ADODB.Recordset
Dim rstTemp As New ADODB.Recordset
Dim SQL As String
Dim strDiag
I have a Concatenate string of text and currency. When joined together, the currency format disappears. I need to reformat so the string stays together with new format. Below is what I have:
Public Function ConcatAgreementFundsCommitted(ID As String) As String '/ Purpose: Generate a concatenated string of Tracks for selected line. On Error GoTo Err_Handler Dim lngLen As Long 'Length of string. Dim strOut As String 'Output string to concatenate to.
This is probably the easiest question to answer if you know where to look but I don't.
Working in the UK with Access 2000 I need to set the field in a table to show Dollar $ USD however the only values I have are £ GBP and € as defaults.
Now I thought that I could get this to change if I changed my regional settings but then it occurred to me that if I do that and it changes then surely it would mean that who ever used this database in our global organisation would end up with a currency shown in their own local currency. Whilst this may not seem like a problem it is if you don't realise and quote a figure to someone in your local currency.
i.e. at present the UK £ = nearly $2 USD
So if someone in the UK read the figures and it dispalyed £400,000 and quoted this to a person in the USA when in theory the figure was meant to show $400,000 it could cause all sorts of issues.
Can someone tell me the correct way of choosing $ without it affecting anything else.
The database I'm working on stores label images, or better stated, it stores file paths where the label images are stored. These paths are used in reports and forms to view the label images within the database. What I'd like to do is to create a "save" or "email" button that will allow the user to select a location to save just a copy of the image in jpg format. I realize that it is possible to imbed the jpg image into a report and export it as a pdf. What I'd really like to do is find a way to save the image (perhaps by copying it from the path in the database and simply relocating it) and preserve the jpg extension if that is possible.
I am also aware that there are third party applications that will convert pdf reports into jpg files however network restrictions keep me pretty limited in my ability to download third party software.
I would like to format the currency values in a query. There values will either be Euro or Pound. Is it possible to change the currency format "on the fly" in this way in a query?
I would like to have a variable currency format. For example:
If [fldCurrency] = [Euro] Then format [fldAmount] As Euro If [fldCurrency] = [Pound] or [GBP] Then format [fldAmount] As Sterling
I have a field on a Form that displays values in Sterling (The Default on the machine) ie with the pound sign before the numbers.
I need to change the sign before the numbers to Dollar at a click of a button. I'm not interested in actually converting the values from Sterling to Dollar but only to change the sign. So I attached the code below to a Button's On Click Event, but I get an error = Expected.
My Querie: I have a relational database, that is basically made up of a few tables, I will simplify for this to two. TblFieldNames and TblFieldValues
Basically using a form you can fill in a field (TblFieldNames.FieldName) and it is then appended to TblFieldValues.FieldValue.
On the form the properties of the input text box are changed according to the record selected in TblFieldNames. Ie. ListBox with FieldNames from TableFieldNames ListBox_AfterUpdate sets properties of TxtValue
The Issue: I have a Field in TblFieldNames that has a setting of Currency. (TblFieldNames.FieldType = "Currency")
I have changed the TxtValue.Format = "Currency"
It doesn't: A. Allow entry as a currency, ie. $ sign and thousand seperators B. Append the details to the TblFieldValues Table, which it is going across to into a field that is set as Text (this can't change)
I have tried: Changing format of input Txt box Changing Input Mask for inptu Txt Box "$###,###,###" but doesn't work for me.... "/$###,###,###" "/$###,###,###!"
I want it to allow me to enter in the Value as a Currency and append the value as a currency
ie. Key Press = 12345 Field Shows = $12,345 Appends this value as Text?
Key Press = 1234567890 Field Shows = $1,234,567,890
I am just wondering if there is an advantage to using a currency field type in a table, vs. just using a number field? This is assuming that I am not working directly in the tables themselves and am using forms to display the data.
In my form I would like a text box to display the two combined i.e. £10.000.00 (83.33%). At the moment it displays 10000 83.3333333333333. I can use £#,##0.00 to format the current half, but how can I then format the percentage to display 83.33%?
I have this expression I created and I want to know how to format it as currency. I know how to do it with a regular field but the option is not available for an expression.
The expression:
Code : Charge: IIf([Rate] Is Not Null,[Rate],"0.00")
I run a MakeTable Query on some data to COunt the number of records and Sum the Value of $$$ in a Currency field.The results produce a Number for the Count, but the SUM of the Balances is returned as text.
To get the SUM I use the expression SumBal: DSum("[Balance]","[XAM_data]").
Why it won't return the SumBal in Currency format?
I am increasing prices and after increasing I am left with 4 decimal places and am trying to figure out how to run an UPDATE query to round down prices to the nearest 5 cents, examples below:
42.4516 round to $42.45 42.4659 round to $42.45 42.4489 round to $42.40 2.49 round to $2.45 2.46 round to $2.45 2.44 round to $2.40 2.04 round to $2
how to change default currency in Access 2013 to a "foreign currency" (i.e. to Indonesia Rupiahs) without changing control panel (Region/Language>currency) - now setup as USA ($US)?
I'm trying to compare a Currency formatted field to a Number formatted one and getting wrong results.other then formatting the Number as Currency too ? Tried to use Val() but the Currency returned 0
I have a table called myTable and it contains two fields Year and Month. Both are type of integer.
Now in my select statement, I like to combine these two fields in to one and name it as period and it will have the format, for example 200501, 200502, ..., 200512. How can I do that in Access query statement?
I know how to do this in SQL Server 2000. That is:
Select Convert(varchar(4), [Year]) + right('00' + cast([Month] as varchar(2)), 2) as Period from myTable
I have a multi slect list box (simple) and I need to find and select an item using vba - e.g., the bound column is the ID field and I need to select a specific ID (which will be different each time) as opposed to selecting the 100th record for example. How do I do this?
So I have a table with around 20,000 records and there is a field which holds a phone number for each individual within the organization, I want to run a select query that counts how many are not in the correct format
The format is 10 digits and it must start with a 0
When I run the below code I am getting the error "End Select without Select Case" I figured it might be because I have the "End Select" before the "End With" however when I move the "End Select" after the "End With" I get the error "Loop Without Do".
Code: Private Sub cmd_Update_Conditional_Codes_Click() Dim rs As DAO.Recordset Dim rs2 As DAO.Recordset
Using Access 2010. I use the following code to search for a client based on ClientID. ClientId is an Auto Number, Long Integer, format is 00000. The code works fine except if I type in the leading zeros for a ClientId that does not have at least a 1 in the first digit. For example it will not find client 00100 but will find client 10001.Is there any way of setting the Dim statement to look for a ClientID with a leading zero?
Private Sub cmdClientIdSearch_Click() Dim rs As Object Dim strCriteria As String strCriteria = InputBox("Please enter Client ID" ) If strCriteria > "" Then