Add a Text a field in report where you want to convert the number to words, set Control Source propery to the currency conversion formula.ДЇor example in my report sum of amount field need to be converted to words. Create a table, and report of your choice.Д¦. Save and Close the Visual Application Window.ДҐ. Result = Result & ConvertDigit(Right(MyTens, 1))Д¤. Select an option from the Match drop down list to indicate whether Access should look for any part of the field, the whole field, or the start of the field. Select an option from the Look In drop down list to indicate whether Access should look in the current field or the current document. Private Function ConvertTens(ByVal MyTens) Enter the replacement text in the Replace with field. Result = Result & ConvertDigit(Mid(MyNumber, 3)) ' If not, then convert the ones place digit. Result = Result & ConvertTens(Mid(MyNumber, 2)) ' Do we have a tens place digit to convert? Result = ConvertDigit(Left(MyNumber, 1)) & ' Hundred ' ' Do we have a hundreds place digit to convert? Private Function ConvertHundreds(ByVal MyNumber) Private Function ConvertDigit(ByVal MyDigit) MyNumber = Left(MyNumber, Len(MyNumber) - 2)Д¬onvertCurrencyToEnglish = Paise & ' Only'Д¬onvertCurrencyToEnglish = Rupees & ' Only'Д¬onvertCurrencyToEnglish = Rupees & ' and ' & Paise & ' Only' ' Remove last 2 converted digits from MyNumber. Temp = ConvertTens(Right('0' & MyNumber, 2)) Thanks to your big, obvious button, undoing has never been easier. This code has the same effect as pressing CTRL+Z or clicking the Microsoft Office Undo button. One way is using the DoCmd objectвЂ™s RunCommand method: Private Sub btnUndoClick() DoCmd.RunCommand acCmdUndo. MyNumber = Left(MyNumber, Len(MyNumber) - 3) Then, add some code to the buttonвЂ™s Click event. ' Remove last 3 converted digits from MyNumber. If Temp '' Then Rupees = Temp & Place(Count) & Rupees Temp = ConvertHundreds(Right(MyNumber, 3)) ' Convert last 3 digits of MyNumber to Indian Rupees. MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) Visual objects used in forms and reports expose their methods and properties in the VBA programming environment, and VBA code modules may declare and call. ' Strip off paise from remainder to convert. ' Left function gives only left portion of the string with specified places here 2 ' Hi! Note the above line Mid function it gives right portion Temp = Left(Mid(MyNumber, DecimalPlace + 1) & '00', 2) ' Convert MyNumber to a string, trimming extra spaces. Copy and paste the VBA code given below.ДЇunction ConvertCurrencyToEnglish(ByVal MyNumber) Right click on Modules, select Insert -> ModuleДЈ. Go to Database ToolsВ Tab in MS Access, click on Visual BasicДў. Note : Screenshots may differ for your Access Version, If you have any queries, comment below.ДЎ. Here I am giving a easiest way to implement this.В This articeВ is extension of my previous blog post Convert Currency in Number to Words (Indian Rupees). We may require currency in both number & words in MS Access Reports.

Microsoft access code text