Made in Advise Form.

Option Compare Database
Option Explicit
Dim inwrd(100)

---------------------------------------------------------------------------------------------------------------

Private Sub AdAmountTotoal_GotFocus()
Me.AdAmountTotoal = (Me.PSTk + Me.DSTK + Me.WATK + Me.OThersTk)
End Sub

---------------------------------------------------------------------------------------------------------------

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

Dim num
num = Val(AdAmountTotoal)
num = Format(num, "0.00")
Do Until Len(num) = 12
num = 0 & num
Loop
Dim p
Dim d
Dim s
Dim h
Dim l
Dim k
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) & " cqmv "
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) & " kZ "
ElseIf Val(s) > 1 Then
s = inwrd(s) & " kZ "
End If

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

If Val(l) = 0 Then
l = ""
ElseIf Val(l) = 1 Then
l = inwrd(l) & " j¶ "
ElseIf Val(l) > 1 Then
l = inwrd(l) & " j¶ "
End If

If Val(k) = 0 Then
k = ""
ElseIf Val(k) = 1 Then
k = inwrd(k) & " ‡KvwU "
ElseIf Val(k) > 1 Then
k = inwrd(k) & " ‡KvwU "
End If

'Label3.Caption = "wrd"
'wrd = k & l & h & s & d & " Taka " & p & " Only."
Me.AmountInWord.Value = k & l & h & s & d & " UvKv " & p & "gvÎ"


End Sub

---------------------------------------------------------------------------------------------------------------


Private Sub AdviseTyp_LostFocus()
Me.AdviseType.Value = Trim(AdviseTyp.Value)
If Me.AdviseType = "DR_P" Then 'Or Me.AdviseType = "DR" Then
Me.PSTk.Visible = True
Me.DSTK.Visible = True
Me.WATK.Visible = True
Me.OThersTk.Visible = True
Me.BillNo.Visible = True
Me.MonthNam.Visible = False
Else
Me.PSTk.Visible = False
Me.DSTK.Visible = False
Me.WATK.Visible = False
Me.OThersTk.Visible = False
Me.BillNo.Visible = False
Me.MonthNam.Visible = True
End If
If Me.AdviseType = "CR_O" Then

Me.ADDescriv.Visible = True
Me.Label67.Visible = True
Else
Me.ADDescriv.Visible = False
Me.Label67.Visible = False
End If


End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub BranchCode_Enter()
Me.BranchCode.Dropdown
End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub DaspuchCod_GotFocus()
If IsNull([DaspuchCod]) Then
MsgBox "Please entry frist time daspuchcod."
Else
Me.DaspuchCod.Value = Me.DaspuchCod.Value + 1
End If
End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub DaspuchCod_LostFocus()
Me.DaspuchCode.Value = Trim(Me.DaspuchCod.Value)
End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub EntryDat_LostFocus()
Me.EntryDate.Value = Trim(EntryDat.Value)
End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub Form_Load()
Me.EntryDat.InputMask = "99/99/0000;0; "
Me.EntryDat.Value = Forms![initial]![Text2]
Me.AdviseTyp.Value = Forms![initial]![Combo0]
Me.ADDescriv.Value = Forms![initial]![Combo23]

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

inwrd(0) = ""
inwrd(1) = "GK"
inwrd(2) = "`yB"
inwrd(3) = "wZb"
inwrd(4) = "Pvi"
inwrd(5) = "cuvP"
inwrd(6) = "Qq"
inwrd(7) = "mvZ"
inwrd(8) = "AvU"
inwrd(9) = "bq"
inwrd(10) = "`k"
inwrd(11) = "GMvi"
inwrd(12) = "evi"
inwrd(13) = "‡Zi"
inwrd(14) = "‡PŠÏ"
inwrd(15) = "c‡bi"
inwrd(16) = "‡lvj"
inwrd(17) = "m‡Zi"
inwrd(18) = "AvVvi"
inwrd(19) = "Ewbk"
inwrd(20) = "wek"
inwrd(21) = "GKzk"
inwrd(22) = "evBk"
inwrd(23) = "‡ZBk"
inwrd(24) = "PweŸk"
inwrd(25) = "cuwPk"
inwrd(26) = "QvweŸk"
inwrd(27) = "mvZvk"
inwrd(28) = "AvUvk"
inwrd(29) = "EbwÎk"
inwrd(30) = "wÎk"
inwrd(31) = "GKwÎk"
inwrd(32) = "ewÎk"
inwrd(33) = "‡ZwÎk"
inwrd(34) = "‡PŠwÎk"
inwrd(35) = "cqwÎk"
inwrd(36) = "QqwÎk"
inwrd(37) = "mvZwÎk"
inwrd(38) = "AvUwÎk"
inwrd(39) = "EbPwj­k"
inwrd(40) = "Pwj­k"
inwrd(41) = "GKPwj­k"
inwrd(42) = "weqvwj­k"
inwrd(43) = "‡ZZvwj­k"
inwrd(44) = "Pzqvwj­k"
inwrd(45) = "cuqZvwj­k"
inwrd(46) = "‡QPwj­k"
inwrd(47) = "mvZPwj­k"
inwrd(48) = "AvUPwj­k"
inwrd(49) = "EbcÂvk"
inwrd(50) = "cÂvk"
inwrd(51) = "GKvbœ"
inwrd(52) = "evqvbœ"
inwrd(53) = "wZàvbœ"
inwrd(54) = "Pzqvbœ"
inwrd(55) = "cuÂvbœ"
inwrd(56) = "Qvàvbœ"
inwrd(57) = "mvZvbœ"
inwrd(58) = "AvUvbœ"
inwrd(59) = "EblvU"
inwrd(60) = "lvU"
inwrd(61) = "GKlwÆ"
inwrd(62) = "evlwÆ"
inwrd(63) = "‡ZlwÆ"
inwrd(64) = "‡PŠlwÆ"
inwrd(65) = "cuqlwÆ"
inwrd(66) = "wQlwÆ"
inwrd(67) = "mvZlwÆ"
inwrd(68) = "AvUlwÆ"
inwrd(69) = "EbmËi"
inwrd(70) = "mËi"
inwrd(71) = "GKvËi"
inwrd(72) = "evnvËi"
inwrd(73) = "wZnvËi"
inwrd(74) = "PzqvËi"
inwrd(75) = "cuPvËi"
inwrd(76) = "wQqvËi"
inwrd(77) = "mvZvËi"
inwrd(78) = "AvUvËi"
inwrd(79) = "Ebvwk"
inwrd(80) = "Avwk"
inwrd(81) = "GKvwk"
inwrd(82) = "weivwk"
inwrd(83) = "wZivwk"
inwrd(84) = "Pzivwk"
inwrd(85) = "cuPvwk"
inwrd(86) = "wQqvwk"
inwrd(87) = "mvZvwk"
inwrd(88) = "AvUvwk"
inwrd(89) = "EbvbeŸB"
inwrd(90) = "beŸB"
inwrd(91) = "GKvbeŸB"
inwrd(92) = "weivbeŸB"
inwrd(93) = "wZivbeŸB"
inwrd(94) = "PzivbeŸB"
inwrd(95) = "cuPvbeŸB"
inwrd(96) = "wQqvbeŸB"
inwrd(97) = "mvZvbeŸB"
inwrd(98) = "AvUvbeŸB"
inwrd(99) = "wbivbeŸB"

'Created by: Mohammad Nazirul Islam.

End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub MonthNam_LostFocus()
Me.MonthName.Value = Trim(MonthNam.Value)
Me.ADDescrive.Value = Trim(ADDescriv.Value)
End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub Next_Click()
On Error GoTo Err_Next_Click


    DoCmd.GoToRecord , , acNext

Exit_Next_Click:
    Exit Sub

Err_Next_Click:
    MsgBox Err.Description
    Resume Exit_Next_Click
   
End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub Previous_Click()
On Error GoTo Err_Previous_Click


    DoCmd.GoToRecord , , acPrevious

Exit_Previous_Click:
    Exit Sub

Err_Previous_Click:
    MsgBox Err.Description
    Resume Exit_Previous_Click
   
End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub Delete_Click()
On Error GoTo Err_Delete_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Delete_Click:
    Exit Sub

Err_Delete_Click:
    MsgBox Err.Description
    Resume Exit_Delete_Click
   
End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub Close_Click()
On Error GoTo Err_Close_Click


    DoCmd.Close

Exit_Close_Click:
    Exit Sub

Err_Close_Click:
    MsgBox Err.Description
    Resume Exit_Close_Click
   
End Sub