Currently, I develop an Access application (+ VBA).
Clients computers are English and the developers works with french clients.
When updating the application to the French posts, the word "currency" is automatically replaced by "devise" in all requests.
The name of the column in the table remains "currency".
(US / UK) => devise (fr)
How to disable the automatic "translation"?
When I import a column from Excel into a new table in Access using the Docmd.transferspreadsheet function, Access automatically assigns a field name of "F1"; and if I try to import a range of columns (Eg A1:B10), then Access saves them into a table with 2 columns with field names "F1" and "F2". The table is created as part of the Docmd function, and so I don't have control over the field names.
Is this going to always be the case? Can I depend on Access to always use this naming convention? Because I am about to start writing more code that will depend on these field names.
I am creating three columns a,b,c in a table in MS access
When I enter the value of a and b, the value of c should be a+b automatically
Is this possible in MS Access, if yes how?
I'm having trouble converting SQL to VBA. Can someone help?
Original SQL
SELECT tsubPermissionList.UserID, tblMainData.TrackingID, tblMainData.WorkOrder, tblMainData.ActionDescription, tblMainData.Facility, tblMainData.Status, tblMainData.ResponsibleParty, tblMainData.[WHS ID], tblMainData.[PM ID], tblMainData.ProgramID, tblMainData.Location, tblMainData.Branch, tblMainData.Unit, tblMainData.DueDate, tblMainData.ActualStartDate, tblMainData.ActualCompletionDate, tblMainData.Completed, tblMainData.LastModified, tblMainData.CreatedBy, tblMainData.CreatedWhen, tblMainData.EditedBy, tblMainData.EditedWhen, tblMainData.Comments, tblMainData.EmailSent, tblMainData.EmailSender, tblMainData.Selected, *
FROM tsubPermissionList INNER JOIN tblMainData ON tsubPermissionList.FullName = tblMainData.ResponsibleParty
WHERE (((tblMainData.WorkOrder) Like "*" & [Forms]![frmMainEntry]![txtCurrentWorkSearch2] & "*")) OR (((tblMainData.ActionDescription) Like "*" & [Forms]![frmMainEntry]![txtCurrentWorkSearch2] & "*")) OR (((tblMainData.Facility) Like "*" & [Forms]![frmMainEntry]![txtCurrentWorkSearch2] & "*")) OR (((tblMainData.Status) Like "*" & [Forms]![frmMainEntry]![txtCurrentWorkSearch2] & "*"));
My attempt to translate it to VBA.
strSelect = "SELECT DISTINCTROW tblMainData.TrackingID, tblMainData.WorkOrder, tblMainData.ActionDescription, tblMainData.Facility, tblMainData.ResponsibleParty, tblMainData.Status, tsubPermissionList.UserID, tsubPermissionList.FullName, *"
strFrom = " FROM tsubPermissionList"
strJoin = " INNER JOIN tblMainData ON tsubPermissionList.FullName = tblMainData.ResponsibleParty"
strWhere = " WHERE tblMainData.WorkOrder Like " & "" * "" & "'"" & [Forms]![frmMainEntry]![txtCurrentWorkSearch2] " & "'" & "*" & _
" OR tblMainData.ActionDescription Like " & "" * "" & "'"" & [Forms]![frmMainEntry]![txtCurrentWorkSearch2] " & "'" & "*" & _
" OR tblMainData.Facility Like " & "" * "" & "'"" & [Forms]![frmMainEntry]![txtCurrentWorkSearch2] " & "'" & "*" & _
" OR tblMainData.Status Like " & "" * "" & "'"" & [Forms]![frmMainEntry]![txtCurrentWorkSearch2] " & "'" & "*" Thanks,
PC
Hi all,
My client has an Access database where the value of a checkbox is stored in a field called Exclude_PropCount as -1 or 0. I am trying to get this form working online, but have been unable to successfully store this value in the db. I have set up a simple page to test it, and my relevant code is this:
sql_save = "INSERT INTO HVM_Data (VC, Exclude_PropCount) VALUES ('a9', '-1')"
con.Execute sql_save
set duplicateVC1 = db.Execute("SELECT Exclude_PropCount FROM HVM_Data WHERE VC = 'a9'")
response.write duplicateVC1("Exclude_PropCount")
But no matter whether I have '-1' or '0' in the INSERT statement, the response.write line always returns "False". And of course I've tried inserting "true" and "false", but it only accepts an integer.
As exceptionally bad timing would have it, my server is slightly fubar and I can't download the database to my PC to see what's actually being stored there, but looking at the above code, do you see anything I'm doing inherently *wrong*? This is my first time with checkboxes so I won't be surprised if that's the case. Hints?
Thanks!
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)?
View 3 Replies View RelatedSimple, I'm sure, but I am having one of those days...
I just need to compare two currency fields and do something if the difference is greater than one cent.
Any help with that incredibly simple expression, please? :D
I have a calculated field in my query that takes the difference between to incomes. I want to format this field to currency. How can this be done?
View 1 Replies View RelatedI 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)
Cheers for any help
Graeme
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.
View 4 Replies View RelatedI 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?
View 9 Replies View RelatedCurrently i have:
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)
Any ideas???
tblAppointment will take register appointments.
tblTreatment contains Cost for different AppointmentTypes.
The above two tables are linked as 1-M relationship (1 Treatment can have Many Appointments)
Entering data in the tblAppointment - AppointmentType and AppointmentCost are the fields in tblAppointment. AppointmentType a drop down box, so that a specific AppointmentType can be selected.
Problem: Now depending on the AppointmentType selected the AppointmentCost field should automatically display the correct Cost.
Can anyone help please?
Thanks
Paz
I've tried the following WHERE clause to return records where the 'costper' field is empty and neither return any results.
WHERE NZ([Transactions].[CostPer])=0
WHERE [Transactions].[CostPer]=0
WHERE IsNull([Transactions].[CostPer])
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.
Many thanks.
Dave
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.
Many thanks.
Dave
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 form where I combine several fields in 1 textbox. At the end there is an amount. It should look like below:
The total cost of the products is EUR 29.342,45
I have the following formula in the textbox:
Code : =" The total cost of the products " & [Currency] & " " & [TotalPrice]
It would be great if the TotalPrice could be with the dots and coma in the correct way.
I tried to format it, but it was giving me nothing, the numbers stayed the same.
I have created access database having field currency but it shows currency in $ by default I want to changed it to Rupee. How could it do?
View 1 Replies View RelatedI have a question about entering in currency on a field in one of my forms in my DB.
Essentially the problem I'm having is this: Upon entering a dollar amount, for example say I want to add $350,621.
It shows up like this: $35,062,1
That happens because it is filling in left to right when I tab down to the field, but if it fills in right to left I'm sure it'll fill properly.
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.
Hi All,
This is my first post so can I just say how great and useful this forum has been for me since I joined! I have found pretty much everything I have wanted without having to ask, so thank you everyone!
I am only beginning with Access at the moment, as I try to implement some improvements to the way my company works!
I have one really simple, but annoying issue at the moment and I cannot find the answer anywhere!
I have a currency filed in my table. I want to format it in USD, but USD is not available in the format options, just £ and €. I cannot see where the hell I get the USD $ format from?
I know this is probably well simple and I am being a plum!
I have a calculated field in a query that generates a result that i need to display in forms/reports with the $ sign but zero decimal places (ie; rounded to the nearest $ value, $5).
If i use the sql format currency function (format (n, "currency",0) it always displays the $ sign but with two decimal places...
In the form/report text box property i set the format to currency, with the decimal places set to 0, but it still displays two decimal places (this property setting seems to make no difference other than displaying the $ sign). Is there something i am missing regarding the way access formatting works?
I need to export a currency field to include the pence but without the decimal place, is this possible?
It also needs to be 11 characters wide.
I have tried a number of formats and can get the decimal point removed but I am not getting the pence displayed.
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")
Everything I have read says the formula is:
Format([Calculation], "Currency")
Is correct. So why won't it work for me?
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.