Vote Please.......

Please entry your comment.

Vote Please.

In Word in Bengli by Bangladeshi Format (Part-2)

Created of your form is below option

Text Box, Command Button, Label

and typing your code:



If Not IsNumeric(Text1) Then
MsgBox ("Invalid number or no number"), vbOKOnly + vbCritical, "Invalid Number"
Text1 = ""
Label3.Caption = ""
Text1.SetFocus
Exit Sub
End If

Dim num
num = Val(Text1)
num = Format(num, "0.00")
Do Until Len(num) = 12
num = 0 & num
Loop

p = Right(num, 2)
d = Mid(num, 8, 2)
s = Mid(num, 7, 1)
h = Mid(num, 5, 2)
l = Mid(num, 3, 2)
k = Mid(num, 1, 2)

If Val(p) > 0 Then
p = inwrd(p) & " Paisa"
Else
p = ""
End If

If Val(d) > 0 Then
d = inwrd(d)
Else
d = ""
End If

If Val(s) = 0 Then
s = ""
ElseIf Val(s) = 1 Then
s = inwrd(s) & " Hundred "
ElseIf Val(s) > 1 Then
s = inwrd(s) & " Hundreds "
End If

If Val(h) = 0 Then
h = ""
ElseIf Val(h) = 1 Then
h = inwrd(h) & " Thousand "
ElseIf Val(h) > 1 Then
h = inwrd(h) & " Thousands "
End If

If Val(l) = 0 Then
l = ""
ElseIf Val(l) = 1 Then
l = inwrd(l) & " Lac "
ElseIf Val(l) > 1 Then
l = inwrd(l) & " Laks "
End If

If Val(k) = 0 Then
k = ""
ElseIf Val(k) = 1 Then
k = inwrd(k) & " Crore "
ElseIf Val(k) > 1 Then
k = inwrd(k) & " Crores "
End If

wrd = k & l & h & s & d & " Taka " & p & " Only."
Label3.Caption = wrd


and Run your from and typing

Finish.

In Word in Bengli by Bangladeshi Format (Part-1)

Part of General write below  Code:

Dim inwrd(100)

After you Typing the form load option:

Label1.Caption = "Taka:"
Text1.Text = ""
Text1.MaxLength = 9
Text1.TabIndex = 0
Label2.Caption = "In Word:"
Label3.Caption = ""
Label3.FontBold = True
Command1.Caption = "Make in Word"

Code of vb (Part-6)

Private Sub ItemCode_Enter()
If ItemCode.Value = "11" Then DoCmd.GoToControl "MonthlyDonationAmount"
    CashPaidtoadmissiontime.Locked = True
    CashPaidtoadmissiontime.Enabled = False
    PaidKisty.Locked = True
    PaidKisty.Enabled = False
    YearlyProfit.Locked = True
    YearlyProfit.Enabled = False
    LoanDisburse.Locked = True
    LoanDisburse.Enabled = False
    ServiceCharge.Locked = True
    ServiceCharge.Enabled = False
    WithdrwalAmount.Locked = True
    WithdrwalAmount.Enabled = False
If ItemCode.Value = "10" Then DoCmd.GoToControl "CashPaidtoAdmissionTime"
   

Code of vb (part-5)

Option Compare Database   'Use database order for string comparisons.
Option Explicit

Private Sub Report_Page()
   
    'Draw a page border around this report.
     Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B
    
End Sub

Private Sub Report_Activate()

    '  Hide built-in Print Preview toolbar.
    DoCmd.ShowToolbar "Print Preview", acToolbarNo
   
End Sub

Private Sub Report_Deactivate()

    '  Show built-in Print Preview toolbar where appropriate.
    DoCmd.ShowToolbar "Print Preview", acToolbarWhereApprop

End Sub

Code of vb (Part-4)

Option Compare Database  ' Use database order for string comparisons.
Option Explicit  ' Requires variables to be declared before they are used.

Private Sub Cancel_Click()
' This code created by Command Button Wizard.
On Error GoTo Err_Cancel_Click

    ' Close form.
    DoCmd.Close

Code of vb (part-3)

Private Sub Command3_Click()
On Error GoTo Err_Command3_Click

    Dim stDocName As String

    stDocName = "Area wise Monthly Donation PaidReport"
    DoCmd.OpenReport stDocName, acPreview

Code of vb (part-2)

Option Compare Database
Option Explicit


Private Sub Form_Activate()
On Error GoTo Err_Form_Activate
    Me![Workorders by Customer Subform].Requery

Exit_Form_Activate:
    Exit Sub

Err_Form_Activate:
    MsgBox Err.Description
    Resume Exit_Form_Activate
End Sub
Private Sub Workorders_Click()
On Error GoTo Err_Workorders_Click
    If IsNull([CustomerID]) Then
        MsgBox "Enter customer information before entering workorder."
    Else
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        DoCmd.OpenForm "Workorders"
    End If

Code of vb (part-1)

Option Compare Database
Option Explicit


Private Sub Form_Open(Cancel As Integer)
    Me.Caption = Me.OpenArgs
End Sub
Private Sub Preview_Click()
    If IsNull([Beginning Date]) Or IsNull([Ending Date]) Then
        MsgBox "You must enter both beginning and ending dates."
        DoCmd.GoToControl "Beginning Date"
    Else
        If [Beginning Date] > [Ending Date] Then
            MsgBox "Ending date must be greater than Beginning date."
            DoCmd.GoToControl "Beginning Date"
        Else
            Me.Visible = False
        End If
    End If
End Sub

Code of in Word (part-2)

Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right(“000” & MyNumber, 3)
‘ Convert the hundreds place.
If Mid(MyNumber, 1, 1) “0” Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & “ Hundred “
End If

Code of in Word (part-1)

Option Explicit
‘Main Function
Function SpellNumber(ByVal MyNumber)
Dim Taka, Paisa, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = “ Thousand “
Place(3) = “ Million “
Place(4) = “ Billion “
Place(5) = “ Trillion “
‘ String representation of amount.
MyNumber = Trim(Str(MyNumber))
‘ Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, “.”)
‘ Convert Paisa and set MyNumber to Taka amount.
If DecimalPlace > 0 Then
Paisa = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
“00”, 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If

Code of in Word

Option Explicit
‘Main Function
Function SpellNumber(ByVal MyNumber)
Dim Taka, Paisa, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = “ Thousand “
Place(3) = “ Million “
Place(4) = “ Billion “
Place(5) = “ Trillion “
‘ String representation of amount.
MyNumber = Trim(Str(MyNumber))
‘ Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, “.”)
‘ Convert Paisa and set MyNumber to Taka amount.

Applicatio for job.

Date: 01/09/2014
To
The Executive vice president
HRD (Human Resource Division)
United Commercial Bank Limited.
Corporate Head Office
House No CWS(A), Gulshan Avenue
Dhaka-1212.

Subject: Prayer for the post of Sinior Executive Officer.

Dear Sir

Responding from reliable source you are going recruit some senior executive officer in your esteemed Bank. I would like to offer myself as a candidate for the post. My curriculum Vita and other particulars are enclosed with the application for your kind consideration.

I, therefore pray and hope that you would-be gracious enough to give me an opportunity to work in your esteemed Bank to prove my worth.


Yours faithfully

Md. Shamsul Haque.

Activities of Grameen Bank Staff

1. Present Working Organization: Grameen Bank.

2. Service Duration        : April 8, 1985 to still now.
 

3. Working location and experience in Branch Office and other related Offices are given below:
 

4. Joined Grameen Bank, Kishoregonj & Gazaghanta Ganggachara Rangpur Zone as a Branch Manager and worked there from October 01 1985 to May 31 1989. Organizational designation was Senior Officer.
 

Activities: Loan disbursement and recovery, Account and Fund Management, prepare monthly and yearly reports, prepare yearly budget planning and implementation, Evaluation and monitoring of Branch level work.