[Trick] Amount In Words
Mar 3, 2005
Make Table Name: tblnum
Fields:
1.num (for number)(Feed 1 to 99)
2.inword (for In words)(Feed One to Ninty Nine)
Make Module
Public Function inwords(amount As Variant) As String
Dim intlac As Integer
Dim intTh As Integer
Dim intHun As Integer
Dim intNum As Integer
Dim strLac As String
Dim strTh As String
Dim strHun As String
Dim strNum As String
Dim intlen As Integer
intlen = Len(amount)
Select Case intlen
Case 7
intlac = Left(amount, 2)
intTh = Mid(amount, 3, 2)
intHun = Mid(amount, 5, 1)
intNum = Right(amount, 2)
strLac = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intlac) & " Lac"
If intTh = 0 Then
strTh = ""
Else
strTh = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intTh) & " Thousand"
End If
If intHun = 0 Then
strHun = ""
Else
strHun = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intHun) & " Hundred"
End If
If intNum = 0 Then
strNum = ""
Else
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
End If
Case 6
intlac = Left(amount, 1)
intTh = Mid(amount, 2, 2)
intHun = Mid(amount, 4, 1)
intNum = Right(amount, 2)
strLac = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intlac) & " Lac"
If intTh = 0 Then
strTh = ""
Else
strTh = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intTh) & " Thousand"
End If
If intHun = 0 Then
strHun = ""
Else
strHun = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intHun) & " Hundred"
End If
If intNum = 0 Then
strNum = ""
Else
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
End If
Case 5
intTh = CInt(Left(amount, 2))
intHun = CInt(Mid(amount, 3, 1))
intNum = CInt(Right(amount, 2))
strTh = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intTh) & " Thousand"
If intHun = 0 Then
strHun = ""
Else
strHun = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intHun) & " Hundred"
End If
If intNum = 0 Then
strNum = ""
Else
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
End If
Case 4
intTh = CInt(Left(amount, 1))
intHun = CInt(Mid(amount, 2, 1))
intNum = CInt(Right(amount, 2))
strTh = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intTh) & " Thousand"
If intHun = 0 Then
strHun = ""
Else
strHun = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intHun) & " Hundred"
End If
If intNum = 0 Then
strNum = ""
Else
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
End If
Case 3
intHun = CInt(Left(amount, 1))
intNum = CInt(Right(amount, 2))
strHun = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intHun) & " Hundred"
If intNum = 0 Then
strNum = ""
Else
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
End If
Case 2
intNum = CInt(Right(amount, 2))
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
Case 1
intNum = CInt(Right(amount, 2))
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
End Select
inwords = strLac & " " & strTh & " " & strHun & " " & strNum & " Only"
End Function
Result = inwords(Number TextBox)
View Replies
ADVERTISEMENT
Feb 3, 2005
I have a script file of FoxPro 2.6 which is use to read amount field and write it in words.
Can any body convert in VBA Script.
I manualy write amount in words.
Thankyou.
Saira
View 3 Replies
View Related
Aug 8, 2006
Hi Folks,
I am attempting to split out a descriptive field so that each words which may exist in that particular field will be split out into seperate fields ... for example, if the violation field is populated with a four worded description of 'Assualt on Police Officer' I would like to somehow strip out the words so that 'Assualt' and 'on' and 'Police' and 'Officer' are all in seperate fields. I am not sure if this can be done using a simple query in access ... if anyone can offer any suggestions, I would greatly appreciate it.
Thank you,
Joe
View 1 Replies
View Related
Jul 21, 2015
I have One table(and designed form from it) in which i have recording the daily transactions(it is like a daily book). Daily transactions took place like Purchase of items of Amount 45, sale=70, sold on account=100 etc.
What problem i am facing is: I would like to Add Cash In Hand amount and would like to show it on my form. When day end I would like to move remaining cash In Hand on separate column of that date. The next day i would like to take the previous Remaining Cash in Hand as Cash In Hand at Start for next date and so on.
View 2 Replies
View Related
Jul 17, 2014
I am trying to make a report in which I can see the amount of money that I have to pay weekly to an employee. To explain myself clearer, I have different rates for each employee. For example:
NameNormalPayRateVacationPayRateSickPayRateOvertimePayRateStandbyPayRate
John Smith$15$10$15$30$8
Ken Jonson$10$8$10$20$8
I am doing this in a query. So what I want to be able to do is, for example, take 4 hours that the employee worked at NormalPayRate and multiply it. But if tomorrow the employee worked at a different rate, for example 3 hours overtime, I want those 3 hours multiplied by OvertimePayRate.
The way I saw it on my Google researches, is that they have only one rate and the amount will be [SumOfHours]*[Rate]. But how can I tell my query to skip, for example, one rate because the employee didn't work at that rate that day. So I can have different amount for the different rates.
By the way, entering the information I can divide at what rate the employee worked x day. So if the employee work 6 hours at regular, and later on 4 hours at standby, I have those information separated in my table.
Results that I am getting: I can easily get the amount in money multiplying the whole hours by a rate, so my result in my report will be multiplied by the same rate.
I am using Access 2013 ...
View 2 Replies
View Related
Aug 26, 2007
Is there a way to do this -
I have surgical operations which are each given an AutoNumber id. To simplify my example - a patient can have a leg operation, an arm operation, a neck operation. All these are linked to the PatientID but they all have a different surgicalID. All these operations are follow-up and the follow-up data is linked to the surgeryID.
I have now realised that the patient may come back for a repeat operation on the leg. Is there a way I can add this operation without it being assigned a newSurgicalID number. Obviously if I use add a new record it gives me a new AutoNumber. Any way around this?
Thanks for any help or suggestions
View 5 Replies
View Related
Apr 4, 2006
I open form and get parameter in the openArgs
I have a tabular Form
and I want change the color if the ID is aqual.
for example:
I open the form like this:
DoCmd.OpenForm "frmMessageShow", , , "fID=" & Me.fID, , , Me.AssighmentId
[the Me.AssighmentId is the openArgs]
I want in the second form to color the textbox if AssighmentId = me.openargs
I try do it:
If Me.AssighmentId = Me.OpenArgs Then
AssighmentId.BackColor = vbRed
End If
and its not work :mad:
is there is an option to do it?
thanks!
View 2 Replies
View Related
Nov 23, 2006
I found this snippet in a thread on a forum I don't subscribe to. I think I understand what it's saying but can anyone expand on the how's and why's please?
'Your front end maintains any attachments to the backend (ie first form open opens a recordset on the backend to force the backend ldb file to remain for the session - a known trick to speed up FE-BE setups) '
View 5 Replies
View Related
Mar 7, 2006
This is a useful trick: If you use a + to concatenate strings then it propogates nulls, if you use a & it doesn't...
So in the expression:
rec![LastName] & (", " + rec![FirstName])
If rec![FirstName] is Null then the expression (", " + rec![FirstName]) will be too, but the rec![LastName] & (Null) part won't be. This neatly drops the comma and space if the firstname is Null
Much better than:
rec![LastName] & iif(isnull(rec![FirstName]), "", ", " + rec![FirstName])
Steve.
View 6 Replies
View Related
Mar 10, 2008
Hello
I have a database with some texts.
i)How can i compute how many word i have in each text?
ii) How can i find the frequency of some specifically words?
View 14 Replies
View Related
May 11, 2005
Hi all,
Does anyone have a definitive list of reserved words in Access? I understand certan words are reserved because they cause a problem when using vba. Is this correct?
It would make sense because I used to have a field called "Name" and my controls never worked correctly. I have since changed this and all is ok.
I have searched Access help files and this forum, but am unable to find a complete list other than the odd one like name, date, group etc.
Any help would be great. Many thanks.
View 3 Replies
View Related
Jul 5, 2006
I am having trouble finding more targeted responses to my searches here on this forum- is there a way to search on two or maybe three grouped words?
I just get the results from each individual word, rather than the words together.
Thanks,
Dave
View 4 Replies
View Related
Jul 7, 2006
Dear all,
If some have the code for converting amount to words in rupees, please help me...
Thanks in advance
Thanks:(
View 1 Replies
View Related
Jul 7, 2006
Dear all,
If some have the code for converting amount to words in rupees, please help me...
Thanks in advance
Thanks:(
View 4 Replies
View Related
Jun 29, 2007
Hi.
I have a list of 120000 entries, of companies in the UK. I need a query that will grab all the ones which have relevent similar names to others, like a duplicate query, but a bit more specific. For instance, First Choice UK, and First choice PLC are the same company, but have two entries. but I dont want to just scroll it would take ages. Is there a way to get a query to grab anything with matching words to other entries. Not necessarily the first two words, as my subject suggests, because the company name may not be two words, but whether there is any similarity in the name at all.
Thanks
alex
View 5 Replies
View Related
Jan 31, 2005
Hello To All,
Has anyone seen the message in the attached file? I got this when I was trying to update the row source on the field after I had a problem with data in a report coming up inaccurate. I've been developing in MS Access for about 7 years now and have never seen this. Any explination for this would be greatly appreciated.
I am using MS Access 2000 on a Windows 98SE machine. :eek:
- Charles Williams
View 1 Replies
View Related
May 20, 2005
I have a table and in there is the names of sandwiches, their prices and also extra info which includes whether the sandwich contains nuts etc. The actual text is "MAY CONTAIN NUTS" . When searching through the query i have made, there is the text - Extra info? for the query criteria or question and then i have to type in what i want to search or query for. Is it possible that i can just use the words 'nuts' when i search and then it will bring up sandwiches which contain the text "MAY CONTAIN NUTS" in the extra info field so that when querying it is much faster to find the sandwiches which contain nuts? If you can do this then please help.
Thanks, jon.
View 14 Replies
View Related
Jan 9, 2006
Hi,
In MS Access, form
I want make like this:
1st time:
Company Name: Automobile
2nd time:
Company Name: AuID
If I type A, then it will show out the word, but the cursor is till After A, because if we type another character which will change another word
3rd time:
Company Name: Automobile
4th time:
Company Name: Au[I]ID[I]
What is the keyword to search about it in the forum?
Anyway, does anybody know how to solve it?
Please let me know, thanks.
View 1 Replies
View Related
Jan 14, 2006
I'm trying to pull fields from a table into a form - and have had other problems with this.....
What is textual information in one table. ie. the table I am trying to acces from a drop down will only appear as numbers instead of the text entry in the original - I have triend the bound colums but these are correct?
I've had this problem at a couple of points - it seems to be formatting the forms as numbers and pulling in the record numbers rather than the textual information. The bound colums are pointed at the textual entries but I can not change the formatting in the forms etc to text rather than number... In the drop down it shows the text entries but will not allow them to be saved when updated?
View 3 Replies
View Related
Jul 20, 2006
does anyone know where i can find a dictionary of what VB words mean in plain english so i can write and adjust them.
View 4 Replies
View Related
Jul 19, 2005
Hello:
I searched to forum but came up empty.
Does anyone have a list of reserve words or know where I can get one?
Thanks,
Dwight
View 3 Replies
View Related
Jul 6, 2006
Dear all,
I am creating a database which has an invoice printing form. In that I would like to have a column for the total amount in words. I have got a sample module from northwind database. According to that 100,000 is "one hundred thousand" but in my country that is pronounced as " 1 Lakh" and for one million it is 10 lakh, for 10 million it is 1 crore like that. Is that possible to change the code in that module to display the words according to our standards? I am attaching the code with this thread. If anybody can show how to do that...I will be thankful to them..
Thanks
Function ConvertCurrencyToEnglish(ByVal MyNumber)
Dim Temp
Dim Dollars, Cents
Dim DecimalPlace, count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' Convert MyNumber to a string, trimming extra spaces.
MyNumber = Trim(Str(MyNumber))
' Find decimal place.
DecimalPlace = InStr(MyNumber, ".")
' If we find decimal place...
If DecimalPlace > 0 Then
' Convert cents
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
Cents = ConvertTens(Temp)
' Strip off cents from remainder to convert.
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
count = 1
Do While MyNumber <> ""
' Convert last 3 digits of MyNumber to English dollars.
Temp = ConvertHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dollars = Temp & Place(count) & Dollars
If Len(MyNumber) > 3 Then
' Remove last 3 converted digits from MyNumber.
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
count = count + 1
Loop
' Clean up dollars.
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
' Clean up cents.
Select Case Cents
Case ""
Cents = " And No Cents"
Case "One"
Cents = " And One Cent"
Case Else
Cents = " And " & Cents & " Cents"
End Select
ConvertCurrencyToEnglish = Dollars & Cents
End Function
Private Function ConvertDigit(ByVal MyDigit)
Select Case Val(MyDigit)
Case 1: ConvertDigit = "One"
Case 2: ConvertDigit = "Two"
Case 3: ConvertDigit = "Three"
Case 4: ConvertDigit = "Four"
Case 5: ConvertDigit = "Five"
Case 6: ConvertDigit = "Six"
Case 7: ConvertDigit = "Seven"
Case 8: ConvertDigit = "Eight"
Case 9: ConvertDigit = "Nine"
Case Else: ConvertDigit = ""
End Select
End Function
Private Function ConvertHundreds(ByVal MyNumber)
Dim result As String
' Exit if there is nothing to convert.
If Val(MyNumber) = 0 Then Exit Function
' Append leading zeros to number.
MyNumber = Right("000" & MyNumber, 3)
' Do we have a hundreds place digit to convert?
If Left(MyNumber, 1) <> "0" Then
result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "
End If
' Do we have a tens place digit to convert?
If Mid(MyNumber, 2, 1) <> "0" Then
result = result & ConvertTens(Mid(MyNumber, 2))
Else
' If not, then convert the ones place digit.
result = result & ConvertDigit(Mid(MyNumber, 3))
End If
ConvertHundreds = Trim(result)
End Function
Private Function ConvertTens(ByVal MyTens)
Dim result As String
' Is value between 10 and 19?
If Val(Left(MyTens, 1)) = 1 Then
Select Case Val(MyTens)
Case 10: result = "Ten"
Case 11: result = "Eleven"
Case 12: result = "Twelve"
Case 13: result = "Thirteen"
Case 14: result = "Fourteen"
Case 15: result = "Fifteen"
Case 16: result = "Sixteen"
Case 17: result = "Seventeen"
Case 18: result = "Eighteen"
Case 19: result = "Nineteen"
Case Else
End Select
Else
' .. otherwise it's between 20 and 99.
Select Case Val(Left(MyTens, 1))
Case 2: result = "Twenty "
Case 3: result = "Thirty "
Case 4: result = "Forty "
Case 5: result = "Fifty "
Case 6: result = "Sixty "
Case 7: result = "Seventy "
Case 8: result = "Eighty "
Case 9: result = "Ninety "
Case Else
End Select
' Convert ones place digit.
result = result & ConvertDigit(Right(MyTens, 1))
End If
ConvertTens = result
End Function
View 9 Replies
View Related
Aug 7, 2006
Hello
I have a text box in my database that i would like to be about to search and group the text field if is had similar. for Example if I had a record like" called in puking" and "Up all night puking", I'd like the query to recognize "puking" (without me specifically telling it to look for "puking") and group them.
is this possible?
View 1 Replies
View Related
Feb 10, 2005
Hi, if i have to input a entry that have more than 255 words, but my table could only handle 255 words, so how do i go about it... pls advise, thanks...
View 3 Replies
View Related
May 29, 2005
Good day everyone!
I'm designing a system in which I have two fields
Amount in Numbers and Amount in Words
I want to be able to type in the amount in numbers and the amount in words should appear automatically.
I need the code and in wich event should I put it.
This is an urgent request. any help will be very much appreciated.
Thanks alot!
View 7 Replies
View Related
Feb 23, 2006
So I am using 2003. On the report I have created I have this one entry that exists for all my records, it is a Name, and at the bottom of the report I am trying to create a summary that will list each of those names. I already have a count going, so I thought maybe I could tap that, but not every record has a name listed. I am farely inept at coding.
What I want is this:
(Institution 1) Accrediting Institution: ACICS
(Institution 2) Accrediting Institution: ACCST
(The part above is Done, what I need in Below)
(SUMMARY) Accrediting Institutions: ACICS, ACCST
Thanks
View 4 Replies
View Related
