I have a database where I have a number from a client. We copy/paste it from a pdf file. The number has dots in it (1.00.00.000). I would like to create a solution that when I paste the number in the field and go to the next field, it will take out the dots from the number.
I am trying to create a list of values in a field separated by commas. I have done this in a query as follows:
[Field1]&", "&[Field2]&", "&[Field3] and so on.
However, when Field2 is null, the result is two commas between Field1 and Field2, but I only need one. What function can I use to eliminate the extra commas when fields used in the concatenation are null?
I have an unbound calculated field [Txt1] that I would like to show the result as currency. The fields in the calculation are:
[CR] number, currency [Commission1] general number, two decimal places [Commission2] general number, two decimal places
The calculation is: CR15W * (1 - Commission1) * (1 - Commission2) If I just set the field to currency it works fine. But I want the field to show the following: "Some Text" & " " & Format(Calculation, "Currency")
When I tried to include the format it to currency I get type mismatch, run time error 13.
So I thought that perhaps I should try the following just to see where my error starts and I get the same error message when I use:
Dim Val1 As String Val1 = CR15W * (1 - Commission1) * (1 - Commission2) Txt1 = Format(Val1, "Currency")
I have some Conditional Formatting of a Currency Field in an Entry Form. The cell is conditionally formatted with a yellow background when the value is zero.
I now wish to add an additional condition to the expression such that even if the value is zero it will not be formatted if a specific check box is TRUE.
I have tried modifying the expression such that it reads;
[currency field]=0 AND [check box]<>TRUE.
It correctly turns off the conditional formatting if the check box is ticked, but does not turn it on again when the check box is unticked.
I would like to export fields from Access 2003 with a comma pragmatically added between each field as a CSV file.
I am able to export the fields without the comma, but the Accounting Program that I want to use for the importing of the data requires a comma to separate each field.
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)?
They are the small green rectangular things underneath a users number of posts. In most forums they are used as a ranking system judged by a users number of posts.
im responding to the code you submitted to draw lines on a form. I am trying to change it a bit to only draw dots. I have x and y cordinates that I want to draw on the MS form kinda like a scatter graph. So I want to pass values from a table into the function LineX. Then have the function create dots that draw on the for to corespond to the x and y Cordinates. I was wondering if you could help. thanks in advance
here is the original code Option Compare Database Option Explicit
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, _ ByVal Y As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, _ ByVal Y As Long, lpPoint As Any) As Long
Private Declare Function apiGetDC Lib "user32" Alias "GetDC" _ (ByVal hWnd As Long) As Long
Private Declare Function apiGetFocus Lib "user32" _ Alias "GetFocus" _ () As Long
Public Function LineX(Ctrl As Control, X As Long, Y As Long, cx As Long, cy As Long) Dim DC As Long 'device context Dim hWndCtrl As Long 'bounding control handle hWndCtrl = fhWnd(Ctrl) 'get control handle DC = apiGetDC(hWndCtrl) 'get control DC MoveToEx DC, X, Y, ByVal 0& 'set starting point LineTo DC, cx, cy 'draw line from starting point to cx, cy End Function
Private Function fhWnd(ctl As Control) As Long 'use getfocus to retrieve ctrl handle On Error Resume Next ctl.SetFocus If Err Then fhWnd = 0 Else fhWnd = apiGetFocus End If On Error GoTo 0 End Function
I have a currency field that is not saving pennies. (cents if you're Americian i suppose) :confused: if i put in pence it rounds it to the nearest pound.
I have tried setting the decimal places to "2", but that makes no difference :mad: :confused:
the table is called invoice
this also happens with the invoice form :mad: (i suspect for the same reason)
The database can be downloaded from: http://www.tapestriesdirect.com/Garage.mdb (996KB) or if you can unzip (who can't?!?) http://www.tapestriesdirect.com/Garage.zip (86.1KB)
I have a field which is formatted as currency. When a button is clicked, it shows the value of the field. Because it is a currency field, if you enter "10", it is immedatly changed to "£10.00", although when i use txtAmount.Value, it gives me the "10" value. This is especally a problem if pennies are used - if someone enters "15.10", the .Value reterned is "15.1", which makes it seem like "15.01" has been entered. How can I get the currency-type value form the field?Thanks for any help.
I am importing a spreadsheet from Excel - the problem is that one of the columns in excel has a currency and text format (ex. $123,000 in B5 and 3M in B6). I know in Excel you can have both formats in one column since each cell can be formatted individually - how do I replicate this in Access?
If CIS = False Then CIS_Payment = "£0.00" Else CIS_Payment = "£20.00" End If
which works ok but what i want to do but do not know the correct way/syntax is:
If CIS = False Then CIS_Payment = "£0.00" Else CIS_Payment = "Labour_Total*18/100" End If
Where CIS_Payment and Labour_Total are currency fields, and CIS is a checkbox updated using an update query with the same info as detailed in another table (Couldnt get the conditions to work referencing the checkbox in the other table, so duplicated the box in both tables and used a query to sync)
I would like to know is there a way to create a mask on a form for a currency field? I don't want a user to be able to enter in like 125.145. I just want to make it so that people can only type in 125.14. Or how can I write VB code to give a warning when a user enter in more than two decimal places.
I would like to know is there a way to create a mask on a form for a currency field? I don't want a user to be able to enter in like 125.145. I just want to make it so that people can only type in 125.14. Or how can I write VB code to give a warning when a user enter in more than two decimal places.
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 have a parent form and a sub-form. On the parent form is a date field [JOINED] and on the sub-form there is a date field [DATE PAID] and a field [BQ JOINING FEE] with a default format of currency.
I created a macro to set the value of [BQ JOINING FEE] to 0 if ([DATE PAID]>[JOINED]+60). It sets the value to 0 as required but I am unable to get it to format the result as currency.